From 04c7f49a732380a2b9f72b1b937171b341c24323 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Apr 2022 03:03:46 -0400
Subject: Better names for testing macros (plus better indentation).

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

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

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index a641ee369..690ff01ff 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -110,14 +110,14 @@
     (in (do async.monad
           [wrote! (/.write_one program fs dependency expected_package)
            read! (/.read_one program fs dependency)]
-          (_.cover' [/.write_one /.read_one]
-                    (<| (try.else false)
-                        (do try.monad
-                          [_ wrote!
-                           actual_package read!]
-                          (in (# //package.equivalence =
-                                 (has //package.#origin {//repository/origin.#Local ""} expected_package)
-                                 actual_package)))))))))
+          (_.coverage' [/.write_one /.read_one]
+            (<| (try.else false)
+                (do try.monad
+                  [_ wrote!
+                   actual_package read!]
+                  (in (# //package.equivalence =
+                         (has //package.#origin {//repository/origin.#Local ""} expected_package)
+                         actual_package)))))))))
 
 (def: plural
   Test
@@ -131,16 +131,16 @@
     (in (do async.monad
           [wrote! (/.write_all program fs expected)
            read! (/.read_all program fs (dictionary.keys expected) //dependency/resolution.empty)]
-          (_.cover' [/.write_all /.read_all]
-                    (<| (try.else false)
-                        (do try.monad
-                          [_ wrote!
-                           actual read!]
-                          (in (# //dependency/resolution.equivalence =
-                                 (# dictionary.functor each
-                                    (has //package.#origin {//repository/origin.#Local ""})
-                                    expected)
-                                 actual)))))))))
+          (_.coverage' [/.write_all /.read_all]
+            (<| (try.else false)
+                (do try.monad
+                  [_ wrote!
+                   actual read!]
+                  (in (# //dependency/resolution.equivalence =
+                         (# dictionary.functor each
+                            (has //package.#origin {//repository/origin.#Local ""})
+                            expected)
+                         actual)))))))))
 
 (def: .public test
   Test
-- 
cgit v1.2.3