fcl-passrc/tests/tctypeparser.pas

234     Property TheRecord : TPasRecordType Read FRecord;
1182   Result:=TObject(TheRecord.Members[AIndex]) as TPasConst;
1208   Result:=GetField(AIndex,TheRecord);
1213   AssertNotNull('Have Record',TheRecord);
1214   if (AIndex>=TheRecord.Members.Count) then
1216   AssertNotNull('Have member'+IntToStr(AIndex),TheRecord.Members[AIndex]);
1217   If Not (TObject(TheRecord.Members[AIndex]) is TPasElement) then
1219   Result:=TPasElement(TheRecord.Members[AIndex])
1234   Result:=GetVariant(AIndex,TheRecord);
1321   if TheRecord.Members.Count>0 then
1322     FMember1:=TObject(TheRecord.Members[0]) as TPasElement;
1343     AssertNotNull('Have variants',TheRecord.Variants);
1344     AssertNotNull('Have variant type',TheRecord.VariantEl);
1348     AssertNull('No variants',TheRecord.Variants);
1349     AssertNull('No variant element',TheRecord.VariantEl);
1362   AssertNotNull('Have variant element',TheRecord.VariantEl);
1365     AssertEquals('Have variant variable',TPasVariable,TheRecord.VariantEl.ClassType);
1366     V:=TPasVariable(TheRecord.VariantEl);
1372     AssertEquals('Have variant selector type',TPasUnresolvedTypeRef,TheRecord.VariantEl.ClassType);
1373 …AssertEquals('Have variant selector type name',lowercase(AType),lowercase(TheRecord.VariantEl.Name…
1381 …AssertEquals('Member '+IntToStr(Index+1)+' type',TPasConst,TObject(TheRecord.Members[Index]).Class…
1389   AssertNotNull('Have members array',TheRecord.Members);
1390   AssertEquals('Zero members in array',0,TheRecord.Members.Count);
1639   AssertEquals('Member 1 field type',TPasVariable,TObject(TheRecord.Members[0]).ClassType);
1650   AssertEquals('Member 2 field type',TPasVariable,TObject(TheRecord.Members[1]).ClassType);
1665     AssertEquals('Member 2 type',TPasClassProcedure,TObject(TheRecord.Members[1]).ClassType)
1667     AssertEquals('Member 2 type',TPasProcedure,TObject(TheRecord.Members[1]).ClassType);
1668   P:=TPasProcedure(TheRecord.Members[1]);
1680     AssertEquals('Member 2 type',TPasClassConstructor,TObject(TheRecord.Members[1]).ClassType)
1682     AssertEquals('Member 2 type',TPasConstructor,TObject(TheRecord.Members[1]).ClassType);
1683   P:=TPasProcedure(TheRecord.Members[1]);
1695     AssertEquals('Member 2 type',TPasClassOperator,TObject(TheRecord.Members[1]).ClassType)
1697     AssertEquals('Member 2 type',TPasOperator,TObject(TheRecord.Members[1]).ClassType);
1698   P:=TPasOperator(TheRecord.Members[1]);
1707   AssertEquals('One field',1,TheRecord.Members.Count);
1714   AssertEquals('Two field',2,TheRecord.Members.Count);
1722   AssertEquals('Two members',2,TheRecord.Members.Count);
1730   AssertEquals('Two members',2,TheRecord.Members.Count);
1743   AssertEquals('Member 2 field type',TPasVariable,TObject(TheRecord.Members[AIndex]).ClassType);
1843   AssertEquals('Member 1 comment','a'+sLineBreak,TPAsElement(TheRecord.Members[0]).DocComment);
1916   AssertEquals('Member 1 field type',TPasVariable,TObject(TheRecord.Members[0]).ClassType);
2105   AssertEquals('Member count',3,TheRecord.Members.Count);  in begin()
2108   AssertEquals('Member 3 type',TPasFunction,TObject(TheRecord.Members[2]).ClassType);  in begin()
2109   P:=TPasFunction(TheRecord.Members[2]);  in begin()
2123   AssertEquals('Member count',2,TheRecord.Members.Count);
2125   AssertEquals('Member 2 type',TPasProperty,TObject(TheRecord.Members[1]).ClassType);
2126   P:=TPasProperty(TheRecord.Members[1]);
2142   AssertEquals('Member count',3,TheRecord.Members.Count);  in begin()
2145   AssertEquals('Class procedure',TPasClassProcedure,TObject(TheRecord.Members[1]).ClassType);  in begin()
2146   AssertEquals('Member 3 type',TPasFunction,TObject(TheRecord.Members[2]).ClassType);  in begin()
2147   P:=TPasFunction(TheRecord.Members[2]);  in begin()
2162   AssertEquals('Member count',3,TheRecord.Members.Count);  in begin()
2165   AssertEquals('Member 3 type',TPasFunction,TObject(TheRecord.Members[2]).ClassType);  in begin()
2166   P:=TPasFunction(TheRecord.Members[2]);  in begin()
2540   AssertEquals('Two Const',2,TheRecord.Members.Count);
2542   AssertEquals('Correct visibility',visPublic,TPasConst(TheRecord.Members[0]).Visibility);
2543   AssertEquals('Member 2 type',TPasConst,TObject(TheRecord.Members[1]).ClassType);
2544   aConst:=TPasConst(TheRecord.Members[1]);