diff options
Diffstat (limited to 'stdlib/source/lux/test.lux')
-rw-r--r-- | stdlib/source/lux/test.lux | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/lux/test.lux b/stdlib/source/lux/test.lux index 57d5ae2f3..864dadfb0 100644 --- a/stdlib/source/lux/test.lux +++ b/stdlib/source/lux/test.lux @@ -183,15 +183,15 @@ (|> x (+ y) (- y) (= x))))))) )} (with-gensyms [g!context g!test g!error] - (wrap (list (` (def: #export (~@ g!context) + (wrap (list (` (def: #export (~ g!context) {#..test ((~! code.text) (~ description))} (IO Test) (io (case ("lux try" [(io (do (~! r.Monad<Random>) [] (~ test)))]) - (#.Right (~@ g!test)) - (~@ g!test) + (#.Right (~ g!test)) + (~ g!test) - (#.Left (~@ g!error)) - (..fail (~@ g!error)))))))))) + (#.Left (~ g!error)) + (..fail (~ g!error)))))))))) (def: (exported-tests module-name) (-> Text (Meta (List [Text Text Text]))) @@ -227,25 +227,25 @@ groups (list.split-all promise.concurrency-level tests+)]] (wrap (list (` (: (IO Unit) (io (exec (do Monad<Promise> - [(~' #let) [(~@ g!total-successes) +0 - (~@ g!total-failures) +0] + [(~' #let) [(~ g!total-successes) +0 + (~ g!total-failures) +0] (~+ (list/join (list/map (function [group] - (list (` [(~@ g!successes) (~@ g!failures)]) (` ((~! run') (list (~+ group)))) - (' #let) (` [(~@ g!total-successes) (n/+ (~@ g!successes) (~@ g!total-successes)) - (~@ g!total-failures) (n/+ (~@ g!failures) (~@ g!total-failures))]))) + (list (` [(~ g!successes) (~ g!failures)]) (` ((~! run') (list (~+ group)))) + (' #let) (` [(~ g!total-successes) (n/+ (~ g!successes) (~ g!total-successes)) + (~ g!total-failures) (n/+ (~ g!failures) (~ g!total-failures))]))) groups)))] - (exec (let [(~@ g!text/compose) (:: (~! text.Monoid<Text>) (~' compose))] - (log! ($_ (~@ g!text/compose) + (exec (let [(~ g!text/compose) (:: (~! text.Monoid<Text>) (~' compose))] + (log! ($_ (~ g!text/compose) "Test-suite finished." "\n" - ((~! %i) (nat-to-int (~@ g!total-successes))) + ((~! %i) (nat-to-int (~ g!total-successes))) " out of " - ((~! %i) (nat-to-int (n/+ (~@ g!total-failures) - (~@ g!total-successes)))) + ((~! %i) (nat-to-int (n/+ (~ g!total-failures) + (~ g!total-successes)))) " tests passed." "\n" - ((~! %i) (nat-to-int (~@ g!total-failures))) " tests failed."))) - (promise.future (if (n/> +0 (~@ g!total-failures)) + ((~! %i) (nat-to-int (~ g!total-failures))) " tests failed."))) + (promise.future (if (n/> +0 (~ g!total-failures)) (~! ..die) (~! ..exit))))) []))))))))) |