blob: 6f93d48515e00f0229b0c6fad0c0c84475563922 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/usr/bin/env bash
# Validate and test .el files after Edit/Write/MultiEdit.
# PostToolUse hook: receives tool-call JSON on stdin.
# Silent on success; on failure, prints emacs output and exits 2
# so Claude sees the error and can correct it.
#
# Phase 1: check-parens + byte-compile
# Phase 2: for modules/*.el, run matching tests/test-<stem>*.el
set -u
# Portable project root: prefer Claude Code's env var, fall back to deriving
# from this script's location ($project/.claude/hooks/validate-el.sh).
PROJECT_ROOT="${CLAUDE_PROJECT_DIR:-$(cd "$(dirname "$0")/../.." && pwd)}"
f="$(jq -r '.tool_input.file_path // .tool_response.filePath // empty')"
[ -z "$f" ] && exit 0
[ "${f##*.}" = "el" ] || exit 0
MAX_AUTO_TEST_FILES=20 # skip if more matches than this (large test suites)
# --- Phase 1: syntax + byte-compile ---
case "$f" in
*/init.el|*/early-init.el)
# Byte-compile here would load the full package graph. Parens only.
if ! output="$(emacs --batch --no-site-file --no-site-lisp "$f" \
--eval '(check-parens)' 2>&1)"; then
printf 'PAREN CHECK FAILED: %s\n%s\n' "$f" "$output" >&2
exit 2
fi
;;
*.el)
if ! output="$(emacs --batch --no-site-file --no-site-lisp \
-L "$PROJECT_ROOT" \
-L "$PROJECT_ROOT/modules" \
-L "$PROJECT_ROOT/tests" \
--eval '(package-initialize)' \
"$f" \
--eval '(check-parens)' \
--eval "(or (byte-compile-file \"$f\") (kill-emacs 1))" 2>&1)"; then
printf 'VALIDATION FAILED: %s\n%s\n' "$f" "$output" >&2
exit 2
fi
;;
esac
# --- Phase 2: test runner ---
# Determine which tests (if any) apply to this edit. Works for projects with
# source at root, in modules/, or elsewhere — stem-based test lookup is the
# common pattern.
tests=()
case "$f" in
*/init.el|*/early-init.el)
: # Phase 1 handled it; skip test runner
;;
"$PROJECT_ROOT/tests/testutil-"*.el)
stem="$(basename "${f%.el}")"
stem="${stem#testutil-}"
mapfile -t tests < <(find "$PROJECT_ROOT/tests" -maxdepth 1 -name "test-${stem}*.el" 2>/dev/null | sort)
;;
"$PROJECT_ROOT/tests/test-"*.el)
tests=("$f")
;;
*.el)
# Any other .el under the project — find matching tests by stem
stem="$(basename "${f%.el}")"
mapfile -t tests < <(find "$PROJECT_ROOT/tests" -maxdepth 1 -name "test-${stem}*.el" 2>/dev/null | sort)
;;
esac
count="${#tests[@]}"
if [ "$count" -ge 1 ] && [ "$count" -le "$MAX_AUTO_TEST_FILES" ]; then
load_args=()
for t in "${tests[@]}"; do load_args+=("-l" "$t"); done
if ! output="$(emacs --batch --no-site-file --no-site-lisp \
-L "$PROJECT_ROOT" \
-L "$PROJECT_ROOT/modules" \
-L "$PROJECT_ROOT/tests" \
--eval '(package-initialize)' \
-l ert "${load_args[@]}" \
--eval "(ert-run-tests-batch-and-exit '(not (tag :slow)))" 2>&1)"; then
printf 'TESTS FAILED for %s (%d test file(s)):\n%s\n' "$f" "$count" "$output" >&2
exit 2
fi
fi
exit 0
|
