diff options
| author | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-11-27 00:07:51 -0400 |
| commit | 889139602b77e4387a6e8bfbedacc2a08703e976 (patch) | |
| tree | 3a113e298037122e81b5529475bd1e59286f733f /stdlib/source/test/lux/control/pipe.lux | |
| parent | dbb658bd7976c073a2bf314f194b36b30c45784b (diff) | |
Re-named lux/data/format/context to lux/control/parser/environment.
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" |