diff options
Diffstat (limited to 'stdlib/source/lux/test.lux')
| -rw-r--r-- | stdlib/source/lux/test.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/test.lux b/stdlib/source/lux/test.lux index a360bf424..14d783c9b 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) ("#/." monad)]]] + ["." promise (#+ Promise) ("#;." monad)]]] [data ["." product] ["." text format] [collection - ["." list ("#/." functor)]]] + ["." list ("#;." functor)]]] [time ["." instant] ["." duration]] [math - ["r" random ("#/." monad)]] + ["r" random ("#;." monad)]] ["." io]]) (type: #export Counters @@ -60,10 +60,10 @@ (def: #export (context description) (-> Text Test Test) - (r/map (promise/map (function (_ [counters documentation]) + (r;map (promise;map (function (_ [counters documentation]) [counters (|> documentation (text.split-all-with ..separator) - (list/map (|>> (format context-prefix))) + (list;map (|>> (format context-prefix))) (text.join-with ..separator) (format description ..separator))])))) @@ -74,13 +74,13 @@ (-> Text Test) (|>> (format ..failure-prefix) [failure] - promise/wrap - r/wrap)) + promise;wrap + r;wrap)) (def: #export (assert message condition) {#.doc "Check that a condition is #1, and fail with the given message otherwise."} (-> Text Bit (Promise [Counters Text])) - (<| promise/wrap + (<| promise;wrap (if condition [success (format ..success-prefix message)] [failure (format ..failure-prefix message)]))) |