test md5sum upload

diff --git a/t/Store.t b/t/Store.t
index ca35358..b40a6de 100755 (executable)
--- a/t/Store.t
+++ b/t/Store.t
@@ -25,9 +25,6 @@ my $data =
   transfered => 10064,
 };
 
-my $user =
-{ login => 'test', quota => 12000 };
-
 ok my $r = CloudStore::Store->new('s1'), 'new';
 
 ok my $u = $r->{api}->user_info('u2001'), 'user_info';
@@ -52,6 +49,9 @@ diag dump($d);
 ok my $sums = [ $r->md5sum_dump( $data->{login} ) ], 'md5sum_dump';
 ok scalar( grep { $_ =~ m/$data->{file}$/; } @$sums ) == 1, 'file md5 found';
 
+system "cd $u->{dir} && md5sum $data->{file} > md5sum";
+ok ! $@, 'create md5sum';
+
 ok unlink($full_path), 'unlink';
 ok $r->removed_file($data), 'removed_file';
 
@@ -60,5 +60,10 @@ ok my $sums = [ $r->md5sum_dump( $data->{login} ) ], 'md5sum_dump';
 ok scalar( grep { $_ =~ m/$data->{file}$/; } @$sums ) == 0, 'file md5 removed';
 diag dump $sums;
 
+ok $r->{api}->delete( $u => 'test' ), 'delete';
+
+$data->{file} = 'md5sum';
+ok $r->rsync_transfer($data), 'rsync_transfer md5sum';
+
 ok $r->cleanup_pid( $data->{pid} ), 'cleanup_pid';