diff options
| author | Eduardo Julian | 2019-06-20 22:32:59 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-06-20 22:32:59 -0400 |
| commit | b71b861008381626633bf28b033cd866d7e4e0b7 (patch) | |
| tree | 3ee21cd21e6dd80f6fcdf90173bbd6162b616d8f /stdlib/source/test/lux/control/pipe.lux | |
| parent | fcee38da766a683ed5569978be153c6e7a8ae0af (diff) | |
Improved the convention for using text formatters.
Diffstat (limited to 'stdlib/source/test/lux/control/pipe.lux')
| -rw-r--r-- | stdlib/source/test/lux/control/pipe.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/control/pipe.lux b/stdlib/source/test/lux/control/pipe.lux index 9b4110a39..4d4e03a79 100644 --- a/stdlib/source/test/lux/control/pipe.lux +++ b/stdlib/source/test/lux/control/pipe.lux @@ -7,7 +7,7 @@ ["." identity] ["." name] ["." text ("#@." equivalence) - format]] + ["%" format (#+ format)]]] [math ["r" random]]] {1 @@ -69,16 +69,16 @@ (_.test "Execution." (n/= (n/* 10 sample) (|> sample - (exec> [%n (format "sample = ") log!]) + (exec> [%.nat (format "sample = ") log!]) (n/* 10)))) (_.test "Tuple." (let [[left middle right] (|> sample (tuple> [inc] [dec] - [%n]))] + [%.nat]))] (and (n/= (inc sample) left) (n/= (dec sample) middle) - (text@= (%n sample) right)))) + (text@= (%.nat sample) right)))) (_.test "Pattern-matching." (text@= (case (n/% 10 sample) 0 "zero" |