Megatest

Check-in [1d84d670d9]
Login
Overview
Comment:added preq_fail to -rerun-clean
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64-itemflow2
Files: files | file ages | folders
SHA1: 1d84d670d991a0420b38b704b328041c2b0da97f
User & Date: bjbarcla on 2017-10-06 17:42:27
Other Links: branch diff | manifest | tags
Context
2017-10-10
10:45
parameterized 2 second delay in runs:can-run-more-tests as setup:inter-test-delay -- default to 2. setting to zero eliminates initial hestitancy between test launches Leaf check-in: 75bb4ba345 user: bjbarcla tags: v1.64-itemflow2
2017-10-09
22:10
Re-merged check-in: 254bc4fdbb user: matt tags: v1.65-runarun
2017-10-06
17:42
added preq_fail to -rerun-clean check-in: 1d84d670d9 user: bjbarcla tags: v1.64-itemflow2
17:33
removed debug message check-in: 9d95b5bab0 user: bjbarcla tags: v1.64-itemflow2
Changes

Modified megatest.scm from [90635785a2] to [4ccc1620b9].

1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
       "-runall"
       "run all tests"
       (lambda (target runname keys keyvals)
         (if (args:get-arg "-rerun-clean") ;; first set states/statuses correct
             (let ((states   (or (configf:lookup *configdat* "validvalues" "cleanrerun-states")
                                 "KILLREQ,KILLED,UNKNOWN,INCOMPLETE,STUCK,NOT_STARTED"))
                   (statuses (or (configf:lookup *configdat* "validvalues" "cleanrerun-statuses")
                                 "FAIL,INCOMPLETE,ABORT,CHECK,DEAD")))
               (hash-table-set! args:arg-hash "-preclean" #t)
               (runs:operate-on 'set-state-status
                                target
                                (common:args-get-runname)  ;; (or (args:get-arg "-runname")(args:get-arg ":runname"))
                                "%" ;; (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                state:  states
                                ;; status: statuses







|







1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
       "-runall"
       "run all tests"
       (lambda (target runname keys keyvals)
         (if (args:get-arg "-rerun-clean") ;; first set states/statuses correct
             (let ((states   (or (configf:lookup *configdat* "validvalues" "cleanrerun-states")
                                 "KILLREQ,KILLED,UNKNOWN,INCOMPLETE,STUCK,NOT_STARTED"))
                   (statuses (or (configf:lookup *configdat* "validvalues" "cleanrerun-statuses")
                                 "FAIL,INCOMPLETE,ABORT,CHECK,DEAD,PREQ_FAIL,PREQ_DISCARDED")))
               (hash-table-set! args:arg-hash "-preclean" #t)
               (runs:operate-on 'set-state-status
                                target
                                (common:args-get-runname)  ;; (or (args:get-arg "-runname")(args:get-arg ":runname"))
                                "%" ;; (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                state:  states
                                ;; status: statuses