From 6dee99947dbfdad2b86b410b9ea186e49c23a502 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Tue, 27 Jan 2015 11:00:33 +0400
Subject: [PATCH] texts test added. -- noch

Former-commit-id: 2233289cbdbd1a7ea9316e8e180db57fba196ddf
---
 src/test/{ => files}/testFiles.Mod |  0
 src/test/texts/testTexts.Mod       | 36 ++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+)
 rename src/test/{ => files}/testFiles.Mod (100%)
 create mode 100644 src/test/texts/testTexts.Mod

diff --git a/src/test/testFiles.Mod b/src/test/files/testFiles.Mod
similarity index 100%
rename from src/test/testFiles.Mod
rename to src/test/files/testFiles.Mod
diff --git a/src/test/texts/testTexts.Mod b/src/test/texts/testTexts.Mod
new file mode 100644
index 00000000..d492737e
--- /dev/null
+++ b/src/test/texts/testTexts.Mod
@@ -0,0 +1,36 @@
+(* compile with voc -M testTexts.Mod *)
+MODULE testTexts;
+
+IMPORT Texts, Console;
+
+VAR W : Texts.Writer;
+ T : Texts.Text;
+ R : Texts.Reader;
+
+ ch : CHAR;
+ i : INTEGER;
+ s : ARRAY 1024 OF CHAR;
+BEGIN
+Texts.OpenWriter (W);
+
+
+Texts.WriteString(W, "aaa");
+Texts.WriteLn(W);
+Texts.WriteLn(W);
+Texts.WriteLn(W);
+NEW(T); Texts.Open(T, "test.txt");
+
+Texts.Append (T, W.buf);
+(*Texts.Store(W, T);*)
+
+Texts.OpenReader(R, T, 0); Texts.Read(R, ch); i := 0;
+      WHILE ~R.eot DO
+        IF ch = 0DX THEN s[i] := 0X; i := 0; Console.String(s); Console.Ln
+        ELSE s[i] := ch; INC(i)
+        END ;
+        Texts.Read(R, ch)
+      END ;
+      s[i] := 0X; (*Console.String(s)*)
+
+
+END testTexts.