turn into server

[cloudstore.git] / t / Couchbase.t

diff --git a/t/Couchbase.t b/t/Couchbase.t
index dfcd1d7..cbcad61 100755 (executable)
--- a/t/Couchbase.t
+++ b/t/Couchbase.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11;
+use Test::More tests => 15;
 use Data::Dump qw(dump);
 
 use lib 'lib';
@@ -25,15 +25,26 @@ my $data =
   transfered => 10064,
 };
 
+my $user =
+{ login => 'test', quota => 12000 };
+
 ok my $r = CloudStore::Couchbase->new, 'new';
 
-ok($r->{session}->set( 'test:usage', 0 ), 'reset usage');
+ok $r->user_set($user), 'user_set';
+is_deeply $r->user_get($user->{login}), $user, 'user_get';
+
+ok $r->status('test' => 'start test'), 'status set';
+ok my $s = $r->status('test'), 'status get';
+diag $s;
+
+ok($r->usage_init({ login => 'test' }), 'usage_init' );
 cmp_ok($r->{session}->get('test:usage'), '==',0, 'usage');
 
 ok my $j = $r->file_set($data), 'file_set';
 
 ok( my $f = $r->file_get($data), 'file_get' );
-diag 'file ',dump $f;
+diag 'file ',dump $f, $data;
+is_deeply $f, $data, 'same';
 
 ok( my $u = $r->usage_incr($data), 'usage_incr' );
 diag $u;
@@ -46,3 +57,4 @@ cmp_ok( $r->usage_decr($data), '==', 0, 'usage_decr' );
 ok my $d = $r->transfer($data), 'transfer';
 diag dump($d);
 
+ok($r->remove_file($data), 'remove_file');