aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/lux/control/parser/analysis.lux
diff options
context:
space:
mode:
authorEduardo Julian2020-11-26 19:37:11 -0400
committerEduardo Julian2020-11-26 19:37:11 -0400
commitdbb658bd7976c073a2bf314f194b36b30c45784b (patch)
tree4771bab5e41fe2ba3939bb3a12941a558b68e712 /stdlib/source/test/lux/control/parser/analysis.lux
parentc4bbfea18d995948012f45a6afda7a6e6ba56f84 (diff)
Allow name formatting for JVM imports, similar to Lux module imports.
Diffstat (limited to '')
-rw-r--r--stdlib/source/test/lux/control/parser/analysis.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/lux/control/parser/analysis.lux b/stdlib/source/test/lux/control/parser/analysis.lux
index dca66b9ef..f09967760 100644
--- a/stdlib/source/test/lux/control/parser/analysis.lux
+++ b/stdlib/source/test/lux/control/parser/analysis.lux
@@ -9,9 +9,9 @@
["." exception]
["<>" parser]]
[data
- ["." name ("#@." equivalence)]
- ["." bit ("#@." equivalence)]
- ["." text ("#@." equivalence)]
+ ["." name ("#\." equivalence)]
+ ["." bit ("#\." equivalence)]
+ ["." text ("#\." equivalence)]
[number
["n" nat]
["i" int]
@@ -79,15 +79,15 @@
(/.run (<check> expected))
(!expect (#try.Success _)))))]
- [/.bit /.bit! random.bit analysis.bit bit@=]
+ [/.bit /.bit! random.bit analysis.bit bit\=]
[/.nat /.nat! random.nat analysis.nat n.=]
[/.int /.int! random.int analysis.int i.=]
[/.frac /.frac! random.safe-frac analysis.frac f.=]
[/.rev /.rev! random.rev analysis.rev r.=]
- [/.text /.text! (random.unicode 10) analysis.text text@=]
+ [/.text /.text! (random.unicode 10) analysis.text text\=]
[/.local /.local! random.nat analysis.variable/local n.=]
[/.foreign /.foreign! random.nat analysis.variable/foreign n.=]
- [/.constant /.constant! ..constant analysis.constant name@=]
+ [/.constant /.constant! ..constant analysis.constant name\=]
))
(do {! random.monad}
[expected random.bit]
@@ -95,7 +95,7 @@
(|> (list (analysis.tuple (list (analysis.bit expected))))
(/.run (/.tuple /.bit))
(case> (#try.Success actual)
- (bit@= expected actual)
+ (bit\= expected actual)
(#try.Failure _)
false))))