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

* chdir to remote path before executing test

Browse Source
This commit is contained in:
peter 2004-09-30 15:38:59 +00:00
parent 209e2b49ed
commit 6b5c56cc4b
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/utils/dotest.pp
View File

@ -576,8 +576,8 @@ begin
ExecuteRemote(rcpprog,RemotePara+' '+TestExe+' '+RemoteAddr+':'+TestRemoteExe);
{ rsh doesn't pass the exitcode, use a second command to print the exitcode
on the remoteshell to stdout }
execres:=ExecuteRemote(rshprog,RemotePara+' '+RemoteAddr+' '+rquote+'chmod 755 '+TestRemoteExe+' ; '+
TestRemoteExe+' ; echo "TestExitCode: $?"'+rquote);
execres:=ExecuteRemote(rshprog,RemotePara+' '+RemoteAddr+' '+rquote+'chmod 755 '+TestRemoteExe+
' ; cd '+RemotePath+' ; '+TestRemoteExe+' ; echo "TestExitCode: $?"'+rquote);
{ Check for TestExitCode error in output, sets ExecuteResult }
CheckTestExitCode(OutName);
end
@ -973,7 +973,10 @@ begin
end.
{
$Log$
Revision 1.37 2004-07-03 18:28:21 florian
Revision 1.38 2004-09-30 15:38:59 peter
* chdir to remote path before executing test
Revision 1.37 2004/07/03 18:28:21 florian
+ added support of putty utils to dotest
+ remote testing executes a chmod 755 before running a test