开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
XPTestedUnitParserTests.pas
资源名称：EMailMasterbysuperroyor.rar　[点击查看]
上传用户：yjb1804
上传日期：2021-01-30
资源大小：3105k
文件大小：26k
源码类别：

Email服务器

开发平台：

Delphi

XPTestedUnitParserTests.pas：源码内容
  1. unit XPTestedUnitParserTests;
  3. interface
  5. uses
  6.   TestFrameWork,
  7.   XPTestedUnitParser,
  8.   XPTestedUnitUtils,
  9.   Classes;          // TStream;
  11. type
  13.   TXPTestedUnitParserTests = class(TTestCase)
  14.   private
  16.     FParser: IXPTestedUnitParser;
  17.     FStream: TStream;
  19.     function MethodCount(const AVisibilityNode: IXPVisibilityNode): integer;
  20.     function PropertyCount(const AVisibilityNode: IXPVisibilityNode): integer;
  22.   protected
  24.     procedure SetUp; override;
  25.     procedure TearDown; override;
  27.   published
  29.     procedure TestParse;
  30.     procedure TestGetError;
  31.     procedure TestExistsMethods;
  32.     procedure TestEmpty;
  33.     procedure TestClassNames;
  34.     procedure TestClassCount;
  35.     procedure TestClassUnitSections;
  36.     procedure TestClassBoundaries;
  37.     procedure TestReParse;
  38.     procedure TestMethodByClassVisibilityCount;
  39.     procedure TestMethodByClassCount;
  40.     procedure TestMethodByVisibilityCount;
  41.     procedure TestPropertyByClassVisibilityCount;
  42.     procedure TestPropertyByClassCount;
  43.     procedure TestPropertyByVisibilityCount;
  44.     procedure TestGlobalFunctionCount;
  45.   end;
  47. implementation
  49. uses
  50.   SysUtils, XPObserver;
  52. const
  53.   UnitSectionStrs: array[TXPUnitSection] of string
  54.     = ('usNone', 'usInterface', 'usImplementation', 'usInitialization',
  55.     'usFinalization');
  57.   ClassVisibilityStrs: array[TXPClassVisibility] of string
  58.     = ( 'cvNone', 'cvPrivate', 'cvProtected', 'cvPublic',
  59.     'cvPublished' );
  61.   TotalSectionCount = 3;
  63.   // Classes in declaration order in example file:
  65.   // INTERFACE
  67.   TSC1_Name = 'TXPStubClass1';
  69.   // Empty stub class
  70.   TSC6_Name = 'TXPStubClass6';
  72.   TSC2_Name = 'TXPStubClass2';
  74.   // IMPLEMENTATION
  76.   TSC3_Name = 'TXPStubClass3';
  78.   // Empty stub classes
  79.   TSC4_Name = 'TXPStubClass4';
  81.   // class implementations
  83.   TSC5_Name = 'TXPStubClass5';
  85.   // INITIALIZATION
  87. // TXPStubClass1
  88.   TSC1_PrivateMethodCount = 1;
  89.   TSC1_ProtectedMethodCount = 2;
  90.   TSC1_PublicMethodCount = 2;
  91.   TSC1_PublishedMethodCount = 11;
  92.   TSC1_MethodCount = TSC1_PrivateMethodCount + TSC1_ProtectedMethodCount
  93.     + TSC1_PublicMethodCount + TSC1_PublishedMethodCount;
  95.   TSC1_PrivatePropertyCount = 2;
  96.   TSC1_ProtectedPropertyCount = 0;
  97.   TSC1_PublicPropertyCount = 0;
  98.   TSC1_PublishedPropertyCount = 3;
  99.   TSC1_PropertyCount = TSC1_PrivatePropertyCount + TSC1_ProtectedPropertyCount
  100.     + TSC1_PublicPropertyCount + TSC1_PublishedPropertyCount;
  102. // TXPStubClass2,3
  103.   TSC2_MethodCount = 15;
  104.   TSC2_PrivateMethodCount = 1;
  105.   TSC2_ProtectedMethodCount = 2;
  106.   TSC2_PublicMethodCount = 2;
  107.   TSC2_PublishedMethodCount = 10;
  109.   TSC2_PropertyCount = 3;
  110.   TSC2_PrivatePropertyCount = 0;
  111.   TSC2_ProtectedPropertyCount = 0;
  112.   TSC2_PublicPropertyCount = 1;
  113.   TSC2_PublishedPropertyCount = 2;
  115.   TotalClassCount = 6;
  117.   TotalPrivateMethodCount = TSC1_PrivateMethodCount + 2 * TSC2_PrivateMethodCount;
  118.   TotalProtectedMethodCount = TSC1_ProtectedMethodCount + 2 * TSC2_ProtectedMethodCount;
  119.   TotalPublicMethodCount = TSC1_PublicMethodCount + 2 * TSC2_PublicMethodCount;
  120.   TotalPublishedMethodCount = TSC1_PublishedMethodCount + 2 * TSC2_PublishedMethodCount;
  122.   TotalPrivatePropertyCount = TSC1_PrivatePropertyCount + 2 * TSC2_PrivatePropertyCount;
  123.   TotalProtectedPropertyCount = TSC1_ProtectedPropertyCount + 2 * TSC2_ProtectedPropertyCount;
  124.   TotalPublicPropertyCount = TSC1_PublicPropertyCount + 2 * TSC2_PublicPropertyCount;
  125.   TotalPublishedPropertyCount = TSC1_PublishedPropertyCount + 2 * TSC2_PublishedPropertyCount;
  126. { TXPTestedUnitParserTests }
  128. procedure TXPTestedUnitParserTests.SetUp;
  129. begin
  130.   inherited;
  131.   FParser := XPTestedUnitParser.CreateXPTestedUnitParser;
  132.   FStream := TFileStream.Create('ExamplesTestedUnitParserTest_1.pas',
  133.     fmOpenRead);
  134. end;
  136. procedure TXPTestedUnitParserTests.TearDown;
  137. begin
  138.   FStream.Free;
  139.   FParser := nil;
  140.   inherited;
  141. end;
  143. procedure TXPTestedUnitParserTests.TestEmpty;
  144. var
  145.   ClassNode: IXPParserNode;
  147. begin
  148.   FParser.ParseTree.Children.Start;
  149.   Check(not FParser.ParseTree.Children.Next(ClassNode));
  150. end;
  152. procedure TXPTestedUnitParserTests.TestExistsMethods;
  153. begin
  154.   Check(FParser.ParseTree.Children <> nil);
  155. end;
  157. procedure TXPTestedUnitParserTests.TestGetError;
  158. var
  159.   Description: string;
  160.   Error: TXPParserError;
  162. begin
  163.   FParser.GetError(Description, Error);
  164.   Check(Error = peNone);
  165. end;
  167. procedure TXPTestedUnitParserTests.TestParse;
  168. begin
  169.   Check(FParser.Parse(FStream));
  170. end;
  172. procedure TXPTestedUnitParserTests.TestClassNames;
  173. var
  174.   SectionNode: IXPParserNode;
  175.   ClassNode, Node: IXPParserNode;
  176.   Names: TStrings;
  177.   ExpectedNames: string;
  179. begin
  180.   ExpectedNames := Format('%s,%s,%s,%s,%s,%s',
  181.     [TSC1_Name, TSC6_Name, TSC2_Name, TSC3_Name, TSC4_Name, TSC5_Name]);
  182.   Names := TStringList.Create;
  184.   try
  185.     FParser.Parse(FStream);
  186.     FParser.ParseTree.Children.Start;
  188.     while FParser.ParseTree.Children.Next(SectionNode) do
  189.     begin
  190.       SectionNode.Children.Start;
  192.       while SectionNode.Children.Next(Node) do
  194.         if Supports(Node, IXPClassNode, ClassNode) then
  195.           Names.Add(ClassNode.Name);
  197.     end;
  199.     CheckEquals(ExpectedNames, Names.CommaText, 'ClassNames');
  200.   finally
  201.     Names.Free;
  202.   end;
  204. end;
  206. procedure TXPTestedUnitParserTests.TestClassCount;
  207. var
  208.   SectionNode: IXPParserNode;
  209.   Node, ClassNode: IXPParserNode;
  210.   Count: integer;
  212. begin
  213.   Count := 0;
  214.   FParser.Parse(FStream);
  215.   FParser.ParseTree.Children.Start;
  217.   while FParser.ParseTree.Children.Next(SectionNode) do
  218.   begin
  219.     SectionNode.Children.Start;
  221.     while SectionNode.Children.Next(Node) do
  222.       if Supports(Node, IXPClassNode, ClassNode) then
  223.         System.Inc(Count);
  225.   end;
  227.   CheckEquals(TotalClassCount, Count, 'TotalClassCount');
  228. end;
  230. procedure TXPTestedUnitParserTests.TestMethodByVisibilityCount;
  231. var
  232.   SectionNode: IXPParserNode;
  233.   ClassNode: IXPParserNode;
  234.   VisibilityNode: IXPVisibilityNode;
  235.   PrivateCount: integer;
  236.   ProtectedCount: integer;
  237.   PublicCount: integer;
  238.   PublishedCount: integer;
  240. begin
  241.   PrivateCount := 0;
  242.   ProtectedCount := 0;
  243.   PublicCount := 0;
  244.   PublishedCount := 0;
  245.   FParser.Parse(FStream);
  246.   FParser.ParseTree.Children.Start;
  248.   while FParser.ParseTree.Children.Next(SectionNode) do
  249.   begin
  250.     SectionNode.Children.Start;
  252.     while SectionNode.Children.Next(ClassNode) do
  253.     begin
  254.       ClassNode.Children.Start;
  256.       while ClassNode.Children.Next(VisibilityNode) do
  257.       begin
  259.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPrivate then
  260.           System.Inc(PrivateCount,
  261.             MethodCount(VisibilityNode as IXPVisibilityNode));
  263.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvProtected then
  264.           System.Inc(ProtectedCount,
  265.             MethodCount(VisibilityNode as IXPVisibilityNode));
  267.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublic then
  268.           System.Inc(PublicCount,
  269.             MethodCount(VisibilityNode as IXPVisibilityNode));
  271.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublished then
  272.           System.Inc(PublishedCount,
  273.             MethodCount(VisibilityNode as IXPVisibilityNode));
  275.       end;
  277.     end;
  279.   end;
  280.   CheckEquals(TotalPrivateMethodCount, PrivateCount, 'TotalPrivateCount');
  281.   CheckEquals(TotalProtectedMethodCount, ProtectedCount, 'TotalProtectedCount');
  282.   CheckEquals(TotalPublicMethodCount, PublicCount, 'TotalPublicCount');
  283.   CheckEquals(TotalPublishedMethodCount, PublishedCount, 'TotalPublishedCount');
  284. end;
  286. procedure TXPTestedUnitParserTests.TestReParse;
  287. var
  288.   SectionNode, Node, ClassNode: IXPParserNode;
  289.   ClassCount: integer;
  290.   SectionCount: integer;
  291.   StreamPos: integer;
  293. begin
  294.   ClassCount := 0;
  295.   StreamPos := FStream.Position;
  296.   FParser.Parse(FStream);
  297.   FStream.Position := StreamPos;
  298.   FParser.Parse(FStream);
  299.   SectionCount := FParser.ParseTree.ChildCount;
  300.   CheckEquals(TotalSectionCount, SectionCount);
  302.   FParser.ParseTree.Children.Start;
  304.   while FParser.ParseTree.Children.Next(SectionNode) do
  305.   begin
  306.     SectionNode.Children.Start;
  308.     while SectionNode.Children.Next(Node) do
  309.       if Supports(Node, IXPClassNode, ClassNode) then
  310.         System.Inc(ClassCount);
  312.   end;
  314.   CheckEquals(TotalClassCount, ClassCount);
  315. end;
  317. procedure TXPTestedUnitParserTests.TestMethodByClassCount;
  318. var
  319.   SectionNode: IXPParserNode;
  320.   ClassNode: IXPParserNode;
  321.   VisibilityNode: IXPParserNode;
  322.   Methods: integer;
  324. begin
  325.   FParser.Parse(FStream);
  326.   FParser.ParseTree.Children.Start;
  328.   while FParser.ParseTree.Children.Next(SectionNode) do
  329.   begin
  330.     SectionNode.Children.Start;
  332.     while SectionNode.Children.Next(ClassNode) do
  333.     begin
  334.       Methods := 0;
  335.       ClassNode.Children.Start;
  337.       while ClassNode.Children.Next(VisibilityNode) do
  338.         System.Inc(Methods, MethodCount(VisibilityNode as IXPVisibilityNode));
  340.       if ClassNode.Name = TSC1_Name then
  341.         CheckEquals(TSC1_MethodCount, Methods, Format('%s Count', [TSC1_Name]));
  343.       if ClassNode.Name = TSC2_Name then
  344.         CheckEquals(TSC2_MethodCount, Methods, Format('%s Count', [TSC2_Name]));
  346.       if ClassNode.Name = TSC3_Name then
  347.         CheckEquals(TSC2_MethodCount, Methods, Format('%s Count', [TSC3_Name]));
  349.       if ClassNode.Name = TSC4_Name then
  350.         CheckEquals(0, Methods, Format('%s Count', [TSC4_Name]));
  352.       if ClassNode.Name = TSC5_Name then
  353.         CheckEquals(0, Methods, Format('%s Count', [TSC5_Name]));
  355.       if ClassNode.Name = TSC6_Name then
  356.         CheckEquals(0, Methods, Format('%s Count', [TSC6_Name]));
  358.     end;
  360.   end;
  362. end;
  364. procedure TXPTestedUnitParserTests.TestMethodByClassVisibilityCount;
  365. var
  366.   SectionNode: IXPParserNode;
  367.   ClassNode: IXPParserNode;
  368.   VisibilityNode: IXPParserNode;
  369.   PrivateCount: integer;
  370.   ProtectedCount: integer;
  371.   PublicCount: integer;
  372.   PublishedCount: integer;
  374. begin
  375.   FParser.Parse(FStream);
  376.   FParser.ParseTree.Children.Start;
  378.   while FParser.ParseTree.Children.Next(SectionNode) do
  379.   begin
  380.     SectionNode.Children.Start;
  382.     while SectionNode.Children.Next(ClassNode) do
  383.     begin
  384.       ClassNode.Children.Start;
  385.       PrivateCount := 0;
  386.       ProtectedCount := 0;
  387.       PublicCount := 0;
  388.       PublishedCount := 0;
  390.       while ClassNode.Children.Next(VisibilityNode) do
  391.       begin
  393.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPrivate then
  394.           PrivateCount := MethodCount(VisibilityNode as IXPVisibilityNode);
  396.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvProtected then
  397.           ProtectedCount := MethodCount(VisibilityNode as IXPVisibilityNode);
  399.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublic then
  400.           PublicCount := MethodCount(VisibilityNode as IXPVisibilityNode);
  402.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublished then
  403.           PublishedCount := MethodCount(VisibilityNode as IXPVisibilityNode);
  405.       end;
  407.       if ClassNode.Name = TSC1_Name then
  408.         CheckEquals(TSC1_PublishedMethodCount, PublishedCount, Format('%s Published Count', [TSC1_Name]));
  409.       if ClassNode.Name = TSC2_Name then
  410.         CheckEquals(TSC2_PublishedMethodCount, PublishedCount, Format('%s Published Count', [TSC2_Name]));
  411.       if ClassNode.Name = TSC3_Name then
  412.         CheckEquals(TSC2_PublishedMethodCount, PublishedCount, Format('%s Published Count', [TSC3_Name]));
  413.       if ClassNode.Name = TSC4_Name then
  414.         CheckEquals(0, PublishedCount, Format('%s Published Count', [TSC4_Name]));
  415.       if ClassNode.Name = TSC5_Name then
  416.         CheckEquals(0, PublishedCount, Format('%s Published Count', [TSC5_Name]));
  417.       if ClassNode.Name = TSC6_Name then
  418.         CheckEquals(0, PublishedCount, Format('%s Published Count', [TSC6_Name]));
  420.       if ClassNode.Name = TSC1_Name then
  421.         CheckEquals(TSC1_PublicMethodCount, PublicCount, Format('%s Public Count', [TSC1_Name]));
  422.       if ClassNode.Name = TSC2_Name then
  423.         CheckEquals(TSC2_PublicMethodCount, PublicCount, Format('%s Public Count', [TSC2_Name]));
  424.       if ClassNode.Name = TSC3_Name then
  425.         CheckEquals(TSC2_PublicMethodCount, PublicCount, Format('%s Public Count', [TSC3_Name]));
  426.       if ClassNode.Name = TSC4_Name then
  427.         CheckEquals(0, PublicCount, Format('%s Public Count', [TSC4_Name]));
  428.       if ClassNode.Name = TSC5_Name then
  429.         CheckEquals(0, PublicCount, Format('%s Public Count', [TSC5_Name]));
  430.       if ClassNode.Name = TSC6_Name then
  431.         CheckEquals(0, PublicCount, Format('%s Public Count', [TSC6_Name]));
  433.       if ClassNode.Name = TSC1_Name then
  434.         CheckEquals(TSC1_ProtectedMethodCount, ProtectedCount, Format('%s Protected Count', [TSC1_Name]));
  435.       if ClassNode.Name = TSC2_Name then
  436.         CheckEquals(TSC2_ProtectedMethodCount, ProtectedCount, Format('%s Protected Count', [TSC2_Name]));
  437.       if ClassNode.Name = TSC3_Name then
  438.         CheckEquals(TSC2_ProtectedMethodCount, ProtectedCount, Format('%s Protected Count', [TSC3_Name]));
  439.       if ClassNode.Name = TSC4_Name then
  440.         CheckEquals(0, ProtectedCount, Format('%s Protected Count', [TSC4_Name]));
  441.       if ClassNode.Name = TSC5_Name then
  442.         CheckEquals(0, ProtectedCount, Format('%s Protected Count', [TSC5_Name]));
  443.       if ClassNode.Name = TSC6_Name then
  444.         CheckEquals(0, ProtectedCount, Format('%s Protected Count', [TSC6_Name]));
  446.       if ClassNode.Name = TSC1_Name then
  447.         CheckEquals(TSC1_PrivateMethodCount, PrivateCount, Format('%s Private Count', [TSC1_Name]));
  448.       if ClassNode.Name = TSC2_Name then
  449.         CheckEquals(TSC2_PrivateMethodCount, PrivateCount, Format('%s Private Count', [TSC2_Name]));
  450.       if ClassNode.Name = TSC3_Name then
  451.         CheckEquals(TSC2_PrivateMethodCount, PrivateCount, Format('%s Private Count', [TSC3_Name]));
  452.       if ClassNode.Name = TSC4_Name then
  453.         CheckEquals(0, PrivateCount, Format('%s Private Count', [TSC4_Name]));
  454.       if ClassNode.Name = TSC5_Name then
  455.         CheckEquals(0, PrivateCount, Format('%s Private Count', [TSC5_Name]));
  456.       if ClassNode.Name = TSC6_Name then
  457.         CheckEquals(0, PrivateCount, Format('%s Private Count', [TSC6_Name]));
  459.     end;
  461.   end;
  463. end;
  465. procedure TXPTestedUnitParserTests.TestClassBoundaries;
  466. var
  467.   Node, ClassNode: IXPParserNode;
  468.   SectionNode: IXPParserNode;
  469.   LastEnd: longint;
  471. begin
  472.   FParser.Parse(FStream);
  473.   FParser.ParseTree.Children.Start;
  475.   while FParser.ParseTree.Children.Next(SectionNode) do
  476.   begin
  477.     LastEnd := 0;
  478.     SectionNode.Children.Start;
  480.     while SectionNode.Children.Next(Node) do
  481.       if Supports(Node, IXPClassNode, ClassNode) then
  482.       begin
  483.         Check((ClassNode as IXPClassNode).ClassEnd
  484.           > (ClassNode as IXPClassNode).ClassBegin,
  485.           Format('%s: Class length <= 0', [ClassNode.Name]));
  486.         Check((ClassNode as IXPClassNode).ClassBegin > 0,
  487.           Format('%s: Class begin < 0', [ClassNode.Name]));
  488.         Check((ClassNode as IXPClassNode).ClassBegin > LastEnd,
  489.           Format('%s: overlaps with previous class', [ClassNode.Name]));
  490.         LastEnd := (ClassNode as IXPClassNode).ClassEnd;
  491.       end;
  493.   end;
  495. end;
  497. procedure TXPTestedUnitParserTests.TestClassUnitSections;
  498. var
  499.   Node: IXPParserNode;
  500.   ClassNode: IXPClassNode;
  501.   SectionNode: IXPParserNode;
  503. begin
  504.   FParser.Parse(FStream);
  505.   FParser.ParseTree.Children.Start;
  507.   while FParser.ParseTree.Children.Next(SectionNode) do
  508.   begin
  509.     SectionNode.Children.Start;
  511.     while SectionNode.Children.Next(Node) do
  512.       if Supports(Node, IXPClassNode, ClassNode) then
  513.       begin
  515.         if ClassNode.Name = TSC1_Name then
  516.           Check(usInterface = (ClassNode.Parent as IXPSectionNode).GetSection,
  517.             Format('%s %s<>%s', [TSC1_Name,
  518.               UnitSectionStrs[(ClassNode.Parent as IXPSectionNode).GetSection],
  519.               UnitSectionStrs[usInterface]]));
  520.         if ClassNode.Name = TSC2_Name then
  521.           Check(usInterface = (ClassNode.Parent as IXPSectionNode).GetSection,
  522.             Format('%s %s<>%s', [TSC2_Name,
  523.               UnitSectionStrs[(ClassNode.Parent as IXPSectionNode).GetSection],
  524.               UnitSectionStrs[usInterface]]));
  525.         if ClassNode.Name = TSC3_Name then
  526.           Check(usImplementation = (ClassNode.Parent as IXPSectionNode).GetSection,
  527.             Format('%s %s<>%s', [TSC3_Name,
  528.               UnitSectionStrs[(ClassNode.Parent as IXPSectionNode).GetSection],
  529.               UnitSectionStrs[usImplementation]]));
  530.         if ClassNode.Name = TSC4_Name then
  531.           Check(usImplementation = (ClassNode.Parent as IXPSectionNode).GetSection,
  532.             Format('%s %s<>%s', [TSC4_Name,
  533.               UnitSectionStrs[(ClassNode.Parent as IXPSectionNode).GetSection],
  534.               UnitSectionStrs[usImplementation]]));
  535.         if ClassNode.Name = TSC5_Name then
  536.           Check(usImplementation = (ClassNode.Parent as IXPSectionNode).GetSection,
  537.             Format('%s %s<>%s', [TSC5_Name,
  538.               UnitSectionStrs[(ClassNode.Parent as IXPSectionNode).GetSection],
  539.               UnitSectionStrs[usImplementation]]));
  540.         if ClassNode.Name = TSC6_Name then
  541.           Check(usInterface = (ClassNode.Parent as IXPSectionNode).GetSection,
  542.             Format('%s %s<>%s', [TSC6_Name,
  543.               UnitSectionStrs[(ClassNode.Parent as IXPSectionNode).GetSection],
  544.               UnitSectionStrs[usInterface]]));
  546.       end;
  548.   end;
  550. end;
  552. procedure TXPTestedUnitParserTests.TestPropertyByClassCount;
  553. var
  554.   SectionNode: IXPParserNode;
  555.   ClassNode: IXPParserNode;
  556.   VisibilityNode: IXPParserNode;
  557.   Propertys: integer;
  559. begin
  560.   FParser.Parse(FStream);
  561.   FParser.ParseTree.Children.Start;
  563.   while FParser.ParseTree.Children.Next(SectionNode) do
  564.   begin
  565.     SectionNode.Children.Start;
  567.     while SectionNode.Children.Next(ClassNode) do
  568.     begin
  569.       Propertys := 0;
  570.       ClassNode.Children.Start;
  572.       while ClassNode.Children.Next(VisibilityNode) do
  573.         System.Inc(Propertys, PropertyCount(VisibilityNode as IXPVisibilityNode));
  575.       if ClassNode.Name = TSC1_Name then
  576.         CheckEquals(TSC1_PropertyCount, Propertys, Format('%s Count', [TSC1_Name]));
  578.       if ClassNode.Name = TSC2_Name then
  579.         CheckEquals(TSC2_PropertyCount, Propertys, Format('%s Count', [TSC2_Name]));
  581.       if ClassNode.Name = TSC3_Name then
  582.         CheckEquals(TSC2_PropertyCount, Propertys, Format('%s Count', [TSC3_Name]));
  584.       if ClassNode.Name = TSC4_Name then
  585.         CheckEquals(0, Propertys, Format('%s Count', [TSC4_Name]));
  587.       if ClassNode.Name = TSC5_Name then
  588.         CheckEquals(0, Propertys, Format('%s Count', [TSC5_Name]));
  590.       if ClassNode.Name = TSC6_Name then
  591.         CheckEquals(0, Propertys, Format('%s Count', [TSC6_Name]));
  593.     end;
  595.   end;
  597. end;
  599. procedure TXPTestedUnitParserTests.TestPropertyByClassVisibilityCount;
  600. var
  601.   SectionNode: IXPParserNode;
  602.   ClassNode: IXPParserNode;
  603.   VisibilityNode: IXPParserNode;
  604.   PrivateCount: integer;
  605.   ProtectedCount: integer;
  606.   PublicCount: integer;
  607.   PublishedCount: integer;
  609. begin
  610.   FParser.Parse(FStream);
  611.   FParser.ParseTree.Children.Start;
  613.   while FParser.ParseTree.Children.Next(SectionNode) do
  614.   begin
  615.     SectionNode.Children.Start;
  617.     while SectionNode.Children.Next(ClassNode) do
  618.     begin
  619.       ClassNode.Children.Start;
  620.       PrivateCount := 0;
  621.       ProtectedCount := 0;
  622.       PublicCount := 0;
  623.       PublishedCount := 0;
  625.       while ClassNode.Children.Next(VisibilityNode) do
  626.       begin
  628.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPrivate then
  629.           PrivateCount := PropertyCount(VisibilityNode as IXPVisibilityNode);
  631.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvProtected then
  632.           ProtectedCount := PropertyCount(VisibilityNode as IXPVisibilityNode);
  634.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublic then
  635.           PublicCount := PropertyCount(VisibilityNode as IXPVisibilityNode);
  637.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublished then
  638.           PublishedCount := PropertyCount(VisibilityNode as IXPVisibilityNode);
  640.       end;
  642.       if ClassNode.Name = TSC1_Name then
  643.         CheckEquals(TSC1_PublishedPropertyCount, PublishedCount, Format('%s Published Count', [TSC1_Name]));
  644.       if ClassNode.Name = TSC2_Name then
  645.         CheckEquals(TSC2_PublishedPropertyCount, PublishedCount, Format('%s Published Count', [TSC2_Name]));
  646.       if ClassNode.Name = TSC3_Name then
  647.         CheckEquals(TSC2_PublishedPropertyCount, PublishedCount, Format('%s Published Count', [TSC3_Name]));
  648.       if ClassNode.Name = TSC4_Name then
  649.         CheckEquals(0, PublishedCount, Format('%s Published Count', [TSC4_Name]));
  650.       if ClassNode.Name = TSC5_Name then
  651.         CheckEquals(0, PublishedCount, Format('%s Published Count', [TSC5_Name]));
  652.       if ClassNode.Name = TSC6_Name then
  653.         CheckEquals(0, PublishedCount, Format('%s Published Count', [TSC6_Name]));
  655.       if ClassNode.Name = TSC1_Name then
  656.         CheckEquals(TSC1_PublicPropertyCount, PublicCount, Format('%s Public Count', [TSC1_Name]));
  657.       if ClassNode.Name = TSC2_Name then
  658.         CheckEquals(TSC2_PublicPropertyCount, PublicCount, Format('%s Public Count', [TSC2_Name]));
  659.       if ClassNode.Name = TSC3_Name then
  660.         CheckEquals(TSC2_PublicPropertyCount, PublicCount, Format('%s Public Count', [TSC3_Name]));
  661.       if ClassNode.Name = TSC4_Name then
  662.         CheckEquals(0, PublicCount, Format('%s Public Count', [TSC4_Name]));
  663.       if ClassNode.Name = TSC5_Name then
  664.         CheckEquals(0, PublicCount, Format('%s Public Count', [TSC5_Name]));
  665.       if ClassNode.Name = TSC6_Name then
  666.         CheckEquals(0, PublicCount, Format('%s Public Count', [TSC6_Name]));
  668.       if ClassNode.Name = TSC1_Name then
  669.         CheckEquals(TSC1_ProtectedPropertyCount, ProtectedCount, Format('%s Protected Count', [TSC1_Name]));
  670.       if ClassNode.Name = TSC2_Name then
  671.         CheckEquals(TSC2_ProtectedPropertyCount, ProtectedCount, Format('%s Protected Count', [TSC2_Name]));
  672.       if ClassNode.Name = TSC3_Name then
  673.         CheckEquals(TSC2_ProtectedPropertyCount, ProtectedCount, Format('%s Protected Count', [TSC3_Name]));
  674.       if ClassNode.Name = TSC4_Name then
  675.         CheckEquals(0, ProtectedCount, Format('%s Protected Count', [TSC4_Name]));
  676.       if ClassNode.Name = TSC5_Name then
  677.         CheckEquals(0, ProtectedCount, Format('%s Protected Count', [TSC5_Name]));
  678.       if ClassNode.Name = TSC6_Name then
  679.         CheckEquals(0, ProtectedCount, Format('%s Protected Count', [TSC6_Name]));
  681.       if ClassNode.Name = TSC1_Name then
  682.         CheckEquals(TSC1_PrivatePropertyCount, PrivateCount, Format('%s Private Count', [TSC1_Name]));
  683.       if ClassNode.Name = TSC2_Name then
  684.         CheckEquals(TSC2_PrivatePropertyCount, PrivateCount, Format('%s Private Count', [TSC2_Name]));
  685.       if ClassNode.Name = TSC3_Name then
  686.         CheckEquals(TSC2_PrivatePropertyCount, PrivateCount, Format('%s Private Count', [TSC3_Name]));
  687.       if ClassNode.Name = TSC4_Name then
  688.         CheckEquals(0, PrivateCount, Format('%s Private Count', [TSC4_Name]));
  689.       if ClassNode.Name = TSC5_Name then
  690.         CheckEquals(0, PrivateCount, Format('%s Private Count', [TSC5_Name]));
  691.       if ClassNode.Name = TSC6_Name then
  692.         CheckEquals(0, PrivateCount, Format('%s Private Count', [TSC6_Name]));
  694.     end;
  696.   end;
  698. end;
  700. procedure TXPTestedUnitParserTests.TestPropertyByVisibilityCount;
  701. var
  702.   SectionNode: IXPParserNode;
  703.   ClassNode: IXPParserNode;
  704.   VisibilityNode: IXPVisibilityNode;
  705.   PrivateCount: integer;
  706.   ProtectedCount: integer;
  707.   PublicCount: integer;
  708.   PublishedCount: integer;
  710. begin
  711.   PrivateCount := 0;
  712.   ProtectedCount := 0;
  713.   PublicCount := 0;
  714.   PublishedCount := 0;
  715.   FParser.Parse(FStream);
  716.   FParser.ParseTree.Children.Start;
  718.   while FParser.ParseTree.Children.Next(SectionNode) do
  719.   begin
  720.     SectionNode.Children.Start;
  722.     while SectionNode.Children.Next(ClassNode) do
  723.     begin
  724.       ClassNode.Children.Start;
  726.       while ClassNode.Children.Next(VisibilityNode) do
  727.       begin
  729.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPrivate then
  730.           System.Inc(PrivateCount,
  731.             PropertyCount(VisibilityNode as IXPVisibilityNode));
  733.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvProtected then
  734.           System.Inc(ProtectedCount,
  735.             PropertyCount(VisibilityNode as IXPVisibilityNode));
  737.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublic then
  738.           System.Inc(PublicCount,
  739.             PropertyCount(VisibilityNode as IXPVisibilityNode));
  741.         if (VisibilityNode as IXPVisibilityNode).GetVisibility = cvPublished then
  742.           System.Inc(PublishedCount,
  743.             PropertyCount(VisibilityNode as IXPVisibilityNode));
  745.       end;
  747.     end;
  749.   end;
  750.   CheckEquals(TotalPrivatePropertyCount, PrivateCount, 'TotalPrivateCount');
  751.   CheckEquals(TotalProtectedPropertyCount, ProtectedCount, 'TotalProtectedCount');
  752.   CheckEquals(TotalPublicPropertyCount, PublicCount, 'TotalPublicCount');
  753.   CheckEquals(TotalPublishedPropertyCount, PublishedCount, 'TotalPublishedCount');
  754. end;
  756. function TXPTestedUnitParserTests.MethodCount(
  757.   const AVisibilityNode: IXPVisibilityNode): integer;
  758. var
  759.   Child: IXPParserNode;
  760.   MethodNode: IXPMethodNode;
  762. begin
  763.   Result := 0;
  764.   AVisibilityNode.Children.Start;
  766.   while AVisibilityNode.Children.Next(Child) do
  767.     if Supports(Child, IXPMethodNode, MethodNode) then
  768.       Inc(Result);
  769. end;
  771. function TXPTestedUnitParserTests.PropertyCount(
  772.   const AVisibilityNode: IXPVisibilityNode): integer;
  773. var
  774.   Child: IXPParserNode;
  775.   PropertyNode: IXPPropertyNode;
  777. begin
  778.   Result := 0;
  779.   AVisibilityNode.Children.Start;
  781.   while AVisibilityNode.Children.Next(Child) do
  782.     if Supports(Child, IXPPropertyNode, PropertyNode) then
  783.       Inc(Result);
  784. end;
  786. procedure TXPTestedUnitParserTests.TestGlobalFunctionCount;
  787. var
  788.   SectionNode: IXPParserNode;
  789.   GlobalFunctionCount: integer;
  790.   Node: IXPParserNode;
  791.   FunctionNode: IXPFunctionNode;
  793. begin
  794.   GlobalFunctionCount := 0;
  795.   FParser.Parse(FStream);
  796.   FParser.ParseTree.Children.Start;
  798.   while FParser.ParseTree.Children.Next(SectionNode) do
  799.   begin
  801.     SectionNode.Children.Start;
  803.     while SectionNode.Children.Next(Node) do
  804.     begin
  806.       if Supports(Node, IXPFunctionNode, FunctionNode) then
  807.         Inc(GlobalFunctionCount);
  809.     end;
  811.   end;
  813.   CheckEquals(4, GlobalFunctionCount, 'TotalGlobalFunctionCount');
  814. end;
  816. initialization
  818.   TestFramework.RegisterTest('XPTestedUnitParserTests Suite',
  819.     TXPTestedUnitParserTests.Suite);
  821. end.