diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/control/pipe.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/control/pipe.lux b/stdlib/source/test/lux/control/pipe.lux index 247ae8be4..6a9809c8b 100644 --- a/stdlib/source/test/lux/control/pipe.lux +++ b/stdlib/source/test/lux/control/pipe.lux @@ -7,7 +7,7 @@ ["." identity] [number ["n" nat]] - ["." text ("#@." equivalence) + ["." text ("#\." equivalence) ["%" format (#+ format)]]] [math ["." random]]] @@ -33,7 +33,7 @@ (|> sample (/.let> x [(n.+ x x)])))) (_.cover [/.cond>] - (text@= (cond (n.= 0 sample) "zero" + (text\= (cond (n.= 0 sample) "zero" (n.even? sample) "even" "odd") (|> sample @@ -41,7 +41,7 @@ [n.even?] [(/.new> "even" [])] [(/.new> "odd" [])])))) (_.cover [/.if>] - (text@= (if (n.even? sample) + (text\= (if (n.even? sample) "even" "odd") (|> sample @@ -79,9 +79,9 @@ [%.nat]))] (and (n.= (inc sample) left) (n.= (dec sample) middle) - (text@= (%.nat sample) right)))) + (text\= (%.nat sample) right)))) (_.cover [/.case>] - (text@= (case (n.% 10 sample) + (text\= (case (n.% 10 sample) 0 "zero" 1 "one" 2 "two" |