umgeher/leveled
0
Fork 0
Code Issues Pull requests Releases Activity Actions

Initial phash test

Browse source 
phash does not appear to be a potential causer of delay
This commit is contained in:
martinsumner 2016-12-20 20:55:56 +00:00
parent 2a8e1afe41
commit 299e8e6de3
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/leveled_codec.erl
View file

@ -469,4 +469,14 @@ stringcheck_test() ->
?assertMatch("Bucket", turn_to_string(<<"Bucket">>)),
?assertMatch("bucket", turn_to_string(bucket)).
%% Test below proved that the overhead of performing hashes was trivial
%% Maybe 5 microseconds per hash
hashperf_test() ->
OL = lists:map(fun(_X) -> crypto:rand_bytes(8192) end, lists:seq(1, 10000)),
SW = os:timestamp(),
_HL = lists:map(fun(Obj) -> erlang:phash2(Obj) end, OL),
io:format(user, "10000 object hashes in ~w microseconds~n",
[timer:now_diff(os:timestamp(), SW)]).
-endif.