Megatest

Check-in [47e9f43714]
Login
Overview
Comment:Removed a not needed finalize
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | test-specific-db
Files: files | file ages | folders
SHA1: 47e9f4371454299e724d3520ca2b19c96a7ce75b
User & Date: matt on 2012-09-26 14:42:24
Other Links: branch diff | manifest | tags
Context
2012-09-26
15:35
Added a second pass clean up run, switched testing to not be syncronous, added debug control to test5 check-in: 3da1798a2a user: matt tags: test-specific-db
14:42
Removed a not needed finalize check-in: 47e9f43714 user: matt tags: test-specific-db
14:34
Added an extra sleep for case when can't run more check-in: ac97c2c2c9 user: matt tags: test-specific-db
Changes

Modified launch.scm from [c4ef02d1b8] to [2203f11517].

330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
		  (open-run-close tests:summarize-items #f run-id test-name #f)) ;; don't force - just update if no
	      )
	    (mutex-unlock! m)
	    ;; (exec-results (cmd-run->list fullrunscript)) ;;  (list ">" (conc test-name "-run.log"))))
	    ;; (success      exec-results)) ;; (eq? (cadr exec-results) 0)))
	    (debug:print 2 "Output from running " fullrunscript ", pid " (vector-ref exit-info 0) " in work area " 
			 work-area ":\n====\n exit code " (vector-ref exit-info 2) "\n" "====\n")
	    (sqlite3:finalize! db)
	    (sqlite3:finalize! tdb)
	    (if (not (vector-ref exit-info 1))
		(exit 4)))))))

;; set up the very basics needed for doing anything here.
(define (setup-for-run)
  ;; would set values for KEYS in the environment here for better support of env-override but 







|







330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
		  (open-run-close tests:summarize-items #f run-id test-name #f)) ;; don't force - just update if no
	      )
	    (mutex-unlock! m)
	    ;; (exec-results (cmd-run->list fullrunscript)) ;;  (list ">" (conc test-name "-run.log"))))
	    ;; (success      exec-results)) ;; (eq? (cadr exec-results) 0)))
	    (debug:print 2 "Output from running " fullrunscript ", pid " (vector-ref exit-info 0) " in work area " 
			 work-area ":\n====\n exit code " (vector-ref exit-info 2) "\n" "====\n")
	    ;; (sqlite3:finalize! db)
	    (sqlite3:finalize! tdb)
	    (if (not (vector-ref exit-info 1))
		(exit 4)))))))

;; set up the very basics needed for doing anything here.
(define (setup-for-run)
  ;; would set values for KEYS in the environment here for better support of env-override but