paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 15:52:05 +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); ExecuteRemote(rcpprog,RemotePara+' '+TestExe+' '+RemoteAddr+':'+TestRemoteExe);
{ rsh doesn't pass the exitcode, use a second command to print the exitcode { rsh doesn't pass the exitcode, use a second command to print the exitcode
on the remoteshell to stdout } on the remoteshell to stdout }
execres:=ExecuteRemote(rshprog,RemotePara+' '+RemoteAddr+' '+rquote+'chmod 755 '+TestRemoteExe+' ; '+ execres:=ExecuteRemote(rshprog,RemotePara+' '+RemoteAddr+' '+rquote+'chmod 755 '+TestRemoteExe+
TestRemoteExe+' ; echo "TestExitCode: $?"'+rquote); ' ; cd '+RemotePath+' ; '+TestRemoteExe+' ; echo "TestExitCode: $?"'+rquote);
{ Check for TestExitCode error in output, sets ExecuteResult } { Check for TestExitCode error in output, sets ExecuteResult }
CheckTestExitCode(OutName); CheckTestExitCode(OutName);
end end
@ -973,7 +973,10 @@ begin
end. end.
{ {
$Log$ $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 + added support of putty utils to dotest
+ remote testing executes a chmod 755 before running a test + remote testing executes a chmod 755 before running a test