aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2021-07-30 01:12:05 -0400
committerEduardo Julian2021-07-30 01:12:05 -0400
commit9f039e8a0a09e0278547d697efa018cd3fd68672 (patch)
tree0b2298edfae39efa7195fc5152d267cc25dd7fc1 /stdlib/source/test/aedifex
parent54b28c1caeda08965c258411a32229be1766d47f (diff)
More renamings.
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/build.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/stamp.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/time.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/snapshot/version.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/time.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/time/date.lux4
-rw-r--r--stdlib/source/test/aedifex/artifact/time/time.lux2
-rw-r--r--stdlib/source/test/aedifex/artifact/versioning.lux4
-rw-r--r--stdlib/source/test/aedifex/cache.lux6
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux2
-rw-r--r--stdlib/source/test/aedifex/command/build.lux6
-rw-r--r--stdlib/source/test/aedifex/command/clean.lux2
-rw-r--r--stdlib/source/test/aedifex/command/deploy.lux2
-rw-r--r--stdlib/source/test/aedifex/command/deps.lux2
-rw-r--r--stdlib/source/test/aedifex/command/install.lux4
-rw-r--r--stdlib/source/test/aedifex/command/pom.lux2
-rw-r--r--stdlib/source/test/aedifex/command/test.lux4
-rw-r--r--stdlib/source/test/aedifex/command/version.lux2
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux8
-rw-r--r--stdlib/source/test/aedifex/input.lux2
-rw-r--r--stdlib/source/test/aedifex/metadata/artifact.lux4
-rw-r--r--stdlib/source/test/aedifex/metadata/snapshot.lux2
-rw-r--r--stdlib/source/test/aedifex/package.lux2
-rw-r--r--stdlib/source/test/aedifex/project.lux6
-rw-r--r--stdlib/source/test/aedifex/repository/local.lux2
-rw-r--r--stdlib/source/test/aedifex/repository/remote.lux8
-rw-r--r--stdlib/source/test/aedifex/runtime.lux2
28 files changed, 46 insertions, 46 deletions
diff --git a/stdlib/source/test/aedifex/artifact/snapshot.lux b/stdlib/source/test/aedifex/artifact/snapshot.lux
index 931fefd17..d8ececcd4 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot.lux
@@ -41,7 +41,7 @@
list
(<xml>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
$/build.test
$/stamp.test
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux
index 8b0be9f1d..55bdc0a42 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux
@@ -35,5 +35,5 @@
list
(<xml>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
))))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
index 00be1c227..deea0e954 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
@@ -42,5 +42,5 @@
/.format
(<xml>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
)))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/time.lux b/stdlib/source/test/aedifex/artifact/snapshot/time.lux
index 820214cba..05e575e64 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/time.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/time.lux
@@ -37,6 +37,6 @@
/.format
(<text>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false)))
+ (try.else false)))
))
)))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
index a4a090246..c63dc4f51 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
@@ -44,7 +44,7 @@
list
(<xml>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
/value.test
)))
diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux
index 9ac9be6ae..982d2b0f7 100644
--- a/stdlib/source/test/aedifex/artifact/time.lux
+++ b/stdlib/source/test/aedifex/artifact/time.lux
@@ -44,7 +44,7 @@
/.format
(<text>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
(do random.monad
[expected ..random]
(_.cover [/.instant /.of_instant]
@@ -52,7 +52,7 @@
/.instant
/.of_instant
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
(_.cover [/.epoch]
(instant\= instant.epoch (/.instant /.epoch)))
diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux
index 4d44b5358..5dd7156fc 100644
--- a/stdlib/source/test/aedifex/artifact/time/date.lux
+++ b/stdlib/source/test/aedifex/artifact/time/date.lux
@@ -50,13 +50,13 @@
/.format
(<text>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false)))
+ (try.else false)))
(_.cover [/.value /.date]
(|> expected
/.value
/.date
(try\map (\ /.equivalence = expected))
- (try.default false)))
+ (try.else false)))
(_.cover [/.year_is_out_of_range]
(case (/.date candidate)
(#try.Success date)
diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux
index dd4b63904..904e34aec 100644
--- a/stdlib/source/test/aedifex/artifact/time/time.lux
+++ b/stdlib/source/test/aedifex/artifact/time/time.lux
@@ -34,5 +34,5 @@
/.format
(<text>.run /.parser)
(try\map (\ time.equivalence = expected))
- (try.default false))))
+ (try.else false))))
)))
diff --git a/stdlib/source/test/aedifex/artifact/versioning.lux b/stdlib/source/test/aedifex/artifact/versioning.lux
index a16794e98..79d063123 100644
--- a/stdlib/source/test/aedifex/artifact/versioning.lux
+++ b/stdlib/source/test/aedifex/artifact/versioning.lux
@@ -43,12 +43,12 @@
list
(<xml>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
(_.cover [/.init]
(|> /.init
/.format
list
(<xml>.run /.parser)
(try\map (\ /.equivalence = /.init))
- (try.default false)))
+ (try.else false)))
)))
diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 2a2d3d2e4..4b7fcc885 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -83,7 +83,7 @@
[[main_dependency main_package] ..package
dependencies (|> (//package.dependencies main_package)
(\ try.monad map set.to_list)
- (try.default (list))
+ (try.else (list))
(monad.map ! (function (_ dependency)
(do !
[pom (random.one (function (_ [identity profile pom])
@@ -111,7 +111,7 @@
[wrote! (/.write_one program fs dependency expected_package)
read! (/.read_one program fs dependency)]
(_.cover' [/.write_one /.read_one]
- (<| (try.default false)
+ (<| (try.else false)
(do try.monad
[_ wrote!
actual_package read!]
@@ -132,7 +132,7 @@
[wrote! (/.write_all program fs expected)
read! (/.read_all program fs (dictionary.keys expected) //dependency/resolution.empty)]
(_.cover' [/.write_all /.read_all]
- (<| (try.default false)
+ (<| (try.else false)
(do try.monad
[_ wrote!
actual read!]
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index e27fd039a..fd08f541c 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -122,5 +122,5 @@
(in (#try.Success (and correct_number_of_runs!
no_dangling_process!)))))]
(_.cover' [/.do!]
- (try.default false verdict))))
+ (try.else false verdict))))
))))
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index b38b61340..1a1ff7f60 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -199,7 +199,7 @@
/.ruby_compiler_name
/.start
/.success]
- (try.default false verdict)))))
+ (try.else false verdict)))))
(do !
[#let [console (@version.echo "")]
[compiler resolution] ..resolution]
@@ -213,7 +213,7 @@
(in (and (text\= /.start start)
(text\= /.failure end))))]
(_.cover' [/.failure]
- (try.default false verdict)))))
+ (try.else false verdict)))))
(do !
[expected/0 (random.ascii/alpha 5)
expected/1 (random.ascii/alpha 5)
@@ -243,7 +243,7 @@
(text\= expected/2 actual/2)
end!)))]
(_.cover' [<log!>]
- (try.default false verdict)))))]
+ (try.else false verdict)))))]
[#0 /.log_output!]
[#1 /.log_error!]
diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 238fa824b..36ed10b8e 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -116,4 +116,4 @@
(not sub_exists!/post))
(text\= (/.success target_path) logging))))]
(_.cover' [/.do! /.success]
- (try.default false verdict)))))))
+ (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 41a997d6f..b34584b19 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -125,4 +125,4 @@
deployed_sha-1!
deployed_md5!)))]
(_.cover' [/.do! /.success]
- (try.default false verdict)))))))
+ (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index c00c88078..165c859b8 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -127,4 +127,4 @@
had_dependee_after!
had_depender_after!)))]
(_.cover' [/.do!]
- (try.default false verdict)))))))
+ (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index a9de141ff..f68fcb732 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -93,7 +93,7 @@
library_exists!
pom_exists!)))]
(_.cover' [/.do! /.success]
- (try.default false verdict))))
+ (try.else false verdict))))
(in (do {! async.monad}
[#let [fs (file.mock /)
program (program.async (program.mock environment.empty home working_directory))]
@@ -101,5 +101,5 @@
(_.cover' [/.failure]
(|> logging
(try\map (text\= /.failure))
- (try.default false)))))
+ (try.else false)))))
))))
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index ebc0ae09e..6578e793f 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -58,7 +58,7 @@
(in (and logging!
expected_content!)))]
(_.cover' [/.do! /.success]
- (try.default false verdict)))
+ (try.else false verdict)))
(#try.Failure error)
(_.cover' [/.do!]
diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 93c6642f7..b82a32678 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -76,7 +76,7 @@
(text\= /.success test_end)))))]
(_.cover' [/.do!
/.start /.success]
- (try.default false verdict)))))
+ (try.else false verdict)))))
(let [fs (file.mock (\ file.default separator))
console (@version.echo "")]
(in (do async.monad
@@ -111,5 +111,5 @@
(and (text\= /.start test_start)
(text\= /.failure test_end)))))]
(_.cover' [/.failure]
- (try.default false verdict)))))
+ (try.else false verdict)))))
))))
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 30c7d3f80..f87424ab6 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -76,4 +76,4 @@
(in (text\= (version.format language/lux.version)
logging)))]
(_.cover' [/.do!]
- (try.default false verdict)))))))
+ (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 3688e56aa..e62e7b2e4 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -107,7 +107,7 @@
(and (|> cache
(dictionary.get library_url)
(maybe\map (binary\= expected_library))
- (maybe.default false))
+ (maybe.else false))
(dictionary.key? cache (format library_url artifact/extension.sha-1))
(dictionary.key? cache (format library_url artifact/extension.md5)))
@@ -115,7 +115,7 @@
(and (|> cache
(dictionary.get pom_url)
(maybe\map (binary\= expected_pom))
- (maybe.default false))
+ (maybe.else false))
(dictionary.key? cache (format pom_url artifact/extension.sha-1))
(dictionary.key? cache (format pom_url artifact/extension.md5)))
@@ -162,7 +162,7 @@
(_.cover' [/.one]
(|> ?outcome
(try\map (verify_one 1 address package cache expected_artifact))
- (try.default false))))))
+ (try.else false))))))
(do {! random.monad}
[#let [hash (: (Hash [Dependency Artifact Package])
(\ hash.functor map (|>> product.right product.left product.left)
@@ -200,5 +200,5 @@
bundles)]
(and expected_deployments!
every_deployment_was_correct!))))
- (try.default false))))))
+ (try.else false))))))
))))
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 0cea854c4..e86efa6dd 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -63,4 +63,4 @@
(update@ #//.repositories ..with_default_repository))
actual)))]
(_.cover' [/.read]
- (try.default false verdict)))))))
+ (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index acd0575a0..0d291d368 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -77,7 +77,7 @@
#///artifact.version (|> expected
(get@ #/.versions)
list.head
- (maybe.default ""))}]]
+ (maybe.else ""))}]]
($_ _.and
(_.for [/.equivalence]
($equivalence.spec /.equivalence ..random))
@@ -90,7 +90,7 @@
list
(<xml>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false))))
+ (try.else false))))
(_.cover [/.uri]
(text\= (//.remote_project_uri artifact)
(/.uri artifact)))
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index c9787d8bb..ff11ff7ab 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -102,7 +102,7 @@
list
(<xml>.run /.parser)
(try\map (\ /.equivalence = expected))
- (try.default false)))
+ (try.else false)))
(_.cover [/.uri]
(text\= (//.remote_artifact_uri artifact)
(/.uri artifact)))
diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index 8896b731d..9c6adfcf2 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -95,7 +95,7 @@
[xml_pom (\ utf8.codec decode binary_pom)
decoded_pom (\ xml.codec decode xml_pom)]
(in (\ xml.equivalence = actual_pom decoded_pom)))
- (try.default false))
+ (try.else false))
(case pom_status
(#//status.Verified actual_sha1 expected_md5)
(and (//hash\= expected_sha1 actual_sha1)
diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux
index 4df06a337..58ee8c577 100644
--- a/stdlib/source/test/aedifex/project.lux
+++ b/stdlib/source/test/aedifex/project.lux
@@ -75,13 +75,13 @@
(_.cover [/.profile]
(and (|> (/.profile super_name project)
(try\map (\ //.equivalence = super_profile))
- (try.default false))
+ (try.else false))
(|> (/.profile dummy_name project)
(try\map (\ //.equivalence = dummy_profile))
- (try.default false))
+ (try.else false))
(|> (/.profile sub_name project)
(try\map (\ //.equivalence = (\ //.monoid compose sub_profile super_profile)))
- (try.default false))))
+ (try.else false))))
(_.cover [/.unknown_profile]
(case (/.profile fake_name project)
(#try.Success _)
diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index 180ea404a..eab07411f 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -48,5 +48,5 @@
(#try.Failure _) true)
(|> actual
(try\map (binary\= expected))
- (try.default false))))))
+ (try.else false))))))
))))
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 5f74cab9d..cad0fe873 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -49,7 +49,7 @@
(if (|> headers
(dictionary.get "User-Agent")
(maybe\map (is? /.user_agent))
- (maybe.default false))
+ (maybe.else false))
(case [method input]
[#@http.Get #.None]
[http/status.ok
@@ -60,7 +60,7 @@
(if (|> headers
(dictionary.get "Authorization")
(maybe\map (text\= (//identity.basic_auth user password)))
- (maybe.default false))
+ (maybe.else false))
[http/status.created
{#@http.headers (http.headers (list))
#@http.body (..url_body url)}]
@@ -103,11 +103,11 @@
(try\map (\ utf8.codec decode))
try\join
(try\map (text\= (format address uri)))
- (try.default false))
+ (try.else false))
(|> (\ repo upload uri content)
io.run
(try\map (function.constant true))
- (try.default false)))))
+ (try.else false)))))
(_.cover [/.upload_failure]
(let [repo (/.repository (..good_http user password)
#.None
diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux
index cb6d1a8fe..bd87377bc 100644
--- a/stdlib/source/test/aedifex/runtime.lux
+++ b/stdlib/source/test/aedifex/runtime.lux
@@ -62,5 +62,5 @@
(get@ #/.parameters)
list.last
(maybe\map (text\= path))
- (maybe.default false)))))
+ (maybe.else false)))))
)))))