use md5_get instead of TokyoCabinet::HDB

[cloudstore.git] / t / client.t

diff --git a/t/client.t b/t/client.t
index 67cc9ed..2e101d1 100755 (executable)
--- a/t/client.t
+++ b/t/client.t
@@ -6,27 +6,24 @@ use Test::More tests => 5;
 use Data::Dump qw(dump);
 use File::Slurp;
 
-my $user = 'u2001';
 $ENV{RSYNC_PASSWORD} = 'password';
 
 sub upload {
+       my $user = shift @_;
        system('rsync', '-vv', @_, "rsync://$user\@127.0.0.1:6501/$user/" ), "rsync @_ $user";
 }
 
 mkdir('/tmp/client');
 
-diag "create shared file one";
+ok write_file('/tmp/client/one', "one" . time() );
 
-ok write_file('/tmp/client/one', "one");
+diag "reload rsync config with invalid username";
+upload('reload-config' => '/tmp/client/one');
 
-ok upload('/tmp/client/one'), "upload $user";
+ok upload('u2001' => '/tmp/client/one'), "upload";
 
-$user = 'u2002';
-ok upload('/tmp/client/one'), "upload $user";
+ok upload('u2002' => '/tmp/client/one'), "upload shared";
 
+ok write_file('/tmp/client/one', "modify");
 
-diag "modify shared file one";
-
-ok write_file('/tmp/client/one', "modified");
-
-ok upload('/tmp/client/one'), "upload $user";
+ok upload('u2002' => '--inplace','/tmp/client/one'), "modify shared";