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

diff --git a/tests/test-actors.scm b/tests/test-actors.scm
index 6a9b0a7..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
 ;;; ===============
 
@@ -33,5 +48,22 @@
     '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)