diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/source/lux/test.lux | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/stdlib/source/lux/test.lux b/stdlib/source/lux/test.lux index 1fa9b8b71..eabfe9811 100644 --- a/stdlib/source/lux/test.lux +++ b/stdlib/source/lux/test.lux @@ -47,14 +47,14 @@ (def: (fail message) (All [a] (-> Text Test)) - (:: Monad<Promise> wrap [failure (format " Error: " (%t message))])) + (:: Monad<Promise> wrap [failure (format " [Error] " (%t message))])) (def: #export (test message condition) {#;doc "Check that a condition is true, and fail with the given message otherwise."} (-> Text Bool Test) (if condition - (:: Monad<Promise> wrap [success (format "Success: " (%t message))]) - (:: Monad<Promise> wrap [failure (format " Error: " (%t message))]))) + (:: Monad<Promise> wrap [success (format "[Success] " message)]) + (:: Monad<Promise> wrap [failure (format " [Error] " message)]))) (def: #hidden (run' tests) (-> (List [Text (IO Test) Text]) (Promise Counters)) @@ -66,9 +66,8 @@ [#let [pre (io;run now)] [counters documentation] (io;run test) #let [post (io;run now) - _ (log! (format "Context: " (%t description) - " @ " module - " in " (%i (i.- pre post)) "ms" + _ (log! (format "@ " module " (" (%i (i.- pre post)) "ms" ") " "\n" + description "\n" "\n" documentation "\n"))]] (wrap counters))))) (M;seq @))] |