mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

tests: Make 'test-guild-compile' more reliable.

Browse source 
Before that it would occasionally fail because the "$target" (not the
intermediate temporary file) would be produced.

* test-suite/standalone/test-guild-compile: Call 'pause' before 'sleep'
  in test program.
This commit is contained in:
Ludovic Courtès 2015-03-04 09:43:46 +01:00 • committed by Andy Wingo
parent 30db824b92
commit 05bea208b3
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/standalone/test-guild-compile
View file

@ -10,6 +10,11 @@ trap 'rm -f "$source" "$target"' EXIT
cat > "$source"<<EOF cat > "$source"<<EOF
(eval-when (expand load eval) (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)) (sleep 100))
(define chbouib 42) (define chbouib 42)
EOF EOF