use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 12;
use Data::Dump qw(dump);
use lib 'lib';
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';
ok my $d = $r->rsync_transfer($data), 'rsync_transfer';
diag dump($d);
+ok unlink($full_path), 'unlink';
ok $r->removed_file($data), 'removed_file';
+ok $r->api->rename_file( $u, 'test' => 'test2' ), 'rename_file';
+
+ok $r->{api}->delete( $u => 'test2' ), 'delete';
+
+$data->{file} = 'md5sum';
+ok $r->rsync_transfer($data), 'rsync_transfer md5sum';
+
ok $r->cleanup_pid( $data->{pid} ), 'cleanup_pid';