diff options
Diffstat (limited to 'stdlib/source/test/lux/data')
| -rw-r--r-- | stdlib/source/test/lux/data/binary.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/collection/dictionary/ordered.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/format/json.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/format/xml.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/text.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/text/regex.lux | 2 |
6 files changed, 15 insertions, 15 deletions
diff --git a/stdlib/source/test/lux/data/binary.lux b/stdlib/source/test/lux/data/binary.lux index c43caf3a4..c6514691e 100644 --- a/stdlib/source/test/lux/data/binary.lux +++ b/stdlib/source/test/lux/data/binary.lux @@ -362,7 +362,7 @@ post \\parser.end?] (in (and (not pre) post)))) - (!expect {try.#Success #1})))) + (!expect {try.#Success .true})))) (do [! random.monad] [to_read (at ! each (n.% (++ ..segment_size)) random.nat) data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] @@ -377,7 +377,7 @@ (in (and (n.= 0 start) (n.= to_read offset) (n.= ..segment_size nothing_left))))) - (!expect {try.#Success #1})))) + (!expect {try.#Success .true})))) (do [! random.monad] [to_read (at ! each (n.% (++ ..segment_size)) random.nat) data (at ! each (at utf8.codec encoded) (random.ascii ..segment_size))] @@ -391,7 +391,7 @@ (in (and (n.= ..segment_size (n.+ to_read remaining)) (n.= 0 nothing_left))))) - (!expect {try.#Success #1})))) + (!expect {try.#Success .true})))) ..size ..binary ..utf8 @@ -589,7 +589,7 @@ (at (list.equivalence n.equivalence) = binary_vals slice_vals) _ - #0)))) + false)))) (_.coverage [/.slice_out_of_bounds] (and (throws? /.slice_out_of_bounds (/.slice size size sample)) (let [verdict (throws? /.slice_out_of_bounds (/.slice offset size sample))] diff --git a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux index 24f9415b8..5cb3bc1c1 100644 --- a/stdlib/source/test/lux/data/collection/dictionary/ordered.lux +++ b/stdlib/source/test/lux/data/collection/dictionary/ordered.lux @@ -76,23 +76,23 @@ (_.coverage [/.min] (case [(/.min sample) (list.head sorted_values)] [{.#None} {.#None}] - #1 + true [{.#Some reference} {.#Some sample}] (n.= reference sample) _ - #0)) + false)) (_.coverage [/.max] (case [(/.max sample) (list.last sorted_values)] [{.#None} {.#None}] - #1 + true [{.#Some reference} {.#Some sample}] (n.= reference sample) _ - #0)) + false)) (_.coverage [/.entries] (list#= (/.entries sample) sorted_pairs)) diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index e057efcfe..3fffb74a1 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -89,9 +89,9 @@ (at <equivalence> = expected actual))))) (_.coverage [<test>] (and (|> (\\parser.result (<test> expected) {<json> expected}) - (!expect {try.#Success #1})) + (!expect {try.#Success .true})) (|> (\\parser.result (<test> expected) {<json> dummy}) - (!expect {try.#Success #0})))) + (!expect {try.#Success .false})))) (_.coverage [<check>] (and (|> (\\parser.result (<check> expected) {<json> expected}) (!expect {try.#Success _})) diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux index 72a4a5665..c1d456cf1 100644 --- a/stdlib/source/test/lux/data/format/xml.lux +++ b/stdlib/source/test/lux/data/format/xml.lux @@ -90,7 +90,7 @@ _ \\parser.any] (in (symbol#= expected actual))) (list {/.#Node expected (dictionary.empty symbol.hash) (list)})) - (!expect {try.#Success #1})))) + (!expect {try.#Success .true})))) (do [! random.monad] [expected ..random_tag] (_.coverage [\\parser.node] diff --git a/stdlib/source/test/lux/data/text.lux b/stdlib/source/test/lux/data/text.lux index 8aead4f9b..66655823f 100644 --- a/stdlib/source/test/lux/data/text.lux +++ b/stdlib/source/test/lux/data/text.lux @@ -551,7 +551,7 @@ _ \\parser.any] (in (and (/#= input pre) (/#= right post))))) - (!expect {try.#Success #1})))) + (!expect {try.#Success .true})))) (do [! random.monad] [left (random.unicode 1) right (random.unicode 1) @@ -889,7 +889,7 @@ (/#= sample (/.together (list _l _r)))) _ - #0))) + false))) (_.coverage [/.clip /.clip_since] (|> [(/.clip 0 sizeL sample) (/.clip sizeL (nat.- sizeL (/.size sample)) sample) @@ -903,7 +903,7 @@ (/#= sample _f)) _ - #0))) + false))) )) (do [! random.monad] [sizeP bounded_size diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux index c057aeaf0..661222696 100644 --- a/stdlib/source/test/lux/data/text/regex.lux +++ b/stdlib/source/test/lux/data/text/regex.lux @@ -32,7 +32,7 @@ (text#= parsed input) _ - #0))) + false))) (def (text_should_pass test regex input) (-> Text (Parser Text) Text Bit) |