Merge branch 'attr'

[cloudstore.git] / t / MD5sum.t

diff --git a/t/MD5sum.t b/t/MD5sum.t
index d6ac13f..dcc6eb9 100755 (executable)
--- a/t/MD5sum.t
+++ b/t/MD5sum.t
@@ -2,22 +2,19 @@
 use strict;
 use warnings;
 
-use Test::More tests => 5;
+use Test::More tests => 3;
 use Data::Dump qw(dump);
+use File::Slurp;
 
 use lib 'lib';
 
 use_ok 'CloudStore::MD5sum';
 
-my $login = $ENV{LOGIN} || 'u2002';
+my $file = '/tmp/test.attr';
+write_file $file => "test\n";
+my $md5 = rand(1234567890);
 
-ok my $o = CloudStore::MD5sum->new, 'new';
+ok CloudStore::MD5sum->md5_set($file => $md5), 'md5_set';
 
-ok my $db = $o->md5sum($login), 'md5sum';
-diag dump $db;
-
-ok my $l = [ $o->md5sum_dump($login) ], 'md5sum_dump';
-diag dump $l;
-
-ok $o->md5sum_close($login), 'md5sum_close';
+cmp_ok CloudStore::MD5sum->md5_get($file), 'eq', $md5, 'md5_get';