somewhat auto-configure
authorDobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Mon, 12 Dec 2011 23:54:07 +0000 (00:54 +0100)
committerDobrica Pavlinusic <dpavlin@rsync1.maxxo.com>
Mon, 12 Dec 2011 23:54:07 +0000 (00:54 +0100)
t/Gearman.t

index d73bb89..c2e2407 100755 (executable)
@@ -9,6 +9,9 @@ use lib 'lib';
 
 use_ok 'CloudStore::Gearman';
 
-ok my $o = CloudStore::Gearman->gearman_do( 'narada_s1_quota_get' => 2001 );
+my $hostname = `hostname -s`;
+chomp $hostname;
+
+ok my $o = CloudStore::Gearman->gearman_do( $hostname . '_s1_quota_get' => 2001 );
 diag dump $o;