Changeset 826

Timestamp:

09/22/09 01:02:26 (2 months ago)

Author:

ask

Message:

Make 02_keys test work on older perl and with version.pm being optional

Files:

• trunk/api/perl/t/02_keys.t (modified) (2 diffs)

trunk/api/perl/t/02_keys.t

@@ -28 +28 @@
 isa_ok($memd, 'Cache::Memcached');
 
-my $memcached_version =
-    version->parse(
-      $memd->stats('misc')->{hosts}->{$testaddr}->{misc}->{version}
-    );
+my $memcached_version;
 
-diag("Server version: $memcached_version");
+eval {
+    require version;
+    die "version too old" unless $version::VERSION >= 0.77;
+    $memcached_version =
+        version->parse(
+            $memd->stats('misc')->{hosts}->{$testaddr}->{misc}->{version}
+        );
+    diag("Server version: $memcached_version") if $memcached_version;
+};
 
 ok($memd->set("key1", "val1"), "set key1 as val1");
@@ -50 +55 @@
 
 SKIP: {
+  skip "Could not parse server version; version.pm 0.77 required", 7
+      unless $memcached_version;
   skip "Only using prepend/append on memcached >= 1.2.4, you have $memcached_version", 7
-     unless $memcached_version >= v1.2.4;  # this will fail horriby testing vZ.X.YY
+      unless $memcached_version && $memcached_version >= v1.2.4;
 
   ok(! $memd->append("key-noexist", "bogus"), "append key-noexist properly failed");