X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=tests%2Ftest-actors.scm;h=36614b227b4c9866a918eed085b681fe29e9a5ba;hp=15191c4bbbc00b6582f9ffb643d33a5d119b2a07;hb=9414dea358e9067f1d333650df1a228dcc4bf378;hpb=13cb6055e917635850e8f0e3eea5c6b0dc376e7a diff --git a/tests/test-actors.scm b/tests/test-actors.scm index 15191c4..36614b2 100644 --- a/tests/test-actors.scm +++ b/tests/test-actors.scm @@ -133,7 +133,7 @@ (parameterize ((%record-out (open-output-string))) (let* ((result (ez-run-hive hive - (list (hive-bootstrap-message hive customer 'pester-rep + (list (bootstrap-message hive customer 'pester-rep #:who-to-call diligent-rep)))) (displayed-text (get-output-string (%record-out)))) (test-equal @@ -148,7 +148,7 @@ customer> Well then! Harumph.\n"))) (parameterize ((%record-out (open-output-string))) (let* ((result (ez-run-hive hive - (list (hive-bootstrap-message hive customer 'pester-rep + (list (bootstrap-message hive customer 'pester-rep #:who-to-call lazy-rep)))) (displayed-text (get-output-string (%record-out)))) (test-equal