Megatest

Check-in [8af90deb5c]
Login
Overview
Comment:Cherry pick from 34b0e9037f: Drop default number of reruns to 1
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | rebase-envprocessing
Files: files | file ages | folders
SHA1: 8af90deb5c873e6ccadfb716e7edeb851dc93aca
User & Date: mrwellan on 2016-04-28 08:38:34
Other Links: branch diff | manifest | tags
Context
2016-04-28
08:38
Cherry pick from d1581174c1: Fixed SKIP handling check-in: a0aaa881df user: mrwellan tags: rebase-envprocessing
08:38
Cherry pick from 34b0e9037f: Drop default number of reruns to 1 check-in: 8af90deb5c user: mrwellan tags: rebase-envprocessing
08:38
Cherry pick from 12fe5e05d6: Added support for SKIP check-in: 283c85af86 user: mrwellan tags: rebase-envprocessing
Changes

Modified runs.scm from [59b63b79e3] to [475715bf83].

231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
	  (list (not can-not-run-more) num-running num-running-in-jobgroup max-concurrent-jobs job-group-limit)))))


;;  test-names: Comma separated patterns same as test-patts but used in selection 
;;              of tests to run. The item portions are not respected.
;;              FIXME: error out if /patt specified
;;            
(define (runs:run-tests target runname test-patts user flags #!key (run-count 3)) ;; test-names
  (let* ((keys               (keys:config-get-fields *configdat*))
	 (keyvals            (keys:target->keyval keys target))
	 (run-id             (rmt:register-run keyvals runname "new" "n/a" user))  ;;  test-name)))
	 (deferred          '()) ;; delay running these since they have a waiton clause
	 (runconfigf         (conc  *toppath* "/runconfigs.config"))
	 (test-records       (make-hash-table))
	 ;; need to process runconfigs before generating these lists







|







231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
	  (list (not can-not-run-more) num-running num-running-in-jobgroup max-concurrent-jobs job-group-limit)))))


;;  test-names: Comma separated patterns same as test-patts but used in selection 
;;              of tests to run. The item portions are not respected.
;;              FIXME: error out if /patt specified
;;            
(define (runs:run-tests target runname test-patts user flags #!key (run-count 1)) ;; test-names
  (let* ((keys               (keys:config-get-fields *configdat*))
	 (keyvals            (keys:target->keyval keys target))
	 (run-id             (rmt:register-run keyvals runname "new" "n/a" user))  ;;  test-name)))
	 (deferred          '()) ;; delay running these since they have a waiton clause
	 (runconfigf         (conc  *toppath* "/runconfigs.config"))
	 (test-records       (make-hash-table))
	 ;; need to process runconfigs before generating these lists