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 2b5298c81e7e73059a7f46950cfcceabf928667d..36614b227b4c9866a918eed085b681fe29e9a5ba 100644 (file)
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -126,17 +126,14 @@
    (~display "lazy-rep> I'm not answering that.\n")))
 
 (let* ((hive (make-hive))
    (~display "lazy-rep> I'm not answering that.\n")))
 
 (let* ((hive (make-hive))

-       (customer (hive-create-actor hive <antsy-caller>
-                                    #:id-cookie "antsy-caller"))
-       (diligent-rep (hive-create-actor hive <diligent-rep>
-                                        #:id-cookie "diligent-rep"))
-       (lazy-rep (hive-create-actor hive <lazy-rep>
-                                    #:id-cookie "lazy-rep")))
+       (customer (hive-create-actor* hive <antsy-caller> "antsy-caller"))
+       (diligent-rep (hive-create-actor* hive <diligent-rep> "diligent-rep"))
+       (lazy-rep (hive-create-actor* hive <lazy-rep> "lazy-rep")))

   ;; * Playing a tape of a diligent service rep *
   (parameterize ((%record-out (open-output-string)))
     (let* ((result (ez-run-hive
                     hive
   ;; * Playing a tape of a diligent service rep *
   (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


@@ -151,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