You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
55 lines
1.2 KiB
55 lines
1.2 KiB
% This file is part of Jiffy released under the MIT license.
|
|
% See the LICENSE file for more information.
|
|
|
|
-module(jiffy_06_object_tests).
|
|
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include("jiffy_util.hrl").
|
|
|
|
|
|
object_success_test_() ->
|
|
[gen(ok, Case) || Case <- cases(ok)].
|
|
|
|
|
|
object_failure_test_() ->
|
|
[gen(error, Case) || Case <- cases(error)].
|
|
|
|
|
|
gen(ok, {J, E}) ->
|
|
gen(ok, {J, E, J});
|
|
gen(ok, {J1, E, J2}) ->
|
|
{msg("~s", [J1]), [
|
|
{"Decode", ?_assertEqual(E, dec(J1))},
|
|
{"Encode", ?_assertEqual(J2, enc(E))}
|
|
]};
|
|
|
|
gen(error, J) ->
|
|
{msg("Error: ~s", [J]), [
|
|
?_assertError(_, dec(J))
|
|
]}.
|
|
|
|
|
|
cases(ok) ->
|
|
[
|
|
{<<"{}">>, {[]}},
|
|
{<<"{\"foo\": \"bar\"}">>,
|
|
{[{<<"foo">>, <<"bar">>}]},
|
|
<<"{\"foo\":\"bar\"}">>},
|
|
{<<"\n\n{\"foo\":\r \"bar\",\n \"baz\"\t: 123 }">>,
|
|
{[{<<"foo">>, <<"bar">>}, {<<"baz">>, 123}]},
|
|
<<"{\"foo\":\"bar\",\"baz\":123}">>}
|
|
];
|
|
|
|
cases(error) ->
|
|
[
|
|
<<"{">>,
|
|
<<"{,}">>,
|
|
<<"{123:true}">>,
|
|
<<"{false:123}">>,
|
|
<<"{:\"stuff\"}">>,
|
|
<<"{\"key\":}">>,
|
|
<<"{\"key\": 123">>,
|
|
<<"{\"key\": 123 true">>,
|
|
<<"{\"key\": 123,}">>
|
|
].
|