From 05a303de6c8cf8e8acb00b2107f7a66c363140b3 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 May 2024 14:47:46 -0600 Subject: Booleans-test file, tests --- booleans/booleans-test.scm | 16 ++++++++++++++++ booleans/booleans.scm | 6 ++++++ 2 files changed, 22 insertions(+) create mode 100644 booleans/booleans-test.scm create mode 100644 booleans/booleans.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") diff --git a/booleans/booleans.scm b/booleans/booleans.scm new file mode 100644 index 0000000..6b2fe07 --- /dev/null +++ b/booleans/booleans.scm @@ -0,0 +1,6 @@ +(define-module (booleans)) + +(define-public (boolean-invert bool) + "Returns the opposite value of the +passed in boolean." + (not bool)) -- cgit v1.2.3