use strict;
use warnings;
-use Test::More tests => 15;
+use Test::More tests => 8;
use Data::Dump qw(dump);
use lib 'lib';
print $fh "test\n" || die $!;
close $fh;
diag "$full_path created";
+ chown $u->{uid}, $u->{gid}, $full_path;
}
ok my $d = $r->rsync_transfer($data), 'rsync_transfer';
diag dump($d);
-ok($r->removed_file($data), 'removed_file');
+ok $r->removed_file($data), 'removed_file';
+
+ok $r->cleanup_pid( $data->{pid} ), 'cleanup_pid';
+