Forráskód Böngészése

FPCUnit: Add short form "-n" for "--no-config" option

n7800 3 órája
szülő
commit
8d4a491aea
1 módosított fájl, 4 hozzáadás és 3 törlés
  1. 4 3
      packages/fcl-fpcunit/src/consoletestrunner.pas

+ 4 - 3
packages/fcl-fpcunit/src/consoletestrunner.pas

@@ -128,7 +128,8 @@ const
     'p'+ // ArgProgress
     'u'+ // ArgStatus
     'x'+ // ArgNoExitCode
-    'f'; // ArgFile
+    'f'+ // ArgFile
+    'n'; // ArgNoConfig
   DefaultLongOpts: array[1..14] of string = (
     ArgHelp,
     ArgList,
@@ -409,7 +410,7 @@ begin
     writeln('  -u or --',ArgStatus,'            Show status messages on stderr');
     writeln('  -x or --',ArgNoExitCode, '       Do not set exit code on errors');
     writeln('  -f or --',ArgFile,'=<filename>   Output results to file');
-    writeln('  --',ArgNoConfig, '               Do not read the configuration file');
+    writeln('  -n or --',ArgNoConfig, '         Do not read the configuration file');
     WriteCustomHelp;
     writeln;
     writeln('Configuration file:');
@@ -608,7 +609,7 @@ begin
     Writeln(S);
     Exit;
     end;
-  if not HasOption(ArgNoConfig) then
+  if not HasOption('n',ArgNoConfig) then
     ReadDefaults;
   if Not ParseOptions then
     exit;