Megatest

Check-in [75bb4ba345]
Login
Overview
Comment:parameterized 2 second delay in runs:can-run-more-tests as setup:inter-test-delay -- default to 2. setting to zero eliminates initial hestitancy between test launches
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64-itemflow2
Files: files | file ages | folders
SHA1: 75bb4ba3450e8befb22eb72bdb5733a9cda014b8
User & Date: bjbarcla on 2017-10-10 10:45:49
Other Links: branch diff | manifest | tags
Context
2017-10-10
13:27
Merged in itemflow2 branch and bumped version check-in: a43f4c88f9 user: mrwellan tags: v1.64, v1.6433
10:45
parameterized 2 second delay in runs:can-run-more-tests as setup:inter-test-delay -- default to 2. setting to zero eliminates initial hestitancy between test launches Leaf check-in: 75bb4ba345 user: bjbarcla tags: v1.64-itemflow2
2017-10-06
17:42
added preq_fail to -rerun-clean check-in: 1d84d670d9 user: bjbarcla tags: v1.64-itemflow2
Changes

Modified runs.scm from [f4872c06f9] to [8abd893735].

190
191
192
193
194
195
196

197

198
199
200
201
202
203
204
190
191
192
193
194
195
196
197

198
199
200
201
202
203
204
205







+
-
+







  ;; Take advantage of a good place to exit if running the one-pass methodology
  (if (and (> (runs:dat-can-run-more-tests-count runsdat) 20)
	   (args:get-arg "-one-pass"))
      (exit 0))
  (thread-sleep! (cond
        	  ((> (runs:dat-can-run-more-tests-count runsdat) 20)
		   (if (runs:lownoise "waiting on tasks" 60)(debug:print-info 2 *default-log-port* "waiting for tasks to complete, sleeping briefly ..."))
                   (configf:lookup-number *configdat* "setup" "inter-test-delay" default: 2) ;; was 2
		   2);; obviously haven't had any work to do for a while
		   );; obviously haven't had any work to do for a while
        	  (else 0)))
  (let* ((num-running             (rmt:get-count-tests-running run-id))
	 (num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup))
	 (job-group-limit         (let ((jobg-count (config-lookup *configdat* "jobgroups" jobgroup)))
				    (if (string? jobg-count)
					(string->number jobg-count)
					jobg-count))))
671
672
673
674
675
676
677
678

679
680
681
682
683
684
685
672
673
674
675
676
677
678

679
680
681
682
683
684
685
686







-
+







                           (items       (tests:testqueue-get-items  test-rec)))
                      ;;(BB> "HEY " testname "=>"items)
                      (or (procedure? items)(eq? items 'have-procedure))))
                  waitons))


         )
    (debug:print-info 1 *default-log-port* "START OF INNER COND #2 "
    (debug:print-info 2 *default-log-port* "START OF INNER COND #2 "
		      "\n can-run-more:    " can-run-more
		      "\n testname:        " hed
		      "\n prereqs-not-met: " (runs:pretty-string prereqs-not-met)
		      "\n non-completed:   " (runs:pretty-string non-completed) 
		      "\n prereq-fails:    " (runs:pretty-string prereq-fails)
		      "\n fails:           " (runs:pretty-string fails)
		      "\n testmode:        " testmode