diff options
Diffstat (limited to 'stdlib/source/test/lux/data/format')
-rw-r--r-- | stdlib/source/test/lux/data/format/json.lux | 6 | ||||
-rw-r--r-- | stdlib/source/test/lux/data/format/tar.lux | 6 | ||||
-rw-r--r-- | stdlib/source/test/lux/data/format/xml.lux | 4 |
3 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/test/lux/data/format/json.lux b/stdlib/source/test/lux/data/format/json.lux index 7177b268d..bfc2b7d89 100644 --- a/stdlib/source/test/lux/data/format/json.lux +++ b/stdlib/source/test/lux/data/format/json.lux @@ -77,7 +77,7 @@ (_.coverage [\\parser.null] (|> (\\parser.result \\parser.null {/.#Null}) (!expect {try.#Success _}))) - (~~ (with_template [<query> <test> <check> <random> <json> <equivalence>] + (,, (with_template [<query> <test> <check> <random> <json> <equivalence>] [(do [! random.monad] [expected <random> dummy (|> <random> (random.only (|>> (at <equivalence> = expected) not)))] @@ -368,7 +368,7 @@ true)]] (in (and can_find_known_key! cannot_find_unknown_key!)))))) - (~~ (with_template [<type> <field> <tag> <random> <equivalence>] + (,, (with_template [<type> <field> <tag> <random> <equivalence>] [(do random.monad [key (random.alphabetic 1) value <random>] @@ -400,7 +400,7 @@ <key6> (string)] (_.coverage [/.json] (and (/#= {/.#Null} (/.json ())) - (~~ (with_template [<tag> <value>] + (,, (with_template [<tag> <value>] [(/#= {<tag> <value>} (/.json <value>))] [/.#Boolean <boolean>] diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux index 349149b22..4a4426fd9 100644 --- a/stdlib/source/test/lux/data/format/tar.lux +++ b/stdlib/source/test/lux/data/format/tar.lux @@ -166,7 +166,7 @@ text.together (at utf8.codec encoded))]] (`` (all _.and - (~~ (with_template [<type> <tag>] + (,, (with_template [<type> <tag>] [(_.coverage [<type>] (|> (do try.monad [expected_path (/.path expected_path) @@ -187,7 +187,7 @@ )) (_.for [/.File /.Content /.content /.data] (all _.and - (~~ (with_template [<type> <tag>] + (,, (with_template [<type> <tag>] [(_.coverage [<type>] (|> (do try.monad [expected_path (/.path expected_path) @@ -268,7 +268,7 @@ _ false))) (try.else false))) - (~~ (with_template [<expected_mode>] + (,, (with_template [<expected_mode>] [(_.coverage [<expected_mode>] (|> (do try.monad [path (/.path path) diff --git a/stdlib/source/test/lux/data/format/xml.lux b/stdlib/source/test/lux/data/format/xml.lux index a01fab3e8..dfdc7ac0e 100644 --- a/stdlib/source/test/lux/data/format/xml.lux +++ b/stdlib/source/test/lux/data/format/xml.lux @@ -47,7 +47,7 @@ (do [! random.monad] [expected (random.alphabetic 1)] (_.coverage [<exception>] - (`` (and (~~ (with_template [<parser> <input>] + (`` (and (,, (with_template [<parser> <input>] [(|> (\\parser.result <parser> (list <input>)) (!expect (^.multi {try.#Failure error} (exception.match? <exception> error))))] @@ -237,7 +237,7 @@ (do [! random.monad] [(^.let symbol [namespace name]) ..symbol] (`` (all _.and - (~~ (with_template [<type> <format>] + (,, (with_template [<type> <format>] [(_.coverage [<type> <format>] (and (text#= name (<format> ["" name])) (let [symbol (<format> symbol)] |