From 7d38d7a8c15f9e8d61834b5fd05182addaf6c56e Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 23 Nov 2019 15:05:55 -0800 Subject: Add serval --- Com/Simatime/Serval/Test.scm | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 Com/Simatime/Serval/Test.scm (limited to 'Com/Simatime/Serval/Test.scm') diff --git a/Com/Simatime/Serval/Test.scm b/Com/Simatime/Serval/Test.scm new file mode 100644 index 0000000..44e88c0 --- /dev/null +++ b/Com/Simatime/Serval/Test.scm @@ -0,0 +1,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)))))) -- cgit v1.2.3