aboutsummaryrefslogtreecommitdiff
path: root/stdlib/test
diff options
context:
space:
mode:
authorEduardo Julian2018-05-02 01:26:14 -0400
committerEduardo Julian2018-05-02 01:26:14 -0400
commit0f1be1eddc30bcff15b5da36b80f2b286fe0908d (patch)
tree1cf4ada83e13f23e2299dcb2f8118a13182e04bc /stdlib/test
parent4331551e030860116f5b6d23ad0d1259e1e7c048 (diff)
- Made the names of all exceptions lower-case.
Diffstat (limited to 'stdlib/test')
-rw-r--r--stdlib/test/test/lux/concurrency/actor.lux2
-rw-r--r--stdlib/test/test/lux/control/exception.lux16
-rw-r--r--stdlib/test/test/lux/control/region.lux6
3 files changed, 12 insertions, 12 deletions
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)