From 14464dee966fe415d4c8e1fb8b5205653b22003f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 3 Oct 2022 19:22:23 -0400 Subject: Add prototype catbird modules. --- tests/node.scm | 7 +++++++ tests/scene.scm | 7 +++++++ tests/utils.scm | 9 +++++++++ 3 files changed, 23 insertions(+) create mode 100644 tests/node.scm create mode 100644 tests/scene.scm create mode 100644 tests/utils.scm (limited to 'tests') 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)))))) -- cgit v1.2.3