diff --git a/src/leveled_codec.erl b/src/leveled_codec.erl index ffb3f98..5344f53 100644 --- a/src/leveled_codec.erl +++ b/src/leveled_codec.erl @@ -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. \ No newline at end of file