Megatest

Check-in [ca9da88e3e]
Login
Overview
Comment:Added proper use of testpatt to rerun-clean and rerun-all
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: ca9da88e3e855c589ccb1d55c6661c76724b5279
User & Date: mrwellan on 2019-06-11 16:31:12
Other Links: branch diff | manifest | tags
Context
2019-06-12
13:17
Merged ezsteps-tcp updates. Passes all tests check-in: 44b91abd1f user: mrwellan tags: v1.65, v1.6530
2019-06-11
16:31
Added proper use of testpatt to rerun-clean and rerun-all check-in: ca9da88e3e user: mrwellan tags: v1.65
2019-05-31
16:08
Updated version tag check-in: e03d5c75f8 user: jmoon18 tags: v1.65, v1.6529
Changes

Modified junk/data.txt from [cb1d5c0059] to [b9a9d33100].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
1



























-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
0 0 0 1 2 3 4 5 6
0 0 1 1 2 3 4 5 6
0 0 2 1 2 3 4 5 6
0 1 0 1 2 3 4 5 6
0 1 1 1 2 3 4 5 6
0 1 2 1 2 3 4 5 6
0 2 0 1 2 3 4 5 6
0 2 1 1 2 3 4 5 6
0 2 2 1 2 3 4 5 6
1 0 0 1 2 3 4 5 6
1 0 1 1 2 3 4 5 6
1 0 2 1 2 3 4 5 6
1 1 0 1 2 3 4 5 6
1 1 1 1 2 3 4 5 6
1 1 2 1 2 3 4 5 6
1 2 0 1 2 3 4 5 6
1 2 1 1 2 3 4 5 6
1 2 2 1 2 3 4 5 6
2 0 0 1 2 3 4 5 6
2 0 1 1 2 3 4 5 6
2 0 2 1 2 3 4 5 6
2 1 0 1 2 3 4 5 6
2 1 1 1 2 3 4 5 6
2 1 2 1 2 3 4 5 6
2 2 0 1 2 3 4 5 6
2 2 1 1 2 3 4 5 6
2 2 2 1 2 3 4 5 6

Modified megatest.scm from [8964e71ae0] to [e5349aafae].

1702
1703
1704
1705
1706
1707
1708
1709

1710
1711
1712
1713
1714

1715
1716
1717
1718
1719
1720
1721
1722

1723
1724
1725
1726
1727
1728
1729
1702
1703
1704
1705
1706
1707
1708

1709
1710
1711
1712
1713

1714
1715
1716
1717
1718
1719
1720
1721

1722
1723
1724
1725
1726
1727
1728
1729







-
+




-
+







-
+







                                ;; "%" ;; (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
             (let* ((rconfig (full-runconfigs-read)))
               (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 rconfig) ;; (args:get-arg "-testpatt")
                                state:  #f
                                ;; 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 rconfig) ;; (args:get-arg "-testpatt")
                                ;; state:  states
                                status: #f
                                new-state-status: "NOT_STARTED,n/a")))
         (let* ((config-reruns      (let ((x (configf:lookup *configdat* "setup" "reruns")))
			       				(if x (string->number x) #f)))
               (rerun-cnt (if config-reruns
                              config-reruns