abandoning branch for now, work is in intermediate state

2010-08-10 11:04:14 -07:00 · 2010-08-10 11:04:14 -07:00 · 1617c878f5
commit 1617c878f5
parent bff9a38d39
46 changed files with 2040 additions and 97 deletions
--- a/src/jsx_test.erl
+++ b/src/jsx_test.erl
@ -0,0 +1,140 @@
+%% The MIT License
+
+%% Copyright (c) 2010 Alisdair Sullivan <alisdairsullivan@yahoo.ca>
+
+%% Permission is hereby granted, free of charge, to any person obtaining a copy
+%% of this software and associated documentation files (the "Software"), to deal
+%% in the Software without restriction, including without limitation the rights
+%% to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+%% copies of the Software, and to permit persons to whom the Software is
+%% furnished to do so, subject to the following conditions:
+
+%% The above copyright notice and this permission notice shall be included in
+%% all copies or substantial portions of the Software.
+
+%% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+%% IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+%% FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+%% AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+%% LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+%% OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+%% THE SOFTWARE.
+
+
+-module(jsx_test).
+-author("alisdairsullivan@yahoo.ca").
+
+-export([test/0]).
+
+-ifdef(test).
+-include_lib("eunit/include/eunit.hrl").
+-endif.
+
+    
+%% if not compiled with test support
+
+-ifndef(test).
+
+test() -> erlang:error(notest).
+
+-else.
+
+
+
+jsx_decoder_test_() ->
+    jsx_decoder_gen(load_tests("./test/cases"), [utf8, utf16, {utf16, little}, utf32, {utf32, little}]).
+    
+jsx_decoder_gen([Test|Rest], []) ->
+    jsx_decoder_gen(Rest, [utf8, utf16, {utf16, little}, utf32, {utf32, little}]);
+jsx_decoder_gen([], _) ->
+    [];    
+jsx_decoder_gen([Test|Rest] = Tests, [Encoding|Encodings]) ->
+    Name = lists:flatten(proplists:get_value(name, Test) ++ " :: " ++ io_lib:format("~p", [Encoding])),
+    JSON = unicode:characters_to_binary(proplists:get_value(json, Test), unicode, Encoding),
+    JSX = proplists:get_value(jsx, Test),
+    Flags = proplists:get_value(jsx_flags, Test, []),
+    {generator,
+        fun() ->
+            [{Name, ?_assert(decode(JSON, Flags) =:= JSX)} | jsx_decoder_gen(Tests, Encodings)]
+        end
+    }.
+
+
+load_tests(Path) ->
+    %% search the specified directory for any files with the .test ending
+    TestSpecs = filelib:wildcard("*.test", Path),
+    load_tests(TestSpecs, Path, []).
+
+load_tests([], _Dir, Acc) ->
+    lists:reverse(Acc);
+load_tests([Test|Rest], Dir, Acc) ->
+    %% should alert about badly formed tests eventually, but for now just skip over them
+    case file:consult(Dir ++ "/" ++ Test) of
+        {ok, TestSpec} ->
+            try
+                ParsedTest = parse_tests(TestSpec, Dir),
+                load_tests(Rest, Dir, [ParsedTest] ++ Acc)
+            catch _:_ ->
+                load_tests(Rest, Dir, Acc)
+            end
+        ; {error, _Reason} ->
+            load_tests(Rest, Dir, Acc)
+    end.
+
+
+parse_tests(TestSpec, Dir) ->
+    parse_tests(TestSpec, Dir, []).
+    
+parse_tests([{json, Path}|Rest], Dir, Acc) when is_list(Path) ->
+    case file:read_file(Dir ++ "/" ++ Path) of
+        {ok, Bin} -> parse_tests(Rest, Dir, [{json, Bin}] ++ Acc)
+        ; _ -> erlang:error(badarg)
+    end;
+parse_tests([KV|Rest], Dir, Acc) ->
+    parse_tests(Rest, Dir, [KV] ++ Acc);
+parse_tests([], _Dir, Acc) ->
+    Acc.
+
+
+decoder_tests([Test|Rest], Encoding, Acc) ->
+    Name = lists:flatten(proplists:get_value(name, Test) ++ "::" ++ io_lib:format("~p", [Encoding])),
+    JSON = unicode:characters_to_binary(proplists:get_value(json, Test), unicode, Encoding),
+    JSX = proplists:get_value(jsx, Test),
+    Flags = proplists:get_value(jsx_flags, Test, []),
+    decoder_tests(Rest, 
+        Encoding, 
+        [{"incremental " ++ Name, ?_assert(incremental_decode(JSON, Flags) =:= JSX)}] 
+            ++ [{Name, ?_assert(decode(JSON, Flags) =:= JSX)}] 
+            ++ Acc
+    );  
+decoder_tests([], _Encoding, Acc) ->
+    io:format("~p~n", [Acc]),
+    Acc.
+
+
+decode(JSON, Flags) ->
+    P = jsx:parser(Flags),
+    decode_loop(P(JSON), []).
+
+decode_loop({event, end_json, _Next}, Acc) ->
+    lists:reverse([end_json] ++ Acc);
+decode_loop({incomplete, More}, Acc) ->
+    decode_loop(More(end_stream), 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}, <<>>, Acc) ->
+    incremental_decode_loop(Next(end_stream), <<>>, Acc);	
+incremental_decode_loop({incomplete, Next}, <<C:1/binary, Rest/binary>>, Acc) ->
+	incremental_decode_loop(Next(C), Rest, Acc);	
+incremental_decode_loop({event, end_json, _Next}, _Rest, Acc) ->
+    lists:reverse([end_json] ++ Acc);
+incremental_decode_loop({event, Event, Next}, Rest, Acc) ->
+	incremental_decode_loop(Next(), Rest, [Event] ++ Acc).
+    
+-endif.