5 use Test::More tests => 3;
6 use Data::Dump qw(dump);
11 use_ok 'CloudStore::MD5sum';
13 my $file = '/tmp/test.attr';
14 write_file $file => "test\n";
15 my $md5 = rand(1234567890);
17 ok CloudStore::MD5sum->md5_set($file => $md5), 'md5_set';
19 cmp_ok CloudStore::MD5sum->md5_get($file), 'eq', $md5, 'md5_get';