From 8f2b19b932e5d85c8bd440f94f289e03b755defd Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 17 May 1999 13:58:01 +0000
Subject: [PATCH]  * use erroru

---
 tests/tbs0005.pp  | 5 ++++-
 tests/tbs0006.pp  | 4 +++-
 tests/tbs0007.pp  | 5 ++++-
 tests/testansi.pp | 4 +++-
 4 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/tests/tbs0005.pp b/tests/tbs0005.pp
index 5ac9921e6a..8bbbc29c29 100644
--- a/tests/tbs0005.pp
+++ b/tests/tbs0005.pp
@@ -1,3 +1,6 @@
+uses 
+  erroru;
+
 begin
   if 1=1 then
     begin
@@ -5,6 +8,6 @@ begin
     end;
   if 1<>1 then
     begin
-      Halt(1);
+      Error;
     end;
 end.
diff --git a/tests/tbs0006.pp b/tests/tbs0006.pp
index 95fb8cea7e..2c7049f8b8 100644
--- a/tests/tbs0006.pp
+++ b/tests/tbs0006.pp
@@ -1,3 +1,5 @@
+uses
+  erroru;
 var
    a,b,c,d,e,f,g,r : double;
 
@@ -12,5 +14,5 @@ begin
    a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r);
    writeln(a,' (must be -1010)');
    if a<>-1010.0 then
-     Halt(1);
+     Error;
 end.
diff --git a/tests/tbs0007.pp b/tests/tbs0007.pp
index 60e065b881..4cd07e15ed 100644
--- a/tests/tbs0007.pp
+++ b/tests/tbs0007.pp
@@ -1,3 +1,6 @@
+uses
+  erroru;
+
 var
    count : byte;
    test : longint;
@@ -8,7 +11,7 @@ begin
         inc(test);
         writeln(count,'. loop');
         if test>127 then 
-          Halt(1);
+          Error;
      end;
 end.
 
diff --git a/tests/testansi.pp b/tests/testansi.pp
index 2957654a5d..ca2fc2327e 100644
--- a/tests/testansi.pp
+++ b/tests/testansi.pp
@@ -451,9 +451,10 @@ begin
   Domem(tempmem);
 end;
 
-Var StartMem : Longint;
+Var GlobalStartMem,StartMem : Longint;
 
 begin
+  GlobalStartMem:=MemAvail;
   StartMem:=MemAvail;
   Writeln ('Testing Initialize/Finalize.');
   TestInitFinal;
@@ -482,4 +483,5 @@ begin
   Writeln;Writeln ('Testing standard functions.');
   TestStdfunc;
   Write ('End of standard functions: ');DoMem(StartMem);
+  Write ('For the whole program ');DoMem(GlobalStartMem);
 end.