+sub file_exists($) {
+ my ( $file ) = @_;
+ CloudStore::Gearman->gearman_do( file_size => $file );
+}
+
+sub test_refresh_file_list {
+ my ( $login ) = @_;
+ ok ! file_exists( "~$login/.meta/files" ), "refresh_file_list removed .meta/files";
+ gearman list_files => "~$login";
+}
+
+my $u1 = gearman 'create_user' => 'test@example.com secret 0';
+like $u1, qr/u\d+/, "login $u1";
+my $u2 = gearman 'create_user' => 'test2@example.com secret 0';
+like $u2, qr/u\d+/, "login $u2";
+my $u3 = gearman 'create_user' => 'slice2@example.com secret 0';
+like $u3, qr/u\d+/, "login $u2 (on other slice)";
+