66 lines
No EOL
1.9 KiB
Erlang
66 lines
No EOL
1.9 KiB
Erlang
-module(jsx_test).
|
|
|
|
-export([test/2]).
|
|
|
|
test(TestsDir, Opts) ->
|
|
{ok, MaybeTests} = file:list_dir(TestsDir),
|
|
|
|
TestSpecs = lists:map(fun(X) ->
|
|
filename:basename(X, ".test") end,
|
|
lists:filter(fun(X) ->
|
|
case filename:extension(X) of
|
|
".test" -> true
|
|
; _ -> false
|
|
end
|
|
end,
|
|
MaybeTests)),
|
|
|
|
Results = test(TestSpecs, TestsDir, {[], [], []}),
|
|
|
|
output(Results, Opts).
|
|
|
|
test([], _, Results) ->
|
|
Results;
|
|
test([Test|Rest], Dir, {Pass, Fail, Discard}) ->
|
|
{DecoderOpts, Expected} = case file:consult(filename:nativename(Dir ++ "/" ++ Test ++ ".test")) of
|
|
{ok, [Result]} when is_list(Result) -> {[], Result}
|
|
; {ok, {Opts, Result}} -> {Opts, Result}
|
|
end,
|
|
|
|
try decode(Test, Dir, DecoderOpts) of
|
|
Object ->
|
|
case Object == Expected of
|
|
true -> test(Rest, Dir, {[Test] ++ Pass, Fail, Discard})
|
|
; false -> test(Rest, Dir, {Pass, [Test] ++ Fail, Discard})
|
|
end
|
|
catch
|
|
error:function_clause ->
|
|
test(Rest, Dir, {Pass, Fail, [Test] ++ Discard})
|
|
; error:enoent ->
|
|
test(Rest, Dir, {Pass, Fail, [Test] ++ Discard})
|
|
end.
|
|
|
|
|
|
decode(Test, Dir, DecoderOpts) ->
|
|
Decoder = jsx:decoder(DecoderOpts),
|
|
{ok, JSON} = file:read_file(filename:nativename(Dir ++ "/" ++ Test ++ ".json")),
|
|
|
|
Decoder(JSON).
|
|
|
|
|
|
output({Pass, Fail, Discard}, Opts) ->
|
|
Passes = length(Pass),
|
|
Failures = length(Fail),
|
|
Discards = length(Discard),
|
|
|
|
Total = Passes + Failures + Discards,
|
|
|
|
io:format("***~p total tests run, ~p passes, ~p failures, ~p discarded~n Failed:~n", [Total, Passes, Failures, Discards]),
|
|
lists:foreach(fun(X) -> io:format(" ~p~n", [X]) end, Fail).
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|