1 (define-module (tests test-actors)
2 #:use-module (srfi srfi-64)
3 #:use-module (8sync systems actors)
4 #:use-module (tests utils))
6 (test-begin "test-actors")
16 (make-message 'id 'to 'from 'action
17 '((monkey . banana)))))
19 (test-equal (message-ref monkey-message 'monkey)
22 ;; A key we don't have
23 (test-equal (message-ref monkey-message 'coo-coo)
26 ;; A key we don't have, with a default set
27 (test-equal (message-ref monkey-message 'coo-coo 'danger-danger)
31 (test-end "test-agenda")