diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/repository/remote.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux index 50ae42a09..440a74ac5 100644 --- a/stdlib/source/test/aedifex/repository/remote.lux +++ b/stdlib/source/test/aedifex/repository/remote.lux @@ -33,7 +33,7 @@ (def: (url_body url) (-> URL (@http.Body IO)) - (let [url (# utf8.codec encoded url)] + (let [url (at utf8.codec encoded url)] (function (_ _) (io.io {try.#Success [(binary.size url) url]})))) @@ -90,21 +90,21 @@ user (random.lower_case 10) password (random.lower_case 10) - content (# ! each (# utf8.codec encoded) - (random.lower_case 10))] + content (at ! each (at utf8.codec encoded) + (random.lower_case 10))] (all _.and (_.coverage [/.repository /.user_agent /.Address] (let [repo (/.repository (..good_http user password) {.#Some [//identity.#user user //identity.#password password]} address)] - (and (|> (# repo download uri) + (and (|> (at repo download uri) io.run! - (try#each (# utf8.codec decoded)) + (try#each (at utf8.codec decoded)) try#conjoint (try#each (text#= (format address uri))) (try.else false)) - (|> (# repo upload uri content) + (|> (at repo upload uri content) io.run! (try#each (function.constant true)) (try.else false))))) @@ -112,7 +112,7 @@ (let [repo (/.repository (..good_http user password) {.#None} address)] - (case (io.run! (# repo upload uri content)) + (case (io.run! (at repo upload uri content)) {try.#Failure error} (exception.match? /.upload_failure error) @@ -122,7 +122,7 @@ (let [repo (/.repository ..bad_http {.#None} address)] - (case (io.run! (# repo download uri)) + (case (io.run! (at repo download uri)) {try.#Failure error} (exception.match? /.download_failure error) |