Megatest

Check-in [a073c69b4f]
Login
Overview
Comment:decrease inter-test-delay to 0.1
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64 | v1.6433
Files: files | file ages | folders
SHA1: a073c69b4f5450bf0cdf2b4532a931c8af3cae3f
User & Date: mrwellan on 2017-10-10 13:50:55
Other Links: branch diff | manifest | tags
Context
2017-10-10
14:01
Merged install file check-in: e62995eb4e user: jmoon18 tags: v1.64
13:50
decrease inter-test-delay to 0.1 check-in: a073c69b4f user: mrwellan tags: v1.64, v1.6433
13:27
Merged in itemflow2 branch and bumped version check-in: a43f4c88f9 user: mrwellan tags: v1.64, v1.6433
Changes

Modified runs.scm from [8abd893735] to [5a4ac7b383].

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







-
+







  ;; 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
                   (configf:lookup-number *configdat* "setup" "inter-test-delay" default: 0.1) ;; was 2
		   );; 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)