X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=tests%2Ftest-actors.scm;h=9c6baee32eaf558734e0406fadc3c151ca13f754;hb=62aced47c9f24e5872ab9330583f5f31d1a05af7;hp=fa339222d80ebf8d01c41176560fd6fea061818f;hpb=011f388e6b4f21d53685982c847826799fbe0c88;p=8sync.git

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index fa33922..9c6baee 100644
--- a/tests/test-actors.scm
+++ b/tests/test-actors.scm
@@ -6,6 +6,21 @@
 (test-begin "test-actors")
 
 
+;;; Some test dummy values
+;;; ======================
+
+(define %fake-hive-id "the-main-hive")
+;; Some fake ids for actors
+(define %fake-emo-id (make-address "emo" %fake-hive-id))
+(define %fake-proog-id (make-address "proog" %fake-hive-id))
+(define %fake-hive-actor-id (make-address "hive" %fake-hive-id))
+
+(define test-message
+  (make-message ((simple-message-id-generator))
+                %fake-emo-id
+                %fake-hive-actor-id ; Bootstrap messages come from the hive
+                'greet-proog `((target . ,%fake-proog-id))))
+
 ;;; Actor utilities
 ;;; ===============
 
@@ -20,13 +35,35 @@
     '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)
     'danger-danger))
 
 
+;; Make sure our test message serializes and deserializes okay
+
+(let ((reread-message
+       (read-message-from-string
+        (with-output-to-string
+          (lambda () (write-message test-message))))))
+  (test-assert (message? reread-message))
+  ;; Make sure that all the properties are the same from
+  ;; the original message to the re-read message
+  (for-each
+   (lambda (getter)
+     (test-equal (getter test-message) (getter reread-message)))
+   (list message-id message-to message-from message-action message-body
+         message-in-reply-to message-wants-reply
+         (@@ (8sync systems actors) message-replied)
+         (@@ (8sync systems actors) message-deferred-reply))))
+
 (test-end "test-agenda")
 (test-exit)