LogoopenSUSE Build Service > Projects
Sign Up | Log In

View File test-remove-05-reconnect-does-not-pause-in-obs.patch of Package perl-Cache-Memcached (Project home:pheinlein)

---
 t/05_reconnect_timeout.t |   28 ----------------------------
 1 file changed, 28 deletions(-)

Index: Cache-Memcached-1.29/t/05_reconnect_timeout.t
===================================================================
--- Cache-Memcached-1.29.orig/t/05_reconnect_timeout.t	2010-06-17 21:24:17.000000000 -0400
+++ /dev/null	1970-01-01 00:00:00.000000000 +0000
@@ -1,28 +0,0 @@
-#!/usr/bin/env perl -w
-
-use strict;
-use Test::More;
-use Cache::Memcached;
-use IO::Socket::INET;
-use Time::HiRes;
-
-my $testaddr = "192.0.2.1:11211";
-
-plan tests => 2;
-
-my $memd = Cache::Memcached->new({
-    servers   => [ $testaddr ],
-    namespace => "Cache::Memcached::t/$$/" . (time() % 100) . "/",
-});
-
-
-my $time1 = Time::HiRes::time();
-$memd->set("key", "bar");
-my $time2 = Time::HiRes::time();
-# 100ms is faster than the default connect timeout.
-ok($time2 - $time1 > .1, "Expected pause while connecting");
-
-# 100ms should be slow enough that dead socket reconnects happen faster than it.
-$memd->set("key", "foo");
-my $time3 = Time::HiRes::time();
-ok($time3 - $time2 < .1, "Should return fast on retry");