diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/lux/control/parser/text.lux | 6 | ||||
-rw-r--r-- | stdlib/source/test/lux/data/text/regex.lux | 8 |
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 |