From 94c968a9579ba8a282cb55900041c13edcabf149 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Thu, 23 Aug 2001 13:51:20 +0000
Subject: [PATCH]   + limited test of code generator for read(ln)/write(ln)

---
 tests/test/cg/treadwrt.pp | 105 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 105 insertions(+)
 create mode 100644 tests/test/cg/treadwrt.pp

diff --git a/tests/test/cg/treadwrt.pp b/tests/test/cg/treadwrt.pp
new file mode 100644
index 0000000000..353da64e0c
--- /dev/null
+++ b/tests/test/cg/treadwrt.pp
@@ -0,0 +1,105 @@
+{$i+}
+
+procedure test_rwtext;
+var
+  t: text;
+  s: shortstring;
+  a: ansistring;
+  w: widestring;
+  l: longint;
+  card: cardinal;
+  b: byte; bool: boolean;
+  c: char;
+  arr: array[1..10] of char;
+  p: pchar;
+  r: real;
+begin
+  bool := true;
+  writeln('ShortString const test');
+  writeln('ShortString const test with const len':70);
+  b := 60;
+  writeln('ShortString const test with var len':b);
+  s := 'ShortStr var test';
+  writeln(s);
+  s := s+ ' with const len';
+  writeln(s:40);
+  s := 'ShortStr var test with var len';
+  writeln(s:b);
+
+  l := -1; c := 'y'; card := 18; r := 5.1234;
+  writeln('A combo test: ',b,' ',l,' ',c,' ',card,' ',bool:10);
+  writeln('floats: ',r,' ',r:1,' ',r:8,' ',r:10:2);
+  arr := 'arrofchars';
+  writeln('array of char: ',arr:38);
+  
+  arr[10] := #0;
+  p := @arr;
+  writeln('pchar test: ',p);
+
+  a := 'this is an ansistring';
+  writeln(a);
+
+  w := 'this is a widestring';
+  writeln(w);
+
+  write('no new line now...',l,c,b);
+  
+  write;
+  read;
+  
+  assign(t,'treadwrt.txt');
+  rewrite(t);
+  writeln('testing text file functionality...');
+  writeln(t,'this is a string');
+  writeln(t,l);
+  writeln(t,c);
+  writeln(t,b);
+  l := 0;
+  c := #32;
+  b := 5;
+  close(t);
+  reset(t);
+  readln(t,s);
+  if s <> 'this is a string' then
+    halt(1);
+  readln(t,l);
+  if l <> -1 then
+    halt(1);
+  readln(t,c);
+  if c <> 'y' then
+    halt(1);
+  readln(t,b);
+  if b <> 60 then
+    halt(1);
+  close(t);
+  erase(t);
+  writeln('write/read text passed...');
+end;
+
+procedure test_rwtyped;
+var
+  f: file of cardinal;
+  c: cardinal;
+begin
+  assign(f,'treadwrt.dat');
+  rewrite(f);
+  c := 8;
+  write(f,c);
+  write(f,cardinal(10));
+  close(f);
+  reset(f);
+  read(f,c);
+  if c <> 8 then
+    halt(1);
+  read(f,c);
+  if c <> 10 then
+    halt(1);
+  close(f);
+  erase(f);
+  writeln('write/read typed passed...');
+end;
+
+begin
+  test_rwtext;
+  test_rwtyped;
+end.