- #! /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("test"),
- code:add_pathz("ebin"),
-
- Cases = read_cases(),
-
- etap:plan(length(Cases)),
- lists:foreach(fun(Case) -> test(Case) end, Cases),
- etap:end_tests().
-
- test({Name, Json, {error, _}=Erl}) ->
- etap:is((catch jiffy:decode(Json)), Erl, Name);
- test({Name, Json, Erl}) ->
- etap:is(jiffy:decode(Json), Erl, Name).
-
- read_cases() ->
- CasesPath = filename:join(["test", "cases", "*.json"]),
- FileNames = lists:sort(filelib:wildcard(CasesPath)),
- lists:map(fun(F) -> make_pair(F) end, FileNames).
-
- make_pair(FileName) ->
- {ok, Json} = file:read_file(FileName),
- {BaseName, _} = lists:splitwith(fun(C) -> C /= $. end, FileName),
- ErlFname = BaseName ++ ".erl",
- {ok, [Term]} = file:consult(ErlFname),
- {BaseName, Json, Term}.
|
