umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

added test for multi_terms

Browse source
This commit is contained in:
alisdair sullivan 2010-06-24 15:55:08 -07:00
parent 1320241e68
commit 0a96a059a1
3 changed files with 60 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

69
priv/jsx_test.escript
View file

@ -42,6 +42,7 @@ test(Dir) ->
etap:plan(length(ValidJSONTests) * 5),
Before = erlang:now(),
run_tests(ValidJSONTests),
etap:is(multi_decode(multi_json_body(), []), multi_test_result(), "multi terms"),
After = erlang:now(),
etap:end_tests(),
@ -81,36 +82,70 @@ run_tests([{TestName, JSON, Events, Flags}|Rest]) ->
etap:is(incremental_decode(to_utf32le(JSON), Flags), Events, TestName ++ ": incremental utf32le"),
run_tests(Rest).
incremental_decode(<<C:1/binary, Rest/binary>>, Flags) ->
P = jsx:parser(Flags),
incremental_decode(P(C), Rest, []).
incremental_decode({incomplete, Next, _}, <<C:1/binary, Rest/binary>>, Acc) ->
incremental_decode(Next(C), Rest, Acc);
incremental_decode({incomplete, _, Force}, <<>>, Acc) ->
incremental_decode(Force(), <<>>, Acc);
incremental_decode({event, end_json, Next}, <<C:1/binary, Rest/binary>>, Acc) ->
incremental_decode(Next(C), Rest, Acc);
incremental_decode({event, end_json, _}, <<>>, Acc) ->
lists:reverse(Acc);
incremental_decode({event, Event, F}, Rest, Acc) ->
incremental_decode(F(), Rest, [Event] ++ Acc).
decode(JSON, Flags) ->
P = jsx:parser(Flags),
decode_loop(P(JSON), []).
decode_loop({incomplete, _Next, Force}, Acc) ->
decode_loop(Force(), Acc);
decode_loop({event, end_json, _}, Acc) ->
lists:reverse(Acc);
decode_loop({event, E, Next}, Acc) ->
decode_loop(Next(), [E] ++ Acc).
incremental_decode(<<C:1/binary, Rest/binary>>, Flags) ->
P = jsx:parser(Flags),
incremental_decode_loop(P(C), Rest, []).
incremental_decode_loop({incomplete, Next, _}, <<C:1/binary, Rest/binary>>, Acc) ->
incremental_decode_loop(Next(C), Rest, Acc);
incremental_decode_loop({incomplete, _, Force}, <<>>, Acc) ->
incremental_decode_loop(Force(), <<>>, Acc);
incremental_decode_loop({event, end_json, Next}, <<C:1/binary, Rest/binary>>, Acc) ->
incremental_decode_loop(Next(C), Rest, Acc);
incremental_decode_loop({event, end_json, _}, <<>>, Acc) ->
lists:reverse(Acc);
incremental_decode_loop({event, Event, F}, Rest, Acc) ->
incremental_decode_loop(F(), Rest, [Event] ++ Acc).
multi_decode(JSON, Flags) ->
P = jsx:parser(Flags ++ [{multi_term, true}]),
multi_decode_loop(P(JSON), [[]]).
multi_decode_loop({incomplete, _Next, Force}, [[]|Acc]) ->
lists:reverse(Acc);
multi_decode_loop({event, end_json, Next}, [S|Acc]) ->
multi_decode_loop(Next(), [[]|[lists:reverse(S)] ++ Acc]);
multi_decode_loop({event, E, Next}, [S|Acc]) ->
multi_decode_loop(Next(), [[E] ++ S] ++ Acc).
to_utf16(Bin) -> unicode:characters_to_binary(Bin, utf8, utf16).
to_utf16le(Bin) -> unicode:characters_to_binary(Bin, utf8, {utf16,little}).
to_utf32(Bin) -> unicode:characters_to_binary(Bin, utf8, utf32).
to_utf32le(Bin) -> unicode:characters_to_binary(Bin, utf8, {utf32,little}).
multi_json_body() ->
<<"0 1 -1 1e1 0.7 0.7e-1 true false null {} [] [1, 2, 3] \"hope this works\"">>.
multi_test_result() ->
[ [{integer, "0"}],
[{integer, "1"}],
[{integer, "-1"}],
[{float, "1.0e1"}],
[{float, "0.7"}],
[{float, "0.7e-1"}],
[{literal, true}],
[{literal, false}],
[{literal, null}],
[start_object, end_object],
[start_array, end_array],
[start_array, {integer, "1"}, {integer, "2"}, {integer, "3"}, end_array],
[{string, "hope this works"}]
].