Tests: handled Cache::Memcached::Fast brokenness.

Author: pluknet

upstream_hash_memcached.t

@@ -142,8 +142,18 @@ $memd = new Cache::Memcached::Fast({ ketama_points => 160, servers => [
 	'127.0.0.1:' . port(8082),
 	'127.0.0.1:' . port(8083)] });
 
+# Cache::Memcached::Fast may be incompatible with recent Perl,
+# see https://github.com/JRaspass/Cache-Memcached-Fast/issues/12
+
+my $cmf_bug = ! keys %{$memd->server_versions};
+
+SKIP: {
+skip 'Cache::Memcached::Fast bug', 1 if $cmf_bug;
+
 is_deeply(ngx('/c'), mem($memd), 'cache::memcached::fast');
 
+}
+
 $memd = new Cache::Memcached(servers => [
 	[ '127.0.0.1:' . port(8081), 2 ],
 	[ '127.0.0.1:' . port(8082), 3 ],
@@ -156,8 +166,13 @@ $memd = new Cache::Memcached::Fast({ ketama_points => 160, servers => [
 	{ address => '127.0.0.1:' . port(8082), weight => 3 },
 	{ address => '127.0.0.1:' . port(8083), weight => 1 }] });
 
+SKIP: {
+skip 'Cache::Memcached::Fast bug', 1 if $cmf_bug;
+
 is_deeply(ngx('/cw'), mem($memd), 'cache::memcached::fast weight');
 
+}
+
 ###############################################################################
 
 sub ngx {