From 4ca397765805eda5ddee393901ed3a02001a960a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 25 Dec 2020 09:22:38 -0400
Subject: Replaced kebab-case with snake_case for naming convention.

---
 stdlib/source/test/aedifex/command/install.lux | 38 +++++++++++++-------------
 1 file changed, 19 insertions(+), 19 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 9ffa65bab..9df49efa4 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -44,9 +44,9 @@
       ["#." artifact
        ["#/." extension]]]]]})
 
-(def: (make-sources! fs sources)
+(def: (make_sources! fs sources)
   (-> (file.System Promise) (Set Path) (Promise (Try Any)))
-  (loop [sources (set.to-list sources)]
+  (loop [sources (set.to_list sources)]
     (case sources
       #.Nil
       (|> []
@@ -56,9 +56,9 @@
       (#.Cons head tail)
       (do (try.with promise.monad)
         [_ (: (Promise (Try Path))
-              (file.make-directories promise.monad fs head))
+              (file.make_directories promise.monad fs head))
          _ (: (Promise (Try (File Promise)))
-              (file.get-file promise.monad fs (format head (\ fs separator) head ".lux")))]
+              (file.get_file promise.monad fs (format head (\ fs separator) head ".lux")))]
         (recur tail)))))
 
 (def: (execute! program fs sample)
@@ -67,11 +67,11 @@
     [home (\ program home [])]
     (do ///action.monad
       [#let [console (@version.echo "")]
-       _ (..make-sources! fs (get@ #///.sources sample))
+       _ (..make_sources! fs (get@ #///.sources sample))
        _ (: (Promise (Try Path))
-            (file.make-directories promise.monad fs (///local.repository fs home)))
+            (file.make_directories promise.monad fs (///local.repository fs home)))
        _ (/.do! program console fs sample)]
-      (!.use (\ console read-line) []))))
+      (!.use (\ console read_line) []))))
 
 (def: #export test
   Test
@@ -81,33 +81,33 @@
          sample (\ ! map (set@ #///.identity (#.Some identity))
                    @profile.random)
          home (random.ascii/alpha 5)
-         working-directory (random.ascii/alpha 5)]
+         working_directory (random.ascii/alpha 5)]
         ($_ _.and
             (wrap (do {! promise.monad}
                     [#let [fs (file.mock (\ file.default separator))
-                           program (program.async (program.mock environment.empty home working-directory))]
+                           program (program.async (program.mock environment.empty home working_directory))]
                      verdict (do ///action.monad
                                [logging (..execute! program fs sample)
-                                #let [artifact-path (format (///local.path fs home identity)
+                                #let [artifact_path (format (///local.path fs home identity)
                                                             (\ fs separator)
                                                             (///artifact.identity identity))
-                                      library-path (format artifact-path ///artifact/extension.lux-library)
-                                      pom-path (format artifact-path ///artifact/extension.pom)]
+                                      library_path (format artifact_path ///artifact/extension.lux_library)
+                                      pom_path (format artifact_path ///artifact/extension.pom)]
 
-                                library-exists! (\ promise.monad map
+                                library_exists! (\ promise.monad map
                                                    exception.return
-                                                   (file.file-exists? promise.monad fs library-path))
-                                pom-exists! (\ promise.monad map
+                                                   (file.file_exists? promise.monad fs library_path))
+                                pom_exists! (\ promise.monad map
                                                exception.return
-                                               (file.file-exists? promise.monad fs pom-path))]
+                                               (file.file_exists? promise.monad fs pom_path))]
                                (wrap (and (text\= //clean.success logging)
-                                          library-exists!
-                                          pom-exists!)))]
+                                          library_exists!
+                                          pom_exists!)))]
                     (_.cover' [/.do!]
                               (try.default false verdict))))
             (wrap (do {! promise.monad}
                     [#let [fs (file.mock (\ file.default separator))
-                           program (program.async (program.mock environment.empty home working-directory))]
+                           program (program.async (program.mock environment.empty home working_directory))]
                      logging (..execute! program fs (set@ #///.identity #.None sample))]
                     (_.cover' [/.failure]
                               (|> logging
-- 
cgit v1.2.3