aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test
diff options
context:
space:
mode:
authorEduardo Julian2019-04-19 01:27:10 -0400
committerEduardo Julian2019-04-19 01:27:10 -0400
commit0ed7cb3a7d07cf92be57a8f26355212bcee0325d (patch)
tree935d5ff38d6494971b2d2661e60513401a94cf26 /stdlib/source/test
parent692f9751f36fbfc4a5f1148c7b1fadc03495fa6b (diff)
Renamed both "Poly" and "Lexer" to "Parser" in order to normalize naming a bit.
Diffstat (limited to '')
-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