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/metadata/artifact.lux | 10 +++++-----
 stdlib/source/test/aedifex/metadata/snapshot.lux | 18 +++++++++---------
 2 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/test/aedifex/metadata')

diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index bb105f305..3177c6ff2 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -35,21 +35,21 @@
       (do {! random.monad}
         [year (\ ! map (|>> (n.% 10,000) .int) random.nat)
          month (\ ! map (n.% 13) random.nat)
-         day-of-month (\ ! map (n.% 29) random.nat)
+         day_of_month (\ ! map (n.% 29) random.nat)
          hour (\ ! map (n.% 24) random.nat)
          minute (\ ! map (n.% 60) random.nat)
          second (\ ! map (n.% 60) random.nat)]
         (wrap (try.assume
                (do try.monad
                  [year (year.year year)
-                  month (month.by-number month)
-                  date (date.date year month day-of-month)
+                  month (month.by_number month)
+                  date (date.date year month day_of_month)
                   time (time.time
                         {#time.hour hour
                          #time.minute minute
                          #time.second second
-                         #time.milli-second 0})]
-                 (wrap (instant.from-date-time date time))))))))
+                         #time.milli_second 0})]
+                 (wrap (instant.from_date_time date time))))))))
 
 (def: #export test
   Test
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index e17765038..e9e42be9a 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -29,31 +29,31 @@
   {#program
    ["." /]})
 
-(def: random-instant
+(def: random_instant
   (Random Instant)
   (do {! random.monad}
     [year (\ ! map (|>> (n.% 10,000) .int) random.nat)
      month (\ ! map (n.% 13) random.nat)
-     day-of-month (\ ! map (n.% 29) random.nat)
+     day_of_month (\ ! map (n.% 29) random.nat)
      hour (\ ! map (n.% 24) random.nat)
      minute (\ ! map (n.% 60) random.nat)
      second (\ ! map (n.% 60) random.nat)]
     (wrap (try.assume
            (do try.monad
              [year (year.year year)
-              month (month.by-number month)
-              date (date.date year month day-of-month)
+              month (month.by_number month)
+              date (date.date year month day_of_month)
               time (time.time
                     {#time.hour hour
                      #time.minute minute
                      #time.second second
-                     #time.milli-second 0})]
-             (wrap (instant.from-date-time date time)))))))
+                     #time.milli_second 0})]
+             (wrap (instant.from_date_time date time)))))))
 
-(def: random-versioning
+(def: random_versioning
   (Random /.Versioning)
   ($_ random.and
-      ..random-instant
+      ..random_instant
       random.nat
       (random.list 5 $///type.random)
       ))
@@ -64,7 +64,7 @@
       (random.ascii/alpha 5)
       (random.ascii/alpha 5)
       (random.ascii/alpha 5)
-      ..random-versioning))
+      ..random_versioning))
 
 (def: #export test
   Test
-- 
cgit v1.2.3