Changeset 1309

Timestamp:

10/16/09 07:47:17 (6 weeks ago)

Author:

dormando

Message:

Make edit tests skip in absence of a tracker.

Files:

• trunk/api/perl/MogileFS-Client/t/20-edit.t (modified) (2 diffs)

trunk/api/perl/MogileFS-Client/t/20-edit.t

@@ -7 +7 @@
 
 use strict;
-use Test::More tests => $NUM_TESTS;
+use Test::More;
 use MogileFS::Client;
 use LWP;
@@ -19 +19 @@
 
 my $key = 'edit_test_file';
-                           
-my $fh = $mogc->new_file($key, undef, undef, { largefile => 1 } );
+
+my $fh;                           
+eval { $fh = $mogc->new_file($key, undef, undef, { largefile => 1 } ); };
+
+if ($@ =~ m/couldn't connect/) {
+    plan skip_all => "No mogilefsd process running on 127.0.0.1:7001";
+    exit 0;
+} else {
+    plan tests => $NUM_TESTS;
+}
 
 ok($fh, "file handle using HTTPFile");