From 891b1cfc82322f8017f0a4f6b707d6fe52024545 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 3 Sep 2021 21:51:30 -0400
Subject: Unified tuple and record syntax.

---
 .../source/test/aedifex/dependency/deployment.lux  |  4 +--
 .../source/test/aedifex/dependency/resolution.lux  | 32 +++++++++++-----------
 2 files changed, 18 insertions(+), 18 deletions(-)

(limited to 'stdlib/source/test/aedifex/dependency')

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index cd92cec74..f87aca761 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -52,11 +52,11 @@
 (def: good_upload
   (@http.Response IO)
   [http/status.created
-   {#@http.headers (http.headers (list))
+   [#@http.headers (http.headers (list))
     #@http.body (function (_ _)
                   (|> [0 (binary.empty 0)]
                       #try.Success
-                      io.io))}])
+                      io.io))]])
 
 (type: Cache
   (Atom (Dictionary URL Binary)))
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 355cf9c98..9f1826f9c 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -53,8 +53,8 @@
   (do {! random.monad}
     [artifact $///artifact.random
      [_ package] $///package.random]
-    (in (dictionary.has {#///dependency.artifact artifact
-                         #///dependency.type ///artifact/type.lux_library}
+    (in (dictionary.has [#///dependency.artifact artifact
+                         #///dependency.type ///artifact/type.lux_library]
                         package
                         /.empty))))
 
@@ -260,8 +260,8 @@
     (`` ($_ _.and
             (in (do async.monad
                   [actual_package (/.one (///repository.mock good [])
-                                         {#///dependency.artifact expected_artifact
-                                          #///dependency.type ///artifact/type.lux_library})]
+                                         [#///dependency.artifact expected_artifact
+                                          #///dependency.type ///artifact/type.lux_library])]
                   (_.cover' [/.one]
                             (case actual_package
                               (#try.Success actual_package)
@@ -274,8 +274,8 @@
             (~~ (template [<exception> <bad>]
                   [(in (do async.monad
                          [actual_package (/.one (///repository.mock <bad> [])
-                                                {#///dependency.artifact expected_artifact
-                                                 #///dependency.type ///artifact/type.lux_library})]
+                                                [#///dependency.artifact expected_artifact
+                                                 #///dependency.type ///artifact/type.lux_library])]
                          (_.cover' [<exception>]
                                    (case actual_package
                                      (#try.Failure error)
@@ -309,8 +309,8 @@
                                      (list (///repository.mock bad_sha-1 [])
                                            (///repository.mock bad_md5 [])
                                            (///repository.mock good []))
-                                     {#///dependency.artifact expected_artifact
-                                      #///dependency.type ///artifact/type.lux_library})]
+                                     [#///dependency.artifact expected_artifact
+                                      #///dependency.type ///artifact/type.lux_library])]
               (_.cover' [/.any]
                         (case actual_package
                           (#try.Success actual_package)
@@ -325,8 +325,8 @@
                actual_package (/.any console
                                      (list (///repository.mock bad_sha-1 [])
                                            (///repository.mock bad_md5 []))
-                                     {#///dependency.artifact expected_artifact
-                                      #///dependency.type ///artifact/type.lux_library})]
+                                     [#///dependency.artifact expected_artifact
+                                      #///dependency.type ///artifact/type.lux_library])]
               (_.cover' [/.cannot_resolve]
                         (case actual_package
                           (#try.Failure error)
@@ -358,12 +358,12 @@
      [_ depender_package] $///package.random
      [_ ignored_package] $///package.random
 
-     .let [dependee {#///dependency.artifact dependee_artifact
-                     #///dependency.type ///artifact/type.lux_library}
-           depender {#///dependency.artifact depender_artifact
-                     #///dependency.type ///artifact/type.lux_library}
-           ignored {#///dependency.artifact ignored_artifact
-                    #///dependency.type ///artifact/type.lux_library}
+     .let [dependee [#///dependency.artifact dependee_artifact
+                     #///dependency.type ///artifact/type.lux_library]
+           depender [#///dependency.artifact depender_artifact
+                     #///dependency.type ///artifact/type.lux_library]
+           ignored [#///dependency.artifact ignored_artifact
+                    #///dependency.type ///artifact/type.lux_library]
 
            dependee_pom (|> (\ ///.monoid identity)
                             (with@ #///.identity (#.Some dependee_artifact))
-- 
cgit v1.2.3