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/project.lux | 54 +++++++++++++++++-----------------
 1 file changed, 27 insertions(+), 27 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux
index 4ea00a3c4..cec9c0cae 100644
--- a/stdlib/source/test/aedifex/project.lux
+++ b/stdlib/source/test/aedifex/project.lux
@@ -47,50 +47,50 @@
                         ($monoid.spec /.equivalence /.monoid ..random))
 
                  (do random.monad
-                   [[super-name super-profile] ..profile
-                    [dummy-name dummy-profile] (random.filter (|>> product.left (text\= super-name) not)
+                   [[super_name super_profile] ..profile
+                    [dummy_name dummy_profile] (random.filter (|>> product.left (text\= super_name) not)
                                                               ..profile)
-                    [sub-name sub-profile] (random.filter (function (_ [name profile])
-                                                            (and (not (text\= super-name name))
-                                                                 (not (text\= dummy-name name))))
+                    [sub_name sub_profile] (random.filter (function (_ [name profile])
+                                                            (and (not (text\= super_name name))
+                                                                 (not (text\= dummy_name name))))
                                                           ..profile)
-                    fake-name (random.filter (function (_ name)
-                                               (and (not (text\= super-name name))
-                                                    (not (text\= dummy-name name))
-                                                    (not (text\= sub-name name))))
+                    fake_name (random.filter (function (_ name)
+                                               (and (not (text\= super_name name))
+                                                    (not (text\= dummy_name name))
+                                                    (not (text\= sub_name name))))
                                              (random.ascii/alpha 1))
                     #let [project ($_ (\ /.monoid compose)
-                                      (/.project super-name super-profile)
-                                      (/.project dummy-name dummy-profile)
-                                      (/.project sub-name (set@ #//.parents (list super-name) sub-profile)))
+                                      (/.project super_name super_profile)
+                                      (/.project dummy_name dummy_profile)
+                                      (/.project sub_name (set@ #//.parents (list super_name) sub_profile)))
                           circular ($_ (\ /.monoid compose)
-                                       (/.project super-name (set@ #//.parents (list sub-name) super-profile))
-                                       (/.project dummy-name dummy-profile)
-                                       (/.project sub-name (set@ #//.parents (list super-name) sub-profile)))]]
+                                       (/.project super_name (set@ #//.parents (list sub_name) super_profile))
+                                       (/.project dummy_name dummy_profile)
+                                       (/.project sub_name (set@ #//.parents (list super_name) sub_profile)))]]
                    ($_ _.and
                        (_.cover [/.profile]
-                                (and (|> (/.profile super-name project)
-                                         (try\map (\ //.equivalence = super-profile))
+                                (and (|> (/.profile super_name project)
+                                         (try\map (\ //.equivalence = super_profile))
                                          (try.default false))
-                                     (|> (/.profile dummy-name project)
-                                         (try\map (\ //.equivalence = dummy-profile))
+                                     (|> (/.profile dummy_name project)
+                                         (try\map (\ //.equivalence = dummy_profile))
                                          (try.default false))
-                                     (|> (/.profile sub-name project)
-                                         (try\map (\ //.equivalence = (\ //.monoid compose sub-profile super-profile)))
+                                     (|> (/.profile sub_name project)
+                                         (try\map (\ //.equivalence = (\ //.monoid compose sub_profile super_profile)))
                                          (try.default false))))
-                       (_.cover [/.unknown-profile]
-                                (case (/.profile fake-name project)
+                       (_.cover [/.unknown_profile]
+                                (case (/.profile fake_name project)
                                   (#try.Success _)
                                   false
 
                                   (#try.Failure error)
-                                  (exception.match? /.unknown-profile error)))
-                       (_.cover [/.circular-dependency]
-                                (case (/.profile sub-name circular)
+                                  (exception.match? /.unknown_profile error)))
+                       (_.cover [/.circular_dependency]
+                                (case (/.profile sub_name circular)
                                   (#try.Success _)
                                   false
 
                                   (#try.Failure error)
-                                  (exception.match? /.circular-dependency error)))
+                                  (exception.match? /.circular_dependency error)))
                        ))
                  ))))
-- 
cgit v1.2.3