diff options
Diffstat (limited to 'stdlib/source/library/lux/test.lux')
-rw-r--r-- | stdlib/source/library/lux/test.lux | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/stdlib/source/library/lux/test.lux b/stdlib/source/library/lux/test.lux index dbd87627e..29af87345 100644 --- a/stdlib/source/library/lux/test.lux +++ b/stdlib/source/library/lux/test.lux @@ -50,12 +50,12 @@ (def: (total parameter subject) (-> Tally Tally Tally) - {#successes (n.+ (get@ #successes parameter) (get@ #successes subject)) - #failures (n.+ (get@ #failures parameter) (get@ #failures subject)) - #expected_coverage (set.union (get@ #expected_coverage parameter) - (get@ #expected_coverage subject)) - #actual_coverage (set.union (get@ #actual_coverage parameter) - (get@ #actual_coverage subject))}) + {#successes (n.+ (value@ #successes parameter) (value@ #successes subject)) + #failures (n.+ (value@ #failures parameter) (value@ #failures subject)) + #expected_coverage (set.union (value@ #expected_coverage parameter) + (value@ #expected_coverage subject)) + #actual_coverage (set.union (value@ #actual_coverage parameter) + (value@ #actual_coverage subject))}) (def: start Tally @@ -67,7 +67,7 @@ (template [<name> <category>] [(def: <name> Tally - (update@ <category> .inc ..start))] + (revised@ <category> .++ ..start))] [success_tally #successes] [failure_tally #failures] @@ -166,7 +166,7 @@ (def: failed? (-> Tally Bit) - (|>> (get@ #failures) (n.> 0))) + (|>> (value@ #failures) (n.> 0))) (def: (times_failure seed documentation) (-> Seed Text Text) @@ -193,26 +193,26 @@ (case amount 1 instance _ (|> test - (times (dec amount)) + (times (-- amount)) (random.result prng') product.right))))]))))) (def: (description duration tally) (-> Duration Tally Text) - (let [successes (get@ #successes tally) - failures (get@ #failures tally) - missing (set.difference (get@ #actual_coverage tally) - (get@ #expected_coverage tally)) - unexpected (set.difference (get@ #expected_coverage tally) - (get@ #actual_coverage tally)) + (let [successes (value@ #successes tally) + failures (value@ #failures tally) + missing (set.difference (value@ #actual_coverage tally) + (value@ #expected_coverage tally)) + unexpected (set.difference (value@ #expected_coverage tally) + (value@ #actual_coverage tally)) report (: (-> (Set Name) Text) (|>> set.list (list.sorted (\ name.order <)) (exception.listing %.name))) - expected_definitions_to_cover (set.size (get@ #expected_coverage tally)) + expected_definitions_to_cover (set.size (value@ #expected_coverage tally)) unexpected_definitions_covered (set.size unexpected) actual_definitions_covered (n.- unexpected_definitions_covered - (set.size (get@ #actual_coverage tally))) + (set.size (value@ #actual_coverage tally))) coverage (case expected_definitions_to_cover 0 "N/A" expected (let [missing_ratio (f./ (n.frac expected) @@ -265,7 +265,7 @@ (..description duration tally) text.new_line))]] (async.future (\ program.default exit - (case (get@ #failures tally) + (case (value@ #failures tally) 0 ..success_exit_code _ ..failure_exit_code))))) @@ -277,7 +277,7 @@ coverage (set.of_list name.hash coverage)] (|> (..assertion message condition) (async\map (function (_ [tally documentation]) - [(update@ #actual_coverage (set.union coverage) tally) + [(revised@ #actual_coverage (set.union coverage) tally) documentation]))))) (def: (|cover| coverage condition) @@ -292,7 +292,7 @@ (text.interposed " & ")) coverage (set.of_list name.hash coverage)] (random\map (async\map (function (_ [tally documentation]) - [(update@ #actual_coverage (set.union coverage) tally) + [(revised@ #actual_coverage (set.union coverage) tally) documentation])) (..context context test)))) @@ -369,7 +369,7 @@ (let [coverage (..decode_coverage module coverage)] (|> (..context module test) (random\map (async\map (function (_ [tally documentation]) - [(update@ #expected_coverage (set.union coverage) tally) + [(revised@ #expected_coverage (set.union coverage) tally) documentation])))))) (syntax: .public (covering [module <code>.identifier |