aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/test')
-rw-r--r--stdlib/source/test/lux/control/parser/text.lux6
-rw-r--r--stdlib/source/test/lux/data/text/regex.lux8
2 files changed, 8 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/control/parser/text.lux b/stdlib/source/test/lux/control/parser/text.lux
index 3693b0fd0..1686bb27c 100644
--- a/stdlib/source/test/lux/control/parser/text.lux
+++ b/stdlib/source/test/lux/control/parser/text.lux
@@ -1,6 +1,8 @@
(.module:
[lux #*
- data/text/format
+ [data
+ text/format
+ ["." name]]
["_" test (#+ Test)]
[abstract/monad (#+ do)]
[control
@@ -33,7 +35,7 @@
(def: #export test
Test
- (<| (_.context (%name (name-of /.Lexer)))
+ (<| (_.context (name.module (name-of /._)))
($_ _.and
(_.test "Can detect the end of the input."
(|> (/.run ""
diff --git a/stdlib/source/test/lux/data/text/regex.lux b/stdlib/source/test/lux/data/text/regex.lux
index eeec23d2f..f456aac73 100644
--- a/stdlib/source/test/lux/data/text/regex.lux
+++ b/stdlib/source/test/lux/data/text/regex.lux
@@ -6,7 +6,7 @@
[control
pipe
["p" parser
- ["<.>" text (#+ Lexer)]]]
+ ["<.>" text (#+ Parser)]]]
[data
[number (#+ hex)]
["." error]
@@ -19,7 +19,7 @@
["." /]})
(def: (should-pass regex input)
- (-> (Lexer Text) Text Bit)
+ (-> (Parser Text) Text Bit)
(|> (<text>.run input regex)
(case> (#error.Success parsed)
(text@= parsed input)
@@ -28,7 +28,7 @@
#0)))
(def: (text-should-pass test regex input)
- (-> Text (Lexer Text) Text Bit)
+ (-> Text (Parser Text) Text Bit)
(|> (<text>.run input regex)
(case> (#error.Success parsed)
(text@= test parsed)
@@ -37,7 +37,7 @@
false)))
(def: (should-fail regex input)
- (All [a] (-> (Lexer a) Text Bit))
+ (All [a] (-> (Parser a) Text Bit))
(|> (<text>.run input regex)
(case> (#error.Failure _)
true