umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

updated test suite to match new decoder

Browse source
This commit is contained in:
alisdair sullivan 2010-05-25 21:04:11 -07:00
parent 1e476f1797
commit 550f628564
2 changed files with 16 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/cases/array.json
View file

@ -1 +1 @@
["foo","bar", "baz",[true],[false],[null],true, false, null, 0.7, {"key":"value"},[{}, null,null,null,[]],"\n\r\\", [-1]] g
["foo","bar", "baz",[true],[false],[null],true, false, null, 0.7, {"key":"value"},[{}, null,null,null,[]],"\n\r\\", [-1]]

19
test/jsx_test.erl
View file

@ -26,22 +26,33 @@ test_body(TestSpec, Dir) ->
case file:consult(Dir ++ "/" ++ TestSpec) of
{ok, [Events]} ->
Decoder = jsx:decoder(),
[{TestName, ?_assertEqual(incremental_decode(Decoder, JSON), Events)}] ++
[{TestName, ?_assertEqual(decode(Decoder, JSON), Events)}]
; {ok, [Events, Flags]} ->
Decoder = jsx:decoder(none, Flags),
Decoder = jsx:decoder({none, []}, Flags),
[{TestName, ?_assertEqual(incremental_decode(Decoder, JSON), Events)}] ++
[{TestName, ?_assertEqual(decode(Decoder, JSON), Events)}]
end
catch _:_ -> []
end.
decode(F, <<>>) ->
{Result, _} = F(<<16#FDEF/utf8>>),
incremental_decode(F, <<>>) ->
{Result, _} = F(<<>>),
Result;
decode(F, <<A/utf8, Rest/binary>>) ->
incremental_decode(F, <<A/utf8, Rest/binary>>) ->
case F(<<A/utf8>>) of
G when is_function(G) ->
decode(G, Rest)
; {Result, _} ->
Result
end.
decode(F, JSON) ->
case F(JSON) of
G when is_function(G) ->
{Result, <<>>} = G(<<>>),
Result
; {Result, _} ->
Result
end.