Megatest

Check-in [8ec43965a7]
Login
Overview
Comment:Added skip script capability in testconfig. Skips if script returns status 0
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 8ec43965a7e5f43a9090442d36674c16595b9641
User & Date: mmgraham on 2019-11-13 17:16:12
Other Links: branch diff | manifest | tags
Context
2019-11-13
17:37
added info to the manual for skip filenotexists and skip script check-in: 64fa416b34 user: mmgraham tags: v1.65
17:16
Added skip script capability in testconfig. Skips if script returns status 0 check-in: 8ec43965a7 user: mmgraham tags: v1.65
11:59
In run:test, added skip filenotexists. check-in: 78105f5bdb user: mmgraham tags: v1.65
Changes

Modified runs.scm from [0863abc3aa] to [81684437ca].

1888
1889
1890
1891
1892
1893
1894

1895






1896
1897
1898
1899
1900
1901
1902
1888
1889
1890
1891
1892
1893
1894
1895

1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908







+
-
+
+
+
+
+
+







		   (if (common:file-exists? (configf:lookup test-conf "skip" "fileexists"))
		       (set! skip-test (conc "Skipping due to existance of file " (configf:lookup test-conf "skip" "fileexists")))))

		  ((and skip-check
			(configf:lookup test-conf "skip" "filenotexists"))
		   (if (not (common:file-exists? (configf:lookup test-conf "skip" "filenotexists")))
		       (set! skip-test (conc "Skipping due to non existance of file " (configf:lookup test-conf "skip" "filenotexists")))))
		 
		  ((and skip-check
                  ((and skip-check
			(configf:lookup test-conf "skip" "script"))
		   (if (= (system (configf:lookup test-conf "skip" "script")) 0)
                        (set! skip-test (conc "Skipping due to zero return value of script " (configf:lookup test-conf "skip" "script")))))
      
                  ((and skip-check
			(configf:lookup test-conf "skip" "rundelay"))
		   ;; run-ids = #f means *all* runs
		   (let* ((numseconds      (common:hms-string->seconds (configf:lookup test-conf "skip" "rundelay")))
			  (running-tests   (rmt:get-tests-for-runs-mindata #f full-test-name '("RUNNING" "REMOTEHOSTSTART" "LAUNCHED") '() #f))
			  (completed-tests (rmt:get-tests-for-runs-mindata #f full-test-name '("COMPLETED" "INCOMPLETE") '("PASS" "FAIL" "ABORT") #f)) ;; ironically INCOMPLETE is same as COMPLETED in this contex
			  (last-run-times  (map db:mintest-get-event_time completed-tests))
			  (time-since-last (- (current-seconds) (if (null? last-run-times) 0 (common:max last-run-times)))))