aboutsummaryrefslogtreecommitdiff
path: root/stdlib
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib')
-rw-r--r--stdlib/source/lux/test.lux11
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 @))]