From cd71a864ad5be13ed6ec6d046e0a2cb1087bdf94 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 10 Sep 2021 01:21:23 -0400
Subject: Migrated variants to the new syntax.

---
 stdlib/source/test/aedifex/package.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/test/aedifex/package.lux')

diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index 61153b8ad..69d31ddcc 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -64,9 +64,9 @@
                    ($equivalence.spec /.equivalence (\ ! each product.right ..random)))
             
             (_.cover [/.local?]
-                     (/.local? (with@ #/.origin (#//origin.Local "~/yolo") package)))
+                     (/.local? (with@ #/.origin {#//origin.Local "~/yolo"} package)))
             (_.cover [/.remote?]
-                     (/.remote? (with@ #/.origin (#//origin.Remote "https://example.com") package)))
+                     (/.remote? (with@ #/.origin {#//origin.Remote "https://example.com"} package)))
             (_.cover [/.local]
                      (let [expected_pom (|> package (value@ #/.pom) product.left)
                            expected_library (|> package (value@ #/.library) product.left)
@@ -76,13 +76,13 @@
                            [actual_pom binary_pom pom_status] (value@ #/.pom local)
                            [actual_library library_status] (value@ #/.library local)]
                        (and (case (value@ #/.origin local)
-                              (#//origin.Local "") true
+                              {#//origin.Local ""} true
                               _ false)
                             (let [expected_sha1 (//hash.sha-1 expected_library)
                                   expected_md5 (//hash.md5 expected_library)]
                               (and (same? expected_library actual_library)
                                    (case library_status
-                                     (#//status.Verified actual_sha1 expected_md5)
+                                     {#//status.Verified actual_sha1 expected_md5}
                                      (and (//hash\= expected_sha1 actual_sha1)
                                           (//hash\= expected_md5 expected_md5))
                                      
@@ -97,7 +97,7 @@
                                          (in (\ xml.equivalence = actual_pom decoded_pom)))
                                        (try.else false))
                                    (case pom_status
-                                     (#//status.Verified actual_sha1 expected_md5)
+                                     {#//status.Verified actual_sha1 expected_md5}
                                      (and (//hash\= expected_sha1 actual_sha1)
                                           (//hash\= expected_md5 expected_md5))
                                      
@@ -106,17 +106,17 @@
             (_.cover [/.dependencies]
                      (let [expected (value@ #//.dependencies profile)]
                        (case (/.dependencies package)
-                         (#try.Success actual)
+                         {#try.Success actual}
                          (\ set.equivalence = expected actual)
                          
-                         (#try.Failure error)
+                         {#try.Failure error}
                          false)))
             (_.cover [/.repositories]
                      (let [expected (value@ #//.repositories profile)]
                        (case (/.repositories package)
-                         (#try.Success actual)
+                         {#try.Success actual}
                          (\ set.equivalence = expected actual)
                          
-                         (#try.Failure error)
+                         {#try.Failure error}
                          false)))
             ))))
-- 
cgit v1.2.3