Megatest

Check-in [22faaf8368]
Login
Overview
Comment:Fix for -rerun-clean not honoring -testpatt
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 22faaf83686db877ff9058220271ba8827717a9b
User & Date: matt on 2018-11-15 22:34:09
Other Links: branch diff | manifest | tags
Context
2018-11-28
14:21
Initial branch of tquery based on 1.65 Leaf check-in: 9fa63b1a02 user: jmoon18 tags: tquery-1.65
11:49
fixed ezsteps rerun state API drift errors, weird new issue -- probably masked by issues just fixed -- <unknown>: Fatal IO error 11 (Resource temporarily unavailable) on X server plxcq1071.pdx.intel.com:6.0. check-in: a4dbbfa5fd user: bjbarcla tags: v1.65
2018-11-21
16:35
Updates to allow building a sles12 version with no readline and postgres Leaf check-in: d277c93758 user: jmoon18 tags: sles12-hacks
2018-11-15
22:52
Merged in recent changes from v1.65 check-in: 3a5aa6edcb user: matt tags: v2.01-try-1
22:34
Fix for -rerun-clean not honoring -testpatt check-in: 22faaf8368 user: matt tags: v1.65
17:10
Added code for tquery and tquerylisten for VERY basic ability to get loads check-in: 2b11d3acea user: jmoon18 tags: v1.65
Changes

Modified megatest.scm from [e40d828b60] to [cecad5eaf2].

1628
1629
1630
1631
1632
1633
1634

1635
1636
1637
1638
1639
1640
1641
1642
1643


1644
1645
1646
1647
1648
1649
1650
1651


1652
1653
1654
1655
1656
1657
1658
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643

1644
1645
1646
1647
1648
1649
1650
1651
1652

1653
1654
1655
1656
1657
1658
1659
1660
1661







+








-
+
+







-
+
+







    (let ((need-clean (or (args:get-arg "-rerun-clean")
                          (args:get-arg "-rerun-all"))))
      (general-run-call 
       "-runall"
       "run all tests"
       (lambda (target runname keys keyvals)
         (if (args:get-arg "-rerun-clean") ;; first set states/statuses correct
	     ;; For rerun-clean do we or do we not support the testpatt?
             (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")
                                ;; "%" ;; (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                state:  states
                                ;; status: statuses
                                new-state-status: "NOT_STARTED,n/a")
               (runs:clean-cache target runname *toppath*)
               (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")
                                ;; "%" ;; (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                (common:args-get-testpatt #f) ;; (args:get-arg "-testpatt")
                                ;; state:  states
                                status: statuses
                                new-state-status: "NOT_STARTED,n/a")))
         ;; RERUN ALL
         (if (args:get-arg "-rerun-all") ;; first set states/statuses correct
             (begin
               (hash-table-set! args:arg-hash "-preclean" #t)