You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
34 lines
823 B
34 lines
823 B
% This file is part of Jiffy released under the MIT license.
|
|
% See the LICENSE file for more information.
|
|
|
|
-module(jiffy_10_short_double_tests).
|
|
|
|
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
-include("jiffy_util.hrl").
|
|
|
|
|
|
filename() ->
|
|
cases_path("short-doubles.txt").
|
|
|
|
|
|
short_double_test_() ->
|
|
{ok, Fd} = file:open(filename(), [read, binary, raw]),
|
|
{timeout, 300, ?_assertEqual(0, run(Fd, 0))}.
|
|
|
|
|
|
run(Fd, Acc) ->
|
|
case file:read_line(Fd) of
|
|
{ok, Data} ->
|
|
V1 = re:replace(iolist_to_binary(Data), <<"\.\n">>, <<"">>),
|
|
V2 = iolist_to_binary(V1),
|
|
V3 = <<34, V2/binary, 34>>,
|
|
R = enc(dec(V3)),
|
|
case R == V3 of
|
|
true -> run(Fd, Acc);
|
|
false -> run(Fd, Acc + 1)
|
|
end;
|
|
eof ->
|
|
Acc
|
|
end.
|
|
|