aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2021-08-13 04:18:57 -0400
committerEduardo Julian2021-08-13 04:18:57 -0400
commite53c1a090eb9cfac3cb23d10d981648d02518ed1 (patch)
tree6c92c186525b6e73032ebea68765b791bcc27516 /stdlib/source/test/aedifex
parent17629d66062b88b040a2397032f6c08361a5f3a7 (diff)
Made program: specify its bindings the same way as syntax:.
Diffstat (limited to 'stdlib/source/test/aedifex')
-rw-r--r--stdlib/source/test/aedifex/artifact/time/date.lux2
-rw-r--r--stdlib/source/test/aedifex/command/auto.lux2
-rw-r--r--stdlib/source/test/aedifex/command/version.lux2
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux4
-rw-r--r--stdlib/source/test/aedifex/package.lux4
-rw-r--r--stdlib/source/test/aedifex/profile.lux4
-rw-r--r--stdlib/source/test/aedifex/repository.lux2
-rw-r--r--stdlib/source/test/aedifex/repository/remote.lux6
8 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux
index 212aa01dd..c67ade3ec 100644
--- a/stdlib/source/test/aedifex/artifact/time/date.lux
+++ b/stdlib/source/test/aedifex/artifact/time/date.lux
@@ -60,7 +60,7 @@
(_.cover [/.year_is_out_of_range]
(case (/.date candidate)
(#try.Success date)
- (is? candidate (/.value date))
+ (same? candidate (/.value date))
(#try.Failure error)
(exception.match? /.year_is_out_of_range error)))
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 934810e0c..41d0f080f 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -111,7 +111,7 @@
(shell.async ($build.good_shell []))
resolution)
(\ ! map (|>> (case> (#try.Failure error)
- (is? end_signal error)
+ (same? end_signal error)
(#try.Success _)
false))))
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 0400cbc58..2bdf72078 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -45,7 +45,7 @@
(if open?
(try.of_maybe
(do maybe.monad
- [[output state] (text.split_with text.new_line state)]
+ [[output state] (text.split_by text.new_line state)]
(in [[open? state] output])))
(exception.except ..console_is_closed! [])))
(def: (on_write input [open? state])
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index ccccc47cd..9ddabee88 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -105,7 +105,7 @@
correct_library_upload!
(and (|> cache
- (dictionary.get library_url)
+ (dictionary.value library_url)
(maybe\map (binary\= expected_library))
(maybe.else false))
(dictionary.key? cache (format library_url artifact/extension.sha-1))
@@ -113,7 +113,7 @@
correct_pom_upload!
(and (|> cache
- (dictionary.get pom_url)
+ (dictionary.value pom_url)
(maybe\map (binary\= expected_pom))
(maybe.else false))
(dictionary.key? cache (format pom_url artifact/extension.sha-1))
diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index e05dc712f..e05c1d753 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -80,7 +80,7 @@
_ false)
(let [expected_sha1 (//hash.sha-1 expected_library)
expected_md5 (//hash.md5 expected_library)]
- (and (is? expected_library actual_library)
+ (and (same? expected_library actual_library)
(case library_status
(#//status.Verified actual_sha1 expected_md5)
(and (//hash\= expected_sha1 actual_sha1)
@@ -90,7 +90,7 @@
false)))
(let [expected_sha1 (//hash.sha-1 binary_pom)
expected_md5 (//hash.md5 binary_pom)]
- (and (is? expected_pom actual_pom)
+ (and (same? expected_pom actual_pom)
(|> (do try.monad
[xml_pom (\ utf8.codec decode binary_pom)
decoded_pom (\ xml.codec decode xml_pom)]
diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux
index 857aaf6e1..b1ec22e6c 100644
--- a/stdlib/source/test/aedifex/profile.lux
+++ b/stdlib/source/test/aedifex/profile.lux
@@ -155,9 +155,9 @@
(_.cover [/.default_compiler]
(|> (\ /.monoid identity)
(get@ #/.compiler)
- (is? /.default_compiler)))
+ (same? /.default_compiler)))
(_.cover [/.default_target]
(|> (\ /.monoid identity)
(get@ #/.target)
- (is? /.default_target)))
+ (same? /.default_target)))
)))))
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index ce7647c9e..8e8b4c945 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -71,7 +71,7 @@
(def: the_description
"@")
(def: (on_download uri state)
- (case (dictionary.get uri state)
+ (case (dictionary.value uri state)
(#.Some content)
(case (binary.size content)
0 (exception.except ..not_found [uri])
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 8cca4aee8..44f913863 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -47,8 +47,8 @@
(<| io.io
#try.Success
(if (|> headers
- (dictionary.get "User-Agent")
- (maybe\map (is? /.user_agent))
+ (dictionary.value "User-Agent")
+ (maybe\map (same? /.user_agent))
(maybe.else false))
(case [method input]
[#@http.Get #.None]
@@ -58,7 +58,7 @@
[#@http.Put (#.Some input)]
(if (|> headers
- (dictionary.get "Authorization")
+ (dictionary.value "Authorization")
(maybe\map (text\= (//identity.basic_auth user password)))
(maybe.else false))
[http/status.created