Permalink
Fetching contributors…
Cannot retrieve contributors at this time
40 lines (33 sloc) 1.12 KB
-module(luwak_checksum_tests).
-ifdef(TEST).
-include_lib("eunit/include/eunit.hrl").
checksum_test_() ->
{spawn,
[{setup,
fun test_helper:setup/0,
fun test_helper:cleanup/1,
[
{timeout, 60000,
[fun one_off_checksum/0,
fun do_a_simple_checksum/0]}
]
}
]
}.
one_off_checksum() ->
test_helper:riak_test(fun(Riak) ->
Sha = crypto:sha(<<"chilled monkey brains">>),
{ok, File} = luwak_file:create(Riak, <<"file1">>, [{tree_order,2},{block_size,2}], dict:new()),
{ok, _, File1} = luwak_io:put_range(Riak, File, 0, <<"chilled monkey brains">>),
timer:sleep(100),
Checksum = luwak_checksum:sha1(Riak, File1),
?assertEqual(Sha, Checksum)
end).
do_a_simple_checksum() ->
test_helper:riak_test(fun(Riak) ->
Sha = crypto:sha(<<"chilled monkey brains">>),
{ok, File} = luwak_file:create(Riak, <<"file1">>, [{checksumming,true}], dict:new()),
{ok, _, File1} = luwak_io:put_range(Riak, File, 0, <<"chilled monkey brains">>),
?assertEqual({sha1,Sha}, luwak_file:get_property(File1,checksum))
end).
-endif.