diff options
Diffstat (limited to 'stdlib/source/test/lux/world/time/month.lux')
| -rw-r--r-- | stdlib/source/test/lux/world/time/month.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/world/time/month.lux b/stdlib/source/test/lux/world/time/month.lux index 620af8077..bc095c947 100644 --- a/stdlib/source/test/lux/world/time/month.lux +++ b/stdlib/source/test/lux/world/time/month.lux @@ -33,7 +33,7 @@ (Random /.Month) (let [december (/.number {/.#December})] (|> random.nat - (at random.monad each (|>> (n.% december) ++)) + (of random.monad each (|>> (n.% december) ++)) (random.one (|>> /.by_number try.maybe))))) (def .public test @@ -54,8 +54,8 @@ (,, (with_template [<before> <current> <after>] [(_.coverage [<current>] - (and (at /.equivalence = {<before>} (at /.enum pred {<current>})) - (at /.equivalence = {<after>} (at /.enum succ {<current>}))))] + (and (of /.equivalence = {<before>} (of /.enum pred {<current>})) + (of /.equivalence = {<after>} (of /.enum succ {<current>}))))] [/.#December /.#January /.#February] [/.#January /.#February /.#March] @@ -80,7 +80,7 @@ (|> expected /.number /.by_number - (try#each (at /.equivalence = expected)) + (try#each (of /.equivalence = expected)) (try.else false))) (_.coverage [/.invalid_month] (when (/.by_number invalid) @@ -111,7 +111,7 @@ (do random.monad [not_a_month (random.upper_cased 1)] (_.coverage [/.not_a_month_of_the_year] - (when (at /.codec decoded not_a_month) + (when (of /.codec decoded not_a_month) {try.#Failure error} (exception.match? /.not_a_month_of_the_year error) |