(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))))))