|
|
@@ -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
|
Michael VAN CANNEYT