t/Couchbase.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use Test::More tests => 11;
   6 use Data::Dump qw(dump);
   7
   8 use lib 'lib';
   9
  10 use_ok 'CloudStore::Couchbase';
  11
  12 my $data =
  13 {
  14   file       => "dir-test/bar",
  15   itemize    => ">f+++++++++",
  16   login      => "test",
  17   md5        => "51ce99ec40129bfe1fd11d65b346d15e",
  18   mtime      => "2011-07-17T17:55:15",
  19   op         => "recv",
  20   perms      => "rw-r--r--",
  21   pid        => 29525,
  22   port       => 6501,
  23   size       => 10024,
  24   timestamp  => "2011-07-17T17:55:15",
  25   transfered => 10064,
  26 };
  27
  28 ok my $r = CloudStore::Couchbase->new, 'new';
  29
  30 ok($r->{session}->set( 'test:usage', 0 ), 'reset usage');
  31 cmp_ok($r->{session}->get('test:usage'), '==',0, 'usage');
  32
  33 ok my $j = $r->file_set($data), 'file_set';
  34
  35 ok( my $f = $r->file_get($data), 'file_get' );
  36 diag 'file ',dump $f;
  37
  38 ok( my $u = $r->usage_incr($data), 'usage_incr' );
  39 diag $u;
  40
  41 ok( my $u2 = $r->usage($data), 'usage' );
  42 cmp_ok $u2, '==', $data->{size}, 'usage correct';
  43
  44 cmp_ok( $r->usage_decr($data), '==', 0, 'usage_decr' );
  45
  46 ok my $d = $r->transfer($data), 'transfer';
  47 diag dump($d);
  48