From c72a7be021a04a2c13204d77141ee759ce2500e5 Mon Sep 17 00:00:00 2001
From: Robby Zambito <contact@robbyzambito.me>
Date: Mon, 13 Feb 2023 23:55:05 -0500
Subject: Add some tests

---
 test/gauche.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 test/gauche.scm

(limited to 'test/gauche.scm')

diff --git a/test/gauche.scm b/test/gauche.scm
new file mode 100644
index 0000000..1388b1e
--- /dev/null
+++ b/test/gauche.scm
@@ -0,0 +1,21 @@
+(import (scheme base)
+	(prefix (gauche test) g:))
+
+(import (zambyte meta json))
+
+(define-syntax test
+  (syntax-rules ()
+    ((_ name expected actual)
+     (g:test name expected (lambda () actual) equal?))))
+
+(define-syntax test-assert
+  (syntax-rules ()
+    ((_ name expr)
+     (g:test name #t (lambda () expr) eq?))))
+
+(define-syntax test-not
+  (syntax-rules ()
+    ((_ name expr)
+     (g:test name #f (lambda () expr) eq?))))
+
+(include "run.scm")
-- 
cgit