diff options
Diffstat (limited to 'stdlib/source/test/lux/time/date.lux')
| -rw-r--r-- | stdlib/source/test/lux/time/date.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/test/lux/time/date.lux b/stdlib/source/test/lux/time/date.lux index 2d9a2486b..beaae5d9d 100644 --- a/stdlib/source/test/lux/time/date.lux +++ b/stdlib/source/test/lux/time/date.lux @@ -45,7 +45,7 @@ (|> (/.date (/.year expected) (/.month expected) (/.day_of_month expected)) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (do random.monad [expected random.date] @@ -64,7 +64,7 @@ (|> expected /.days /.of_days - (# /.equivalence = expected)))) + (at /.equivalence = expected)))) (_.coverage [/.epoch] (|> /.epoch /.days @@ -72,17 +72,17 @@ (do random.monad [expected random.date] (_.coverage [/.parser] - (|> (# /.codec encoded expected) + (|> (at /.codec encoded expected) (<text>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (do [! random.monad] - [year (# ! each (|>> (n.% 10,000) ++) - random.nat) - month (# ! each (|>> (n.% 10) (n.+ 13)) + [year (at ! each (|>> (n.% 10,000) ++) random.nat) - day (# ! each (|>> (n.% 10) (n.+ 10)) - random.nat) + month (at ! each (|>> (n.% 10) (n.+ 13)) + random.nat) + day (at ! each (|>> (n.% 10) (n.+ 10)) + random.nat) .let [input (format (%.nat year) "-" (%.nat month) "-" (%.nat day))]] |