blob: 44e88c077943f2ad06e8f6987cddde44347795b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(define-module (Com Simatime Serval Test)
#:use-module (Com Simatime Serval)
#:use-module (Com Simatime core)
#:use-module (Com Simatime Test))
(comment
;; TODO: make this a real test
(let ((kit (Kit "test-kit" "/nix/path" "/nix/config"
"123.456.0.0" 80 "127.0.0.1" #t)))
(testing "ser-deser are opposite functions"
(equal? kit (deserialize (serialize kit))))))
|
