Changeset 825

Timestamp:

09/21/09 12:18:58 (2 months ago)

Author:

ask

Message:

Fix server version check in keys test

Files:

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

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

@@ -5 +5 @@
 use Cache::Memcached;
 use IO::Socket::INET;
+
+unless ($^V) {
+    plan skip_all => "This test requires perl 5.6.0+\n";
+    exit 0;
+}
 
 my $testaddr = "127.0.0.1:11211";
@@ -23 +28 @@
 isa_ok($memd, 'Cache::Memcached');
 
-my $memcached_version = $memd->stats('misc')->{hosts}->{$testaddr}->{misc}->{version};
+my $memcached_version =
+    version->parse(
+      $memd->stats('misc')->{hosts}->{$testaddr}->{misc}->{version}
+    );
+
+diag("Server version: $memcached_version");
 
 ok($memd->set("key1", "val1"), "set key1 as val1");
@@ -41 +51 @@
 SKIP: {
   skip "Only using prepend/append on memcached >= 1.2.4, you have $memcached_version", 7
-     unless $memcached_version ge 1.2.4;  # this will fail horriby testing vZ.X.YY
+     unless $memcached_version >= v1.2.4;  # this will fail horriby testing vZ.X.YY
 
   ok(! $memd->append("key-noexist", "bogus"), "append key-noexist properly failed");