r47815 - in /branches/upstream/libpoe-component-client-http-perl/current: CHANGES META.yml lib/POE/Component/Client/HTTP.pm lib/POE/Component/Client/HTTP/RequestFactory.pm lib/POE/Filter/HTTPHead.pm t/57_pravus_progress.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Nov 27 02:37:42 UTC 2009
Author: jawnsy-guest
Date: Fri Nov 27 02:37:35 2009
New Revision: 47815
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47815
Log:
[svn-upgrade] Integrating new upstream version, libpoe-component-client-http-perl (0.892)
Modified:
branches/upstream/libpoe-component-client-http-perl/current/CHANGES
branches/upstream/libpoe-component-client-http-perl/current/META.yml
branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP.pm
branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP/RequestFactory.pm
branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Filter/HTTPHead.pm
branches/upstream/libpoe-component-client-http-perl/current/t/57_pravus_progress.t
Modified: branches/upstream/libpoe-component-client-http-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-http-perl/current/CHANGES?rev=47815&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-http-perl/current/CHANGES (original)
+++ branches/upstream/libpoe-component-client-http-perl/current/CHANGES Fri Nov 27 02:37:35 2009
@@ -1,3 +1,19 @@
+================================
+2009-11-16 02:41:17 -0500 v0_892
+================================
+
+ commit c21ac1d09418ded901fa7706eb8a4c0f4f7ba6b9
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 16 02:41:17 2009 -0500
+
+ Prepare for release.
+
+ commit e2a91c6713a88c0fe274126ad7fb1a4a0d72a81c
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Mon Nov 16 02:38:53 2009 -0500
+
+ Don't rely on external servers to test progress callbacks.
+
================================
2009-10-14 03:06:39 -0400 v0_891
================================
Modified: branches/upstream/libpoe-component-client-http-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-http-perl/current/META.yml?rev=47815&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-http-perl/current/META.yml (original)
+++ branches/upstream/libpoe-component-client-http-perl/current/META.yml Fri Nov 27 02:37:35 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: POE-Component-Client-HTTP
-version: 0.891
+version: 0.892
abstract: Non-blocking/concurrent HTTP queries with POE
author:
- Rocco Caputo <rcaputo at cpan.org>
Modified: branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP.pm?rev=47815&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP.pm (original)
+++ branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP.pm Fri Nov 27 02:37:35 2009
@@ -9,7 +9,7 @@
use constant DEBUG_DATA => 0;
use vars qw($VERSION);
-$VERSION = '0.891';
+$VERSION = '0.892';
use Carp qw(croak);
use HTTP::Response;
Modified: branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP/RequestFactory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP/RequestFactory.pm?rev=47815&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP/RequestFactory.pm (original)
+++ branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Component/Client/HTTP/RequestFactory.pm Fri Nov 27 02:37:35 2009
@@ -19,7 +19,7 @@
use constant DEBUG => 0;
use constant DEFAULT_BLOCK_SIZE => 4096;
-our $VERSION = "0.891";
+our $VERSION = "0.892";
=head1 CONSTRUCTOR
Modified: branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Filter/HTTPHead.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Filter/HTTPHead.pm?rev=47815&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Filter/HTTPHead.pm (original)
+++ branches/upstream/libpoe-component-client-http-perl/current/lib/POE/Filter/HTTPHead.pm Fri Nov 27 02:37:35 2009
@@ -137,7 +137,7 @@
=cut
use vars qw($VERSION);
-$VERSION = '0.891';
+$VERSION = '0.892';
use base qw(POE::Filter::Stackable);
use POE::Filter::Line;
Modified: branches/upstream/libpoe-component-client-http-perl/current/t/57_pravus_progress.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-component-client-http-perl/current/t/57_pravus_progress.t?rev=47815&op=diff
==============================================================================
--- branches/upstream/libpoe-component-client-http-perl/current/t/57_pravus_progress.t (original)
+++ branches/upstream/libpoe-component-client-http-perl/current/t/57_pravus_progress.t Fri Nov 27 02:37:35 2009
@@ -7,16 +7,22 @@
use HTTP::Request::Common qw(GET);
use POE;
use POE::Component::Client::HTTP;
+use Test::POE::Server::TCP;
POE::Component::Client::HTTP->spawn(
Alias => 'ua',
- Streaming => 4096,
+ Streaming => 4000,
FollowRedirects => 32,
);
POE::Session->create(
package_states => [
- main => [qw( _start http_response http_progress _stop )],
+ main => [
+ qw(
+ _start http_response http_progress _stop
+ testd_registered testd_client_input idle_timeout
+ )
+ ],
],
);
@@ -24,20 +30,49 @@
exit 0;
sub _start {
+ $_[HEAP]{testd} = Test::POE::Server::TCP->spawn(
+ filter => POE::Filter::Stream->new(),
+ address => 'localhost',
+ );
+
$_[HEAP]{got_response} = 0;
$_[HEAP]{got_progress} = 0;
+}
+
+sub testd_registered {
+ my $port = $_[HEAP]{testd}->port();
$_[KERNEL]->post(
ua => request => 'http_response',
- GET("http://yahoo.com"), 'id', 'http_progress'
+ GET("http://localhost:$port/"), 'id', 'http_progress'
);
+}
+
+sub testd_client_input {
+ my ($kernel, $heap, $id, $input) = @_[KERNEL, HEAP, ARG0, ARG1];
+
+ $heap->{testd}->send_to_client(
+ $id,
+ "HTTP/1.0 200 OK\x0d\x0a" .
+ "Content-Length: 100000\x0d\x0a" .
+ "Content-Type: text/html\x0d\x0a" .
+ "\x0d\x0a" .
+ "!" x 100_000
+ );
}
sub http_response {
$_[HEAP]{got_response}++;
+ $_[KERNEL]->delay(idle_timeout => 1);
}
sub http_progress {
$_[HEAP]{got_progress}++;
+ $_[KERNEL]->delay(idle_timeout => 1);
+}
+
+sub idle_timeout {
+ $_[HEAP]{testd}->shutdown();
+ $_[KERNEL]->post(ua => "shutdown");
}
sub _stop {
More information about the Pkg-perl-cvs-commits
mailing list