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

+ NEEDEDAFTER to avoid deleting created files if needed for another test

Browse Source 
git-svn-id: trunk@14405 -
This commit is contained in:
pierre 2009-12-11 19:27:14 +00:00
parent b60517b2fb
commit a440104065
4 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/test/targ1a.pp
View File

@ -1,3 +1,4 @@
{ %NEEDEDAFTER }
program go32v2_crash; program go32v2_crash;
const const

1
tests/test/units/sysutils/texec1.pp
View File

@ -1,4 +1,5 @@
{ %result=1 } { %result=1 }
{ %NEEDEDAFTER }
{ this test fails when it isn't called by execansi } { this test fails when it isn't called by execansi }
uses uses
sysutils; sysutils;

5
tests/utils/dotest.pp
View File

@ -819,7 +819,8 @@ begin
execcmd:=execcmd+s; execcmd:=execcmd+s;
end; end;
execcmd:=execcmd+' '+TestRemoteExe+' ; echo "TestExitCode: $?"'; execcmd:=execcmd+' '+TestRemoteExe+' ; echo "TestExitCode: $?"';
if deAfter in DelExecutable then if (deAfter in DelExecutable) and
not Config.NeededAfter then
execcmd:=execcmd+' ; rm -f '+TestRemoteExe; execcmd:=execcmd+' ; rm -f '+TestRemoteExe;
execcmd:=execcmd+rquote; execcmd:=execcmd+rquote;
execres:=ExecuteRemote(rshprog,execcmd); execres:=ExecuteRemote(rshprog,execcmd);
@ -899,7 +900,7 @@ done:
RunExecutable:=true; RunExecutable:=true;
end; end;
if deAfter in DelExecutable then if (deAfter in DelExecutable) and not Config.NeededAfter then
begin begin
Verbose(V_Debug,'Deleting executable '+TestExe); Verbose(V_Debug,'Deleting executable '+TestExe);
RemoveFile(TestExe); RemoveFile(TestExe);

4
tests/utils/testu.pp
View File

@ -28,6 +28,7 @@ type
KnownCompileError : longint; KnownCompileError : longint;
NeedRecompile : boolean; NeedRecompile : boolean;
NeedLibrary : boolean; NeedLibrary : boolean;
NeededAfter : boolean;
IsInteractive : boolean; IsInteractive : boolean;
IsKnownRunError, IsKnownRunError,
IsKnownCompileError : boolean; IsKnownCompileError : boolean;
@ -212,6 +213,9 @@ begin
else else
if GetEntry('NEEDLIBRARY') then if GetEntry('NEEDLIBRARY') then
r.NeedLibrary:=true r.NeedLibrary:=true
else
if GetEntry('NEEDEDAFTER') then
r.NeededAfter:=true
else else
if GetEntry('KNOWNRUNERROR') then if GetEntry('KNOWNRUNERROR') then
begin begin