Megatest

Changes On Branch 89de0f530c454103
Login

Changes In Branch v1.65-cleanup-try-5 Excluding Merge-Ins

This is equivalent to a diff from e3040653b8 to 89de0f530c

2020-10-04
23:23
Trial 6. Remove use of db_records.scm and use raw vector calls. Leaf check-in: c832f1154e user: matt tags: v1.65-cleanup-try-6
23:03
Trial 5. Revert code that gates test start based on state/status. Closed-Leaf check-in: 89de0f530c user: matt tags: v1.65-cleanup-try-5
2020-09-21
15:36
merged in 1.65-test-rundat branch ==/FAIL/orion,mars/== check-in: cfd25d66e9 user: mmgraham tags: v1.6571, v1.65-failed-testdat
15:09
Change the number of tests to get in each round trip to 50 from 200 ==/FAIL/orion,mars/== check-in: 1e9537e6d4 user: matt tags: v1.65-test-rundat
2020-09-20
22:02
Removed constant updating of test_rundat records. This should speed up big testsuite areas.==/FAIL/orion,mars/== check-in: e3040653b8 user: matt tags: v1.65-test-rundat
2020-09-19
04:21
Start moving test_rundat to no-sync db. ==/20/2/WARN/1203/mars/== check-in: abfabdb839 user: matt tags: v1.65-test-rundat

Modified launch.scm from [e9ff9ffdfc] to [0259fc2000].

460
461
462
463
464
465
466
467
468
469




470
471
472
473
474
475
476
460
461
462
463
464
465
466



467
468
469
470
471
472
473
474
475
476
477







-
-
-
+
+
+
+







				(db:test-get-host        test-info)
				(begin
				  (debug:print 0 *default-log-port* "ERROR: failed to find a record for test-id " test-id ", exiting.")
				  (exit))))
		 (test-pid  (db:test-get-process_id  test-info)))
	    (cond
             ;; -mrw- I'm removing KILLREQ from this list so that a test in KILLREQ state is treated as a "do not run" flag.
	     ((or (member (db:test-get-state test-info) '("INCOMPLETE" "KILLED" "UNKNOWN" "STUCK")) ;; prior run of this test didn't complete, go ahead and try to rerun
		  (and (equal? (db:test-get-state test-info) "COMPLETED")                           ;; completed/abort => rerun if asked
		       (member (db:test-get-status test-info) '("ABORT"))))
	     ;;((or (member (db:test-get-state test-info) '("INCOMPLETE" "KILLED" "UNKNOWN" "STUCK")) ;; prior run of this test didn't complete, go ahead and try to rerun
	     ;;	  (and (equal? (db:test-get-state test-info) "COMPLETED")                           ;; completed/abort => rerun if asked
	     ;;	       (member (db:test-get-status test-info) '("ABORT"))))
	     ((member (db:test-get-state test-info) '("INCOMPLETE" "KILLED" "UNKNOWN" "STUCK")) ;; prior run of this test didn't complete, go ahead and try to rerun
	      (debug:print 0 *default-log-port* "INFO: test is INCOMPLETE or KILLED, treat this execute call as a rerun request")
	      ;; (tests:test-force-state-status! run-id test-id "REMOTEHOSTSTART" "n/a")

              (rmt:general-call 'set-test-start-time #f test-id)
              (rmt:test-set-state-status run-id test-id "REMOTEHOSTSTART" "n/a" #f)
	      ) ;; prime it for running
	     ((member (db:test-get-state test-info) '("RUNNING" "REMOTEHOSTSTART"))