~rabbits/modal

da91bc0aedcc8f856b8865ca0f38e1accd19a7cb — Devine Lu Linvega 25 days ago 89f393e
Do not use # for true/false
1 files changed, 10 insertions(+), 8 deletions(-)

M examples/tests.modal
M examples/tests.modal => examples/tests.modal +10 -8
@@ 2,7 2,7 @@

?(?-) (Early Test Primitives)

<> (?x = ?x ?n test) (?(?: ?:) (#pass ?n\n))
<> (?x = ?x ?n test) (?(?: ?:) (pass ?n\n))

<> (ghost) ()



@@ 36,15 36,17 @@

<> (dup (?x)) (?x ?x)
<> (swap (?x ?y)) (?y ?x)
<> (compare (?x ?x ?x)) (#t)
<> (compare (?x ?x ?x)) (@t)
<> (compare (?x ?y ?z)) (@f)
<> (rotate (?x (?y (?z)))) (?y (?z (?x)))
<> (unused ?x) ?y

(dup (abc)) = (abc abc) (basic 1/5) test
(swap (abc def)) = (def abc) (basic 2/5) test
(compare (abc abc abc)) = (#t) (basic 3/5) test
(rotate (abc (def (ghi)))) = (def (ghi (abc))) (basic 4/5) test
(unused hey) = (?y) (basic 5/5) test
(dup (abc)) = (abc abc) (basic 1/6) test
(swap (abc def)) = (def abc) (basic 2/6) test
(compare (abc abc abc)) = (@t) (basic 3/6) test
(compare (abc abc def)) = (@f) (basic 4/6) test
(rotate (abc (def (ghi)))) = (def (ghi (abc))) (basic 5/6) test
(unused hey) = (?y) (basic 6/6) test

?(?-) (Substring registers)



@@ 142,5 144,5 @@ reverse (modal) = ladom (reverse 1) test

?(?-) (Late Test Primitives)

<> (?x = ?y ?n test) (?(?: ?:) (#fail ?n found: ?x expect: ?y\n))
<> (?x = ?y ?n test) (?(?: ?:) (fail ?n found: ?x, expects: ?y\n))