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

* Add testcase for jdoIgnoreNulls

Browse Source 
git-svn-id: trunk@46328 -
This commit is contained in:
michael 2020-08-08 12:28:19 +00:00
parent 7be31033d7
commit a5a4a32ff9
2 changed files with 31 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-json/src/fpjsonrtti.pp
View File

@ -396,9 +396,8 @@ begin
If B then
exit;
end;
if (PropData.JSONType=jtNull) then
if Not (jdoIgnoreNulls in Options) then
DoRestoreProperty(AObject,PropInfo,PropData);
if (PropData.JSONType<>jtNull) or not (jdoIgnoreNulls in Options) then
DoRestoreProperty(AObject,PropInfo,PropData)
except
On E : Exception do
If Assigned(FOnPropError) then

29
packages/fcl-json/tests/testjsonrtti.pp
View File

@ -122,6 +122,7 @@ type
procedure DeStream(JSON: TJSONStringType; AObject: TObject);
procedure DeStream(JSON: TJSONObject; AObject: TObject);
procedure DoDateTimeFormat;
Procedure DoNullError;
protected
procedure SetUp; override;
procedure TearDown; override;
@ -138,6 +139,8 @@ type
Procedure TestVariantString;
Procedure TestVariantArray;
procedure TestEmpty;
procedure TestNullError;
procedure TestNull;
procedure TestBoolean;
procedure TestInteger;
procedure TestIntegerCaseInsensitive;
@ -284,6 +287,23 @@ begin
AssertEquals('Empty Tag',0,TComponent(FToFree).Tag);
end;
procedure TTestJSONDeStreamer.TestNullError;
begin
AssertException('Null error',EJSON, @DoNullError);
end;
procedure TTestJSONDeStreamer.TestNull;
Var
B : TBooleanComponent;
begin
B:=TBooleanComponent.Create(Nil);
DS.Options:=DS.Options+[jdoIgnoreNulls];
DeStream('{ "BooleanProp" : null }',B);
AssertEquals('Correct boolean value',False,B.BooleanProp);
end;
procedure TTestJSONDeStreamer.DeStream(JSON : TJSONStringType; AObject : TObject);
begin
@ -428,6 +448,15 @@ begin
DeStream('{"DateTimeProp" : "'+DateTimeToStr(RecodeMillisecond(Now,0))+'"}',FToFree);
end;
procedure TTestJSONDeStreamer.DoNullError;
Var
B : TBooleanComponent;
begin
B:=TBooleanComponent.Create(Nil);
Destream('{ "BooleanProp" : null }',B);
end;
procedure TTestJSONDeStreamer.TestDateTimeFormat;
Const