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

* also delete temporary files if the test crashes

Browse Source 
git-svn-id: trunk@21680 -
This commit is contained in:
Jonas Maebe 2012-06-22 14:31:48 +00:00
parent b70ed0a407
commit d953783a7e
1 changed files with 44 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/test/packages/bzip2/tbzip2streamtest.pp
View File

@ -70,6 +70,7 @@ begin
UncompressedFile:=SysUtils.GetTempFileName(EmptyStr, 'UNC'); UncompressedFile:=SysUtils.GetTempFileName(EmptyStr, 'UNC');
CompressedFile:=SysUtils.GetTempFileName(EmptyStr, 'BZ2'); CompressedFile:=SysUtils.GetTempFileName(EmptyStr, 'BZ2');
try
// Set up test bz2 file // Set up test bz2 file
// create a resource stream which points to our resource // create a resource stream which points to our resource
ExampleFileResourceStream := TResourceStream.Create(HInstance, 'ALL', 'RT_RCDATA'); ExampleFileResourceStream := TResourceStream.Create(HInstance, 'ALL', 'RT_RCDATA');
@ -107,16 +108,18 @@ begin
code:=1; code:=1;
end; end;
if code = 0 then
writeln('Basic bzip2 tests passed')
else
writeln('Basic bzip2 test failed: ', code);
finally
try try
if CompressedFile<>EmptyStr then DeleteFile(CompressedFile); if CompressedFile<>EmptyStr then DeleteFile(CompressedFile);
if UncompressedFile<>EmptyStr then DeleteFile(UncompressedFile); if UncompressedFile<>EmptyStr then DeleteFile(UncompressedFile);
finally finally
// Ignore errors; operating system should clean out temp files // Ignore errors; operating system should clean out temp files
end; end;
end;
if code = 0 then
writeln('Basic bzip2 tests passed')
else
writeln('Basic bzip2 test failed: ', code);
Halt(code); Halt(code);
end. end.