switch stop-condition to be a keyword argument

[8sync.git] / tests.scm

diff --git a/tests.scm b/tests.scm
index c7fe1cd32a76cad657a4c2d1b91bafb995f4fb15..a958ea247bd8ff0d4c2fa6203ec1fab51d35c536 100644 (file)
--- a/tests.scm
+++ b/tests.scm
@@ -232,7 +232,7 @@
   (set! speaker (speak-it))  ; reset the speaker
   (enq! q run-dummy)
   (start-agenda (make-agenda #:queue q)
-                (true-after-n-times 2))
+                #:stop-condition (true-after-n-times 2))
   (test-equal (speaker)
     '("I bet I can make you say you're a dummy!\n"
       "I'm a dummy\n")))
@@ -242,7 +242,7 @@
   (set! speaker (speak-it))  ; reset the speaker
   (enq! q run-dummy)
   (start-agenda (make-agenda #:queue q)
-                (true-after-n-times 1))
+                #:stop-condition (true-after-n-times 1))
   (test-equal (speaker)
     '("I bet I can make you say you're a dummy!\n")))