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

@ -839,7 +839,7 @@ integer(<<?decimalpoint/?utfx, Rest/binary>>, Stack, Opts, Acc) ->
integer(<<?zero/?utfx, Rest/binary>>, Stack, Opts, Acc) ->
integer(Rest, Stack, Opts, [?zero] ++ Acc);
integer(<<S/?utfx, Rest/binary>>, Stack, Opts, Acc) when S =:= $e; S =:= $E ->
e(Rest, Stack, Opts, {lists:reverse(Acc), [], []});
e(Rest, Stack, Opts, {Acc, [], []});
integer(<<S/?utfx, Rest/binary>>, Stack, Opts, Acc) when ?is_whitespace(S) ->
{jsx, format_number(Acc), fun() ->
maybe_done(Rest, Stack, Opts)