From 0ed7cb3a7d07cf92be57a8f26355212bcee0325d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 19 Apr 2019 01:27:10 -0400
Subject: Renamed both "Poly" and "Lexer" to "Parser" in order to normalize
 naming a bit.

---
 stdlib/source/test/lux/control/parser/text.lux | 6 ++++--
 stdlib/source/test/lux/data/text/regex.lux     | 8 ++++----
 2 files changed, 8 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/test')

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
-- 
cgit v1.2.3