Explorar el Código

* 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 hace 11 años
padre
commit
be17962748
Se han modificado 1 ficheros con 4 adiciones y 0 borrados
  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
       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');