paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 13:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Delete temp files after test.

Browse Source 
git-svn-id: trunk@39918 -
This commit is contained in:
yury 2018-10-12 15:08:30 +00:00
parent 5fc2ea362f
commit 9ef7a17390
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/test/tisoext1.pp
View File

@ -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
tests/test/tisoext4.pp
View File

@ -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.