remove old md5sum tests
authorDobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Sun, 12 Feb 2012 01:14:25 +0000 (02:14 +0100)
committerDobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Sun, 12 Feb 2012 01:14:25 +0000 (02:14 +0100)
t/Store.t

index 89069c6..a51a058 100755 (executable)
--- a/t/Store.t
+++ b/t/Store.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 17;
+use Test::More tests => 12;
 use Data::Dump qw(dump);
 
 use lib 'lib';
@@ -46,20 +46,9 @@ if ( ! -e $full_path ) {
 ok my $d = $r->rsync_transfer($data), 'rsync_transfer';
 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';
 
-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->rename_file( $u, 'test' => 'test2' ), 'rename_file';
 
 ok $r->{api}->delete( $u => 'test2' ), 'delete';