Просмотр исходного кода

* Delete temp files after test.

git-svn-id: trunk@39918 -
yury 6 лет назад
Родитель
Сommit
9ef7a17390
2 измененных файлов с 2 добавлено и 0 удалено
  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
     halt(1);
   close(f);
+  erase(f);
   writeln('ok');
 end.
 

+ 1 - 0
tests/test/tisoext4.pp

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