t/JSON.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 3;
   6 use Data::Dump qw(dump);
   7
   8 use lib 'lib';
   9
  10 use_ok 'CloudStore::JSON';
  11
  12 ok( CloudStore::JSON::remove_path("users/test"), 'remove test users data' );
  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);