Expanded tests
This commit is contained in:
parent
f25d35decf
commit
10aa9c8e46
|
@ -4,6 +4,13 @@
|
||||||
<> (?x = ?x test) (#ok)
|
<> (?x = ?x test) (#ok)
|
||||||
<> (?x = ?y test) (#fail)
|
<> (?x = ?y test) (#fail)
|
||||||
|
|
||||||
|
?(?-) (Inline rules)
|
||||||
|
|
||||||
|
<> ((?x -> ?y)) (<> ?x ?y)
|
||||||
|
(nap -> (tap =))
|
||||||
|
|
||||||
|
nap tap test
|
||||||
|
|
||||||
?(?-) (Empty replacements)
|
?(?-) (Empty replacements)
|
||||||
|
|
||||||
<> (?x pop-plain)
|
<> (?x pop-plain)
|
||||||
|
@ -50,3 +57,11 @@ explode cow (c (o (w ()))) test
|
||||||
<> (implode ?*) (?* =)
|
<> (implode ?*) (?* =)
|
||||||
|
|
||||||
implode (b (a (t ()))) bat test
|
implode (b (a (t ()))) bat test
|
||||||
|
|
||||||
|
?(?-) (List reversal)
|
||||||
|
|
||||||
|
<> (reverse List () ?*) (?*)
|
||||||
|
<> (reverse (?*)) (reverse List (?*) ())
|
||||||
|
<> (reverse List (?x ?y) ?z) (reverse List ?y (?x ?z))
|
||||||
|
|
||||||
|
reverse (modal) = ladom test
|
||||||
|
|
Loading…
Reference in New Issue