use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 13;
use Data::Dump qw(dump);
use lib 'lib';
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';
+
+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->cleanup_pid( $data->{pid} ), 'cleanup_pid';