diff options
Diffstat (limited to 'stdlib/source/test/aedifex/package.lux')
| -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 fd8a2c372..8f335b753 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -44,7 +44,7 @@ (def .public random (Random [//.Profile /.Package]) (do [! random.monad] - [content_size (at ! each (n.% 100) random.nat) + [content_size (of ! each (n.% 100) random.nat) content ($binary.random content_size) [profile pom] (random.one (function (_ profile) (try.maybe @@ -62,7 +62,7 @@ [[profile package] ..random] (all _.and (_.for [/.equivalence] - ($equivalence.spec /.equivalence (at ! each product.right ..random))) + ($equivalence.spec /.equivalence (of ! each product.right ..random))) (_.coverage [/.local?] (/.local? (has /.#origin {//origin.#Local "~/yolo"} package))) @@ -93,9 +93,9 @@ expected_md5 (//hash.md5 binary_pom)] (and (same? expected_pom actual_pom) (|> (do try.monad - [xml_pom (at utf8.codec decoded binary_pom) - decoded_pom (at xml.codec decoded xml_pom)] - (in (at xml.equivalence = actual_pom decoded_pom))) + [xml_pom (of utf8.codec decoded binary_pom) + decoded_pom (of xml.codec decoded xml_pom)] + (in (of xml.equivalence = actual_pom decoded_pom))) (try.else false)) (when pom_status {//status.#Verified actual_sha1 expected_md5} @@ -108,7 +108,7 @@ (let [expected (the //.#dependencies profile)] (when (/.dependencies package) {try.#Success actual} - (at set.equivalence = expected actual) + (of set.equivalence = expected actual) {try.#Failure error} false))) @@ -116,7 +116,7 @@ (let [expected (the //.#repositories profile)] (when (/.repositories package) {try.#Success actual} - (at set.equivalence = expected actual) + (of set.equivalence = expected actual) {try.#Failure error} false))) |