tests could fail silently when file:consult failed, fixed

This commit is contained in:
alisdair sullivan 2011-07-31 18:43:14 -07:00
parent e90c5461e8
commit 20f9e0368d
4 changed files with 6 additions and 12 deletions

View file

@ -194,16 +194,10 @@ load_tests(Path) ->
load_tests([], _Dir, Acc) ->
lists:reverse(Acc);
load_tests([Test|Rest], Dir, Acc) ->
%% should alert about badly formed tests eventually, but for now just skip
%% over them
case file:consult(Dir ++ "/" ++ Test) of
{ok, TestSpec} ->
try
ParsedTest = parse_tests(TestSpec, Dir),
load_tests(Rest, Dir, [ParsedTest] ++ Acc)
catch _:_ ->
load_tests(Rest, Dir, Acc)
end
ParsedTest = parse_tests(TestSpec, Dir),
load_tests(Rest, Dir, [ParsedTest] ++ Acc)
; {error, _Reason} ->
load_tests(Rest, Dir, Acc)
end.