paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 01:48:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Corrected tests

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-18 22:58:16 +01:00
parent 89da1e0729
commit d84731a07e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-jsonschema/tests/utSchemaPascalTypes.pas
View File

@ -417,10 +417,10 @@ begin
aType:=Data.CreatePascalType(0,ptSchemaStruct,'a','Ta',Schema);
Data.AddType('a',aType);
Data.AddPropertiesToType(aType);
AssertProperty('array',aType,0,'b','b','Array of string',ptArray,Data.FindSchemaTypeData('[string]'));
AssertProperty('array',aType,0,'b','b','TStringDynArray',ptArray,Data.FindSchemaTypeData('[string]'));
AssertSame('Schema in property def',lProp,aType.Properties[0].Schema);
AssertSame('Schema in property type def',lProp,Data.FindSchemaTypeData('[string]').Schema);
AssertEquals('Have 2 public types',2,Data.TypeCount);
// AssertSame('Schema in property type def',lProp,Data.FindSchemaTypeData('[string]').Schema);
AssertEquals('Have 2 public types',1,Data.TypeCount);
end;
procedure TTestSchemaPascalType.TestAddPropertiesArrayDelphi;
@ -437,8 +437,8 @@ begin
aType:=Data.CreatePascalType(0,ptSchemaStruct,'a','Ta',Schema);
Data.AddType('a',aType);
Data.AddPropertiesToType(aType);
AssertProperty('array',aType,0,'b','b','TArray<string>',ptArray,Data.FindSchemaTypeData('[string]'));
AssertEquals('Have 2 public types',2,Data.TypeCount);
AssertProperty('array',aType,0,'b','b','TStringDynArray',ptArray,Data.FindSchemaTypeData('[string]'));
AssertEquals('Have 2 public types',1,Data.TypeCount);
end;
procedure TTestSchemaPascalType.TestAddPropertiesArrayMultiValue;