From 1af8a6c4eb9976794ce6ce0084d9ac3484022c06 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 12 Feb 2012 02:14:25 +0100 Subject: [PATCH] remove old md5sum tests --- t/Store.t | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/t/Store.t b/t/Store.t index 89069c6..a51a058 100755 --- 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'; -- 2.20.1