Browse Source

* Delete temp files after test.

git-svn-id: trunk@39918 -
yury 6 years ago
parent
commit
9ef7a17390
2 changed files with 2 additions and 0 deletions
  1. 1 0
      tests/test/tisoext1.pp
  2. 1 0
      tests/test/tisoext4.pp

+ 1 - 0
tests/test/tisoext1.pp

@@ -12,6 +12,7 @@ begin
   if b<>123 then
   if b<>123 then
     halt(1);
     halt(1);
   close(f);
   close(f);
+  erase(f);
   writeln('ok');
   writeln('ok');
 end.
 end.
 
 

+ 1 - 0
tests/test/tisoext4.pp

@@ -11,6 +11,7 @@ begin
   if s<>'FPC' then
   if s<>'FPC' then
     halt(1);
     halt(1);
   close(f);
   close(f);
+  erase(f);
   writeln('ok');
   writeln('ok');
 end.
 end.