diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/package.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux index 6a7f0a960..2e669228a 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -43,7 +43,7 @@ (def: .public random (Random [//.Profile /.Package]) (do [! random.monad] - [content_size (# ! each (n.% 100) random.nat) + [content_size (at ! each (n.% 100) random.nat) content ($binary.random content_size) [profile pom] (random.one (function (_ profile) (try.maybe @@ -61,7 +61,7 @@ [[profile package] ..random] (all _.and (_.for [/.equivalence] - ($equivalence.spec /.equivalence (# ! each product.right ..random))) + ($equivalence.spec /.equivalence (at ! each product.right ..random))) (_.coverage [/.local?] (/.local? (has /.#origin {//origin.#Local "~/yolo"} package))) @@ -92,9 +92,9 @@ expected_md5 (//hash.md5 binary_pom)] (and (same? expected_pom actual_pom) (|> (do try.monad - [xml_pom (# utf8.codec decoded binary_pom) - decoded_pom (# xml.codec decoded xml_pom)] - (in (# xml.equivalence = actual_pom decoded_pom))) + [xml_pom (at utf8.codec decoded binary_pom) + decoded_pom (at xml.codec decoded xml_pom)] + (in (at xml.equivalence = actual_pom decoded_pom))) (try.else false)) (case pom_status {//status.#Verified actual_sha1 expected_md5} @@ -107,7 +107,7 @@ (let [expected (the //.#dependencies profile)] (case (/.dependencies package) {try.#Success actual} - (# set.equivalence = expected actual) + (at set.equivalence = expected actual) {try.#Failure error} false))) @@ -115,7 +115,7 @@ (let [expected (the //.#repositories profile)] (case (/.repositories package) {try.#Success actual} - (# set.equivalence = expected actual) + (at set.equivalence = expected actual) {try.#Failure error} false))) |