projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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