diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/test.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/lux/test.lux b/stdlib/source/lux/test.lux index 86957c223..a360bf424 100644 --- a/stdlib/source/lux/test.lux +++ b/stdlib/source/lux/test.lux @@ -4,18 +4,18 @@ ["." monad (#+ Monad do)] ["ex" exception (#+ exception:)] [concurrency - ["." promise (#+ Promise) ("promise/." monad)]]] + ["." promise (#+ Promise) ("#/." monad)]]] [data ["." product] ["." text format] [collection - ["." list ("list/." functor)]]] + ["." list ("#/." functor)]]] [time ["." instant] ["." duration]] [math - ["r" random ("random/." monad)]] + ["r" random ("#/." monad)]] ["." io]]) (type: #export Counters @@ -60,12 +60,12 @@ (def: #export (context description) (-> Text Test Test) - (random/map (promise/map (function (_ [counters documentation]) - [counters (|> documentation - (text.split-all-with ..separator) - (list/map (|>> (format context-prefix))) - (text.join-with ..separator) - (format description ..separator))])))) + (r/map (promise/map (function (_ [counters documentation]) + [counters (|> documentation + (text.split-all-with ..separator) + (list/map (|>> (format context-prefix))) + (text.join-with ..separator) + (format description ..separator))])))) (def: failure-prefix "[Failure] ") (def: success-prefix "[Success] ") @@ -75,7 +75,7 @@ (|>> (format ..failure-prefix) [failure] promise/wrap - random/wrap)) + r/wrap)) (def: #export (assert message condition) {#.doc "Check that a condition is #1, and fail with the given message otherwise."} |