diff options
| author | Eduardo Julian | 2019-07-26 21:23:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-07-26 21:23:27 -0400 |
| commit | a0889b2ee76c1ae7a9a5bbe2eec9f051b4f341e4 (patch) | |
| tree | 08df3db7f8fffad6360a476d20db1d40b36c85cb /stdlib/source/test/lux/control/pipe.lux | |
| parent | 78fd01f7e6688448bbd710336d4d7b1c35ae058a (diff) | |
No more "n/"-prefixed functions.
Diffstat (limited to 'stdlib/source/test/lux/control/pipe.lux')
| -rw-r--r-- | stdlib/source/test/lux/control/pipe.lux | 56 |
1 files changed, 29 insertions, 27 deletions
diff --git a/stdlib/source/test/lux/control/pipe.lux b/stdlib/source/test/lux/control/pipe.lux index 4d4e03a79..0aecde080 100644 --- a/stdlib/source/test/lux/control/pipe.lux +++ b/stdlib/source/test/lux/control/pipe.lux @@ -6,6 +6,8 @@ [data ["." identity] ["." name] + [number + ["n" nat]] ["." text ("#@." equivalence) ["%" format (#+ format)]]] [math @@ -22,65 +24,65 @@ (do @ [another r.nat] (_.test "Can dismiss previous pipeline results and begin a new one." - (n/= (inc another) + (n.= (inc another) (|> sample - (n/* 3) - (n/+ 4) + (n.* 3) + (n.+ 4) (new> another [inc]))))) (_.test "Let-binding" - (n/= (n/+ sample sample) + (n.= (n.+ sample sample) (|> sample - (let> x [(n/+ x x)])))) + (let> x [(n.+ x x)])))) (_.test "'Conditional' branching." - (text@= (cond (n/= 0 sample) "zero" - (n/even? sample) "even" + (text@= (cond (n.= 0 sample) "zero" + (n.even? sample) "even" "odd") (|> sample - (cond> [(n/= 0)] [(new> "zero" [])] - [n/even?] [(new> "even" [])] + (cond> [(n.= 0)] [(new> "zero" [])] + [n.even?] [(new> "even" [])] [(new> "odd" [])])))) (_.test "'If' branching." - (text@= (if (n/even? sample) + (text@= (if (n.even? sample) "even" "odd") (|> sample - (if> [n/even?] + (if> [n.even?] [(new> "even" [])] [(new> "odd" [])])))) (_.test "'When' branching." - (n/= (if (n/even? sample) - (n/* 2 sample) + (n.= (if (n.even? sample) + (n.* 2 sample) sample) (|> sample - (when> [n/even?] - [(n/* 2)])))) + (when> [n.even?] + [(n.* 2)])))) (_.test "Can loop." - (n/= (n/* 10 sample) + (n.= (n.* 10 sample) (|> sample - (loop> [(n/= (n/* 10 sample)) not] - [(n/+ sample)])))) + (loop> [(n.= (n.* 10 sample)) not] + [(n.+ sample)])))) (_.test "Monads." - (n/= (inc (n/+ 4 (n/* 3 sample))) + (n.= (inc (n.+ 4 (n.* 3 sample))) (|> sample (do> identity.monad - [(n/* 3)] - [(n/+ 4)] + [(n.* 3)] + [(n.+ 4)] [inc])))) (_.test "Execution." - (n/= (n/* 10 sample) + (n.= (n.* 10 sample) (|> sample (exec> [%.nat (format "sample = ") log!]) - (n/* 10)))) + (n.* 10)))) (_.test "Tuple." (let [[left middle right] (|> sample (tuple> [inc] [dec] [%.nat]))] - (and (n/= (inc sample) left) - (n/= (dec sample) middle) + (and (n.= (inc sample) left) + (n.= (dec sample) middle) (text@= (%.nat sample) right)))) (_.test "Pattern-matching." - (text@= (case (n/% 10 sample) + (text@= (case (n.% 10 sample) 0 "zero" 1 "one" 2 "two" @@ -93,7 +95,7 @@ 9 "nine" _ "???") (|> sample - (n/% 10) + (n.% 10) (case> 0 "zero" 1 "one" 2 "two" |