From 05a303de6c8cf8e8acb00b2107f7a66c363140b3 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 May 2024 14:47:46 -0600
Subject: Booleans-test file, tests

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

(limited to 'booleans/booleans-test.scm')

diff --git a/booleans/booleans-test.scm b/booleans/booleans-test.scm
new file mode 100644
index 0000000..78a78be
--- /dev/null
+++ b/booleans/booleans-test.scm
@@ -0,0 +1,16 @@
+(use-modules (srfi srfi-64)
+             (booleans))
+
+(test-begin "harness")
+
+
+(test-equal "test-true-inverted-is-false"
+  #f
+  (boolean-invert #t))
+
+(test-equal "test-true-inverted-is-false"
+  #t
+  (boolean-invert #f))
+
+
+(test-end "harness")
-- 
cgit v1.2.3