ReadEnum should use TJSONBool

[bm-q]

TNeonDeserializerJSON.ReadEnum should use TJSONBool instead of TJSONTrue and TJSONFalse.

type
  TClassWithBool = class
  private
    FBoolProp: Boolean;
  public
    property BoolProp: Boolean read FBoolProp write FBoolProp;
  end;

procedure TestBool;
var
  LJSON: TJSONObject;
  LReader: TNeonDeserializerJSON;
  LClass: TClassWithBool;
begin
  LClass := nil;
  LReader := nil;
  LJSON := TJSONObject.Create;
  try
    LJSON.AddPair('BoolProp', True);
    LReader := TNeonDeserializerJSON.Create(TNeonConfiguration.Default);
    LClass := TClassWithBool.Create;
    LReader.JSONToObject(LClass, LJSON);
    ShowMessage(LReader.Errors.Text); // => Error converting member [BoolProp] of type [TClassWithBool]: Invalid JSON value. Boolean expected
  finally
    LJSON.Free;
    LClass.Free;
    LReader.Free;
  end;
end;

Suggested changes

function TNeonDeserializerJSON.ReadEnum(const AParam: TNeonDeserializerParam): TValue;
var
  LIndex, LOrdinal: Integer;
  LTypeData: PTypeData;
begin
  if AParam.RttiType.Handle = System.TypeInfo(Boolean) then
  begin
    if AParam.JSONValue is TJSONBool then
      Result := (AParam.JSONValue as TJSONBool).AsBoolean
    else
      raise ENeonException.Create('Invalid JSON value. Boolean expected');
  end

[...]

[paolo-rossi]

Thanks @bm-q

resolved in the last commit

Ciao,
Paolo.