actors: Rename hive-bootstrap-message -> bootstrap-message.

[8sync.git] / tests / test-actors.scm

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index 15191c4bbbc00b6582f9ffb643d33a5d119b2a07..36614b227b4c9866a918eed085b681fe29e9a5ba 100644 (file)
--- 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
   (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
                                                   #: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
   (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
                                                   #:who-to-call lazy-rep))))
            (displayed-text (get-output-string (%record-out))))
       (test-equal