diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/control/exception.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/lux/control/exception.lux b/stdlib/source/test/lux/control/exception.lux index 6df9238fc..f9d5fb082 100644 --- a/stdlib/source/test/lux/control/exception.lux +++ b/stdlib/source/test/lux/control/exception.lux @@ -5,7 +5,7 @@ [abstract [monad {"+" [do]}]] [data - ["[0]" text ("[1]\[0]" equivalence) + ["[0]" text ("[1]#[0]" equivalence) ["%" format {"+" [format]}]]] [math ["[0]" random] @@ -29,7 +29,7 @@ [expected random.nat wrong (|> random.nat (random.only (|>> (n.= expected) not))) assertion_succeeded? random.bit - .let [report_element (\ ! each %.nat random.nat)] + .let [report_element (# ! each %.nat random.nat)] field0 report_element value0 report_element field1 report_element @@ -47,7 +47,7 @@ false {try.#Failure message} - (text\= message (/.error ..an_exception [])))) + (text#= message (/.error ..an_exception [])))) (_.cover [/.match?] (/.match? ..an_exception (/.error ..an_exception []))) @@ -58,7 +58,7 @@ {try.#Failure message} (and (not assertion_succeeded?) - (text\= message (/.error ..an_exception []))))) + (text#= message (/.error ..an_exception []))))) (_.cover [/.when] (and (n.= expected (|> (/.except ..an_exception []) @@ -93,7 +93,7 @@ {try.#Failure _} false) (case (/.with ..an_exception [] {try.#Failure ""}) {try.#Success _} false - {try.#Failure message} (text\= message (/.error ..an_exception []))) + {try.#Failure message} (text#= message (/.error ..an_exception []))) (case (/.with ..an_exception [] (: (Try Nat) (/.except ..another_exception []))) |