r45785 - in /trunk/libpoe-component-client-keepalive-perl: ./ debian/ lib/ mylib/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Wed Oct 14 14:43:12 UTC 2009
Author: jawnsy-guest
Date: Wed Oct 14 14:43:06 2009
New Revision: 45785
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=45785
Log:
WAITS FOR libpoe-perl 2:1.2800
WAITS FOR libpoe-component-client-dns-perl 1.051
* New upstream release
Added:
trunk/libpoe-component-client-keepalive-perl/lib/
- copied from r45784, branches/upstream/libpoe-component-client-keepalive-perl/current/lib/
trunk/libpoe-component-client-keepalive-perl/t/00_info.t
- copied unchanged from r45784, branches/upstream/libpoe-component-client-keepalive-perl/current/t/00_info.t
Removed:
trunk/libpoe-component-client-keepalive-perl/Client-Keepalive.pm
trunk/libpoe-component-client-keepalive-perl/Conn-Keepalive.pm
Modified:
trunk/libpoe-component-client-keepalive-perl/CHANGES
trunk/libpoe-component-client-keepalive-perl/MANIFEST
trunk/libpoe-component-client-keepalive-perl/META.yml
trunk/libpoe-component-client-keepalive-perl/Makefile.PL
trunk/libpoe-component-client-keepalive-perl/debian/changelog
trunk/libpoe-component-client-keepalive-perl/mylib/TestServer.pm
trunk/libpoe-component-client-keepalive-perl/mylib/cvr.perl
trunk/libpoe-component-client-keepalive-perl/t/01_socket_reuse.t
trunk/libpoe-component-client-keepalive-perl/t/02_socket_queue.t
trunk/libpoe-component-client-keepalive-perl/t/03_each_queue.t
trunk/libpoe-component-client-keepalive-perl/t/04_free_each.t
trunk/libpoe-component-client-keepalive-perl/t/05_errors.t
trunk/libpoe-component-client-keepalive-perl/t/06_activity.t
trunk/libpoe-component-client-keepalive-perl/t/07_keep_alive.t
trunk/libpoe-component-client-keepalive-perl/t/08_quick_reuse.t
trunk/libpoe-component-client-keepalive-perl/t/09_timeout.t
trunk/libpoe-component-client-keepalive-perl/t/10_resolver.t
trunk/libpoe-component-client-keepalive-perl/t/11_dead_socket.t
trunk/libpoe-component-client-keepalive-perl/t/12_extref.t
trunk/libpoe-component-client-keepalive-perl/t/13_close.t
trunk/libpoe-component-client-keepalive-perl/t/51_reiss_reuse.t
Modified: trunk/libpoe-component-client-keepalive-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/CHANGES?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/CHANGES (original)
+++ trunk/libpoe-component-client-keepalive-perl/CHANGES Wed Oct 14 14:43:06 2009
@@ -1,122 +1,185 @@
-==================================
-2009-07-28T06:12:42.236838Z v0_260
-==================================
+================================
+2009-10-14 03:06:23 -0400 v0_261
+================================
- 2009-07-28 06:06:04 (r111) by rcaputo
- Makefile.PL M; Client-Keepalive.pm M
+ commit 542516fd9fd03e31c92517695588f67c2d72d07c
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Wed Oct 14 03:06:23 2009 -0400
+
+ Prepare for release.
+ commit 8a1b8c59bd71424099241efb75566c63148068c1
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Oct 13 00:53:24 2009 -0400
+
+ Notify the tester that this may take a long time if their firewall
+ blackholes connections.
+
+ commit 1658afd15631d9ace4f1db98523ef84da3724f29
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Oct 13 00:42:48 2009 -0400
+
+ Resolve a test bug introduced by POE's new dispatch timing.
+
+ Adam Kennedy reported that t/09_timeout.t was consistently failing
+ under the latest development version of POE. It turned out to be a
+ dodgy test relying on event timing, which was bound to fail sooner or
+ later anyway. This commit removes the reliance on I/O event timing.
+
+ commit 2e16fd0a078c0de6d31a7196cc61215e2332be26
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Oct 12 23:55:27 2009 -0400
+
+ Add an 00_info.t test to help diagnose platform- and
+ dependency-specific issues.
+
+ commit 74153253f06e11c7e1381581a4a1a1fb991856a8
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Sep 14 11:50:40 2009 -0400
+
+ Upgrade distribution to git-based workflow.
+
+================================
+2009-07-28 06:06:04 +0000 v0_260
+================================
+
+ commit 2e720313ceb90bbdcc541cbe23a6809768e8cf1d
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Jul 28 06:06:04 2009 +0000
+
Use latest POE, and prepare for a new release.
- 2009-07-27 04:55:14 (r110) by rcaputo
- Makefile.PL M; Client-Keepalive.pm M
+ commit 00a3812740c830a8ff05c5cc7a9a0f78782f9f1f
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Jul 27 04:55:14 2009 +0000
+
+ Added a machine-readable repository directory to the distribution.
+ Documented the bug tracker, repository, and other resource URLs.
- Added a machine-readable repository directory to the distribution.
- Documented the bug tracker, repository, and other resource URLs.
-
- 2009-07-27 02:39:01 (r109) by rcaputo; Makefile.PL M
-
+ commit 1264faefc037b9ed93018fb4945354c558534fa7
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Jul 27 02:39:01 2009 +0000
+
Set license and repository metadata.
- 2009-07-26 18:04:17 (r108) by rcaputo; Client-Keepalive.pm M
-
+ commit 4397723fee192500980e5fee8c2a84af1a12abf6
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sun Jul 26 18:04:17 2009 +0000
+
Avoid calling setsockopt() on bad file descriptors. Sometimes a
socket is given back to POE::Component::Client::Keepalive, and then
- it goes bad before it can be reclaimed or discarded.
+ it goes bad before it can be reclaimed or discarded.
- 2009-07-26 07:09:17 (r107) by rcaputo; Makefile.PL M
-
+ commit 62ffc4f55722ee314abef97ac5aea46c9c45a383
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sun Jul 26 07:09:17 2009 +0000
+
Set the Net::IP dependency, even though POE::Component::Client::DNS
should pull it in via Net::DNS.
- 2009-07-26 07:08:00 (r106) by rcaputo; Client-Keepalive.pm M
-
+ commit 7a376c488065fe1874a5e31cf2af3d8fc86c500b
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sun Jul 26 07:08:00 2009 +0000
+
Resolve rt.cpan.org 41326, reported by J.G.Konrad and entered into
the queue by Chris Williams. Dotted quad detection was pretty weak,
but now it uses Net::IP::ip_is_ipv4() to detect whether DNS
resolution is needed.
-=================================
-2008-12-09T06:15:39.900728Z v0_25
-=================================
+===============================
+2008-12-09 06:14:33 +0000 v0_25
+===============================
- 2008-12-09 06:14:33 (r104) by rcaputo; Client-Keepalive.pm M
-
+ commit ca606c0f2d25c40926e0231d0a2cb51f79632f0e
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Dec 9 06:14:33 2008 +0000
+
New version.
- 2008-12-09 04:55:21 (r103) by rcaputo; Client-Keepalive.pm M
-
+ commit 28f2cf72b79471179cad4af6582f9ba37356cdbd
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Dec 9 04:55:21 2008 +0000
+
Do not bother trying to shut down cancelled requests. Attempting to
do so only causes heartbreak and crashes when we dereference a string
rather than an arrayref.
- 2008-12-08 18:07:54 (r102) by rcaputo; Makefile.PL M
+ commit 7144c9761941fd8e4e31071594ea67cb4bf3c285
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Dec 8 18:07:54 2008 +0000
+
+ ExtUtils::MakeMaker officially added META_MERGE, which we now use.
- ExtUtils::MakeMaker officially added META_MERGE, which we now use.
-
- 2008-12-08 17:49:43 (r101) by rcaputo; Client-Keepalive.pm M
-
+ commit 7a697de0eeedf575e721eb0ed434e0b325f6865a
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Dec 8 17:49:43 2008 +0000
+
Resolve a memory leak uncovered by jcasey and diagnosed by Apocalypse
in irc.perl.org #poe. Request IDs were allocated by not removed when
done, so the hash to prevent collisions would only grow over time.
-=================================
-2008-12-07T03:53:59.984618Z v0_24
-=================================
+===============================
+2008-12-07 03:52:29 +0000 v0_24
+===============================
- 2008-12-07 03:52:29 (r99) by rcaputo; Client-Keepalive.pm M
-
+ commit 5df32910fab7f73ff579485b667402fc36c280ae
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sun Dec 7 03:52:29 2008 +0000
+
Back out the setsockopt() call because it was causing runtime errors.
If we must try to avoid FIN_WAIT_2, we must do it better next time.
- 2008-11-30 19:04:51 (r98) by rcaputo; Client-Keepalive.pm M
-
+ commit 6086908ff7c95b867b7a5bcde476ebc79f42322a
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sun Nov 30 19:04:51 2008 +0000
+
Applied Ivan Mitoyarov's patch to completely clean up requests that
have been enqueued for a full pool.
-=================================
-2008-11-24T22:37:36.391530Z v0_23
-=================================
+===============================
+2008-11-24 22:36:21 +0000 v0_23
+===============================
- 2008-11-24 22:36:21 (r96) by rcaputo; Client-Keepalive.pm M
-
+ commit 631f85d6004aa6163b66a6ebfd0b095a17c1e419
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 24 22:36:21 2008 +0000
+
Bump again for release.
- 2008-11-24 22:35:43 (r95) by rcaputo; Client-Keepalive.pm M
-
+ commit 9edc315b51c1f41045607691331893dc00ebed1d
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 24 22:35:43 2008 +0000
+
Don't bother with setsockopt() on filehandles that aren't open.
-=================================
-2008-11-24T22:30:36.636504Z v0_22
-=================================
+===============================
+2008-11-24 22:28:47 +0000 v0_22
+===============================
- 2008-11-24 22:28:47 (r93) by rcaputo; Makefile.PL M
-
+ commit edff8fd259703a6a10a833136bf2304b34231720
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 24 22:28:47 2008 +0000
+
Rely on modern Client::DNS.
- 2008-11-24 22:27:14 (r92) by rcaputo
- t/12_extref.t M; t/50_bisbee_timeout.t M; t/08_quick_reuse.t M;
- t/11_dead_socket.t M; Client-Keepalive.pm M
-
+ commit fb2b3e03732aaf3caac273153c872f2006946ba5
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 24 22:27:14 2008 +0000
+
Bump up the version, and fix some tab damage.
- 2008-11-24 20:12:23 (r91) by rcaputo
- t/06_activity.t M; t/04_free_each.t M; Client-Keepalive.pm M
+ commit 12780d0359ba6f9c4ed868a0d831470c690b105c
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 24 20:12:23 2008 +0000
+
+ EXPERIMENTAL: Turn off SO_LINGER when closing kept-alive sockets due
+ to activity while in the pool or being kept in the pool too long.
- EXPERIMENTAL: Turn off SO_LINGER when closing kept-alive sockets due
- to activity while in the pool or being kept in the pool too long.
-
- 2008-11-21 17:52:56 (r90) by rcaputo; Client-Keepalive.pm M
-
- Ignore Client::DNS responses if Client:Keepalive has shut down.
-
-=================================
-2008-08-06T19:01:34.101195Z v0_21
-=================================
-
- 2008-08-06 19:01:16 (r88) by rcaputo; Client-Keepalive.pm M
-
- Reverse the sense of the dotted-quad address test. Resolves
- rt.cpan.org ticket 38219, reported by Apocalypse.
+ commit 9a6f2fcd2eeed01e0a8b5ebd5f22dbd97e700910
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Fri Nov 21 17:52:56 2008 +0000
+
+ Ignore Client::DNS responses if Client:Keepalive has shut down.
==============
End of Excerpt
Modified: trunk/libpoe-component-client-keepalive-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/MANIFEST?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/MANIFEST (original)
+++ trunk/libpoe-component-client-keepalive-perl/MANIFEST Wed Oct 14 14:43:06 2009
@@ -1,12 +1,12 @@
-# $Id: MANIFEST 63 2006-05-21 00:39:16Z rcaputo $
CHANGES
-Client-Keepalive.pm
-Conn-Keepalive.pm
MANIFEST
Makefile.PL
README
+lib/POE/Component/Client/Keepalive.pm
+lib/POE/Component/Connection/Keepalive.pm
mylib/TestServer.pm
mylib/cvr.perl
+t/00_info.t
t/01_socket_reuse.t
t/02_socket_queue.t
t/03_each_queue.t
Modified: trunk/libpoe-component-client-keepalive-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/META.yml?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/META.yml (original)
+++ trunk/libpoe-component-client-keepalive-perl/META.yml Wed Oct 14 14:43:06 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: POE-Component-Client-Keepalive
-version: 0.260
+version: 0.261
abstract: Manages and keeps alive client connections
author:
- Rocco Caputo <rcaputo at cpan.org>
@@ -12,11 +12,11 @@
ExtUtils::MakeMaker: 0
requires:
Net::IP: 1.25
- POE: 1.007
- POE::Component::Client::DNS: 1.04
+ POE: 1.28
+ POE::Component::Client::DNS: 1.051
resources:
license: http://dev.perl.org/licenses/
- repository: http://thirdlobe.com/svn/poco-client-http/trunk
+ repository: http://github.com/rcaputo/poe-component-client-keepalive
no_index:
directory:
- t
Modified: trunk/libpoe-component-client-keepalive-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/Makefile.PL?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/Makefile.PL (original)
+++ trunk/libpoe-component-client-keepalive-perl/Makefile.PL Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: Makefile.PL 111 2009-07-28 06:06:04Z rcaputo $
use strict;
@@ -25,27 +24,23 @@
AUTHOR => 'Rocco Caputo <rcaputo at cpan.org>',
ABSTRACT => 'Manages and keeps alive client connections',
LICENSE => 'perl',
- VERSION_FROM => 'Client-Keepalive.pm',
- PM => {
- 'Client-Keepalive.pm' => '$(INST_LIBDIR)/Keepalive.pm',
- 'Conn-Keepalive.pm' => '$(INST_LIBDIR)/../Connection/Keepalive.pm',
- },
+ VERSION_FROM => 'lib/POE/Component/Client/Keepalive.pm',
PREREQ_PM => {
- 'POE' => 1.007,
- 'POE::Component::Client::DNS' => 1.04,
+ 'POE' => 1.280,
+ 'POE::Component::Client::DNS' => 1.051,
'Net::IP' => 1.25,
},
META_ADD => {
resources => {
license => 'http://dev.perl.org/licenses/',
- repository => 'http://thirdlobe.com/svn/poco-client-http/trunk'
+ repository => 'http://github.com/rcaputo/poe-component-client-keepalive',
},
},
dist => {
COMPRESS => 'gzip -9f',
SUFFIX => 'gz',
PREOP => (
- 'svn-log.perl | tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES'
+ 'git-log.pl | tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES'
),
},
@conditional_makefile,
Modified: trunk/libpoe-component-client-keepalive-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/debian/changelog?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/debian/changelog (original)
+++ trunk/libpoe-component-client-keepalive-perl/debian/changelog Wed Oct 14 14:43:06 2009
@@ -1,8 +1,15 @@
-libpoe-component-client-keepalive-perl (0.2600-2) UNRELEASED; urgency=low
+libpoe-component-client-keepalive-perl (0.2610-1) UNRELEASED; urgency=low
+ WAITS FOR libpoe-perl 2:1.2800
+ WAITS FOR libpoe-component-client-dns-perl 1.051
+
+ [ Jonathan Yu ]
+ * New upstream release
+
+ [ gregor herrmann ]
* debian/watch: adjust uversionmangle to newer uscan/PET.
- -- gregor herrmann <gregoa at debian.org> Sun, 06 Sep 2009 17:05:19 +0200
+ -- Jonathan Yu <jawnsy at cpan.org> Wed, 14 Oct 2009 07:03:28 -0400
libpoe-component-client-keepalive-perl (0.2600-1) unstable; urgency=low
Modified: trunk/libpoe-component-client-keepalive-perl/mylib/TestServer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/mylib/TestServer.pm?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/mylib/TestServer.pm (original)
+++ trunk/libpoe-component-client-keepalive-perl/mylib/TestServer.pm Wed Oct 14 14:43:06 2009
@@ -1,5 +1,3 @@
-# $Id: TestServer.pm 23 2005-05-06 16:00:02Z martijn $
-
package TestServer;
use warnings;
Modified: trunk/libpoe-component-client-keepalive-perl/mylib/cvr.perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/mylib/cvr.perl?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/mylib/cvr.perl (original)
+++ trunk/libpoe-component-client-keepalive-perl/mylib/cvr.perl Wed Oct 14 14:43:06 2009
@@ -1,5 +1,3 @@
-# $Id: cvr.perl 2 2004-10-03 16:50:28Z rcaputo $
-
# Be warned: Pod::Coverage will add a lot of time to the tests.
# Before: Files=8, Tests=51, 74 wallclock secs (...)
# After : Files=8, Tests=51, 459 wallclock secs (...)
Modified: trunk/libpoe-component-client-keepalive-perl/t/01_socket_reuse.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/01_socket_reuse.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/01_socket_reuse.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/01_socket_reuse.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 01_socket_reuse.t 33 2005-07-28 05:57:46Z rcaputo $
# vim: filetype=perl
# Test connection reuse. Allocates a connection, frees it, and
Modified: trunk/libpoe-component-client-keepalive-perl/t/02_socket_queue.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/02_socket_queue.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/02_socket_queue.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/02_socket_queue.t Wed Oct 14 14:43:06 2009
@@ -1,6 +1,5 @@
#!/usr/bin/perl
-# $Id: 02_socket_queue.t 77 2006-10-17 06:54:34Z rcaputo $
-# vim: filetype=perl
+# vim: filetype=perl ts=2 sw=2 expandtab
# Test connection queuing. Set the max active connection to be really
# small (one in all), and then try to allocate two connections. The
@@ -20,6 +19,8 @@
use constant PORT => 49018;
use constant UNKNOWN_PORT => PORT+1;
use TestServer;
+
+diag("This test may take a long time if your firewall blackholes connections.");
TestServer->spawn(PORT);
Modified: trunk/libpoe-component-client-keepalive-perl/t/03_each_queue.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/03_each_queue.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/03_each_queue.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/03_each_queue.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 03_each_queue.t 33 2005-07-28 05:57:46Z rcaputo $
# vim: filetype=perl
# Test connection queuing. Set the per-connection queue to be really
Modified: trunk/libpoe-component-client-keepalive-perl/t/04_free_each.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/04_free_each.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/04_free_each.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/04_free_each.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 04_free_each.t 91 2008-11-24 20:12:23Z rcaputo $
# Testing the bits that keep track of connections per connection key.
Modified: trunk/libpoe-component-client-keepalive-perl/t/05_errors.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/05_errors.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/05_errors.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/05_errors.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 05_errors.t 17 2005-05-06 15:58:31Z martijn $
# Test various error messages.
Modified: trunk/libpoe-component-client-keepalive-perl/t/06_activity.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/06_activity.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/06_activity.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/06_activity.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 06_activity.t 91 2008-11-24 20:12:23Z rcaputo $
# Test activity on idle connections in the pool.
Modified: trunk/libpoe-component-client-keepalive-perl/t/07_keep_alive.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/07_keep_alive.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/07_keep_alive.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/07_keep_alive.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 07_keep_alive.t 17 2005-05-06 15:58:31Z martijn $
# Test keepalive. Allocates a connection, frees it, waits for the
# keep-alive timeout, allocates an identical connection. The second
Modified: trunk/libpoe-component-client-keepalive-perl/t/08_quick_reuse.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/08_quick_reuse.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/08_quick_reuse.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/08_quick_reuse.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 08_quick_reuse.t 92 2008-11-24 22:27:14Z rcaputo $
# Test rapid connection reuse. Sets the maximum overall connections
# to a low number. Allocate up to the maximum. Reuse one of the
Modified: trunk/libpoe-component-client-keepalive-perl/t/09_timeout.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/09_timeout.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/09_timeout.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/09_timeout.t Wed Oct 14 14:43:06 2009
@@ -1,6 +1,5 @@
#!/usr/bin/perl
-# $Id: 09_timeout.t 43 2006-03-24 02:44:32Z rcaputo $
-# vim: filetype=perl
+# vim: filetype=perl ts=2 sw=2 expandtab
# Test request timeouts. Set the timeout ridiculously small, so
# timeouts happen immediately. Request a connection, and watch it
@@ -18,9 +17,20 @@
use TestServer;
+# TODO - Dynamically find ports so we don't conflict with someone.
+# And we WILL conflict with someone sooner or later!
use constant PORT => 49018;
TestServer->spawn(PORT);
+# Listen on a socket, but don't accept connections.
+use IO::Socket::INET;
+my $unaccepting_listener = IO::Socket::INET->new(
+ LocalAddr => "127.0.0.1",
+ LocalPort => PORT + 1,
+ Reuse => "yes",
+) or die $!;
+
+# Session to run tests.
POE::Session->create(
inline_states => {
_child => sub { },
@@ -50,18 +60,17 @@
);
}
- # TODO - The 0.01 second timeout assumes it will give the component
- # enough time to create a wheel but not establish a connection.
- # This is a bold assumption, and it may lead to false failures.
+ # Try to connect to a socket we know is listening but won't answer.
+ # Forces the timeout after the wheel is created.
{
$heap->{cm}->allocate(
scheme => "http",
- addr => "google.com",
- port => 80,
+ addr => "127.0.0.1",
+ port => PORT+1,
event => "got_conn",
context => "second",
- timeout => 0.01,
+ timeout => 0.5,
);
}
}
Modified: trunk/libpoe-component-client-keepalive-perl/t/10_resolver.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/10_resolver.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/10_resolver.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/10_resolver.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 01_socket_reuse.t,v 1.2 2005/04/15 15:49:56 rcaputo Exp $
# Test connection reuse. Allocates a connection, frees it, and
# allocates another. The second allocation should return right away
Modified: trunk/libpoe-component-client-keepalive-perl/t/11_dead_socket.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/11_dead_socket.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/11_dead_socket.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/11_dead_socket.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 03_each_queue.t,v 1.3 2005/04/15 15:49:56 rcaputo Exp $
# Test connection queuing. Set the per-connection queue to be really
# small (one in all), and then try to allocate two connections. The
Modified: trunk/libpoe-component-client-keepalive-perl/t/12_extref.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/12_extref.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/12_extref.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/12_extref.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 12_extref.t 92 2008-11-24 22:27:14Z rcaputo $
# vim: filetype=perl
# Make sure that client sessions stay alive while they're waiting for
Modified: trunk/libpoe-component-client-keepalive-perl/t/13_close.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/13_close.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/13_close.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/13_close.t Wed Oct 14 14:43:06 2009
@@ -1,5 +1,4 @@
#!/usr/bin/perl
-# $Id: 07_keep_alive.t 17 2005-05-06 15:58:31Z martijn $
# Test close() on connections.
Modified: trunk/libpoe-component-client-keepalive-perl/t/51_reiss_reuse.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-component-client-keepalive-perl/t/51_reiss_reuse.t?rev=45785&op=diff
==============================================================================
--- trunk/libpoe-component-client-keepalive-perl/t/51_reiss_reuse.t (original)
+++ trunk/libpoe-component-client-keepalive-perl/t/51_reiss_reuse.t Wed Oct 14 14:43:06 2009
@@ -1,11 +1,10 @@
#!/usr/bin/perl
-# $Id: 51_reiss_reuse.t 81 2008-03-24 05:50:40Z rcaputo $
# Regression test for a bug which occured because a loop
# that would look for existing free connections would reuse
# a connection without removing it from a list of connections
# that can be closed if we have neared the connection limit.
-
+
use warnings;
use strict;
use lib qw(./mylib ../mylib);
@@ -43,7 +42,7 @@
$heap->{cm} = POE::Component::Client::Keepalive->new(
max_open => 2,
- max_per_host => 2,
+ max_per_host => 2,
);
$heap->{conn_count} = 0;
@@ -81,7 +80,7 @@
port => ANOTHER_PORT,
event => "got_conn",
context => "second-b"
- );
+ );
}
if ($heap->{request_count} == 5) {
More information about the Pkg-perl-cvs-commits
mailing list