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

* cleanup tempfiles

Browse Source
This commit is contained in:
peter 2002-12-06 16:38:15 +00:00
parent ab924aa4eb
commit e61f5e847d
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
tests/test/units/dos/tdos2.pp
View File

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