From 14464dee966fe415d4c8e1fb8b5205653b22003f Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 3 Oct 2022 19:22:23 -0400
Subject: Add prototype catbird modules.

---
 tests/utils.scm | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 tests/utils.scm

(limited to 'tests/utils.scm')

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