Megatest

Check-in [43dabdcf28]
Login
Overview
Comment:reverted the change to condition the call to runs:incremental-print-results on debug 3. This was breaking the subrun test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 43dabdcf28e879b0be0273f143699372c762fb5c
User & Date: mmgraham on 2021-04-29 15:11:50
Other Links: branch diff | manifest | tags
Context
2021-04-29
15:13
updated version to v1.6585 check-in: b665f476b3 user: mmgraham tags: v1.65, v1.6585
15:11
reverted the change to condition the call to runs:incremental-print-results on debug 3. This was breaking the subrun test. check-in: 43dabdcf28 user: mmgraham tags: v1.65
2021-04-23
14:55
Adjusted server startup timing values. Changed CHECK to be a failing status for prereq. Moved some debug messages to higher debug levels. Added unsetting of HTTP_PROXY env vars. check-in: 5ef2e6042b user: mmgraham tags: v1.65
Changes

Modified runs.scm from [2f42b47c06] to [dcda6cf6d1].

1285
1286
1287
1288
1289
1290
1291
1292
1293

1294
1295
1296
1297
1298
1299
1300
1301
1285
1286
1287
1288
1289
1290
1291


1292

1293
1294
1295
1296
1297
1298
1299







-
-
+
-







		    (not (member 'exclusive testmode)))))
      ;; (hash-table-delete! *max-tries-hash* (db:test-make-full-name test-name item-path))
      ;; we are going to reset all the counters for test retries by setting a new hash table
      ;; this means they will increment only when nothing can be run
      (set! *max-tries-hash* (make-hash-table))
      
      (run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry runsdat testdat)
      (if (debug:debug-mode 3)
        (runs:incremental-print-results run-id)
      (runs:incremental-print-results run-id)
      )
      (hash-table-set! test-registry (db:test-make-full-name test-name item-path) 'running)
      (runs:shrink-can-run-more-tests-count runsdat)  ;; DELAY TWEAKER (still needed?)
      ;; (thread-sleep! *global-delta*)
      (if (or (not (null? tal))(not (null? reg)))
	  (runs:loop-values tal reg reglen regfull reruns) ;; hed should be dropped at this time
	  #f))
     
1669
1670
1671
1672
1673
1674
1675
1676
1677

1678
1679
1680
1681
1682
1683
1684
1685
1667
1668
1669
1670
1671
1672
1673


1674

1675
1676
1677
1678
1679
1680
1681







-
-
+
-







		  (debug:print-info 0 *default-log-port* "Skipping test " tfullname " as it has been marked do not run due to being completed or not runnable"))
	      (if (or (not (null? tal))(not (null? reg)))
		  (loop (runs:queue-next-hed tal reg reglen regfull)
			(runs:queue-next-tal tal reg reglen regfull)
			(runs:queue-next-reg tal reg reglen regfull)
			reruns))))
        ;; (loop (car tal)(cdr tal) reg reruns))))
        (if (debug:debug-mode 3)
	  (runs:incremental-print-results run-id)
	(runs:incremental-print-results run-id)
        )
	(debug:print 4 *default-log-port* "TOP OF LOOP => "
		     "test-name: " test-name
		     "\n  hed:         " hed
		     "\n  tal:         " (runs:pretty-long-list tal)
		     "\n  reg:         " reg
                     "\n  test-record  " test-record
                     "\n  itemdat:     " itemdat