paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 23:06:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* delete test file immediately after they were used, external tools might get into trouble trying deleting them due to the uncommon names

Browse Source 
git-svn-id: trunk@26655 -
This commit is contained in:
florian 2014-02-02 19:10:42 +00:00
parent e7639e582c
commit be17962748
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/units/sysutils/tunifile.pp
View File

@ -39,6 +39,7 @@ begin
if f=-1 then if f=-1 then
Error('Creating utf8string'); Error('Creating utf8string');
FileClose(f); FileClose(f);
DeleteFile(u);
end end
else else
warn('utf8string'); warn('utf8string');
@ -52,6 +53,7 @@ begin
if f=-1 then if f=-1 then
Error('Creating tcpstr866'); Error('Creating tcpstr866');
FileClose(f); FileClose(f);
DeleteFile(c);
end end
else else
warn('tcpstr866'); warn('tcpstr866');
@ -72,6 +74,7 @@ begin
if f=-1 then if f=-1 then
Error('Creating unicodestring 1'); Error('Creating unicodestring 1');
FileClose(f); FileClose(f);
DeleteFile(u);
end end
else else
warn('random unicodestring'); warn('random unicodestring');
@ -83,6 +86,7 @@ begin
if f=-1 then if f=-1 then
Error('Creating unicodestring 2'); Error('Creating unicodestring 2');
FileClose(f); FileClose(f);
DeleteFile(u);
end end
else else
warn('cp866 unicodestring'); warn('cp866 unicodestring');