diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/data/text/escape.lux | 10 | ||||
| -rw-r--r-- | stdlib/source/test/lux/macro/template.lux | 10 |
2 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/test/lux/data/text/escape.lux b/stdlib/source/test/lux/data/text/escape.lux index de8e77510..e58413ac6 100644 --- a/stdlib/source/test/lux/data/text/escape.lux +++ b/stdlib/source/test/lux/data/text/escape.lux @@ -142,12 +142,12 @@ (#try.Success _) false))))] (_.cover [/.invalid_unicode_escape] (template.with [(!invalid <code>) - (case (/.un_escape (format "\u" <code>)) - (#try.Success _) - false + [(case (/.un_escape (format "\u" <code>)) + (#try.Success _) + false - (#try.Failure error) - (exception.match? /.invalid_unicode_escape error))] + (#try.Failure error) + (exception.match? /.invalid_unicode_escape error))]] (and (!invalid (\ n.hex encode too_short)) (!invalid code))))) (_.cover [/.escaped] diff --git a/stdlib/source/test/lux/macro/template.lux b/stdlib/source/test/lux/macro/template.lux index 9032453c5..8f85ff3ea 100644 --- a/stdlib/source/test/lux/macro/template.lux +++ b/stdlib/source/test/lux/macro/template.lux @@ -20,7 +20,7 @@ ["." /]}) (/.with [(!pow/2 <scalar>) - (nat.* <scalar> <scalar>)] + [(nat.* <scalar> <scalar>)]] (def: pow/2 (-> Nat Nat) (|>> !pow/2))) @@ -88,10 +88,10 @@ (..pow/2 scalar))] (and can_use_with_statements! (/.with [(pow/3 <scalar>) - ($_ nat.* <scalar> <scalar> <scalar>) + [($_ nat.* <scalar> <scalar> <scalar>)] (pow/9 <scalar>) - (pow/3 (pow/3 <scalar>))] + [(pow/3 (pow/3 <scalar>))]] (let [can_use_with_expressions! (nat.= ($_ nat.* scalar scalar scalar) (pow/3 scalar)) @@ -114,13 +114,13 @@ )))) (_.cover [/.irregular_arguments] (/.with [(arity/3 <0> <1> <2>) - ""] + [""]] (exception.match? /.irregular_arguments (macro_error (arity/3 "a" "b"))))) (_.cover [/.cannot_shadow_definition] (exception.match? /.cannot_shadow_definition (macro_error (/.with [(macro_error <0> <1> <2>) - ""] + [""]] "")))) ))) )) |