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

* support passing options to the emulator when using one for testing

Browse Source 
git-svn-id: trunk@47604 -
This commit is contained in:
florian 2020-11-26 21:35:00 +00:00
parent 903486642e
commit 9c77e4a899
4 changed files with 36 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/Makefile
View File

@ -2588,6 +2588,9 @@ endif
ifdef EMULATOR
override DOTESTOPT+=-M$(EMULATOR)
endif
ifdef EMULATOR_OPTS
override DOTESTOPT+=-N$(EMULATOR_OPTS)
endif
ifdef USEENV
override DOTESTENV:=$(DOTESTOPT)
override DOTESTOPT=!DOTESTENV

4
tests/Makefile.fpc
View File

@ -390,6 +390,10 @@ ifdef EMULATOR
override DOTESTOPT+=-M$(EMULATOR)
endif
ifdef EMULATOR_OPTS
override DOTESTOPT+=-N$(EMULATOR_OPTS)
endif
ifdef USEENV
override DOTESTENV:=$(DOTESTOPT)

1
tests/readme.txt
View File

@ -217,6 +217,7 @@ Emulator execution is possible as well. It can't be combined with remote
execution though.
EMULATOR: name of the emulator to use
EMULATOR_OPTS: pass the given options to the emulator
Examples:

6
tests/utils/dotest.pp
View File

@ -112,6 +112,7 @@ const
rquote : string = '''';
UseTimeout : boolean = false;
emulatorname : string = '';
EmulatorOpts : string = '';
TargetCanCompileLibraries : boolean = true;
UniqueSuffix: string = '';
@ -1314,7 +1315,7 @@ begin
{ Add -Ssource_file_name for dosbox_wrapper }
if pos('dosbox_wrapper',EmulatorName)>0 then
s:=s+' -S'+PPFile[current];
execres:=ExecuteEmulated(EmulatorName,s,FullExeLogFile,StartTicks,EndTicks);
execres:=ExecuteEmulated(EmulatorName,EmulatorOpts+' '+s,FullExeLogFile,StartTicks,EndTicks);
{$I-}
ChDir(OldDir);
{$I+}
@ -1555,6 +1556,7 @@ procedure getargs;
writeln(' -K include known bug tests');
writeln(' -L<ext> set extension of temporary files (prevent conflicts with parallel invocations)');
writeln(' -M<emulator> run the tests using the given emulator');
writeln(' -N<emulator opts.> pass options to the emulator');
writeln(' -O use timeout wrapper for (remote) execution');
writeln(' -P<path> path to the tests tree on the remote machine');
writeln(' -R<remote> run the tests remotely with the given rsh/ssh address');
@ -1630,6 +1632,8 @@ procedure getargs;
'M' : EmulatorName:=Para;
'N' : EmulatorOpts:=Para;
'O' : UseTimeout:=true;
'P' : RemotePath:=Para;