From 065e8a4d8122d4616b570496915d2c0e2c78cd6b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 11 Aug 2022 04:15:07 -0400
Subject: Re-named the "case" macro to "when".

---
 stdlib/source/test/aedifex/package.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 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 035765b17..dc03b1671 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -76,13 +76,13 @@
 
                      [actual_pom binary_pom pom_status] (the /.#pom local)
                      [actual_library library_status] (the /.#library local)]
-                 (and (case (the /.#origin local)
+                 (and (when (the /.#origin local)
                         {//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
+                             (when library_status
                                {//status.#Verified actual_sha1 expected_md5}
                                (and (//hash#= expected_sha1 actual_sha1)
                                     (//hash#= expected_md5 expected_md5))
@@ -97,7 +97,7 @@
                                     decoded_pom (at xml.codec decoded xml_pom)]
                                    (in (at xml.equivalence = actual_pom decoded_pom)))
                                  (try.else false))
-                             (case pom_status
+                             (when pom_status
                                {//status.#Verified actual_sha1 expected_md5}
                                (and (//hash#= expected_sha1 actual_sha1)
                                     (//hash#= expected_md5 expected_md5))
@@ -106,7 +106,7 @@
                                false))))))
              (_.coverage [/.dependencies]
                (let [expected (the //.#dependencies profile)]
-                 (case (/.dependencies package)
+                 (when (/.dependencies package)
                    {try.#Success actual}
                    (at set.equivalence = expected actual)
                    
@@ -114,7 +114,7 @@
                    false)))
              (_.coverage [/.repositories]
                (let [expected (the //.#repositories profile)]
-                 (case (/.repositories package)
+                 (when (/.repositories package)
                    {try.#Success actual}
                    (at set.equivalence = expected actual)
                    
-- 
cgit v1.2.3