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/input.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index a0db21ba6..e2751381a 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -30,10 +30,10 @@
      ["#." action]
      ["#." format]]]})
 
-(def: (with-default-source sources)
+(def: (with_default_source sources)
   (-> (Set //.Source) (Set //.Source))
   (if (set.empty? sources)
-    (set.add //.default-source sources)
+    (set.add //.default_source sources)
     sources))
 
 (def: #export test
@@ -46,16 +46,16 @@
         (wrap (do promise.monad
                 [verdict (do //action.monad
                            [file (: (Promise (Try (File Promise)))
-                                    (file.get-file promise.monad fs //project.file))
+                                    (file.get_file promise.monad fs //project.file))
                             _ (|> expected
                                   //format.profile
                                   %.code
                                   (\ encoding.utf8 encode)
-                                  (!.use (\ file over-write)))
+                                  (!.use (\ file over_write)))
                             actual (: (Promise (Try Profile))
                                       (/.read promise.monad fs //.default))]
                            (wrap (\ //.equivalence =
-                                    (update@ #//.sources ..with-default-source expected)
+                                    (update@ #//.sources ..with_default_source expected)
                                     actual)))]
                 (_.cover' [/.read]
                           (try.default false verdict)))))))
-- 
cgit v1.2.3