Megatest

Check-in [29f35f475c]
Login
Overview
Comment:Added -area as an alias to -area-tag to silence errors from MCC
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 29f35f475c1ed2287f876308834d179cd39611ca
User & Date: jmoon18 on 2019-02-06 14:29:38
Other Links: branch diff | manifest | tags
Context
2019-02-07
17:12
fixed tasks.scm -- Error: (line 1066) unterminated list, starting in line 997 check-in: 8fe9960438 user: bjbarcla tags: v1.65
2019-02-06
14:29
Added -area as an alias to -area-tag to silence errors from MCC check-in: 29f35f475c user: jmoon18 tags: v1.65
2019-02-01
11:15
added new indexes on tests table check-in: 55bfa73d28 user: bjbarcla tags: v1.65, v1.6523
Changes

Modified megatest.scm from [f471deb056] to [170ba13932].

308
309
310
311
312
313
314

315
316
317
318
319
320
321
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322







+







			":units"
			;; misc
			"-start-dir"
                        "-run-patt"
                        "-target-patt"   
			"-contour"
                        "-area-tag"  
                        "-area"  
			"-server"
			"-transport"
			"-port"
			"-extract-ods"
			"-pathmod"
			"-env2file"
			"-envcap"

Modified tasks.scm from [a9c7045f9a] to [34eb5fbf1f].

1030
1031
1032
1033
1034
1035
1036


1037

1038
1039
1040
1041
1042
1043
1044
1030
1031
1032
1033
1034
1035
1036
1037
1038

1039
1040
1041
1042
1043
1044
1045
1046







+
+
-
+







	       (run-ids        (alist-ref 'runs       changed))
	       (test-ids       (alist-ref 'tests      changed))
	       (test-step-ids  (alist-ref 'test_steps changed))
	       (test-data-ids  (alist-ref 'test_data  changed))
	       (run-stat-ids   (alist-ref 'run_stats  changed))
         (area-tag    (if (args:get-arg "-area-tag") 
                                 (args:get-arg "-area-tag")
                                 (if (args:get-arg "-area") 
                                   (args:get-arg "-area") 
                                  "")))
                                   "")))
           (if (and (equal? area-tag "") (not (pgdb:is-area-taged dbh (vector-ref area-info 0))))
            (set! area-tag *default-area-tag*)) 
           (if (not (equal? area-tag "")) 
             (task:add-area-tag dbh area-info area-tag)) 
	  (if (or (not (null? test-ids)) (not (null? run-ids)))
	      (begin
                (debug:print-info 0 *default-log-port*  "syncing runs")