umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

added first (primitive) tests, fixed a few bugs in decoder

Browse source
This commit is contained in:
alisdair sullivan 2010-05-18 14:07:16 -07:00
parent baf8561780
commit 1753512b10
2 changed files with 56 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

48
test/jsx_test.erl Normal file
View file

@ -0,0 +1,48 @@
-module(jsx_test).
-export([test/0]).
-define(assert(A, B),
case A == B of true -> ok ; false -> erlang:error(failed_assert, ?LINE) end
).
test() ->
Strict = jsx:decoder(),
Comments = jsx:decoder([{comments, true}]),
Naked = jsx:decoder([{naked_values, true}]),
NakedComments = jsx:decoder([{comments, true}, {naked_values, true}]),
%% empty objects and arrays
?assert([start_array, end_array], Strict(<<"[]">>)),
?assert([start_object, end_object], Strict(<<"{}">>)),
%% really deep array
?assert([start_array, start_array, start_array, start_array, start_array, start_array, start_array, start_array, start_array, start_array, end_array, end_array, end_array, end_array, end_array, end_array, end_array, end_array, end_array, end_array], Strict(<<"[[[[[[[[[[]]]]]]]]]]">>)),
%% naked values
?assert([{literal, true}], Naked(<<"true">>)),
?assert([{literal, false}], Naked(<<"false">>)),
?assert([{literal, null}], Naked(<<"null">>)),
?assert([{string, "blah blah blah"}], Naked(<<"\"blah blah blah\"">>)),
?assert([{number, "1"}], Naked(<<"1">>)),
?assert([{number, "0.51323412"}], Naked(<<"0.51323412">>)),
?assert([{number, "-1.1"}], Naked(<<"-1.1">>)),
%% comments
?assert([start_array, end_array], Comments(<<"[ /* this is ignored */ ]">>)),
?assert([start_object, end_object], Comments(<<"{ /* this too */ }">>)),
%% strings and unicode
?assert([start_array, {string, "a test string"}, end_array], Strict(<<"[ \"a test string\" ]">>)),
?assert([start_array, {string, "a high unicode value: " ++ [100000]}, end_array], Strict(<<"[ \"a high unicode value: ", 100000/utf8, "\" ]">>)),
?assert([start_object, {key, "key"}, {string, "value"}, end_object], Strict(<<"{ \"key\": \"value\" }">>)),
%% numbers
?assert([start_array, {number, "1"}, end_array], Strict(<<"[ 1 ]">>)),
?assert([start_array, {number, "0"}, end_array], Strict(<<"[ 0 ]">>)),
?assert([start_array, {number, "1e1"}, end_array], Strict(<<"[ 1e1 ]">>)),
?assert([start_array, {number, "-1.0e5123"}, end_array], Strict(<<"[ -1.0e5123 ]">>)),
?assert([start_array, {number, "324523452345256234455"}, end_array], Strict(<<"[ 324523452345256234455 ]">>)),
ok.