diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/time.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/time.lux b/stdlib/source/test/lux/time.lux index 593dc0d5c..91711a048 100644 --- a/stdlib/source/test/lux/time.lux +++ b/stdlib/source/test/lux/time.lux @@ -64,7 +64,7 @@ valid_second (\ ! map (|>> (n.% /.seconds) (n.max 10)) random.nat) valid_milli_second (\ ! map (n.% /.milli_seconds) random.nat) - #let [invalid_hour (|> valid_hour (n.+ /.hours)) + .let [invalid_hour (|> valid_hour (n.+ /.hours)) invalid_minute (|> valid_minute (n.+ /.minutes) (n.min 99)) invalid_second (|> valid_second (n.+ /.seconds) (n.min 99))]] (`` ($_ _.and @@ -111,17 +111,17 @@ (<| (_.covering /._) (_.for [/.Time]) (do {! random.monad} - [#let [day (.nat (duration.to_millis duration.day))] + [.let [day (.nat (duration.millis duration.day))] expected random.time - out_of_bounds (\ ! map (|>> /.to_millis (n.+ day)) + out_of_bounds (\ ! map (|>> /.millis (n.+ day)) random.time)] (`` ($_ _.and ..for_implementation - (_.cover [/.to_millis /.of_millis] + (_.cover [/.millis /.of_millis] (|> expected - /.to_millis + /.millis /.of_millis (try\map (\ /.equivalence = expected)) (try.else false))) @@ -134,7 +134,7 @@ (exception.match? /.time_exceeds_a_day error))) (_.cover [/.midnight] (|> /.midnight - /.to_millis + /.millis (n.= 0))) (_.cover [/.parser] (|> expected |