From e61f5e847d4a5d19eca7223cde092951bdb7a9e1 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 6 Dec 2002 16:38:15 +0000
Subject: [PATCH]   * cleanup tempfiles

---
 tests/test/units/dos/tdos2.pp | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/tests/test/units/dos/tdos2.pp b/tests/test/units/dos/tdos2.pp
index d7e9fa6192..2dca127b15 100644
--- a/tests/test/units/dos/tdos2.pp
+++ b/tests/test/units/dos/tdos2.pp
@@ -683,13 +683,26 @@ Begin
  TestSplit;
  RmDir(TestDir);
  PauseScreen;
+ 
+ { Cleanup }
+ {$I-}
+  assign(f,TestFName);
+  erase(f);
+  assign(f,TestFName1);
+  erase(f);
+ {$I+}  
+ if ioresult<>0 then;
+ 
  if has_errors then
    halt(1);
 end.
 
 {
   $Log$
-  Revision 1.11  2002-12-06 16:36:17  peter
+  Revision 1.12  2002-12-06 16:38:15  peter
+    * cleanup tempfiles
+
+  Revision 1.11  2002/12/06 16:36:17  peter
     * made more tests go32v2 specific because they expect (buggy?) Dos
       findfirst behaviour