Megatest

Check-in [a0aaa881df]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:Cherry pick from d1581174c1: Fixed SKIP handling
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | rebase-envprocessing
Files: files | file ages | folders
SHA1: a0aaa881dfd2de7133bd53e4ae8abdd8786213f0
User & Date: mrwellan on 2016-04-28 08:38:49
Other Links: branch diff | manifest | tags
Context
2016-04-28
08:39
Cherry pick from f07159010c: SKIP now working after adding stop on skip check-in: fa0e02b9cd user: mrwellan tags: rebase-envprocessing
08:38
Cherry pick from d1581174c1: Fixed SKIP handling check-in: a0aaa881df user: mrwellan tags: rebase-envprocessing
08:38
Cherry pick from 34b0e9037f: Drop default number of reruns to 1 check-in: 8af90deb5c user: mrwellan tags: rebase-envprocessing
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified launch.scm from [906a43fb00] to [fecc064d89].

︙
136
137
138
139
140
141
142
143
144
145
146
147






148
149
150
151
152
153
154

136
137
138
139
140
141
142





143
144
145
146
147
148
149
150
151
152
153
154
155








-
-
-
-
-
+
+
+
+
+
+








	  (logfna (if logpro-used (conc stepname ".html") "")))
      (rmt:teststep-set-status! run-id test-id stepname "end" exinfo #f logfna))
    (if logpro-used
	(rmt:test-set-log! run-id test-id (conc stepname ".html")))
    ;; set the test final status
    (let* ((process-exit-status (launch:einf-exit-code exit-info)) ;; (vector-ref exit-info 2))
	   (this-step-status (cond
			      ((and (eq? process-exit-status 2) logpro-used) 'warn)  ;; logpro 2 = warnings
			      ((and (eq? process-exit-status 3) logpro-used) 'check) ;; logpro 3 = check
			      ((and (eq? process-exit-status 4) logpro-used) 'waived) ;; logpro 4 = abort			      
			      ((and (eq? process-exit-status 5) logpro-used) 'abort) ;; logpro 4 = abort
			      ((eq? process-exit-status 0)                   'pass)  ;; logpro 0 = pass
			      ((and (eq? process-exit-status 2) logpro-used) 'warn)   ;; logpro 2 = warnings
			      ((and (eq? process-exit-status 3) logpro-used) 'check)  ;; logpro 3 = check
			      ((and (eq? process-exit-status 4) logpro-used) 'waived) ;; logpro 4 = waived
			      ((and (eq? process-exit-status 5) logpro-used) 'abort)  ;; logpro 5 = abort
			      ((and (eq? process-exit-status 6) logpro-used) 'skip)   ;; logpro 6 = skip
			      ((eq? process-exit-status 0)                   'pass)   ;; logpro 0 = pass
			      (else 'fail)))
	   (overall-status   (cond
			      ((eq? (launch:einf-rollup-status exit-info) 2) 'warn) ;; rollup-status (vector-ref exit-info 3)
			      ((eq? (launch:einf-rollup-status exit-info) 0) 'pass) ;; (vector-ref exit-info 3)
			      (else 'fail)))
	   (next-status      (cond 
			      ((eq? overall-status 'pass) this-step-status)
︙

This page was generated in about 0.104s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00