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: |
75bb4ba3450e8befb22eb72bdb5733a9 |
| 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 |
;; 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 ..."))
| > | | 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
);; 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 |
(items (tests:testqueue-get-items test-rec)))
;;(BB> "HEY " testname "=>"items)
(or (procedure? items)(eq? items 'have-procedure))))
waitons))
)
| | | 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 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
|
| ︙ | ︙ |