48 lines
2.2 KiB
Erlang
48 lines
2.2 KiB
Erlang
|
-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.
|
||
|
|
|