fix ZSLICE exported to scripts

[cloudstore.git] / t / Gearman.t

diff --git a/t/Gearman.t b/t/Gearman.t
index 6761056..9c03296 100755 (executable)
--- a/t/Gearman.t
+++ b/t/Gearman.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';
@@ -39,5 +39,11 @@ gearman send_file => '~u2001/foo.txt#~u2002/foo.txt';
 gearman rename_file => '~u2002/foo.txt#bar.txt';
 gearman rename_file => '~u2002/bar.txt#baz.txt';
 
+cmp_ok  
+gearman( file_size => '~u2001/foo.txt' ), '==',
+gearman( file_size => '~u2002/baz.txt' ), 'size_same';
+
 gearman delete => '~u2002/baz.txt';
 
+ok ! CloudStore::Gearman->gearman_do( file_size => '~u2002/baz.txt' ), 'deleted file size';
+