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

Starting tests

This commit is contained in:
Devine Lu Linvega 2024-04-15 17:18:18 -07:00
parent 205cd340b5
commit 08173b4eb9
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
examples/tests.modal
View File

@ -1,18 +1,20 @@
?(?-) (This example tests various aspects of the implementation.) ?(?-) (This example tests various aspects of the implementation.)
<> (explode ?*) (str (?*)) <> (?: print) (?:)
<> (reverse (str (?h ?t))) (reverse/l ?t (?h)) <> (?x = ?x test) (#ok)
<> (reverse (str (?h))) (?h) <> (?x = ?y test) (#fail)
<> (reverse/l (?h ?t) ?l) (reverse/l ?t (?h ?l))
<> (reverse/l (?h) ?l) (str (?h ?l)) ?(?-) (Basic register setups)
<> (implode str ?*) (?*)
<> (empty-register) (?x) <> (dup (?x)) ((?x ?x) =)
<> (explode ?*) (str (?*)) <> (swap (?x ?y)) ((?y ?x) =)
<> (eq ?x ?x) (#t) <> (compare (?x ?x ?x)) ((#t) =)
<> (eq ?x ?y) (#f)
<> (?x dup) (?x ?x) dup (abc) (abc abc) test
<> (?x ?y swap) (?y ?x) swap (abc def) (def abc) test
<> (?x pop) () compare (abc abc abc) (#t) test
<> (print ?:) (?:)
?(?-) (Lambdas)
?((?x) ((?x ?x) =)) abc (abc abc) test
(implode reverse (explode hello)) (explode hello) empty-register (eq abc abc) (eq abc def) (1 2 3) (4 5 6) swap pop dup (hey 1234 pop) (print Done.)