#! /usr/bin/env escript
% This file is part of Jiffy released under the MIT license.
% See the LICENSE file for more information.

main([]) ->
    code:add_pathz("ebin"),
    code:add_pathz("test"),

    etap:plan(15),
    util:test_good(good()),
    test_encode(),
    util:test_errors(errors()),
    etap:end_tests().

good() ->
    [
        {<<"{}">>, {[]}},
        {<<"{\"foo\": \"bar\"}">>,
            {[{<<"foo">>, <<"bar">>}]},
            <<"{\"foo\":\"bar\"}">>},
        {<<"\n\n{\"foo\":\r \"bar\",\n \"baz\"\t: 123 }">>,
            {[{<<"foo">>, <<"bar">>}, {<<"baz">>, 123}]},
            <<"{\"foo\":\"bar\",\"baz\":123}">>}
    ].


test_encode() ->
    % Its ok to use iolist() for keys
    Cases = [
        {<<"{\"foo\":true}">>, {[{"foo",true}]}},
        {<<"{\"foo\":true}">>, {[{["f","o",<<"o">>],true}]}},
        {<<"{\"foo\":[98,97,114]}">>, {[{"foo","bar"}]}}
    ],
    lists:foreach(fun({J, E}) ->
        Msg = lists:flatten(io_lib:format("Encoded ~p", [E])),
        etap:is(jiffy:encode(E), J, Msg)
    end, Cases).


errors() ->
    [
        <<"{">>,
        <<"{,}">>,
        <<"{123:true}">>,
        <<"{false:123}">>,
        <<"{:\"stuff\"}">>,
        <<"{\"key\":}">>,
        <<"{\"key\": 123">>,
        <<"{\"key\": 123 true">>,
        <<"{\"key\": 123,}">>
    ].