159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
+
+
+
+
+
+
+
+
|
((and job-group-limit
(>= num-running-in-jobgroup job-group-limit))
(if (runs:lownoise (conc "maxjobgroup " jobgroup) 60)
(debug:print 1 "WARNING: number of jobs " num-running-in-jobgroup
" in jobgroup \"" jobgroup "\" exceeds limit of " job-group-limit))
#t)
(else #f))))
;; lets use the debugger eh?
(debugger-start start: 15)
(debugger-trace-var "runs:can-run-more-tests" "")
(debugger-trace-var "can-not-run-more" can-not-run-more)
(debugger-trace-var "num-running" num-running)
(debugger-trace-var "num-running-in-jobgroup" num-running-in-jobgroup)
(debugger-trace-var "job-group-limit" job-group-limit)
(debugger-pauser)
(list (not can-not-run-more) num-running num-running-in-jobgroup max-concurrent-jobs job-group-limit)))))
;; test-names: Comma separated patterns same as test-patts but used in selection
;; of tests to run. The item portions are not respected.
;; FIXME: error out if /patt specified
;;
|