Megatest

Check-in [3629e256a6]
Login
Overview
Comment:Added override of -testpatt with TESTPATT env var IIF -testpatt is set to %
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60 | v1.6019
Files: files | file ages | folders
SHA1: 3629e256a6de786b7464639f6f0003c0d70eb023
User & Date: mrwellan on 2015-07-08 15:43:29
Other Links: branch diff | manifest | tags
Context
2015-07-08
17:29
One more missing scenario for using -testpatt check-in: cacd55a2d6 user: mrwellan tags: v1.60, v1.6019
15:43
Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % check-in: 3629e256a6 user: mrwellan tags: v1.60, v1.6019
15:13
Added override of -testpatt with TESTPATT env var IIF -testpatt is set to % check-in: 010491a514 user: mrwellan tags: v1.60, v1.6019
Changes

Modified megatest.scm from [342093715e] to [f1da4cf806].

929
930
931
932
933
934
935

936
937
938



939
940
941
942
943
944
945
929
930
931
932
933
934
935
936



937
938
939
940
941
942
943
944
945
946







+
-
-
-
+
+
+







;; NOTE: list-runs and list-db-targets operate on local db!!!
;;
(if (or (args:get-arg "-list-runs")
	(args:get-arg "-list-db-targets"))
    (if (launch:setup-for-run)
	(let* ((dbstruct    (make-dbr:dbstruct path: *toppath* local: #t))
	       (runpatt     (args:get-arg "-list-runs"))
	       (testpatt    (common:args-get-testpatt))
	       (testpatt    (if (args:get-arg "-testpatt") 
			        (args:get-arg "-testpatt") 
			        "%"))
	       ;; (if (args:get-arg "-testpatt") 
	       ;;  	        (args:get-arg "-testpatt") 
	       ;;  	        "%"))
	       (keys        (db:get-keys dbstruct))
	       ;; (runsda   t  (db:get-runs dbstruct runpatt #f #f '()))
	       (runsdat     (db:get-runs-by-patt dbstruct keys (or runpatt "%") (common:args-get-target)
			           	 #f #f '("id" "runname" "state" "status" "owner" "event_time" "comment")))
	       (runstmp     (db:get-rows runsdat))
	       (header      (db:get-header runsdat))
	       (runs        (if (and (not (null? runstmp))
1143
1144
1145
1146
1147
1148
1149

1150
1151


1152
1153
1154
1155
1156
1157
1158
1144
1145
1146
1147
1148
1149
1150
1151


1152
1153
1154
1155
1156
1157
1158
1159
1160







+
-
-
+
+







(if (or (args:get-arg "-runall")(args:get-arg "-run"))
    (general-run-call 
     "-runall"
     "run all tests"
     (lambda (target runname keys keyvals)
       (runs:run-tests target
		       runname
		       (common:args-get-testpatt)
		       (or (args:get-arg "-testpatt")
			   "%")
		       ;; (or (args:get-arg "-testpatt")
		       ;;     "%")
		       user
		       args:arg-hash))))

;;======================================================================
;; run one test
;;======================================================================