diff options
Diffstat (limited to 'test-suite/standalone/test-guild-compile')
-rwxr-xr-x | test-suite/standalone/test-guild-compile | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/test-suite/standalone/test-guild-compile b/test-suite/standalone/test-guild-compile new file mode 100755 index 000000000..5972d5474 --- /dev/null +++ b/test-suite/standalone/test-guild-compile @@ -0,0 +1,47 @@ +#!/bin/sh +# +# This -*- sh -*- script tests whether 'guild compile' leaves traces +# behind it upon SIGINT. + +source="t-guild-compile-$$" +target="$source.go" + +trap 'rm -f "$source" "$target"' EXIT + +cat > "$source"<<EOF +(eval-when (expand load eval) + ;; Wait for SIGINT. + (pause) + + ;; Then sleep so that the SIGINT handler gets to run + ;; and compilation doesn't complete before it runs. + (sleep 100)) +(define chbouib 42) +EOF + +guild compile -o "$target" "$source" & +pid="$!" + +# Send SIGINT. +sleep 2 && kill -INT "$pid" + +# Wait for 'guild compile' to terminate. +sleep 2 + +# Check whether there are any leftovers. +for file in "$target"* +do + if test "$file" != "${target}*" + then + echo "error: 'guild compile' failed to remove '$file'" >&2 + rm "$target"* + kill "$pid" + exit 1 + fi +done + +if test -f "$target" +then + echo "error: '$target' produced" >&2 + exit 1 +fi |