vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 22:42:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add textTexts as a confidence test and tidy up a couple of other tests.

Browse source
This commit is contained in:
David Brown 2016-08-24 12:55:36 +01:00
parent 37ba47a202
commit 73ce62db28
6 changed files with 80 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

41
src/test/confidence/texts/testTexts.mod Normal file
View file

@ -0,0 +1,41 @@
(* compile with voc -M testTexts.Mod *)
MODULE testTexts;
IMPORT Texts, Console;
CONST pi = -311.1415;
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.WriteReal(W, pi, 7); Texts.WriteLn(W);
Texts.WriteRealFix(W, pi, 0, 7); Texts.WriteLn(W);
Texts.WriteLongReal(W, pi, 7); 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.