From ed8a1bd7d9b4faed434427f63721f43c09090467 Mon Sep 17 00:00:00 2001
From: yhirose <yuji.hirose.bug@gmail.com>
Date: Thu, 13 Sep 2018 22:04:46 -0400
Subject: [PATCH] Better Unicode handling

---
 test/test.cc | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/test/test.cc b/test/test.cc
index 9fb0080..3773649 100644
--- a/test/test.cc
+++ b/test/test.cc
@@ -1002,6 +1002,29 @@ TEST_CASE("Japanese character", "[unicode]")
     REQUIRE(ret == true);
 }
 
+TEST_CASE("dot with a code", "[unicode]")
+{
+    peg::parser parser(" S <- 'a' . 'b' ");
+    auto ret = parser.parse(u8R"(aあb)");
+    REQUIRE(ret == true);
+}
+
+#if 0 // TODO:
+TEST_CASE("dot with a char", "[unicode]")
+{
+    peg::parser parser(" S <- 'a' . 'b' ");
+    auto ret = parser.parse(u8R"(aåb)");
+    REQUIRE(ret == true);
+}
+
+TEST_CASE("dot with a grapheme", "[unicode]")
+{
+    peg::parser parser(" S <- 'a' . 'b' ");
+    auto ret = parser.parse(u8R"(aसिb)");
+    REQUIRE(ret == true);
+}
+#endif
+
 TEST_CASE("Macro simple test", "[macro]")
 {
     parser parser(R"(
@@ -1372,6 +1395,8 @@ TEST_CASE("PEG Literal", "[peg]")
     REQUIRE(exact(g, "Literal", "\"'\"abc\"'\" ") == false);
     REQUIRE(exact(g, "Literal", "abc") == false);
     REQUIRE(exact(g, "Literal", "") == false);
+    REQUIRE(exact(g, "Literal", u8"'日本語'") == true);
+    REQUIRE(exact(g, "Literal", u8"\"日本語\"") == true);
     REQUIRE(exact(g, "Literal", u8"日本語") == false);
 }
 
@@ -1390,6 +1415,7 @@ TEST_CASE("PEG Class", "[peg]")
     REQUIRE(exact(g, "Class", "[a") == false);
     REQUIRE(exact(g, "Class", "]") == false);
     REQUIRE(exact(g, "Class", "a]") == false);
+    REQUIRE(exact(g, "Class", u8"[あ-ん]") == false);
     REQUIRE(exact(g, "Class", u8"あ-ん") == false);
     REQUIRE(exact(g, "Class", "[-+]") == true);
     REQUIRE(exact(g, "Class", "[+-]") == false);