← Back to branch summary

~ubuntu-branches/ubuntu/vivid/lazarus/vivid-proposed

« back to all changes in this revision

Viewing changes to components/pochecker/pofamilies.pp

  • Committer: Package Import Robot
  • Author(s): Paul Gevers, Abou Al Montacir, Paul Gevers
  • Date: 2014-04-25 12:57:26 UTC
  • mfrom: (1.1.12)
  • Revision ID: package-import@ubuntu.com-20140425125726-6zkdcnnbbleuuvwj
Tags: 1.2+dfsg-1
[ Abou Al Montacir ]
* Packaged QT4 based IDE and LCL units.

[ Paul Gevers ]
* New upstream release
* Drop obsolete patches + refresh spell_errors.diff
* Update dependencies and description for QT4 changes
* Improve deduplication in d/rules (adds lcl-qt4 -> lcl-gtk2 -> lcl-nogui)

Show diffs side-by-side

added added

removed removed

Lines of Context:
components/pochecker/pofamilies.pp
15
15
 
16
16
  TPoTestOption = (ptoCheckNrOfItems, ptoCheckFormatArgs, ptoCheckMissingIdentifiers,
17
17
                   ptoCheckMismatchedOriginals, ptoCheckDuplicateOriginals, ptoCheckStatistics,
18
 
                   ptoFindAllChilds);
 
18
                   ptoFindAllChildren);
19
19
  TPoTestOptions = Set of TPoTestOption;
20
20
 
21
21
const
22
22
    optRunAllTests: TPoTestOptions = [];
23
 
    optRunAllTestsOnAllChilds: TPoTestOptions = [];
 
23
    optRunAllTestsOnAllChildren: TPoTestOptions = [];
24
24
 
25
25
    PoTestOptionNames: array[TPoTestOption] of String = (
26
26
      'Check number of items',
601
601
  NrTotal := NrTranslated + NrUntranslated + NrFuzzy;
602
602
  if (NrTotal > 0) then
603
603
  begin
604
 
    WarningCount := 1; //else it will not show up...
605
604
    ErrorLog.Add(Divider);
606
605
    ErrorLog.Add(sTranslationStatistics);
607
606
    ErrorLog.Add(ShortChildName);
655
654
      Exit;
656
655
    end
657
656
  end;
658
 
  if not Assigned(FChild) and ([ptoFindAllChilds, ptoCheckDuplicateOriginals] * Options = []) then
 
657
  if not Assigned(FChild) and ([ptoFindAllChildren, ptoCheckDuplicateOriginals] * Options = []) then
659
658
  begin
660
659
    {$ifdef DebugSimplePoFiles}
661
660
    Debugln('TPoFamily.RunTests: no child assigned for ',ShortMasterName);
663
662
    Exit;
664
663
  end;
665
664
 
666
 
  if (ptoFindAllChilds in Options) then
 
665
  if (ptoFindAllChildren in Options) then
667
666
  begin
668
667
    SL := FindAllTranslatedPoFiles(FMasterName);
669
668
    //We want current Child (if currently assigned) at index 0
766
765
var
767
766
  Index: TPoTestOption;
768
767
begin
769
 
  for Index := Low(TPoTestOption) to High(TPotestOption) do optRunAllTestsOnAllChilds := optRunAllTestsOnAllChilds + [Index];
770
 
  optRunAllTests := optRunAllTestsOnAllChilds - [ptoFindAllChilds];
 
768
  for Index := Low(TPoTestOption) to High(TPotestOption) do optRunAllTestsOnAllChildren := optRunAllTestsOnAllChildren + [Index];
 
769
  optRunAllTests := optRunAllTestsOnAllChildren - [ptoFindAllChildren];
771
770
end;
772
771
 
773
772
Initialization