Megatest

Check-in [ac97c2c2c9]
Login
Overview
Comment:Added an extra sleep for case when can't run more
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | test-specific-db
Files: files | file ages | folders
SHA1: ac97c2c2c994bcc2765a113ac94f5859c4f49408
User & Date: matt on 2012-09-26 14:34:20
Other Links: branch diff | manifest | tags
Context
2012-09-26
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
14:10
Fixed typo, yeah, right, it was a typo check-in: 3ec351303e user: matt tags: test-specific-db
Changes

Modified runs.scm from [b4a9a67dac] to [2bc93c5e34].

472
473
474
475
476
477
478


479
480
481
482
483
484
485
486
			;; 	     "\n  hed:            " hed 
			;; 	     "\n fails:           " (string-intersperse (map db:test-get-testname fails) ",")
			;; 	     "\n testmode:        " testmode
			;; 	     "\n prereqs-not-met: " (pretty-string prereqs-not-met)
			;; 	     "\n items:           " items)
			(loop (car newtal)(cdr newtal)))))
		    ;; if can't run more just loop with next possible test


		    (loop (car newtal)(cdr newtal)))))
	     
	     ;; this case should not happen, added to help catch any bugs
	     ((and (list? items) itemdat)
	      (debug:print 0 "ERROR: Should not have a list of items in a test and the itemspath set - please report this")
	      (exit 1))))
	  
	  ;; we get here on "drop through" - loop for next test in queue







>
>
|







472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
			;; 	     "\n  hed:            " hed 
			;; 	     "\n fails:           " (string-intersperse (map db:test-get-testname fails) ",")
			;; 	     "\n testmode:        " testmode
			;; 	     "\n prereqs-not-met: " (pretty-string prereqs-not-met)
			;; 	     "\n items:           " items)
			(loop (car newtal)(cdr newtal)))))
		    ;; if can't run more just loop with next possible test
		    (begin
		      (thread-sleep! (+ 1 *global-delta*))
		      (loop (car newtal)(cdr newtal))))))
	     
	     ;; this case should not happen, added to help catch any bugs
	     ((and (list? items) itemdat)
	      (debug:print 0 "ERROR: Should not have a list of items in a test and the itemspath set - please report this")
	      (exit 1))))
	  
	  ;; we get here on "drop through" - loop for next test in queue