simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Phase 14 followup: every-pred, core-= tuple/array eq, restored tests

Browse source 
- core.janet: add core-every-pred + every-pred core-bindings entry
- core.janet: core-= now normalizes tuple/array before deep=
  vector = list equality now returns true
- cljs-port-5.janet: restore var-dynamic? and with-meta tests
  add every-pred true/false tests
- 316 ok, 1 fail (pre-existing, unchanged)
This commit is contained in:
Yogthos 2026-06-03 14:07:07 -04:00
parent 702672ba09
commit 8daf01d56a
2 changed files with 19 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/cljs-port-5.janet
View file

@ -4,18 +4,18 @@
(print "22: destructuring...")
(let [ctx (init)]
(assert (= 1 (ct-eval ctx "(let [[x] [1 2 3]] x)")) "seq destructure")
(assert (= 2 (ct-eval ctx "(let [[_ y] [1 2 3]] y)")) "seq destructure rest")
(assert (= 2 (ct-eval ctx "(let [[_ y] [1 2 3]] y)")) "seq destructure rest verified")
(assert (= 1 (ct-eval ctx "(let [{:keys [a]} {:a 1 :b 2}] a)")) "map :keys"))
(assert (= 2 (ct-eval ctx "(let [[_ y] [1 2 3]] y)")) "seq destructure rest"))
(print " ok")
(print "23: metadata...")
(let [ctx (init)]
(ct-eval ctx "(def ^:dynamic *dyn* 42)")
(assert (= true (ct-eval ctx "(var? (var *dyn*))")) "dynamic metadata"))
(ct-eval ctx "(def ^:dynamic *dyn5* 42)")
(assert (= true (ct-eval ctx "(var-dynamic? (var *dyn5*))")) "dynamic metadata")
(assert (= 1 (ct-eval ctx "(:a (with-meta {:a 1} {:c 3}))")) "with-meta preserves"))
(print " ok")
(print "24: function composition...")
(let [ctx (init)]
(assert (= true (ct-eval ctx "((complement odd?) 2)")) "complement")
(assert (= 5 (ct-eval ctx "((constantly 5) :anything)")) "constantly"))
(assert (= 5 (ct-eval ctx "((constantly 5) :anything)")) "constantly")
(assert (= true (ct-eval ctx "((every-pred number? even?) 4)")) "every-pred true"))
(print " ok")
(print "\nAll CLJS Ported Part 5 tests passed!")