diff options
Diffstat (limited to 'stdlib/source/test/aedifex/metadata/snapshot.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/metadata/snapshot.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux index 30a8b0311..d8c1bbf92 100644 --- a/stdlib/source/test/aedifex/metadata/snapshot.lux +++ b/stdlib/source/test/aedifex/metadata/snapshot.lux @@ -56,12 +56,12 @@ (def random_instant (Random Instant) (do [! random.monad] - [year (at ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) - month (at ! each (|>> (n.% 12) (n.+ 1)) random.nat) - day_of_month (at ! each (|>> (n.% 28) (n.+ 1)) random.nat) - hour (at ! each (n.% 24) random.nat) - minute (at ! each (n.% 60) random.nat) - second (at ! each (n.% 60) random.nat)] + [year (of ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) + month (of ! each (|>> (n.% 12) (n.+ 1)) random.nat) + day_of_month (of ! each (|>> (n.% 28) (n.+ 1)) random.nat) + hour (of ! each (n.% 24) random.nat) + minute (of ! each (n.% 60) random.nat) + second (of ! each (n.% 60) random.nat)] (in (try.trusted (do try.monad [year (year.year year) @@ -105,7 +105,7 @@ /.format list (<xml>.result /.parser) - (try#each (at /.equivalence = expected)) + (try#each (of /.equivalence = expected)) (try.else false))) (_.coverage [/.uri] (text#= (//.remote_artifact_uri artifact) @@ -114,7 +114,7 @@ [home (random.lower_cased 5) working_directory (random.lower_cased 5) .let [program (program.async (program.mock environment.empty home working_directory)) - fs (file.mock (at file.default separator)) + fs (file.mock (of file.default separator)) repository (///repository/local.repository program fs)]] (in (do async.monad [wrote? (/.write repository artifact expected) @@ -125,7 +125,7 @@ {try.#Failure _} false) (when actual {try.#Success actual} - (at /.equivalence = expected actual) + (of /.equivalence = expected actual) {try.#Failure _} false)))))) |