paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:19:16 +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');
CompressedFile:=SysUtils.GetTempFileName(EmptyStr, 'BZ2');
try
// Set up test bz2 file
// create a resource stream which points to our resource
ExampleFileResourceStream := TResourceStream.Create(HInstance, 'ALL', 'RT_RCDATA');
@ -107,16 +108,18 @@ begin
code:=1;
end;
if code = 0 then
writeln('Basic bzip2 tests passed')
else
writeln('Basic bzip2 test failed: ', code);
finally
try
if CompressedFile<>EmptyStr then DeleteFile(CompressedFile);
if UncompressedFile<>EmptyStr then DeleteFile(UncompressedFile);
finally
// Ignore errors; operating system should clean out temp files
end;
if code = 0 then
writeln('Basic bzip2 tests passed')
else
writeln('Basic bzip2 test failed: ', code);
end;
Halt(code);
end.