X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=tests%2Ftest-actors.scm;h=6a9b0a7d669e1e0a970f356a7d3cb90fd30fb8a1;hp=fa339222d80ebf8d01c41176560fd6fea061818f;hb=c3cd292ee063bdfd8cb21ef36c993f28f4467826;hpb=020433c48ec74f820cafbc068a0dfd7316ee257d

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index fa33922..6a9b0a7 100644
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -20,8 +20,13 @@
     'banana)
 
   ;; A key we don't have
-  (test-equal (message-ref monkey-message 'coo-coo)
-    #f)
+  (let ((caught-error #f))
+    (catch 'message-missing-key
+      (lambda ()
+        (message-ref monkey-message 'coo-coo))
+      (lambda (. args)
+        (set! caught-error #t)))
+    (test-assert caught-error))
 
   ;; A key we don't have, with a default set
   (test-equal (message-ref monkey-message 'coo-coo 'danger-danger)