Parcourir la source

FPCUnit: Allow string values for boolean values in defaults file

n7800 il y a 1 semaine
Parent
commit
cf4952eeab
1 fichiers modifiés avec 3 ajouts et 0 suppressions
  1. 3 0
      packages/fcl-fpcunit/src/consoletestrunner.pas

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

@@ -399,6 +399,9 @@ begin
     begin
     Ini:=TMemIniFile.Create(FN);
     try
+      Ini.SetBoolStringValues(true,['1','true','yes','on']);
+      Ini.SetBoolStringValues(false,['0','false','no','off']);
+      // Read options
       F:=Ini.ReadString(S,'format','');
       if (F<>'') then
         FormatParam:=StrToFormat(F);