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/cache.lux | 50 ++++++++++++++++++------------------
 1 file changed, 25 insertions(+), 25 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 0bb0aea68..c4c2d044f 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -45,24 +45,24 @@
 (def: type
   (Random Type)
   ($_ random.either
-      (random\wrap //artifact/type.lux-library)
-      (random\wrap //artifact/type.jvm-library)))
+      (random\wrap //artifact/type.lux_library)
+      (random\wrap //artifact/type.jvm_library)))
 
 (def: profile
   (Random [Artifact Profile XML])
   (random.one (function (_ profile)
-                (try.to-maybe
+                (try.to_maybe
                  (do try.monad
                    [pom (//pom.write profile)
-                    identity (try.from-maybe (get@ #//.identity profile))]
+                    identity (try.from_maybe (get@ #//.identity profile))]
                    (wrap [identity profile pom]))))
               @profile.random))
 
 (def: content
   (Random Binary)
   (do {! random.monad}
-    [content-size (\ ! map (n.% 100) random.nat)]
-    (_binary.random content-size)))
+    [content_size (\ ! map (n.% 100) random.nat)]
+    (_binary.random content_size)))
 
 (def: package
   (Random [Dependency Package])
@@ -77,9 +77,9 @@
 (def: resolution
   (Random Resolution)
   (do {! random.monad}
-    [[main-dependency main-package] ..package
-     dependencies (|> (//package.dependencies main-package)
-                      (\ try.monad map set.to-list)
+    [[main_dependency main_package] ..package
+     dependencies (|> (//package.dependencies main_package)
+                      (\ try.monad map set.to_list)
                       (try.default (list))
                       (monad.map ! (function (_ dependency)
                                      (do !
@@ -88,47 +88,47 @@
                                                               (set@ #//.dependencies (set.new //dependency.hash))
                                                               (set@ #//.identity (#.Some (get@ #//dependency.artifact dependency)))
                                                               //pom.write
-                                                              try.to-maybe))
+                                                              try.to_maybe))
                                                         ..profile)
                                         content ..content]
                                        (wrap [dependency
                                               (set@ #//package.origin #//package.Remote (//package.local pom content))])))))]
-    (wrap (dictionary.from-list //dependency.hash (list& [main-dependency main-package] dependencies)))))
+    (wrap (dictionary.from_list //dependency.hash (list& [main_dependency main_package] dependencies)))))
 
 (def: singular
   Test
   (do {! random.monad}
-    [[dependency expected-package] ..package
+    [[dependency expected_package] ..package
      home (random.ascii/alpha 5)
-     working-directory (random.ascii/alpha 5)
+     working_directory (random.ascii/alpha 5)
      #let [fs (: (file.System Promise)
                  (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))]]
     (wrap (do promise.monad
-            [wrote! (/.write-one program fs dependency expected-package)
-             read! (/.read-one program fs dependency)]
-            (_.cover' [/.write-one /.read-one]
+            [wrote! (/.write_one program fs dependency expected_package)
+             read! (/.read_one program fs dependency)]
+            (_.cover' [/.write_one /.read_one]
                       (<| (try.default false)
                           (do try.monad
                             [_ wrote!
-                             actual-package read!]
+                             actual_package read!]
                             (wrap (\ //package.equivalence =
-                                     (set@ #//package.origin #//package.Local expected-package)
-                                     actual-package)))))))))
+                                     (set@ #//package.origin #//package.Local expected_package)
+                                     actual_package)))))))))
 
 (def: plural
   Test
   (do {! random.monad}
     [expected ..resolution
      home (random.ascii/alpha 5)
-     working-directory (random.ascii/alpha 5)
+     working_directory (random.ascii/alpha 5)
      #let [fs (: (file.System Promise)
                  (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))]]
     (wrap (do promise.monad
-            [wrote! (/.write-all program fs expected)
-             read! (/.read-all program fs (dictionary.keys expected) //dependency/resolution.empty)]
-            (_.cover' [/.write-all /.read-all]
+            [wrote! (/.write_all program fs expected)
+             read! (/.read_all program fs (dictionary.keys expected) //dependency/resolution.empty)]
+            (_.cover' [/.write_all /.read_all]
                       (<| (try.default false)
                           (do try.monad
                             [_ wrote!
-- 
cgit v1.2.3