Megatest

Check-in [044afb61b7]
Login
Overview
Comment:Do not add the test/ pattern - I believe it might be causing the expanded pattern three or more levels back
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 044afb61b7a6e568ad74e7abe9efb4389909a43b
User & Date: matt on 2015-09-08 21:14:50
Other Links: branch diff | manifest | tags
Context
2015-09-09
22:35
Added missing envvar to test control panel launch in support of submegatestarea check-in: 369b9e111e user: matt tags: v1.60
2015-09-08
21:14
Do not add the test/ pattern - I believe it might be causing the expanded pattern three or more levels back check-in: 044afb61b7 user: matt tags: v1.60
09:08
Switch -clean-rerun to -rerun-clean check-in: 4bb18ed9ea user: mrwellan tags: v1.60
Changes

Modified tests.scm from [83a6e3e701] to [e0e808f287].

86
87
88
89
90
91
92

93

94
95
96
97
98
99
100
86
87
88
89
90
91
92
93

94
95
96
97
98
99
100
101







+
-
+







;;
;;                                  test-a is waiting on test-b so we need to create a pattern for test-b given test-a and itemmap
(define (tests:extend-test-patts test-patt test-b test-a itemmap)
  (let* ((patts      (string-split test-patt ","))
	 (test-b-len (+ (string-length test-b) 1))
	 (patts-b    (map (lambda (x)
			    (let* ((modpatt (if itemmap (db:convert-test-itempath x itemmap) x)) 
				   (newpatt (conc test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
				   (newpatt (conc test-a "/," test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
				         ;; (conc test-a "/," test-a "/" (substring modpatt test-b-len (string-length modpatt)))))
			      ;; (print "in map, x=" x ", newpatt=" newpatt)
			      newpatt))
			  (filter (lambda (x)
				    (eq? (substring-index (conc test-b "/") x) 0))
				  patts))))
    (string-intersperse (delete-duplicates (append patts (if (null? patts-b)
							     (list (conc test-a "/%"))