aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/pom.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-08-11 04:15:07 -0400
committerEduardo Julian2022-08-11 04:15:07 -0400
commit065e8a4d8122d4616b570496915d2c0e2c78cd6b (patch)
treef2bbdc3e40b796b34026ab04c9a478d8a3f082d5 /stdlib/source/test/aedifex/pom.lux
parent68d78235694c633c956bb9e8a007cad7d65370bc (diff)
Re-named the "case" macro to "when".
Diffstat (limited to 'stdlib/source/test/aedifex/pom.lux')
-rw-r--r--stdlib/source/test/aedifex/pom.lux4
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/test/aedifex/pom.lux b/stdlib/source/test/aedifex/pom.lux
index c6283f30d..0484599e0 100644
--- a/stdlib/source/test/aedifex/pom.lux
+++ b/stdlib/source/test/aedifex/pom.lux
@@ -34,11 +34,11 @@
(do random.monad
[expected @profile.random]
(_.coverage [/.write /.parser]
- (case [(/.write expected)
+ (when [(/.write expected)
(the //.#identity expected)]
[{try.#Success pom}
{.#Some _}]
- (case (<xml>.result /.parser (list pom))
+ (when (<xml>.result /.parser (list pom))
{try.#Success actual}
(at //.equivalence =
(|> (at //.monoid identity)