anchor.diff:    end;
   
     TTestNullValue = class
  +  public
       floatValue: Double;
       nullValue: Integer;
  +    const DEF_NULL_FIELD_VALUE = 42;
  +    constructor Create;
     end;
   
   implementation
  
positive.code:   inherited;
  end;
  
  initialization
    RegisterTest(TTestDbxJsonUnMarshal.Suite);
    RegisterTest(TTestDbxJsonUnMarshalCompatibility.Suite);
  
negative.code: 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;
  
  