umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

removed extra clause from jsx_test.escript, slight modifications so it works with prove

Browse source
This commit is contained in:
alisdair sullivan 2010-06-25 03:02:12 -07:00
parent a9ecb733e3
commit 2834404054
1 changed files with 5 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

19
priv/jsx_test.escript
View file

@ -24,29 +24,22 @@
-mode(compile).
main([]) ->
test("./test/cases");
main([Path]) ->
test(Path).
test(Dir) ->
code:add_path("ebin"),
code:load_file(jsx),
code:load_file(jsx_utf8),
code:load_file(jsx_utf16),
code:load_file(jsx_utf16le),
code:load_file(jsx_utf32),
code:load_file(jsx_utf32le),
ValidJSONTests = load_tests(Dir),
etap:plan(length(ValidJSONTests) * 5),
Before = erlang:now(),
etap:plan((length(ValidJSONTests) * 10) + 1),
run_tests(ValidJSONTests),
etap:is(multi_decode(multi_json_body(), []), multi_test_result(), "multi terms"),
After = erlang:now(),
etap:end_tests(),
io:format("Elapsed Time: ~p~n", [timer:now_diff(After, Before)]).
etap:end_tests().
load_tests(Dir) ->
@ -109,8 +102,6 @@ incremental_decode_loop({incomplete, _Next, Force}, <<>>, Acc) ->
end;
incremental_decode_loop({event, end_json, Next}, Rest, Acc) ->
incremental_decode_loop(Next(), Rest, lists:reverse(Acc));
incremental_decode_loop({event, end_json, _Next}, <<>>, Acc) ->
lists:reverse(Acc);
incremental_decode_loop({event, Event, Next}, Rest, Acc) ->
incremental_decode_loop(Next(), Rest, [Event] ++ Acc).