projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
'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)
;; A key we don't have, with a default set
(test-equal (message-ref monkey-message 'coo-coo 'danger-danger)