t/JSON.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 6;
   6 use Data::Dump qw(dump);
   7
   8 use lib 'lib';
   9
  10 use_ok 'CloudStore::JSON';
  11
  12 CloudStore::JSON::remove_dir("users/test/blob/dir-test/bar");
  13
  14 ok my $r = CloudStore::JSON::rsync_transfer(
  15 {
  16   file       => "dir-test/bar",
  17   itemize    => ">f+++++++++",
  18   login      => "test",
  19   md5        => "51ce99ec40129bfe1fd11d65b346d15e",
  20   mtime      => "2011-07-17T17:55:15",
  21   op         => "recv",
  22   perms      => "rw-r--r--",
  23   pid        => 29525,
  24   port       => 6501,
  25   size       => 10024,
  26   timestamp  => "2011-07-17T17:55:15",
  27   transfered => 10064,
  28 }
  29 ), 'rsync_transfer';
  30
  31 diag dump($r);
  32
  33 ok $r = CloudStore::JSON::file_data('users/test/blob/dir-test/bar'), 'file_data';
  34 isa_ok $r, 'HASH';
  35
  36 ok $r = CloudStore::JSON::file_data('users/test/blob/dir-test'), 'dir data';
  37 isa_ok $r, 'HASH';