From 62b3abfcc014ca1c19d62aacdd497f6a250b372c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 25 Jul 2021 03:12:17 -0400
Subject: Better syntax for "library/lux.^multi".

---
 stdlib/source/test/aedifex/cli.lux | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index 71ea72b8c..4239644aa 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -48,7 +48,7 @@
       ## #Auto
       ..compilation))
 
-(def: (format-compilation value)
+(def: (format_compilation value)
   (-> /.Compilation (List Text))
   (case value
     #/.Build (list "build")
@@ -63,10 +63,10 @@
     #/.Dependencies (list "deps")
     #/.Install (list "install")
     (#/.Deploy repository [user password]) (list "deploy" repository user password)
-    (#/.Compilation compilation) (..format-compilation compilation)
-    (#/.Auto compilation) (list& "auto" (..format-compilation compilation))))
+    (#/.Compilation compilation) (..format_compilation compilation)
+    (#/.Auto compilation) (list& "auto" (..format_compilation compilation))))
 
-(def: without-profile
+(def: without_profile
   Test
   (do random.monad
     [expected ..command]
@@ -81,19 +81,19 @@
                        (#try.Failure error)
                        false)))))
 
-(def: with-profile
+(def: with_profile
   Test
   (do random.monad
-    [expected-profile (random.ascii/alpha 1)
-     expected-command ..command]
+    [expected_profile (random.ascii/alpha 1)
+     expected_command ..command]
     (_.test "With profile."
-            (|> expected-command
+            (|> expected_command
                 ..format
-                (list& "with" expected-profile)
+                (list& "with" expected_profile)
                 (cli.run /.command)
-                (case> (#try.Success [actual-profile actual-command])
-                       (and (text\= expected-profile actual-profile)
-                            (\ /.equivalence = expected-command actual-command))
+                (case> (#try.Success [actual_profile actual_command])
+                       (and (text\= expected_profile actual_profile)
+                            (\ /.equivalence = expected_command actual_command))
                        
                        (#try.Failure error)
                        false)))))
@@ -108,6 +108,6 @@
 
                  (_.for [/.command]
                         ($_ _.and
-                            ..without-profile
-                            ..with-profile
+                            ..without_profile
+                            ..with_profile
                             ))))))
-- 
cgit v1.2.3