diff options
| author | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-07-02 05:38:27 -0400 |
| commit | b96beb587c11fcfbce86ce2d62351600cf6cad1b (patch) | |
| tree | c9a558ab1391ac97cb11e8777ea78299f1ab5555 /stdlib/source/test/lux/world | |
| parent | 104130efba46a875eba566384578f8aa8593ad37 (diff) | |
More traditional names for unquoting macros.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/world/input/keyboard.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/test/lux/world/net/http/client.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/test/lux/world/net/http/status.lux | 6 |
3 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux index fdb0dda38..25b652db6 100644 --- a/stdlib/source/test/lux/world/input/keyboard.lux +++ b/stdlib/source/test/lux/world/input/keyboard.lux @@ -112,10 +112,10 @@ /.f24]])] (def listing (List /.Key) - (list.together (`` (list (~~ (with_template [<definition> <keys>] + (list.together (`` (list (,, (with_template [<definition> <keys>] [((is (-> Any (List /.Key)) (function (_ _) - (`` (list (~~ (template.spliced <keys>)))))) + (`` (list (,, (template.spliced <keys>)))))) [])] <groups>)))))) @@ -148,14 +148,14 @@ (<| (_.covering /._) (_.for [/.Key]) (`` (all _.and - (~~ (with_template [<definition> <keys>] + (,, (with_template [<definition> <keys>] [<definition>] <groups>)) (_.for [/.Press] (`` (all _.and - (~~ (with_template [<pressed?> <function>] + (,, (with_template [<pressed?> <function>] [(do random.monad [key ..random .let [sample (<function> key)]] diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux index ee7ed16d2..bd73d7e87 100644 --- a/stdlib/source/test/lux/world/net/http/client.lux +++ b/stdlib/source/test/lux/world/net/http/client.lux @@ -98,7 +98,7 @@ [/.options on_options] [/.trace on_trace])] (`` (all _.and - (~~ (with_template [<definition> <expected>] + (,, (with_template [<definition> <expected>] [(_.coverage [<definition>] (|> (<definition> "" //.empty {.#None} mock) (verification io.monad <expected>) @@ -114,13 +114,13 @@ dictionary.size))) (in (do [! async.monad] [.let [mock (/.async mock)] - (~~ (with_template [<definition> <expected>] + (,, (with_template [<definition> <expected>] [<expected> (|> (<definition> "" //.empty {.#None} mock) (verification ! <expected>))] <cases>))] (_.coverage' [/.async] - (and (~~ (with_template [<definition> <expected>] + (and (,, (with_template [<definition> <expected>] [<expected>] <cases>)))))) diff --git a/stdlib/source/test/lux/world/net/http/status.lux b/stdlib/source/test/lux/world/net/http/status.lux index 1dfd7833b..7e890002b 100644 --- a/stdlib/source/test/lux/world/net/http/status.lux +++ b/stdlib/source/test/lux/world/net/http/status.lux @@ -84,10 +84,10 @@ /.network_authentication_required]])] (def all (List //.Status) - (list.together (`` (list (~~ (with_template [<category> <status+>] + (list.together (`` (list (,, (with_template [<category> <status+>] [((is (-> Any (List //.Status)) (function (_ _) - (`` (list (~~ (template.spliced <status+>)))))) + (`` (list (,, (template.spliced <status+>)))))) 123)] <categories>)))))) @@ -112,7 +112,7 @@ Test (<| (_.covering /._) (`` (.all _.and - (~~ (with_template [<category> <status+>] + (,, (with_template [<category> <status+>] [<category>] <categories>)) |