Changed backoff rate and recover rate when no jobs can run but there are still jobs to run

Author: mrwellan

megatest-version.scm

@@ -3,5 +3,5 @@
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.5211)
+(define megatest-version 1.5212)
 

mockup-cached-writes.scm

@@ -3,20 +3,29 @@
 (define (make-cached-writer the-db)
   (let ((db    the-db)
 	(queue '()))
-    (lambda (cacheable . qry-params)
+    (lambda (cacheable . qry-params) ;; fn qry
       (if cacheable
-	  (set! queue (cons qry-params queue))
+	  (begin
+	    (set! queue (cons qry-params queue))
+	    (call/cc))
 	  (begin
 	    (print "Starting transaction")
 	    (for-each
 	     (lambda (queue-item)
-	       (print "WRITE to " db ": " queue-item))
+	       (let ((fn  (car queue-item))
+		     (qry (cdr queue-item)))
+		 (print "WRITE to " db ": " qry)
+		 )
 	     (reverse queue))
 	    (print "End transaction")
 	    (print "READ from " db ": " qry-params))))))
 
-(define a (make-cached-writer "the db"))
-(a #t "insert abc")
-(a #t "insert def")
-(a #t "insert hij")
-(a #f "select foo")
+(define *cw* (make-cached-writer "the db"))
+
+(define (dbcall cacheable query)
+  (*cw* cacheable query))
+
+(dbcall #t "insert abc")
+(dbcall #t "insert def")
+(dbcall #t "insert hij")
+(dbcall #f "select foo")

runs.scm

@@ -122,7 +122,7 @@
 (define *last-num-running-tests* 0)
 (define *runs:can-run-more-tests-delay* 0)
 (define (runs:shrink-can-run-more-tests-delay)
-  (set! *runs:can-run-more-tests-delay* (/ *runs:can-run-more-tests-delay* 2)))
+  (set! *runs:can-run-more-tests-delay* 0)) ;; (/ *runs:can-run-more-tests-delay* 2)))
 
 (define (runs:can-run-more-tests test-record)
   (thread-sleep! *runs:can-run-more-tests-delay*)
@@ -142,7 +142,7 @@
     (if (and (> (+ num-running num-running-in-jobgroup) 0)
 	     (< *runs:can-run-more-tests-delay* 10))
 	(begin
-	  (set! *runs:can-run-more-tests-delay* (+ *runs:can-run-more-tests-delay* 0.1))
+	  (set! *runs:can-run-more-tests-delay* (+ *runs:can-run-more-tests-delay* 1)) ;; 0.1))
 	  (debug:print-info 14 "can-run-more-tests-delay: " *runs:can-run-more-tests-delay*)))
     (if (not (eq? *last-num-running-tests* num-running))
 	(begin