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/dependency/deployment.lux | 2 +-
 stdlib/source/test/aedifex/dependency/resolution.lux | 8 ++++----
 stdlib/source/test/aedifex/dependency/status.lux     | 2 +-
 3 files changed, 6 insertions(+), 6 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 dbc458897..f94ef4421 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -69,7 +69,7 @@
    (def (request method url headers input)
      (do io.monad
        [_ (is (IO Any)
-              (case [method input]
+              (when [method input]
                 [{@http.#Put} {.#Some input}]
                 (atom.update! (dictionary.has url input) cache)
                 
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 6bc81298e..0f353d828 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -265,7 +265,7 @@
                                            [///dependency.#artifact expected_artifact
                                             ///dependency.#type ///artifact/type.lux_library])]
                     (unit.coverage [/.one]
-                      (case actual_package
+                      (when actual_package
                         {try.#Success actual_package}
                         (at ///package.equivalence =
                             (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
@@ -279,7 +279,7 @@
                                                   [///dependency.#artifact expected_artifact
                                                    ///dependency.#type ///artifact/type.lux_library])]
                            (unit.coverage [<exception>]
-                             (case actual_package
+                             (when actual_package
                                {try.#Failure error}
                                (exception.match? <exception> error)
 
@@ -314,7 +314,7 @@
                                        [///dependency.#artifact expected_artifact
                                         ///dependency.#type ///artifact/type.lux_library])]
                 (unit.coverage [/.any]
-                  (case actual_package
+                  (when actual_package
                     {try.#Success actual_package}
                     (at ///package.equivalence =
                         (has ///package.#origin {///repository/origin.#Remote ""} expected_package)
@@ -330,7 +330,7 @@
                                        [///dependency.#artifact expected_artifact
                                         ///dependency.#type ///artifact/type.lux_library])]
                 (unit.coverage [/.cannot_resolve]
-                  (case actual_package
+                  (when actual_package
                     {try.#Failure error}
                     (exception.match? /.cannot_resolve error)
 
diff --git a/stdlib/source/test/aedifex/dependency/status.lux b/stdlib/source/test/aedifex/dependency/status.lux
index b61d35630..85edbdbf8 100644
--- a/stdlib/source/test/aedifex/dependency/status.lux
+++ b/stdlib/source/test/aedifex/dependency/status.lux
@@ -40,7 +40,7 @@
                   (do random.monad
                     [payload (binaryT.random 1)]
                     (_.coverage [/.verified]
-                      (case (/.verified payload)
+                      (when (/.verified payload)
                         {/.#Verified sha1 md5}
                         true
 
-- 
cgit v1.2.3