tests: actors: Fix check for a missing key on message-ref

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

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index fa339222d80ebf8d01c41176560fd6fea061818f..6a9b0a7d669e1e0a970f356a7d3cb90fd30fb8a1 100644 (file)
--- 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)