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/Test.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 Com/Simatime/Test.scm (limited to 'Com/Simatime/Test.scm') diff --git a/Com/Simatime/Test.scm b/Com/Simatime/Test.scm new file mode 100644 index 0000000..638940f --- /dev/null +++ b/Com/Simatime/Test.scm @@ -0,0 +1,16 @@ +;; a testing framework for scheme +;; inspired by clojure.test and srfi-64 + +(define-module (Com Simatime Test) + #:use-module ((Com Simatime core) + #:select (prn)) + #:export (testing)) + +;; TODO: learn srfi-64 +;; TODO: port over `deftest' et al from clojure +;; TODO: someday a quickcheck-like would be best + +;; simple analog to clojure's `testing' +(define-syntax testing + ((_ description ...) + ((begin (prn description) ...)))) -- cgit v1.2.3