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.
60 rivejä
1.3 KiB
60 rivejä
1.3 KiB
% This file is part of Jiffy released under the MIT license.
|
|
% See the LICENSE file for more information.
|
|
|
|
-module(jiffy_07_compound_tests).
|
|
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include("jiffy_util.hrl").
|
|
|
|
|
|
compound_success_test_() ->
|
|
[gen(ok, Case) || Case <- cases(ok)].
|
|
|
|
|
|
compound_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\":[123]}">>, {[{<<"foo">>, [123]}]}},
|
|
{<<"{\"foo\":{\"bar\":true}}">>,
|
|
{[{<<"foo">>, {[{<<"bar">>, true}]} }]} },
|
|
{<<"{\"foo\":[],\"bar\":{\"baz\":true},\"alice\":\"bob\"}">>,
|
|
{[
|
|
{<<"foo">>, []},
|
|
{<<"bar">>, {[{<<"baz">>, true}]}},
|
|
{<<"alice">>, <<"bob">>}
|
|
]}
|
|
},
|
|
{<<"[-123,\"foo\",{\"bar\":[]},null]">>,
|
|
[
|
|
-123,
|
|
<<"foo">>,
|
|
{[{<<"bar">>, []}]},
|
|
null
|
|
]
|
|
}
|
|
];
|
|
|
|
cases(error) ->
|
|
[
|
|
<<"[{}">>,
|
|
<<"}]">>
|
|
].
|