Add prototype catbird modules.

3 files changed, 23 insertions, 0 deletions

diff --git a/tests/node.scm b/tests/node.scm
new file mode 100644
index 0000000..6cdd223
--- /dev/null
+++ b/tests/node.scm
@@ -0,0 +1,7 @@
+(define-module (tests node)
+  #:use-module (catbird node)
+  #:use-module (srfi srfi-64)
+  #:use-module (tests utils))
+
+(with-tests "node"
+  #t)
diff --git a/tests/scene.scm b/tests/scene.scm
new file mode 100644
index 0000000..20a8301
--- /dev/null
+++ b/tests/scene.scm
@@ -0,0 +1,7 @@
+(define-module (tests scene)
+  #:use-module (catbird scene)
+  #:use-module (srfi srfi-64)
+  #:use-module (tests utils))
+
+(with-tests "scene"
+  #t)
diff --git a/tests/utils.scm b/tests/utils.scm
new file mode 100644
index 0000000..b05f70c
--- /dev/null
+++ b/tests/utils.scm
@@ -0,0 +1,9 @@
+(define-module (tests utils)
+  #:use-module (srfi srfi-64)
+  #:export (with-tests))
+
+(define-syntax-rule (with-tests name body ...)
+  (begin
+    (test-begin name)
+    body ...
+    (exit (zero? (test-runner-fail-count (test-end))))))