5 use Test::More tests => 6;
6 use Data::Dump qw(dump);
10 use_ok 'CloudStore::JSON';
12 CloudStore::JSON::remove_dir("users/test/blob/dir-test/bar");
14 ok my $r = CloudStore::JSON::rsync_transfer(
16 file => "dir-test/bar",
17 itemize => ">f+++++++++",
19 md5 => "51ce99ec40129bfe1fd11d65b346d15e",
20 mtime => "2011-07-17T17:55:15",
26 timestamp => "2011-07-17T17:55:15",
33 ok $r = CloudStore::JSON::file_data('users/test/blob/dir-test/bar'), 'file_data';
36 ok $r = CloudStore::JSON::file_data('users/test/blob/dir-test'), 'dir data';