From 3bdd1027cb8e8e0cfbbc001e79072bbf4cf92d12 Mon Sep 17 00:00:00 2001
From: cxl <cxl@f0d560ea-af0d-0410-9eb7-867de7ffcac7>
Date: Sun, 13 Apr 2014 06:18:41 +0000
Subject: [PATCH] autotest: CParser::ReadString(utf8)

git-svn-id: svn://ultimatepp.org/upp/trunk@7240 f0d560ea-af0d-0410-9eb7-867de7ffcac7
---
 autotest/CParser/main.cpp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/autotest/CParser/main.cpp b/autotest/CParser/main.cpp
index 77f895f87..deac918da 100644
--- a/autotest/CParser/main.cpp
+++ b/autotest/CParser/main.cpp
@@ -20,6 +20,13 @@ using namespace Upp;
 CONSOLE_APP_MAIN
 {
 	StdLogSetup(LOG_FILE|LOG_COUT);
+	
+	{
+		String s = "UTF8 ěščřžýá";
+		String txt = AsCString(s) + "\n" + AsCString(s);
+		CParser p(txt);
+		ASSERT(p.ReadString() == s + s);
+	}
 
 	CParser p("i if while 12345 alfa");
 	ASSERT(p.Id("i"));