From 7c07d6e6ececbf73e18a639e00b3690d4827e12a Mon Sep 17 00:00:00 2001
From: dozens
Date: Wed, 29 May 2024 19:26:41 -0600
Subject: tests

---
 lib/contains.test.fnl | 28 +++++++++++++++++-----------
 1 file changed, 17 insertions(+), 11 deletions(-)

(limited to 'lib/contains.test.fnl')

diff --git a/lib/contains.test.fnl b/lib/contains.test.fnl
index 1c7fb06..45a00af 100644
--- a/lib/contains.test.fnl
+++ b/lib/contains.test.fnl
@@ -1,11 +1,17 @@
-(let [{: contains } (require :lib.contains)]
-  (let [given "a list and an element it contains"
-        should "returns true"
-        expected true
-        actual (contains [:apple :orange :pear] :apple)]
-    (assert (= actual expected) (.. "Given " given " should " should)))
-  (let [given "a list and an element it does not contain"
-        should "returns false"
-        expected false
-        actual (contains [:apple :orange :pear] :gorilla)]
-    (assert (= actual expected) (.. "Given " given " should " should))))
+(let [{: contains } (require :lib.contains)
+      {: describe } (require :lib.test)
+      {: describe :end test-end} (require :lib.test)
+      ]
+
+       (describe "contains()" (fn [t]
+                                (t {:given "a list and an element it contains"
+                                    :should "returns true"
+                                    :expected true
+                                    :actual (contains [:apple :orange :pear] :apple)}
+                                   )
+                                (t {:given "a list and an element it does not contain"
+                                    :should "returns false"
+                                    :expected false
+                                    :actual (contains [:apple :orange :pear] :gorilla)
+                                    })
+                                (test-end))))
-- 
cgit 1.4.1-2-gfad0