🗄️ big tidy up

- isolate core game logic and move it to src/game.fnl
- main.fnl should be just the ui now
- move all table funcs into lib/table
- move all (1) string funcs into lib/string
- move all game funcs into lib/game/

1 files changed, 52 insertions, 18 deletions

diff --git a/lib/test.test.fnl b/lib/test.test.fnl
index 7958141..81ddedd 100644
--- a/lib/test.test.fnl
+++ b/lib/test.test.fnl
@@ -1,19 +1,53 @@
-(let [{: describe :end test-end} (require :lib.test)]
+(let [{: describe 
+       : test-end
+       : deep-equals
+       } (require :lib.test)]
+
+  ;; just a little something to test with
   (fn add [x y] (let [x (or x 0)
-                      y (or y 0)]
-                  (+ x y)))
-  (describe "add()" (fn [test]
-                  (let [should "return the right number"]
-                    (test {:given "two numbers"
-                           : should
-                           :actual (add 2 3)
-                           :expected 5})
-                    (test {:given "no arguments"
-                           :should "return 0"
-                           :actual (add)
-                           :expected 0})
-                    (test {:given "zero"
-                           : should
-                           :actual (add 0 4)
-                           :expected 4}))
-                  (test-end))))
+        y (or y 0)]
+    (+ x y)))
+
+  (describe "# TEST" (fn []
+    (describe "add()" (fn [test]
+      (let [should "return the right number"]
+        (test {:given "two numbers"
+               : should
+               :actual (add 2 3)
+               :expected 5})
+        (test {:given "no arguments"
+               :should "return 0"
+               :actual (add)
+               :expected 0})
+        (test {:given "zero"
+               : should
+               :actual (add 0 4)
+               :expected 4}))))
+
+    (describe "equal()" (fn [t]
+      (t {:given "two equal tables"
+          :should "return true"
+          :expected true
+          :actual (deep-equals [:orange :apple :pear] [:orange :apple :pear]) })
+      (t {:given "two different tables"
+          :should "return false"
+          :expected false
+          :actual (deep-equals [:apple :pear] [:orange :apple :pear]) })
+      (t {:given "equal strings"
+          :should "be true"
+          :expected true
+          :actual (deep-equals :apple :apple) })
+      (t {:given "different strings"
+          :should "be false"
+          :expected false
+          :actual (deep-equals :apple :pear) })
+      (t {:given "equal bools"
+          :should "be true"
+          :expected true
+          :actual (deep-equals true true) })
+      (t {:given "different strings"
+          :should "be false"
+          :expected false
+          :actual (deep-equals true false) })))
+                       
+  (test-end))))