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

Added tests

This commit is contained in:
Devine Lu Linvega 2024-04-23 13:45:03 -07:00
parent c7aad6e21e
commit 14ce4eb176
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/tests.modal
View File

@ -58,15 +58,22 @@ prefix-anything = anything-suffix (substring 2) test
(?(?x (?x ?x)) abc) = (abc abc) (lambda 1) test (?(?x (?x ?x)) abc) = (abc abc) (lambda 1) test
abc ?(?x) def = abc (lambda 2) test abc ?(?x) def = abc (lambda 2) test
?(?-) (Explode) ?(?-) (op: explode)
(?(?* ?*) cow) = (c (o (w ()))) (explode 1) test (?(?* ?*) cow) = (c (o (w ()))) (explode word) test
(?(?* ?*) (12 34 45)) = (12 (34 (45 ()))) (explode 2) test (?(?* ?*) (12 34 45)) = (12 (34 (45 ()))) (explode tuple) test
(?(?* ?*) ()) = () (explode empty) test
?(?-) (op: join) ?(?-) (op: join)
?(?^ ?^) (b (a (t ()))) = bat (join 1) test ?(?^ ?^) (b (a (t ()))) = bat (join 1) test
?(?^ ?^) (12 (34 (56 ()))) = 123456 (join 2) test ?(?^ ?^) (12 (34 (56 ()))) = 123456 (join 2) test
(?(?^ ?^) ()) = () (join empty) test
?(?-) (op: unwrap)
?(?. ?.) (abcd) = abcd (unwrap 1) test
(?(?. ?.) ()) = () (unwrap empty) test
?(?-) (List reversal) ?(?-) (List reversal)