diff options
Diffstat (limited to 'stdlib/source/test/lux/data/text/escape.lux')
| -rw-r--r-- | stdlib/source/test/lux/data/text/escape.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/data/text/escape.lux b/stdlib/source/test/lux/data/text/escape.lux index aba3d5948..d1258bf25 100644 --- a/stdlib/source/test/lux/data/text/escape.lux +++ b/stdlib/source/test/lux/data/text/escape.lux @@ -34,9 +34,9 @@ (def: (range max min) (-> Char Char (Random Char)) (let [range (n.- min max)] - (# random.monad each - (|>> (n.% range) (n.+ min)) - random.nat))) + (at random.monad each + (|>> (n.% range) (n.+ min)) + random.nat))) (def: under_range (Random Char) @@ -115,7 +115,7 @@ (text#= expected (/.escaped expected)))))) (do [! random.monad] [dummy (|> (random.char unicode.character) - (# ! each text.of_char))] + (at ! each text.of_char))] (_.coverage [/.dangling_escape] (case (/.un_escaped (format (/.escaped dummy) "\")) {try.#Success _} @@ -126,7 +126,7 @@ (do [! random.monad] [dummy (|> (random.char unicode.character) (random.only (|>> (set.member? ..valid_sigils) not)) - (# ! each text.of_char))] + (at ! each text.of_char))] (_.coverage [/.invalid_escape] (case (/.un_escaped (format "\" dummy)) {try.#Success _} @@ -136,10 +136,10 @@ (exception.match? /.invalid_escape error)))) (do [! random.monad] [too_short (|> (random.char unicode.character) - (# ! each (n.% (hex "1000")))) + (at ! each (n.% (hex "1000")))) code (|> (random.unicode 4) (random.only (function (_ code) - (case (# n.hex decoded code) + (case (at n.hex decoded code) {try.#Failure error} true {try.#Success _} false))))] (_.coverage [/.invalid_unicode_escape] @@ -150,7 +150,7 @@ {try.#Failure error} (exception.match? /.invalid_unicode_escape error))]] - (and (!invalid (# n.hex encoded too_short)) + (and (!invalid (at n.hex encoded too_short)) (!invalid code))))) (_.coverage [/.literal] (with_expansions [<example> (..static_sample)] |