summaryrefslogtreecommitdiff
path: root/test/gerbil.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test/gerbil.scm')
-rw-r--r--test/gerbil.scm21
1 files changed, 21 insertions, 0 deletions
diff --git a/test/gerbil.scm b/test/gerbil.scm
new file mode 100644
index 0000000..ca730d0
--- /dev/null
+++ b/test/gerbil.scm
@@ -0,0 +1,21 @@
+(import (scheme base)
+ (std test))
+
+(import (zambyte meta json))
+
+(define-syntax test
+ (syntax-rules ()
+ ((_ name expected actual)
+ (test-case name (check-output actual expected)))))
+
+(define-syntax test-assert
+ (syntax-rules ()
+ ((_ name actual)
+ (test-case name (check-predicate actual values)))))
+
+(define-syntax test-not
+ (syntax-rules ()
+ ((_ name actual)
+ (test-case name (check-predicate actual not)))))
+
+(include "run.scm")