From 0f1be1eddc30bcff15b5da36b80f2b286fe0908d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 2 May 2018 01:26:14 -0400
Subject: - Made the names of all exceptions lower-case.

---
 stdlib/test/test/lux/concurrency/actor.lux |  2 +-
 stdlib/test/test/lux/control/exception.lux | 16 ++++++++--------
 stdlib/test/test/lux/control/region.lux    |  6 +++---
 3 files changed, 12 insertions(+), 12 deletions(-)

(limited to 'stdlib/test')

diff --git a/stdlib/test/test/lux/concurrency/actor.lux b/stdlib/test/test/lux/concurrency/actor.lux
index 685ab169b..dc924de27 100644
--- a/stdlib/test/test/lux/concurrency/actor.lux
+++ b/stdlib/test/test/lux/concurrency/actor.lux
@@ -22,7 +22,7 @@
      (wrap output)))
 
   ((stop cause state)
-   (P/wrap (log! (if (ex.match? &.Poisoned cause)
+   (P/wrap (log! (if (ex.match? &.poisoned cause)
                    (format "Counter was poisoned: " (%n state))
                    cause)))))
 
diff --git a/stdlib/test/test/lux/control/exception.lux b/stdlib/test/test/lux/control/exception.lux
index d6a879d75..dfd55abd4 100644
--- a/stdlib/test/test/lux/control/exception.lux
+++ b/stdlib/test/test/lux/control/exception.lux
@@ -10,11 +10,11 @@
        ["r" math/random])
   lux/test)
 
-(exception: Some-Exception)
+(exception: some-exception)
 
-(exception: Another-Exception)
+(exception: another-exception)
 
-(exception: Unknown-Exception)
+(exception: unknown-exception)
 
 (context: "Exceptions"
   (<| (times +100)
@@ -28,9 +28,9 @@
          otherwise-val r.nat
          #let [this-ex (if should-catch?
                          (if which?
-                           Some-Exception
-                           Another-Exception)
-                         Unknown-Exception)
+                           some-exception
+                           another-exception)
+                         unknown-exception)
                expected (if should-throw?
                           (if should-catch?
                             (if which?
@@ -42,8 +42,8 @@
                              (if should-throw?
                                (&.throw this-ex [])
                                (&.return default-val)))
-                          (&.catch Some-Exception (function (_ ex) some-val))
-                          (&.catch Another-Exception (function (_ ex) another-val))
+                          (&.catch some-exception (function (_ ex) some-val))
+                          (&.catch another-exception (function (_ ex) another-val))
                           (&.otherwise (function (_ ex) otherwise-val)))]]
         (test "Catch and otherwhise handlers can properly handle the flow of exception-handling."
               (n/= expected actual)))))
diff --git a/stdlib/test/test/lux/control/region.lux b/stdlib/test/test/lux/control/region.lux
index b0c9c14ac..a7a577ab5 100644
--- a/stdlib/test/test/lux/control/region.lux
+++ b/stdlib/test/test/lux/control/region.lux
@@ -10,7 +10,7 @@
        ["r" math/random])
   lux/test)
 
-(exception: Oops)
+(exception: oops)
 
 (do-template [<name> <success> <error>]
   [(def: (<name> result)
@@ -59,7 +59,7 @@
                                      (do (/.Monad<Region> @)
                                        [_ (monad.map @ (/.acquire @@ count-clean-up)
                                                      (list.n/range +1 expected-clean-ups))
-                                        _ (/.throw @@ Oops [])]
+                                        _ (/.throw @@ oops [])]
                                        (wrap [])))
                       actual-clean-ups (thread.read clean-up-counter)]
                      (wrap (and (error? outcome)
@@ -73,7 +73,7 @@
                             count-clean-up (function (_ value)
                                              (do @
                                                [_ (thread.update n/inc clean-up-counter)]
-                                               (wrap (: (Error Unit) (ex.throw Oops [])))))]
+                                               (wrap (: (Error Unit) (ex.throw oops [])))))]
                       outcome (/.run @
                                      (do (/.Monad<Region> @)
                                        [_ (monad.map @ (/.acquire @@ count-clean-up)
-- 
cgit v1.2.3