aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/metadata
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 15:39:55 -0400
committerEduardo Julian2021-09-12 15:39:55 -0400
commit2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd (patch)
tree14bc8b5abe09b46ef005c3ff7cf132f1d98ddf0d /stdlib/source/test/aedifex/metadata
parentdda05bca0956af5e5b3875c4cc36e61aa04772e4 (diff)
Re-named \ => # && \\ => ##
Diffstat (limited to 'stdlib/source/test/aedifex/metadata')
-rw-r--r--stdlib/source/test/aedifex/metadata/artifact.lux24
-rw-r--r--stdlib/source/test/aedifex/metadata/snapshot.lux28
2 files changed, 26 insertions, 26 deletions
diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index 5708eb39b..29f074af9 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -8,14 +8,14 @@
["$[0]" equivalence]]]
[control
["[0]" maybe]
- ["[0]" try ("[1]\[0]" functor)]
+ ["[0]" try ("[1]#[0]" functor)]
[parser
["[0]" environment]
["<[0]>" xml]]
[concurrency
["[0]" async]]]
[data
- ["[0]" text ("[1]\[0]" equivalence)]
+ ["[0]" text ("[1]#[0]" equivalence)]
[collection
["[0]" list]]]
[macro
@@ -48,12 +48,12 @@
(random.ascii/alpha 5)
(random.list 5 (random.ascii/alpha 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 (# ! 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)]
(in (try.trusted
(do try.monad
[year (year.year year)
@@ -89,16 +89,16 @@
/.format
list
(<xml>.result /.parser)
- (try\each (\ /.equivalence = expected))
+ (try#each (# /.equivalence = expected))
(try.else false))))
(_.cover [/.uri]
- (text\= (//.remote_project_uri artifact)
+ (text#= (//.remote_project_uri artifact)
(/.uri artifact)))
(do random.monad
[home (random.ascii/lower 5)
working_directory (random.ascii/lower 5)
.let [program (program.async (program.mock environment.empty home working_directory))
- fs (file.mock (\ file.default separator))
+ fs (file.mock (# 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)
+ (# /.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 069cefcd2..8f90a45cf 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -8,20 +8,20 @@
["$[0]" equivalence]]]
[control
["[0]" maybe]
- ["[0]" try ("[1]\[0]" functor)]
+ ["[0]" try ("[1]#[0]" functor)]
[parser
["[0]" environment]
["<[0]>" xml]]
[concurrency
["[0]" async]]]
[data
- ["[0]" text ("[1]\[0]" equivalence)]
+ ["[0]" text ("[1]#[0]" equivalence)]
[collection
["[0]" list]]]
[macro
["[0]" code]]
[math
- ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]
+ ["[0]" random {"+" [Random]} ("[1]#[0]" monad)]
[number
["n" nat]]]
["[0]" time
@@ -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 (# ! 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)]
(in (try.trusted
(do try.monad
[year (year.year year)
@@ -73,7 +73,7 @@
(def: random_versioning
(Random Versioning)
($_ random.and
- (random\in {///snapshot.#Local})
+ (random#in {///snapshot.#Local})
$///artifact/time.random
(random.list 5 $///artifact/snapshot/version.random)
))
@@ -101,16 +101,16 @@
/.format
list
(<xml>.result /.parser)
- (try\each (\ /.equivalence = expected))
+ (try#each (# /.equivalence = expected))
(try.else false)))
(_.cover [/.uri]
- (text\= (//.remote_artifact_uri artifact)
+ (text#= (//.remote_artifact_uri artifact)
(/.uri artifact)))
(do random.monad
[home (random.ascii/lower 5)
working_directory (random.ascii/lower 5)
.let [program (program.async (program.mock environment.empty home working_directory))
- fs (file.mock (\ file.default separator))
+ fs (file.mock (# 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)
+ (# /.equivalence = expected actual)
{try.#Failure _}
false))))))