5 use Test::More tests => 17;
6 use Data::Dump qw(dump);
10 use_ok 'CloudStore::Store';
15 itemize => ">f+++++++++",
17 md5 => "d8e8fca2dc0f896fd7cb4cb0031ba249",
18 mtime => "2011-07-17T17:55:15",
24 timestamp => "2011-07-17T17:55:15",
28 ok my $r = CloudStore::Store->new('s1'), 'new';
30 ok my $u = $r->{api}->user_info('u2001'), 'user_info';
32 ok $r->init_pid_login( $data->{pid}, $data->{login} ), 'init_pid_login';
34 ok my $full_path = $r->blob_path( $data ), 'blob_path';
37 if ( ! -e $full_path ) {
38 $r->{api}->mkbasepath( $full_path, { uid => $u->{uid} } );
39 open(my $fh, '>', $full_path) || die $!;
40 print $fh "test\n" || die $!;
42 diag "$full_path created";
43 chown $u->{uid}, $u->{gid}, $full_path;
46 ok my $d = $r->rsync_transfer($data), 'rsync_transfer';
49 ok my $sums = [ $r->md5sum_dump( $data->{login} ) ], 'md5sum_dump';
50 ok scalar( grep { $_ =~ m/$data->{file}$/; } @$sums ) == 1, 'file md5 found';
52 system "cd $u->{dir} && md5sum $data->{file} > md5sum";
53 ok ! $@, 'create md5sum';
55 ok unlink($full_path), 'unlink';
56 ok $r->removed_file($data), 'removed_file';
58 ok my $sums = [ $r->md5sum_dump( $data->{login} ) ], 'md5sum_dump';
60 ok scalar( grep { $_ =~ m/$data->{file}$/; } @$sums ) == 0, 'file md5 removed';
63 ok $r->api->rename_file( $u, 'test' => 'test2' ), 'rename_file';
65 ok $r->{api}->delete( $u => 'test2' ), 'delete';
67 $data->{file} = 'md5sum';
68 ok $r->rsync_transfer($data), 'rsync_transfer md5sum';
70 ok $r->cleanup_pid( $data->{pid} ), 'cleanup_pid';