> Has anybody tried the FPC JSON parser with these tests?
I just did with the following program:
{$mode objfpc}
uses
Classes,SysUtils,fpjson,jsonparser;
var
Input: TStringList;
JSON: TJSONData;
begin
try
try
Input := TStringList.Create;
Input.LoadFromFile(ParamStr(1));
JSON := GetJSON('[""],');
ExitCode := 0;
finally
JSON.Free;
Input.Free;
end;
except
on e: EParserError do begin
ExitCode := 1;
end;
on e: Exception do begin
ExitCode := 2;
end;
end;
end.
Result is not very convincing:
parsing.html
<http://free-pascal-general.1045716.n5.nabble.com/file/n5726704/parsing.html>
I test some of the bad cases, indeed fpjson parser is too permissive.
--
View this message in context:
http://free-pascal-general.1045716.n5.nabble.com/JSON-Test-Suite-tp5726702p5726704.html
Sent from the Free Pascal - General mailing list archive at Nabble.com.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
