diff options
| author | Eduardo Julian | 2022-06-04 19:34:42 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-06-04 19:34:42 -0400 |
| commit | f9e33ae96aec4741385a576719786092c9e68043 (patch) | |
| tree | 140057dfc054346eab721f9905f0f0fff22ad933 /stdlib/source/test/aedifex/metadata | |
| parent | 56d2835d35093e2d92c5e8a4371aa322b55e037b (diff) | |
De-sigil-ification: #
Diffstat (limited to 'stdlib/source/test/aedifex/metadata')
| -rw-r--r-- | stdlib/source/test/aedifex/metadata/artifact.lux | 18 | ||||
| -rw-r--r-- | stdlib/source/test/aedifex/metadata/snapshot.lux | 18 |
2 files changed, 18 insertions, 18 deletions
diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux index 34869e646..041bad539 100644 --- a/stdlib/source/test/aedifex/metadata/artifact.lux +++ b/stdlib/source/test/aedifex/metadata/artifact.lux @@ -48,12 +48,12 @@ (random.alphabetic 5) (random.list 5 (random.alphabetic 5)) (do [! random.monad] - [year (# ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) - month (# ! each (|>> (n.% 12) (n.+ 1)) random.nat) - day_of_month (# ! each (|>> (n.% 28) (n.+ 1)) random.nat) - hour (# ! each (n.% 24) random.nat) - minute (# ! each (n.% 60) random.nat) - second (# ! each (n.% 60) random.nat)] + [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)] (in (try.trusted (do try.monad [year (year.year year) @@ -89,7 +89,7 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false)))) (_.coverage [/.uri] (text#= (//.remote_project_uri artifact) @@ -98,7 +98,7 @@ [home (random.lower_case 5) working_directory (random.lower_case 5) .let [program (program.async (program.mock environment.empty home working_directory)) - fs (file.mock (# file.default separator)) + fs (file.mock (at file.default separator)) repository (///repository/local.repository program fs)]] (in (do async.monad [wrote? (/.write repository artifact expected) @@ -109,7 +109,7 @@ {try.#Failure _} false) (case actual {try.#Success actual} - (# /.equivalence = expected actual) + (at /.equivalence = expected actual) {try.#Failure _} false)))))) diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux index c45b817cd..7cff9954a 100644 --- a/stdlib/source/test/aedifex/metadata/snapshot.lux +++ b/stdlib/source/test/aedifex/metadata/snapshot.lux @@ -52,12 +52,12 @@ (def: random_instant (Random Instant) (do [! random.monad] - [year (# ! each (|>> (n.% 9,000) (n.+ 1,000) .int) random.nat) - month (# ! each (|>> (n.% 12) (n.+ 1)) random.nat) - day_of_month (# ! each (|>> (n.% 28) (n.+ 1)) random.nat) - hour (# ! each (n.% 24) random.nat) - minute (# ! each (n.% 60) random.nat) - second (# ! each (n.% 60) random.nat)] + [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)] (in (try.trusted (do try.monad [year (year.year year) @@ -101,7 +101,7 @@ /.format list (<xml>.result /.parser) - (try#each (# /.equivalence = expected)) + (try#each (at /.equivalence = expected)) (try.else false))) (_.coverage [/.uri] (text#= (//.remote_artifact_uri artifact) @@ -110,7 +110,7 @@ [home (random.lower_case 5) working_directory (random.lower_case 5) .let [program (program.async (program.mock environment.empty home working_directory)) - fs (file.mock (# file.default separator)) + fs (file.mock (at file.default separator)) repository (///repository/local.repository program fs)]] (in (do async.monad [wrote? (/.write repository artifact expected) @@ -121,7 +121,7 @@ {try.#Failure _} false) (case actual {try.#Success actual} - (# /.equivalence = expected actual) + (at /.equivalence = expected actual) {try.#Failure _} false)))))) |