diff options
Diffstat (limited to 'stdlib/source/test/lux/time/instant.lux')
| -rw-r--r-- | stdlib/source/test/lux/time/instant.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/time/instant.lux b/stdlib/source/test/lux/time/instant.lux index c36097fe1..f737f7827 100644 --- a/stdlib/source/test/lux/time/instant.lux +++ b/stdlib/source/test/lux/time/instant.lux @@ -39,11 +39,11 @@ ($codec.spec /.equivalence /.codec random.instant)) (do random.monad - [#let [(^open "\.") /.equivalence] + [.let [(^open "\.") /.equivalence] expected random.instant] ($_ _.and - (_.cover [/.to_millis /.of_millis] - (|> expected /.to_millis /.of_millis (\= expected))) + (_.cover [/.millis /.of_millis] + (|> expected /.millis /.of_millis (\= expected))) (_.cover [/.relative /.absolute] (|> expected /.relative /.absolute (\= expected))) (_.cover [/.date /.time /.of_date_time] @@ -52,22 +52,22 @@ (/.time expected)))) )) (do random.monad - [#let [(^open "\.") /.equivalence + [.let [(^open "\.") /.equivalence (^open "duration\.") duration.equivalence] from random.instant to random.instant] ($_ _.and (_.cover [/.span] (|> from (/.span from) (duration\= duration.empty))) - (_.cover [/.shift] - (|> from (/.shift (/.span from to)) (\= to))) + (_.cover [/.after] + (|> from (/.after (/.span from to)) (\= to))) (_.cover [/.epoch] (duration\= (/.relative to) (/.span /.epoch to))) )) (do random.monad [instant random.instant - #let [d0 (/.day_of_week instant)]] + .let [d0 (/.day_of_week instant)]] (_.cover [/.day_of_week] (let [apply (: (-> (-> Duration Duration) (-> Day Day) Nat Bit) (function (_ polarity move steps) @@ -75,7 +75,7 @@ d0 (list.repeat steps [])) instant_shift (|> instant - (/.shift (polarity (duration.up steps duration.day))) + (/.after (polarity (duration.up steps duration.day))) /.day_of_week)] (day\= day_shift instant_shift))))] |