d6
/
modal
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some tests are failing, but nothing to worry about for now

This commit is contained in:
Devine Lu Linvega 2024-04-23 10:29:51 -07:00
parent a111783887
commit 083538ada8
1 changed files with 18 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
examples/tests.modal
View File

@ -9,11 +9,6 @@
( a b c ) = (a b c) test ( a b c ) = (a b c) test
(a b c ( a b c ) ) = (a b c (a b c)) test (a b c ( a b c ) ) = (a b c (a b c)) test
(ab cd () ghost) = (ab cd ()) test
(ab cd ghost ()) = (ab cd ()) test
(ab ghost cd ()) = (ab cd ()) test
(ghost ab cd ()) = (ab cd ()) test
?(?-) (Inline rules) ?(?-) (Inline rules)
<> ((?x -> ?y)) (<> ?x ?y) <> ((?x -> ?y)) (<> ?x ?y)
@ -23,16 +18,21 @@ nap tap test
?(?-) (Empty replacements) ?(?-) (Empty replacements)
<> (?x rightless/pop) (ab cd () ghost) = (ab cd ()) test
<> (?x pop) () (ab cd ghost ()) = (ab cd ()) test
<> (prefix/pop ?x) (ok) (ab ghost cd ()) = (ab cd ()) test
<> (?x suffix/pop) (ok) (ghost ab cd ()) = (ab cd ()) test
(ghost) = () test
(q ?((?x ?y ?z) (?x ?y)) a b c) = (q a b) test
(q ?((?x ?y ?z) (?x ?z)) a b c) = (q a c) test
(q ?((?x ?y ?z) (?y ?z)) a b c) = (q b c) test
<> (prefix/pop ?x) ()
<> (?x suffix/pop) ()
(abc rightless/pop) = () test
(prefix/pop foo) = (ok) test (prefix/pop foo) = (ok) test
(foo suffix/pop) = (ok) test (foo suffix/pop) = (ok) test
(abc def pop) = (abc) test
(ghost) = () test
?(?-) (Basic replacements) ?(?-) (Basic replacements)
@ -66,30 +66,20 @@ replace-empty abc = ?y test
connect foo bar baz = foo-barbaz test connect foo bar baz = foo-barbaz test
prefix-anything = anything-suffix test prefix-anything = anything-suffix test
?(?-) (Guards setups)
<> (join (String ?x) (String ?y)) ((?x ?y) =)
join (String abc) (String def) (abc def) test
?(?-) (Lambdas) ?(?-) (Lambdas)
?((?x) ((?x ?x) =)) abc (abc abc) test ?(?x (?x ?x)) abc = (abc abc) test
abc ?(?x) def = abc test abc ?(?x) def = abc test
?(?-) (Explode) ?(?-) (Explode)
<> (explode ?*) ((?*) =) ?(?* ?*) cow = (c (o (w ()))) test
?(?* ?*) (12 34 45) = (12 (34 (45 ()))) test
explode cow (c (o (w ()))) test ?(?-) (op: join)
explode (12 34 45) (12 (34 (45 ()))) test
?(?-) (Implode) ?(?^ ?^) (b (a (t ()))) = bat test
?(?^ ?^) (12 (34 (56 ()))) = 123456 test
<> (implode ?^) (?^ =)
implode (b (a (t ()))) bat test
implode (12 (34 (56 ()))) 123456 test
?(?-) (Test Primitives) ?(?-) (Test Primitives)