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/runtime.lux | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux
index c982c455a..690657d70 100644
--- a/stdlib/source/test/aedifex/runtime.lux
+++ b/stdlib/source/test/aedifex/runtime.lux
@@ -42,12 +42,12 @@
                         ($equivalence.spec /.equivalence ..random))
                  
                  (~~ (template [<command>]
-                       [(_.cover [/.default_java /.default_js /.default_python /.default_lua /.default_ruby]
-                                 (let [listing (|> (list /.default_java /.default_js /.default_python /.default_lua /.default_ruby)
-                                                   (list#each (the /.#program)))
-                                       unique (set.of_list text.hash listing)]
-                                   (n.= (list.size listing)
-                                        (set.size unique))))]
+                       [(_.coverage [/.default_java /.default_js /.default_python /.default_lua /.default_ruby]
+                          (let [listing (|> (list /.default_java /.default_js /.default_python /.default_lua /.default_ruby)
+                                            (list#each (the /.#program)))
+                                unique (set.of_list text.hash listing)]
+                            (n.= (list.size listing)
+                                 (set.size unique))))]
 
                        [/.default_java]
                        [/.default_js]
@@ -55,13 +55,13 @@
                        [/.default_lua]
                        [/.default_ruby]
                        ))
-                 (_.cover [/.for]
-                          (let [runtime' (/.for runtime path)]
-                            (and (text#= (the /.#program runtime)
-                                         (the /.#program runtime'))
-                                 (|> runtime'
-                                     (the /.#parameters)
-                                     list.last
-                                     (maybe#each (text#= path))
-                                     (maybe.else false)))))
+                 (_.coverage [/.for]
+                   (let [runtime' (/.for runtime path)]
+                     (and (text#= (the /.#program runtime)
+                                  (the /.#program runtime'))
+                          (|> runtime'
+                              (the /.#parameters)
+                              list.last
+                              (maybe#each (text#= path))
+                              (maybe.else false)))))
                  )))))
-- 
cgit v1.2.3