anchor.diff:  begin
     Items := TDbxJsonUnMarshal.FromJson<TTestNullValue>('{"nullValue": null,"floatValue": 1234.56}');
     CheckNotNull(Items);
  +  CheckEquals(1234.56, Items.floatValue, 0.001);
  +  CheckEquals(TTestNullValue.DEF_NULL_FIELD_VALUE, Items.nullValue);
     Items.Free;
   end;
   
  
positive.code:   end;
  
    TTestNullValue = class
      floatValue: Double;
      nullValue: Integer;
    end;
  
  implementation
  
negative.code:   inherited;
  end;
  
  { TTestNullValue }
  
  constructor TTestNullValue.Create;
  begin
    nullValue := DEF_NULL_FIELD_VALUE;
  end;
  
  initialization
    RegisterTest(TTestDbxJsonUnMarshal.Suite);
    RegisterTest(TTestDbxJsonUnMarshalCompatibility.Suite);
  