actors: Rename ez-run-hive to run-hive.

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

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index 6e59198cea7c51889dc6b79064be7157642f25f3..68a05bf13a1b3c668f5c76430862fd06fe6410b1 100644 (file)
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -18,7 +18,7 @@
 
 (define-module (tests test-actors)
   #:use-module (srfi srfi-64)
-  #:use-module (8sync systems actors)
+  #:use-module (8sync actors)
   #:use-module (8sync agenda)
   #:use-module (oop goops)
   #:use-module (tests utils))
@@ -68,7 +68,7 @@
      (test-equal (getter test-message) (getter reread-message)))
    (list message-id message-to message-from message-action message-body
          message-in-reply-to message-wants-reply
-         (@@ (8sync systems actors) message-replied))))
+         (@@ (8sync actors) message-replied))))
 
 
 ;;; Test reply / autoreply
@@ -115,7 +115,7 @@
        (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
+    (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))))