X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=tests%2Ftest-actors.scm;h=68a05bf13a1b3c668f5c76430862fd06fe6410b1;hp=73927cd9764e773327b6ab52f3ac0302e0fb29c0;hb=c769bb3b2c949c304eb4395d3f24eebea6106c1a;hpb=7e29f7cd7cda3e2ee56af25917a375d2237355b7 diff --git a/tests/test-actors.scm b/tests/test-actors.scm index 73927cd..68a05bf 100644 --- a/tests/test-actors.scm +++ b/tests/test-actors.scm @@ -115,7 +115,7 @@ (lazy-rep (hive-create-actor* hive "lazy-rep"))) ;; * Playing a tape of a diligent service rep * (parameterize ((%record-out (open-output-string))) - (let* ((result (ez-run-hive + (let* ((result (run-hive hive (list (bootstrap-message hive customer 'pester-rep #:who-to-call diligent-rep)))) @@ -129,7 +129,7 @@ customer> Well then! Harumph.\n" displayed-text))) ;; * Playing a tape of a lazy service rep * (parameterize ((%record-out (open-output-string))) - (let* ((result (ez-run-hive + (let* ((result (run-hive hive (list (bootstrap-message hive customer 'pester-rep #:who-to-call lazy-rep))))