Megatest

Check-in [b3c755e579]
Login
Overview
Comment:Cleaned up output a little
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b3c755e579799593e73fd102a7dacde15e8bd8ee
User & Date: matt on 2012-03-26 00:39:00
Other Links: manifest | tags
Context
2012-03-26
10:52
Added check for [include ...] in runconfigs and fixed where -itempatt was not being respected check-in: f6681ce535 user: matt tags: trunk
00:39
Cleaned up output a little check-in: b3c755e579 user: matt tags: trunk
00:23
Add trimming of tests from launch list to cut down on irrelevant queries and speed up launching check-in: 5501f178c7 user: matt tags: trunk
Changes

Modified runs.scm from [8cce014215] to [b3a5700d11].

300
301
302
303
304
305
306
307



308
309
310
311
312
313
314
		  ;; couldn't run, take a breather
		  (thread-sleep! 0.5)
		  (loop (car newtal)(cdr newtal))))))
	 
	 ;; case where an items came in as a list been processed
	 ((and (list? items)     ;; thus we know our items are already calculated
	       (not   itemdat)) ;; and not yet expanded into the list of things to be done
	  (if (>= *verbosity* 1)(pp items))



	  ;; (if (>= *verbosity* 5)
	  ;;     (begin
	  ;;       (print "items: ")     (pp (item-assoc->item-list items))
	  ;;       (print "itemstable: ")(pp (item-table->item-list itemstable))))
	  (for-each
	   (lambda (my-itemdat)
	     (let* ((new-test-record (let ((newrec (make-tests:testqueue)))







|
>
>
>







300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
		  ;; couldn't run, take a breather
		  (thread-sleep! 0.5)
		  (loop (car newtal)(cdr newtal))))))
	 
	 ;; case where an items came in as a list been processed
	 ((and (list? items)     ;; thus we know our items are already calculated
	       (not   itemdat)) ;; and not yet expanded into the list of things to be done
	  (if (and (>= *verbosity* 1)
		   (> (length items) 0)
		   (> (length (car items)) 0))
		   (pp items))
	  ;; (if (>= *verbosity* 5)
	  ;;     (begin
	  ;;       (print "items: ")     (pp (item-assoc->item-list items))
	  ;;       (print "itemstable: ")(pp (item-table->item-list itemstable))))
	  (for-each
	   (lambda (my-itemdat)
	     (let* ((new-test-record (let ((newrec (make-tests:testqueue)))