paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 10:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Short options

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-17 17:41:26 +01:00 committed by Pierre Muller
parent c18f4775ee
commit 31748c8997
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/fcl-fpcunit/src/consoletestrunner.pas
View File

@ -84,7 +84,7 @@ implementation
uses inifiles, testdecorator;
const
ShortOpts = 'alhp';
ShortOpts = 'alhpsyrn';
DefaultLongOpts: array[1..11] of string =
('all', 'list', 'progress', 'help', 'skiptiming',
'suite:', 'format:', 'file:', 'stylesheet:','sparse','no-addresses');
@ -321,15 +321,15 @@ begin
writeln(' xml output as XML source (default)');
writeln(' junit output as JUnit compatible XML source');
writeln(' --skiptiming Do not output timings (useful for diffs of testruns)');
writeln(' --sparse Produce Less output (errors/failures only)');
writeln(' --no-addresses Do not display address info');
writeln(' --stylesheet=<reference> add stylesheet reference');
writeln(' -r or --sparse Produce Less output (errors/failures only)');
writeln(' -n or --no-addresses Do not display address info');
writeln(' -y or --stylesheet=<reference> add stylesheet reference');
writeln(' --file=<filename> output results to file');
writeln;
writeln(' -l or --list show a list of registered tests');
writeln(' -a or --all run all tests');
writeln(' -p or --progress show progress');
writeln(' --suite=MyTestSuiteName run single test suite class');
writeln(' -s or --suite=MyTestSuiteName run single test suite class');
WriteCustomHelp;
writeln;
Writeln('Defaults for long options will be read from ini file ',DefaultsFileName);
@ -399,20 +399,20 @@ begin
FormatParam:=StrToFormat(GetOptionValue('format'));
if HasOption('file') then
FileName:=GetOptionValue('file');
if HasOption('stylesheet') then
StyleSheet:=GetOptionValue('stylesheet');
if HasOption('y','stylesheet') then
StyleSheet:=GetOptionValue('y','stylesheet');
if HasOption('p', 'progress') then
ShowProgress:=True;
if HasOption('skiptiming') then
FSkipTiming:=True;
if HasOption('sparse') then
if HasOption('r','sparse') then
FSparse:=True;
If HasOption('no-addresses') then
If HasOption('n','no-addresses') then
FSkipAddressInfo:=True;
// Determine runmode
if HasOption('suite') then
if HasOption('s','suite') then
begin
FSuite:=GetOptionValue('suite');
FSuite:=GetOptionValue('s','suite');
FRunMode:=rmSuite;
end
else If HasOption('a','all') then