Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -185,13 +185,15 @@ (debug:print 2 "Launching completed, updating db") (debug:print 4 "Launch results: " launch-results) (if (not launch-results) (begin (print "ERROR: Failed to run " (string-intersperse fullcmd " ") ", exiting now") - ;; (sqlite3:finalize! db) + (sqlite3:finalize! db) ;; good ole "exit" seems not to work ;; (_exit 9) + ;; but this hack will work! Thanks go to Alan Post of the Chicken email list + (process-signal (current-process-id) signal/kill) )) (alist->env-vars miscprevvals) (alist->env-vars testprevvals) (alist->env-vars commonprevvals) launch-results))) Index: runs.scm ================================================================== --- runs.scm +++ runs.scm @@ -423,11 +423,13 @@ (null? ((car testrundat)))) ;; are there any tests that must be run before this one... (if (not ((cadr testrundat))) ;; this is the line that launches the test to the remote host (begin (print "ERROR: Failed to launch the test. Exiting as soon as possible") (set! *globalexitstatus* 1) ;; - (exit 1))) + (process-signal (current-process-id) signal/kill) + ;(exit 1) + )) (if (not (args:get-arg "-keepgoing")) (hash-table-set! *waiting-queue* new-test-name testrundat))))))) ((KILLED) (debug:print 1 "NOTE: " new-test-name " is already running or was explictly killed, use -force to launch it.")) ((LAUNCHED REMOTEHOSTSTART RUNNING) Index: tests/Makefile ================================================================== --- tests/Makefile +++ tests/Makefile @@ -5,10 +5,11 @@ runall : cd ../;make $(MEGATEST) -keepgoing -runall :sysname ubuntu :fsname nfs :datapath none :runname `date +%GWW%V.%u` -m "This is a comment specific to a run" -v test : + csi -I .. ../megatest.scm -- -runall :sysname ubuntu :fsname afs :datapath tmp :runname blah cd ../;make test make runall dashboard : cd ../;make dashboard Index: tests/megatest.config ================================================================== --- tests/megatest.config +++ tests/megatest.config @@ -10,12 +10,12 @@ [jobtools] # ## launcher launches jobs, the job is managed on the target host ## by megatest, comment out launcher to run local # workhosts localhost hermes -# launcher nbfake -launcher nodanggood +launcher nbfake +# launcher nodanggood ## use "xterm -e csi -- " as a launcher to examine the launch environment. ## exit with (exit) ## get a shell with (system "bash") # launcher xterm -e csi --