diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/data/collection/array.lux | 14 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/collection/list.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/format/json.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 12 | ||||
| -rw-r--r-- | stdlib/source/test/lux/data/text/regex.lux | 2 |
5 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/test/lux/data/collection/array.lux b/stdlib/source/test/lux/data/collection/array.lux index d2be45fa4..ebe7676a0 100644 --- a/stdlib/source/test/lux/data/collection/array.lux +++ b/stdlib/source/test/lux/data/collection/array.lux @@ -156,9 +156,9 @@ (!.empty size))))) (_.coverage [!.type] (case !.Array - (pattern (<| {.#Named (symbol !.Array)} - {.#UnivQ (list)} - {.#Primitive nominal_type (list {.#Parameter 1})})) + (<| {.#Named (symbol !.Array)} + {.#UnivQ (list)} + {.#Primitive nominal_type (list {.#Parameter 1})}) (same? !.type nominal_type) _ @@ -324,10 +324,10 @@ (/.empty size))))) (_.coverage [/.type_name] (case /.Array - (pattern (<| {.#Named (symbol /.Array)} - {.#Named (symbol !.Array)} - {.#UnivQ (list)} - {.#Primitive nominal_type (list {.#Parameter 1})})) + (<| {.#Named (symbol /.Array)} + {.#Named (symbol !.Array)} + {.#UnivQ (list)} + {.#Primitive nominal_type (list {.#Parameter 1})}) (same? /.type_name nominal_type) _ diff --git a/stdlib/source/test/lux/data/collection/list.lux b/stdlib/source/test/lux/data/collection/list.lux index 2e5734c23..f915d4316 100644 --- a/stdlib/source/test/lux/data/collection/list.lux +++ b/stdlib/source/test/lux/data/collection/list.lux @@ -77,7 +77,7 @@ b (in subject)] (in (n.+ a b)))) (pipe.case - (pattern (list actual)) + (list actual) (n.= expected actual) _ diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index 0e7ec6b44..8eb35a192 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -151,7 +151,7 @@ [boolean_field number_field string_field] (|> (random.set text.hash 3 (random.unicode 3)) (at ! each (|>> set.list (pipe.case - (pattern (list boolean_field number_field string_field)) + (list boolean_field number_field string_field) [boolean_field number_field string_field] _ diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 817c38c5a..7f695042d 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -174,7 +174,7 @@ (\\format.result /.format) (<b>.result /.parser))] (in (case (sequence.list tar) - (pattern (list {<tag> actual_path})) + (list {<tag> actual_path}) (text#= (/.from_path expected_path) (/.from_path actual_path)) @@ -203,7 +203,7 @@ (\\format.result /.format) (<b>.result /.parser))] (in (case (sequence.list tar) - (pattern (list {<tag> [actual_path actual_moment actual_mode actual_ownership actual_content]})) + (list {<tag> [actual_path actual_moment actual_mode actual_ownership actual_content]}) (let [seconds (is (-> Instant Int) (|>> instant.relative (duration.ticks duration.second)))] (and (text#= (/.from_path expected_path) @@ -261,7 +261,7 @@ (\\format.result /.format) (<b>.result /.parser))] (in (case (sequence.list tar) - (pattern (list {/.#Normal [_ _ actual_mode _ _]})) + (list {/.#Normal [_ _ actual_mode _ _]}) (n.= (/.mode expected_mode) (/.mode actual_mode)) @@ -284,7 +284,7 @@ (\\format.result /.format) (<b>.result /.parser))] (in (case (sequence.list tar) - (pattern (list {/.#Normal [_ _ actual_mode _ _]})) + (list {/.#Normal [_ _ actual_mode _ _]}) (n.= (/.mode <expected_mode>) (/.mode actual_mode)) @@ -351,7 +351,7 @@ (\\format.result /.format) (<b>.result /.parser))] (in (case (sequence.list tar) - (pattern (list {/.#Normal [_ _ _ actual_ownership _]})) + (list {/.#Normal [_ _ _ actual_ownership _]}) (and (text#= (/.from_name expected) (/.from_name (the [/.#user /.#name] actual_ownership))) (text#= (/.from_name /.anonymous) @@ -375,7 +375,7 @@ (\\format.result /.format) (<b>.result /.parser))] (in (case (sequence.list tar) - (pattern (list {/.#Normal [_ _ _ actual_ownership _]})) + (list {/.#Normal [_ _ _ actual_ownership _]}) (and (text#= (/.from_name /.anonymous) (/.from_name (the [/.#user /.#name] actual_ownership))) (n.= (/.from_small /.no_id) diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux index faadefa50..48b376358 100644 --- a/stdlib/source/test/lux/data/text/regex.lux +++ b/stdlib/source/test/lux/data/text/regex.lux @@ -63,7 +63,7 @@ (in (list (` (|> (, input) (<text>.result (, regex)) (pipe.case - (pattern {try.#Success (, pattern)}) + {try.#Success (, pattern)} true (, g!_) |