dan/liminix
1
0
Fork 5
Code

add more test for table=

Browse Source
This commit is contained in:
Daniel Barlow 2024-09-04 21:21:30 +01:00
parent a60c2539a6
commit 12275f6896
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/anoia/init.fnl
View File

@ -66,7 +66,10 @@
(assert (table= {:a 1 :b {:l 17}} {:b {:l 17} :a 1})) (assert (table= {:a 1 :b {:l 17}} {:b {:l 17} :a 1}))
(assert (table= {:a [4 5 6 7] } {:a [4 5 6 7]})) (assert (table= {:a [4 5 6 7] } {:a [4 5 6 7]}))
(assert (not (table= {:a [4 5 6 7] } {:a [4 5 6 7 8]}))) (assert (not (table= {:a [4 5 6 7] } {:a [4 5 6 7 8]})))
(assert (not (table= {:a [4 5 7 6] } {:a [4 5 6 7 ]})))) (assert (not (table= {:a [4 5 7 6] } {:a [4 5 6 7 ]})))
(assert (table= {} {}))
)
(fn dig [tree path] (fn dig [tree path]
(match path (match path