diff options
| author | Eduardo Julian | 2019-04-19 01:27:10 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-04-19 01:27:10 -0400 |
| commit | 0ed7cb3a7d07cf92be57a8f26355212bcee0325d (patch) | |
| tree | 935d5ff38d6494971b2d2661e60513401a94cf26 /stdlib/source/test | |
| parent | 692f9751f36fbfc4a5f1148c7b1fadc03495fa6b (diff) | |
Renamed both "Poly" and "Lexer" to "Parser" in order to normalize naming a bit.
Diffstat (limited to 'stdlib/source/test')
| -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 |