Quellcode durchsuchen

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

git-svn-id: trunk@26655 -
florian vor 11 Jahren
Ursprung
Commit
be17962748
1 geänderte Dateien mit 4 neuen und 0 gelöschten Zeilen
  1. 4 0
      tests/test/units/sysutils/tunifile.pp

+ 4 - 0
tests/test/units/sysutils/tunifile.pp

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