diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/macro/syntax/check.lux | 12 | ||||
-rw-r--r-- | stdlib/source/test/lux/macro/syntax/declaration.lux | 4 | ||||
-rw-r--r-- | stdlib/source/test/lux/macro/syntax/definition.lux | 50 | ||||
-rw-r--r-- | stdlib/source/test/lux/macro/syntax/export.lux | 4 | ||||
-rw-r--r-- | stdlib/source/test/lux/macro/syntax/input.lux | 4 |
5 files changed, 37 insertions, 37 deletions
diff --git a/stdlib/source/test/lux/macro/syntax/check.lux b/stdlib/source/test/lux/macro/syntax/check.lux index de1e3fe56..0b315092e 100644 --- a/stdlib/source/test/lux/macro/syntax/check.lux +++ b/stdlib/source/test/lux/macro/syntax/check.lux @@ -38,11 +38,11 @@ [[type value] ..random] (_.cover [/.format /.parser] (case (<code>.result /.parser - (list (/.format [#/.type type - #/.value value]))) - {#try.Failure _} + (list (/.format [/.#type type + /.#value value]))) + {try.#Failure _} false - {#try.Success check} - (and (code\= type (value@ #/.type check)) - (code\= value (value@ #/.value check))))))))) + {try.#Success check} + (and (code\= type (value@ /.#type check)) + (code\= value (value@ /.#value check))))))))) diff --git a/stdlib/source/test/lux/macro/syntax/declaration.lux b/stdlib/source/test/lux/macro/syntax/declaration.lux index f14762ad6..f4dbee84b 100644 --- a/stdlib/source/test/lux/macro/syntax/declaration.lux +++ b/stdlib/source/test/lux/macro/syntax/declaration.lux @@ -40,8 +40,8 @@ (_.cover [/.format /.parser] (case (<code>.result /.parser (list (/.format expected))) - {#try.Failure _} + {try.#Failure _} false - {#try.Success actual} + {try.#Success actual} (\ /.equivalence = expected actual))))))) diff --git a/stdlib/source/test/lux/macro/syntax/definition.lux b/stdlib/source/test/lux/macro/syntax/definition.lux index b76f75cdb..d6881c287 100644 --- a/stdlib/source/test/lux/macro/syntax/definition.lux +++ b/stdlib/source/test/lux/macro/syntax/definition.lux @@ -34,23 +34,23 @@ )) (def: compiler - [#.info [#.target "FAKE" - #.version "0.0.0" - #.mode #.Build] - #.source [location.dummy 0 ""] - #.location location.dummy - #.current_module #.None - #.modules (list) - #.scopes (list) - #.type_context [#.ex_counter 0 - #.var_counter 0 - #.var_bindings (list)] - #.expected #.None - #.seed 0 - #.scope_type_vars (list) - #.extensions [] - #.eval (:as (-> Type Code (Meta Any)) []) - #.host []]) + [.#info [.#target "FAKE" + .#version "0.0.0" + .#mode {.#Build}] + .#source [location.dummy 0 ""] + .#location location.dummy + .#current_module {.#None} + .#modules (list) + .#scopes (list) + .#type_context [.#ex_counter 0 + .#var_counter 0 + .#var_bindings (list)] + .#expected {.#None} + .#seed 0 + .#scope_type_vars (list) + .#extensions [] + .#eval (:as (-> Type Code (Meta Any)) []) + .#host []]) (def: .public test Test @@ -69,28 +69,28 @@ (_.cover [/.format /.parser] (case (<code>.result (/.parser compiler) (list (/.format expected))) - {#try.Failure error} + {try.#Failure error} false - {#try.Success actual} + {try.#Success actual} (\ /.equivalence = expected actual))) (_.cover [/.typed] - (let [expected (with@ #/.value {#.Left [type untyped_value]} expected)] + (let [expected (with@ /.#value {.#Left [type untyped_value]} expected)] (case (<code>.result (/.typed compiler) (list (/.format expected))) - {#try.Failure error} + {try.#Failure error} false - {#try.Success actual} + {try.#Success actual} (\ /.equivalence = expected actual)))) (_.cover [/.lacks_type] - (let [expected (with@ #/.value {#.Right untyped_value} expected)] + (let [expected (with@ /.#value {.#Right untyped_value} expected)] (case (<code>.result (/.typed compiler) (list (/.format expected))) - {#try.Failure error} + {try.#Failure error} (exception.match? /.lacks_type error) - {#try.Success actual} + {try.#Success actual} false))) ))) )) diff --git a/stdlib/source/test/lux/macro/syntax/export.lux b/stdlib/source/test/lux/macro/syntax/export.lux index ac95210a2..0dcc94f69 100644 --- a/stdlib/source/test/lux/macro/syntax/export.lux +++ b/stdlib/source/test/lux/macro/syntax/export.lux @@ -33,10 +33,10 @@ [[expected_export_policy expected_un_exported] ..export] (_.cover [/.parser /.default_policy] (|> (case expected_export_policy - {#.Some expected_export_policy} + {.#Some expected_export_policy} (list expected_export_policy (code.nat expected_un_exported)) - #.None + {.#None} (list (code.nat expected_un_exported))) (<code>.result (/.parser <code>.nat)) (try\each (function (_ [actual_export_policy actual_un_exported]) diff --git a/stdlib/source/test/lux/macro/syntax/input.lux b/stdlib/source/test/lux/macro/syntax/input.lux index b822f1b94..9ac7d311b 100644 --- a/stdlib/source/test/lux/macro/syntax/input.lux +++ b/stdlib/source/test/lux/macro/syntax/input.lux @@ -41,8 +41,8 @@ [expected ..random] (_.cover [/.format /.parser] (case (<code>.result /.parser (list (/.format (list expected)))) - {#try.Failure _} + {try.#Failure _} false - {#try.Success actual} + {try.#Success actual} (\ (list.equivalence /.equivalence) = (list expected) actual))))))) |