diff options
Diffstat (limited to 'stdlib/test')
| -rw-r--r-- | stdlib/test/test/lux/concurrency/actor.lux | 2 | ||||
| -rw-r--r-- | stdlib/test/test/lux/control/exception.lux | 16 | ||||
| -rw-r--r-- | stdlib/test/test/lux/control/region.lux | 6 |
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) |