Megatest

Diff
Login

Differences From Artifact [50b24e2f3b]:

To Artifact [a346794ad0]:


237
238
239
240
241
242
243

244


245
246
247
248
249
250
251
237
238
239
240
241
242
243
244

245
246
247
248
249
250
251
252
253







+
-
+
+







    ;; -keepgoing is specified
    (if (eq? *passnum* 0)
	(begin
	  ;; have to delete test records where NOT_STARTED since they can cause -keepgoing to 
	  ;; get stuck due to becoming inaccessible from a failed test. I.e. if test B depends 
	  ;; on test A but test B reached the point on being registered as NOT_STARTED and test
	  ;; A failed for some reason then on re-run using -keepgoing the run can never complete.
	  (for-each (lambda (state)
	  (rmt:general-call 'delete-tests-in-state run-id "NOT_STARTED")
		      (rmt:general-call 'delete-tests-in-state run-id state))
		    (cons "NOT_STARTED" (string-split (or (configf:lookup *configdat* "setup" "allow-auto-rerun") ""))))
	  (rmt:set-tests-state-status run-id test-names #f "FAIL" "NOT_STARTED" "FAIL")))

    ;; Ensure all tests are registered in the test_meta table
    (runs:update-all-test_meta #f)

    ;; now add non-directly referenced dependencies (i.e. waiton)
    ;;======================================================================