1 #!/usr/bin/env -S guile -s
4 (add-to-load-path "..")
5 (use-modules (srfi srfi-1))
6 (use-modules (srfi srfi-9))
7 (use-modules (srfi srfi-9 gnu))
8 (use-modules (srfi srfi-64))
10 (use-modules (rnrs bytevectors))
12 (define (test-payload test payload)
13 (format #t "--Testing ~s: Payload ~a~%" test payload)
15 (case (string->symbol test)
21 (test-begin "rpc-apply-bcast-serialization-tests")
27 (define r (car (rpc-apply-bcast test-payload "integer" actual)))
29 (test-assert "integer test" (equal? r actual))
31 (test-end "rpc-apply-bcast-serialization-tests")
33 ;; floadint point test
35 (set! actual 3.14159265358979323846)
37 (set! r (car (rpc-apply-bcast test-payload "float" actual)))
39 (test-assert "float test" (equal? r actual))
41 ;; rational number test
45 (set! r (car (rpc-apply-bcast test-payload "rational" actual)))
47 (test-assert "rational test" (equal? r actual))
53 (set! r (car (rpc-apply-bcast test-payload "boolean" actual)))
55 (test-assert "boolean test" (equal? r actual))
59 (set! actual '(1 . 2))
61 (set! r (car (rpc-apply-bcast test-payload "pair" actual)))
63 (test-assert "pair test" (equal? r actual))
67 (set! actual '(1 2 3))
69 (set! r (car (rpc-apply-bcast test-payload "list" actual)))
71 (test-assert "list test" (equal? r actual))
77 (set! r (car (rpc-apply-bcast test-payload "null" actual)))
79 (test-assert "null test" (equal? r actual))
83 (set! actual '((1 2 3)))
85 (set! r (car (rpc-apply-bcast test-payload "listinlist" actual)))
87 (test-assert "listlist test" (equal? r actual))
91 (set! actual #(1 2 3))
93 (set! r (car (rpc-apply-bcast test-payload "vector" actual)))
95 (test-assert "vector test" (equal? r actual))
99 (set! actual #(1 2 3))
101 (set! r (car (rpc-apply-bcast test-payload "vector" actual)))
103 (test-assert "vector test" (equal? r actual))
107 (set! actual #2((1 2 3) (4 5 6)))
109 (set! r (car (rpc-apply-bcast test-payload "array" actual)))
111 (test-assert "array test" (equal? r actual))
115 (set! actual #vu8(1 2 3))
117 (set! r (car (rpc-apply-bcast test-payload "bytevector" actual)))
119 (test-assert "bytevector test" (equal? r actual))
123 (set! actual '((foo . 1) (bar . 2)))
125 (set! r (car (rpc-apply-bcast test-payload "alist" actual)))
127 (test-assert "alist test" (equal? r actual))