aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex
diff options
context:
space:
mode:
authorEduardo Julian2021-08-12 03:12:42 -0400
committerEduardo Julian2021-08-12 03:12:42 -0400
commit17629d66062b88b040a2397032f6c08361a5f3a7 (patch)
treebdc6110750b895667b9e45da5e46bec9609f9a7c /stdlib/source/test/aedifex
parenta62ce3f9c2b605e0033f4772b0f64c4525de4d86 (diff)
Improved binding syntax for "syntax:".
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/aedifex/command/build.lux2
-rw-r--r--stdlib/source/test/aedifex/command/deps.lux2
-rw-r--r--stdlib/source/test/aedifex/dependency/deployment.lux4
-rw-r--r--stdlib/source/test/aedifex/dependency/resolution.lux2
-rw-r--r--stdlib/source/test/aedifex/input.lux4
-rw-r--r--stdlib/source/test/aedifex/parser.lux2
-rw-r--r--stdlib/source/test/aedifex/repository.lux4
7 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index b5e796c2d..81f331e41 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -134,7 +134,7 @@
[_ package] $///package.random]
(in [dependency
(|> ///dependency/resolution.empty
- (dictionary.put dependency package))])))
+ (dictionary.has dependency package))])))
(def: .public test
Test
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 0698899da..c4311fc2c 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -100,7 +100,7 @@
[.let [console (@version.echo "")
local (///repository/local.repository program fs)]
pre (|> ///dependency/resolution.empty
- (dictionary.put dependee dependee_package)
+ (dictionary.has dependee dependee_package)
(///dependency/deployment.all local))
post (|> (\ ///.monoid identity)
(set@ #///.dependencies (set.of_list ///dependency.hash (list dependee depender)))
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 7352de63a..ccccc47cd 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -69,7 +69,7 @@
[_ (: (IO Any)
(case [method input]
[#@http.Put (#.Some input)]
- (atom.update! (dictionary.put url input) cache)
+ (atom.update! (dictionary.has url input) cache)
_
(in [])))]
@@ -172,7 +172,7 @@
(random.set hash num_bundles)
(\ ! map set.list))
.let [resolution (list\fold (function (_ [dependency expected_artifact package] resolution)
- (dictionary.put dependency package resolution))
+ (dictionary.has dependency package resolution))
resolution.empty
bundles)
cache (: Cache
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 4bef34eff..da101dfa2 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -53,7 +53,7 @@
(do {! random.monad}
[artifact $///artifact.random
[_ package] $///package.random]
- (in (dictionary.put {#///dependency.artifact artifact
+ (in (dictionary.has {#///dependency.artifact artifact
#///dependency.type ///artifact/type.lux_library}
package
/.empty))))
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 168d378d4..086551be0 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -34,12 +34,12 @@
(def: (with_default_source sources)
(-> (Set //.Source) (Set //.Source))
(if (set.empty? sources)
- (set.add //.default_source sources)
+ (set.has //.default_source sources)
sources))
(def: with_default_repository
(-> (Set Address) (Set Address))
- (set.add //.default_repository))
+ (set.has //.default_repository))
(def: .public test
Test
diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index 354352d6a..152123d55 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -64,7 +64,7 @@
(def: with_default_repository
(-> //.Profile //.Profile)
- (update@ #//.repositories (set.add //.default_repository)))
+ (update@ #//.repositories (set.has //.default_repository)))
(def: single_profile
Test
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index 33f719efc..ce7647c9e 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -82,7 +82,7 @@
(def: (on_upload uri content state)
(if (dictionary.key? state uri)
(exception.except ..cannot_upload [uri])
- (#try.Success (dictionary.put uri content state)))))
+ (#try.Success (dictionary.has uri content state)))))
(def: .public test
Test
@@ -95,7 +95,7 @@
(..artifact ..invalid_version)
(/.mock ..mock
(|> ..empty
- (dictionary.put (remote.uri ..invalid_version
+ (dictionary.has (remote.uri ..invalid_version
(..artifact ..invalid_version)
//artifact/extension.lux_library)
(binary.empty 0)))))))