aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/metadata
diff options
context:
space:
mode:
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.lux20
2 files changed, 22 insertions, 22 deletions
diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index a1d3133c5..5708eb39b 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -60,10 +60,10 @@
month (month.by_number month)
date (date.date year month day_of_month)
time (time.time
- [#time.hour hour
- #time.minute minute
- #time.second second
- #time.milli_second 0])]
+ [time.#hour hour
+ time.#minute minute
+ time.#second second
+ time.#milli_second 0])]
(in (instant.of_date_time date time))))))))
(def: .public test
@@ -72,10 +72,10 @@
(_.for [/.Metadata])
(do random.monad
[expected ..random
- .let [artifact [#///artifact.group (value@ #/.group expected)
- #///artifact.name (value@ #/.name expected)
- #///artifact.version (|> expected
- (value@ #/.versions)
+ .let [artifact [///artifact.#group (value@ /.#group expected)
+ ///artifact.#name (value@ /.#name expected)
+ ///artifact.#version (|> expected
+ (value@ /.#versions)
list.head
(maybe.else ""))]]]
($_ _.and
@@ -105,12 +105,12 @@
actual (/.read repository artifact)]
(_.cover' [/.write /.read]
(and (case wrote?
- {#try.Success _} true
- {#try.Failure _} false)
+ {try.#Success _} true
+ {try.#Failure _} false)
(case actual
- {#try.Success actual}
+ {try.#Success actual}
(\ /.equivalence = expected actual)
- {#try.Failure _}
+ {try.#Failure _}
false))))))
))))
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index 52f7a1562..069cefcd2 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -64,16 +64,16 @@
month (month.by_number month)
date (date.date year month day_of_month)
time (time.time
- [#time.hour hour
- #time.minute minute
- #time.second second
- #time.milli_second 0])]
+ [time.#hour hour
+ time.#minute minute
+ time.#second second
+ time.#milli_second 0])]
(in (instant.of_date_time date time)))))))
(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)
))
@@ -91,7 +91,7 @@
(_.for [/.Metadata])
(do random.monad
[expected ..random
- .let [artifact (value@ #/.artifact expected)]]
+ .let [artifact (value@ /.#artifact expected)]]
($_ _.and
(_.for [/.equivalence]
($equivalence.spec /.equivalence ..random))
@@ -117,12 +117,12 @@
actual (/.read repository artifact)]
(_.cover' [/.write /.read]
(and (case wrote?
- {#try.Success _} true
- {#try.Failure _} false)
+ {try.#Success _} true
+ {try.#Failure _} false)
(case actual
- {#try.Success actual}
+ {try.#Success actual}
(\ /.equivalence = expected actual)
- {#try.Failure _}
+ {try.#Failure _}
false))))))
))))