From ec1f31b5a1492d5e0ab260397291d4449483bbd9 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 23 Aug 2021 02:30:53 -0400 Subject: The Python compiler can now be compiled by the new JVM compiler. --- stdlib/source/test/aedifex/command/auto.lux | 2 +- stdlib/source/test/aedifex/command/deploy.lux | 10 +++--- stdlib/source/test/aedifex/command/deps.lux | 4 +-- stdlib/source/test/aedifex/command/pom.lux | 4 +-- .../source/test/aedifex/dependency/deployment.lux | 10 +++--- .../source/test/aedifex/dependency/resolution.lux | 42 +++++++++++----------- stdlib/source/test/aedifex/hash.lux | 4 +-- stdlib/source/test/aedifex/input.lux | 2 +- stdlib/source/test/aedifex/package.lux | 4 +-- stdlib/source/test/aedifex/repository/local.lux | 2 +- stdlib/source/test/aedifex/repository/remote.lux | 6 ++-- 11 files changed, 45 insertions(+), 45 deletions(-) (limited to 'stdlib/source/test/aedifex') diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux index ea62b6daa..1ed19ddf7 100644 --- a/stdlib/source/test/aedifex/command/auto.lux +++ b/stdlib/source/test/aedifex/command/auto.lux @@ -57,7 +57,7 @@ (if (n.= expected_runs actual_runs) (in (#try.Failure end_signal)) (do (try.with !) - [_ (\ fs write (\ utf8.codec encode (%.nat actual_runs)) dummy_file) + [_ (\ fs write (\ utf8.codec encoded (%.nat actual_runs)) dummy_file) _ (\ fs modify (|> actual_runs .int instant.of_millis) dummy_file)] diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux index 1df6a4180..526227f2d 100644 --- a/stdlib/source/test/aedifex/command/deploy.lux +++ b/stdlib/source/test/aedifex/command/deploy.lux @@ -91,13 +91,13 @@ actual_sha-1 (\ repository download (///repository/remote.uri (value@ #///artifact.version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.sha-1))) actual_sha-1 (\ async.monad in (do try.monad - [actual_sha-1 (\ utf8.codec decode actual_sha-1)] - (\ ///hash.sha-1_codec decode actual_sha-1))) + [actual_sha-1 (\ utf8.codec decoded actual_sha-1)] + (\ ///hash.sha-1_codec decoded actual_sha-1))) actual_md5 (\ repository download (///repository/remote.uri (value@ #///artifact.version artifact) artifact (format ///artifact/extension.lux_library ///artifact/extension.md5))) actual_md5 (\ async.monad in (do try.monad - [actual_md5 (\ utf8.codec decode actual_md5)] - (\ ///hash.md5_codec decode actual_md5))) + [actual_md5 (\ utf8.codec decoded actual_md5)] + (\ ///hash.md5_codec decoded actual_md5))) .let [succeeded! (text\= /.success logging) @@ -107,7 +107,7 @@ actual_library) deployed_pom! - (binary\= (|> expected_pom (\ xml.codec encode) (\ utf8.codec encode)) + (binary\= (|> expected_pom (\ xml.codec encoded) (\ utf8.codec encoded)) actual_pom) deployed_sha-1! diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux index ec45ba697..87a3e1731 100644 --- a/stdlib/source/test/aedifex/command/deps.lux +++ b/stdlib/source/test/aedifex/command/deps.lux @@ -85,12 +85,12 @@ dependee_package (|> dependee_package (with@ #///package.origin (#///repository/origin.Remote "")) (with@ #///package.pom [dependee_pom - (|> dependee_pom (\ xml.codec encode) (\ utf8.codec encode)) + (|> dependee_pom (\ xml.codec encoded) (\ utf8.codec encoded)) #///dependency/status.Unverified])) depender_package (|> depender_package (with@ #///package.origin (#///repository/origin.Remote "")) (with@ #///package.pom [depender_pom - (|> depender_pom (\ xml.codec encode) (\ utf8.codec encode)) + (|> depender_pom (\ xml.codec encoded) (\ utf8.codec encoded)) #///dependency/status.Unverified])) fs (file.mock (\ file.default separator)) diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux index b06a7c944..7c2097a4d 100644 --- a/stdlib/source/test/aedifex/command/pom.lux +++ b/stdlib/source/test/aedifex/command/pom.lux @@ -44,8 +44,8 @@ (do ! [verdict (do ///action.monad [expected (|> (///pom.write sample) - (try\map (|>> (\ xml.codec encode) - (\ utf8.codec encode))) + (try\map (|>> (\ xml.codec encoded) + (\ utf8.codec encoded))) (\ ! in)) actual (\ fs read ///pom.file) diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux index 009298783..97fd9f1f4 100644 --- a/stdlib/source/test/aedifex/dependency/deployment.lux +++ b/stdlib/source/test/aedifex/dependency/deployment.lux @@ -20,7 +20,7 @@ [collection ["." dictionary (#+ Dictionary)] ["." set] - ["." list ("#\." fold)]]] + ["." list ("#\." mix)]]] [math ["." random (#+ Random)] [number @@ -171,10 +171,10 @@ bundles (|> ..bundle (random.set hash num_bundles) (\ ! map set.list)) - .let [resolution (list\fold (function (_ [dependency expected_artifact package] resolution) - (dictionary.has dependency package resolution)) - resolution.empty - bundles) + .let [resolution (list\mix (function (_ [dependency expected_artifact package] resolution) + (dictionary.has dependency package resolution)) + resolution.empty + bundles) cache (: Cache (atom.atom (dictionary.empty text.hash))) http (..http cache) diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux index 44420243d..355cf9c98 100644 --- a/stdlib/source/test/aedifex/dependency/resolution.lux +++ b/stdlib/source/test/aedifex/dependency/resolution.lux @@ -77,14 +77,14 @@ (def: sha-1 (-> Binary Binary) (|>> ///hash.sha-1 - (\ ///hash.sha-1_codec encode) - (\ utf8.codec encode))) + (\ ///hash.sha-1_codec encoded) + (\ utf8.codec encoded))) (def: md5 (-> Binary Binary) (|>> ///hash.md5 - (\ ///hash.md5_codec encode) - (\ utf8.codec encode))) + (\ ///hash.md5_codec encoded) + (\ utf8.codec encoded))) (def: .public nope (Mock Any) @@ -112,8 +112,8 @@ (|> package (value@ #///package.pom) product.left - (\ xml.codec encode) - (\ utf8.codec encode)))] + (\ xml.codec encoded) + (\ utf8.codec encoded)))] (cond (text.ends_with? ///artifact/extension.lux_library uri) (#try.Success [state library]) @@ -166,23 +166,23 @@ (#try.Success [state (|> expected_package (value@ #///package.pom) product.left - (\ xml.codec encode) - (\ utf8.codec encode))]) + (\ xml.codec encoded) + (\ utf8.codec encoded))]) (text.ends_with? ..pom_sha-1 uri) (#try.Success [state (|> dummy_package (value@ #///package.pom) product.left - (\ xml.codec encode) - (\ utf8.codec encode) + (\ xml.codec encoded) + (\ utf8.codec encoded) ..sha-1)]) (text.ends_with? ..pom_md5 uri) (#try.Success [state (|> expected_package (value@ #///package.pom) product.left - (\ xml.codec encode) - (\ utf8.codec encode) + (\ xml.codec encoded) + (\ utf8.codec encoded) ..md5)]) ... else @@ -219,23 +219,23 @@ (#try.Success [state (|> expected_package (value@ #///package.pom) product.left - (\ xml.codec encode) - (\ utf8.codec encode))]) + (\ xml.codec encoded) + (\ utf8.codec encoded))]) (text.ends_with? ..pom_sha-1 uri) (#try.Success [state (|> expected_package (value@ #///package.pom) product.left - (\ xml.codec encode) - (\ utf8.codec encode) + (\ xml.codec encoded) + (\ utf8.codec encoded) ..sha-1)]) (text.ends_with? ..pom_md5 uri) (#try.Success [state (|> dummy_package (value@ #///package.pom) product.left - (\ xml.codec encode) - (\ utf8.codec encode) + (\ xml.codec encoded) + (\ utf8.codec encoded) ..md5)]) ... else @@ -381,17 +381,17 @@ dependee_package (with@ #///package.pom [dependee_pom - (|> dependee_pom (\ xml.codec encode) (\ utf8.codec encode)) + (|> dependee_pom (\ xml.codec encoded) (\ utf8.codec encoded)) #///dependency/status.Unverified] dependee_package) depender_package (with@ #///package.pom [depender_pom - (|> depender_pom (\ xml.codec encode) (\ utf8.codec encode)) + (|> depender_pom (\ xml.codec encoded) (\ utf8.codec encoded)) #///dependency/status.Unverified] depender_package) ignored_package (with@ #///package.pom [ignored_pom - (|> ignored_pom (\ xml.codec encode) (\ utf8.codec encode)) + (|> ignored_pom (\ xml.codec encoded) (\ utf8.codec encoded)) #///dependency/status.Unverified] ignored_package)]] (in [[dependee depender ignored] diff --git a/stdlib/source/test/aedifex/hash.lux b/stdlib/source/test/aedifex/hash.lux index dc5633040..5e267091d 100644 --- a/stdlib/source/test/aedifex/hash.lux +++ b/stdlib/source/test/aedifex/hash.lux @@ -80,8 +80,8 @@ [(do random.monad [expected (..random )] (_.cover [] - (case (\ decode - (format (\ encode expected) + (case (\ decoded + (format (\ encoded expected) "AABBCC")) (#try.Success actual) false diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux index 1c47fdd6f..675357e7e 100644 --- a/stdlib/source/test/aedifex/input.lux +++ b/stdlib/source/test/aedifex/input.lux @@ -53,7 +53,7 @@ [.let [profile (|> expected //format.profile %.code - (\ utf8.codec encode))] + (\ utf8.codec encoded))] _ (\ fs write profile //project.file) actual (: (Async (Try Profile)) (/.read async.monad fs //.default))] diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux index 9596eb63f..7e9cf1dd6 100644 --- a/stdlib/source/test/aedifex/package.lux +++ b/stdlib/source/test/aedifex/package.lux @@ -92,8 +92,8 @@ expected_md5 (//hash.md5 binary_pom)] (and (same? expected_pom actual_pom) (|> (do try.monad - [xml_pom (\ utf8.codec decode binary_pom) - decoded_pom (\ xml.codec decode xml_pom)] + [xml_pom (\ utf8.codec decoded binary_pom) + decoded_pom (\ xml.codec decoded xml_pom)] (in (\ xml.equivalence = actual_pom decoded_pom))) (try.else false)) (case pom_status diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux index b2352bdd2..ccc13752f 100644 --- a/stdlib/source/test/aedifex/repository/local.lux +++ b/stdlib/source/test/aedifex/repository/local.lux @@ -35,7 +35,7 @@ repo (/.repository program fs)] uri (random.ascii/lower 10) - expected (\ ! map (\ utf8.codec encode) + expected (\ ! map (\ utf8.codec encoded) (random.ascii/lower 10))] ($_ _.and (in (do async.monad diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux index 44f913863..96d62ef6f 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 encode url)] + (let [url (\ utf8.codec encoded url)] (function (_ _) (io.io (#try.Success [(binary.size url) url]))))) @@ -90,7 +90,7 @@ user (random.ascii/lower 10) password (random.ascii/lower 10) - content (\ ! map (\ utf8.codec encode) + content (\ ! map (\ utf8.codec encoded) (random.ascii/lower 10))] ($_ _.and (_.cover [/.repository /.user_agent /.Address] @@ -100,7 +100,7 @@ address)] (and (|> (\ repo download uri) io.run! - (try\map (\ utf8.codec decode)) + (try\map (\ utf8.codec decoded)) try\join (try\map (text\= (format address uri))) (try.else false)) -- cgit v1.2.3