paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-05 23:37:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

* pass TEST_REMOTEPATH to emulator as "-R TEST_REMOTEPATH"

Browse Source 
git-svn-id: trunk@6034 -
This commit is contained in:
yury 2007-01-17 22:37:55 +00:00
parent f6d79e8abb
commit b6dbf981c9
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/readme.txt
View File

@ -174,7 +174,9 @@ files will be removed.
Example cross testing of target arm-wince
-----------------------------------------
//arm-wince example : see FPCTRUNK\DEMO\WINCE\TESTEMU\ for additional required tools
make TEST_FPC=ppcrossarm TEST_CPU_TARGET=arm TEST_OS_TARGET=wince TEST_OPT="-XParm-wince-pe- -WC" EMULATOR=MyDisc:\My\Path\to\wcetemu.exe
make TEST_FPC=ppcrossarm TEST_CPU_TARGET=arm TEST_OS_TARGET=wince TEST_OPT="-XParm-wince- -WC -Xs" TEST_REMOTEPATH=\fpctest EMULATOR=MyDisc:\My\Path\to\wcetemu.exe
You need to create \fpctest folder on remote device before running testsuite.
Result uploading
----------------

6
tests/utils/dotest.pp
View File

@ -686,6 +686,7 @@ const
CurrDir = '';
{$endif}
var
s,
OldDir,
FullExeLogFile,
TestRemoteExe,
@ -722,7 +723,10 @@ begin
ChDir(TestOutputDir);
{$I+}
ioresult;
execres:=ExecuteEmulated(EmulatorName,CurrDir+SplitFileName(TestExe));
s:=CurrDir+SplitFileName(TestExe);
if RemotePath<>'' then
s:='-R '+RemotePath+' '+s;
execres:=ExecuteEmulated(EmulatorName,s);
{$I-}
ChDir(OldDir);
{$I+}