r72927 - in /branches/upstream/libpoe-test-loops-perl/current: ./ lib/POE/Test/ lib/POE/Test/Loops/
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Apr 21 14:53:32 UTC 2011
Author: gregoa
Date: Thu Apr 21 14:53:19 2011
New Revision: 72927
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=72927
Log:
[svn-upgrade] new version libpoe-test-loops-perl (1.050)
Added:
branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_run_size.pm
Modified:
branches/upstream/libpoe-test-loops-perl/current/CHANGES
branches/upstream/libpoe-test-loops-perl/current/MANIFEST
branches/upstream/libpoe-test-loops-perl/current/META.yml
branches/upstream/libpoe-test-loops-perl/current/README
branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops.pm
branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/connect_errors.pm
branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_readline.pm
branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_sf_ipv6.pm
branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/z_leolo_wheel_run.pm
Modified: branches/upstream/libpoe-test-loops-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/CHANGES?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/CHANGES (original)
+++ branches/upstream/libpoe-test-loops-perl/current/CHANGES Thu Apr 21 14:53:19 2011
@@ -1,3 +1,70 @@
+================================
+2011-04-18 10:18:55 -0700 v1_050
+================================
+
+ commit 871d5bc8ab73ae3655b89a7fab214d3d165854d1
+ Author: Hinrik Örn Sigurðsson <hinrik.sig at gmail.com>
+ Date: Mon Apr 18 17:12:10 2011 +0000
+
+ Test for transpose-chars at end of line
+
+ Signed-off-by: Apocalypse <perl at 0ne.us>
+
+ commit d3e2add7cf71b76e57e2effd72e9336ced434cfc
+ Author: Apocalypse <perl at 0ne.us>
+ Date: Sun Apr 17 20:54:00 2011 -0700
+
+ make wording more consistent in the skip message
+
+ commit 2ae793e31d7c333084e235c6f53e93f3a4d8bca2
+ Author: Apocalypse <perl at 0ne.us>
+ Date: Sun Apr 17 20:43:55 2011 -0700
+
+ add missing POE_DANTIC check
+
+ commit f49de84cc0c0ded45e22b0e6f0cf7466b8585ffc
+ Author: Apocalypse <perl at 0ne.us>
+ Date: Sat Apr 16 19:12:14 2011 -0700
+
+ stylistic tweaks to the recent AF_INET6 patch
+
+ commit 2378b9f1a53bddd3296827ede6a9975cf8b97170
+ Author: Apocalypse <perl at 0ne.us>
+ Date: Sat Apr 16 18:52:05 2011 -0700
+
+ finalize the AF_INET6 woes
+
+ commit c47288b65b68b93bde97919260b5b7e8078bb53e
+ Author: Apocalypse <perl at 0ne.us>
+ Date: Sat Apr 16 15:25:28 2011 -0700
+
+ squash the AF_INET6 warning for good
+
+ commit 8a492f335f8112d669380e5871f3ff6c0111b7c9
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sat Apr 16 17:18:43 2011 -0400
+
+ Silence AF_INET6 warnings, per Apocalypse's research.
+
+ commit d1d34942c4e022c0c4d8db6183d454ea18851901
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Sat Apr 16 13:56:39 2011 -0400
+
+ Add better support for those times when AF_INET6 can't be found.
+ Resolves an issue discovered by Apocalypse on Perl 5.6.2.
+
+ commit e232a2f071cecbdd553725d935a2f8726eb3c6c4
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Wed Mar 9 12:34:50 2011 -0500
+
+ Fix the way wheel_run_size.pm skips when Term::Size is absent.
+
+ commit 541031bf0c34b09a2835e8fdf9468f4e264ad643
+ Author: Tom Feist <shabble at metavore.org>
+ Date: Sun Feb 20 13:34:08 2011 -0500
+
+ Add a test for terminal size changes in Wheel::Run.
+
================================
2011-02-02 20:11:23 -0500 v1_040
================================
@@ -77,142 +144,6 @@
Promote poe-test-loops contents to the top level.
-================================
-2010-04-03 20:01:00 -0400 v1_035
-================================
-
- commit b8f5385fc36b95f304a6a70f5511d060f51ce581
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Sat Apr 3 20:01:00 2010 -0400
-
- Bump revision for a new release. No significant changes, other than
- to build a new dist with the latest EUMM.
-
-================================
-2010-04-03 17:46:46 -0400 v1_034
-================================
-
- commit a78a428330116aba16f036d79027caf48253abfe
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Sat Apr 3 17:46:46 2010 -0400
-
- Bump PTL revision for release.
-
- commit 3a6186de3d67af29e93cd056623ddffc5c420dd7
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Tue Mar 23 17:27:32 2010 -0400
-
- Replace z_rt53302_fh_watchers.pm with z_rt53302_fh_watchers_slow.pm.
- The non-slow one was broken since its client shuts down without
- waiting for the server's response.
-
- commit 92d65ba3aaf115c2dd81a6d791c3ccdf9e58b703
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Mon Mar 22 06:00:17 2010 -0400
-
- Support legal =for and =begin POD syntax for skip_tests(), in
- addition to the previous =for/=cut syntax that caused skip_tests() to
- appear in everyone's perldoc. Document the change. Deprecate the bad
- syntax, which won't be a terrible burden since everyone probably
- wanted to migrate away from it anyway.
-
- commit 08fd7496ca7ba050e33e3065933dc817e0aeecaa
- Author: Larwan Berke <larwan at 0ne.us>
- Date: Mon Mar 22 02:54:39 2010 -0400
-
- Add optional one-line =for poe_tests syntax to hide it from POD
- formatters.
-
- Add example from POE::Loop::Glib that uses the new syntax.
-
- commit 519ec6ce48f79858dcf452a5adf7c897607eae55
- Author: Larwan Berke <larwan at 0ne.us>
- Date: Thu Mar 11 06:57:11 2010 -0500
-
- Added the 00_info test for better debugging
-
- commit 3db1f83683c67febfbf1facfce206c37ccd6abb0
- Author: Larwan Berke <larwan at 0ne.us>
- Date: Thu Mar 11 05:28:23 2010 -0500
-
- Add new tcp connection test for RT#53302
-
- commit 0c25a94ffb9ba6124ab7caadcac842521a5292b9
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Wed Mar 10 19:14:25 2010 -0500
-
- Update the skip_tests() examples, and explain what's going on in
- each.
-
- commit 27999d54d5fae8f8a5b81dcea5aedc9fd1ec3a2e
- Author: Larwan Berke <larwan at 0ne.us>
- Date: Tue Mar 9 07:59:40 2010 -0500
-
- Fix the followtail test to use File::Temp, thanks to
- http://cpantesters.org/cpan/report/6877011 and others like it
-
- commit 60c161f63702d6bfd2897d91782f846b6d3558a5
- Author: Larwan Berke <larwan at 0ne.us>
- Date: Tue Mar 9 07:20:16 2010 -0500
-
- After a lot of hacking/digging Cygwin with a TERM=dumb does not work
- with POE::Wheel::ReadLine. This fix skips the test, and makes
- Wheel::ReadLine die if it detects this situation. Added some docs for
- our Cygwin users :)
-
-================================
-2010-02-15 06:27:00 -0500 v1_033
-================================
-
- commit 6aa742d27db974ecdfa6ab37c0165310086d69da
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Mon Feb 15 06:27:00 2010 -0500
-
- Bump for yet another release.
-
- commit 4571e4cdc2994f530af94dbc1d8c0fec3ad9ace9
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Mon Feb 15 01:05:37 2010 -0500
-
- Make Bazerka's regression test a little more forgiving about elapsed
- run time.
-
- commit 25e1ccdb98488337cfbc3935a92c3e87ad3ce081
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Sun Feb 14 23:55:56 2010 -0500
-
- Skip pty tests if IO::Pty isn't available. Also some style fixes.
-
- commit 7f5aa1fe737f53ca38d51018b8a7abdd06f256b8
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Sun Feb 14 23:55:18 2010 -0500
-
- Make the test a little more forgiving for slower systems, such as
- virtualized Windows systems and other forms of emulation.
-
-================================
-2010-02-14 02:44:47 -0500 v1_032
-================================
-
- commit c9ff00832cec870f535364530a3f586cf0bcdfa7
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Sun Feb 14 02:44:47 2010 -0500
-
- Add a test case from rt.cpan.org #54319. Verify Po::Wh::FollowTail
- actually tails files. Thanks to Bazerka on irc.perl.org for
- submitting the basis of this test case.
-
- commit c4bcf0cc36b1f2a9707a10ce33c881e27f12e163
- Author: Rocco Caputo <rcaputo at cpan.org>
- Date: Sat Jan 2 02:57:35 2010 -0500
-
- Try to resolve some CPAN indexer issues.
-
- Eliminate a $VERSION string being used to test a version (not define
- one). Eliminate a package statement used to define a constant (not a
- class). Change a test package name to avoid indexer conflict with
- another distribution.
-
==============
End of Excerpt
==============
Modified: branches/upstream/libpoe-test-loops-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/MANIFEST?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/MANIFEST (original)
+++ branches/upstream/libpoe-test-loops-perl/current/MANIFEST Thu Apr 21 14:53:19 2011
@@ -26,6 +26,7 @@
lib/POE/Test/Loops/wheel_readline.pm
lib/POE/Test/Loops/wheel_readwrite.pm
lib/POE/Test/Loops/wheel_run.pm
+lib/POE/Test/Loops/wheel_run_size.pm
lib/POE/Test/Loops/wheel_sf_ipv6.pm
lib/POE/Test/Loops/wheel_sf_tcp.pm
lib/POE/Test/Loops/wheel_sf_udp.pm
Modified: branches/upstream/libpoe-test-loops-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/META.yml?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/META.yml (original)
+++ branches/upstream/libpoe-test-loops-perl/current/META.yml Thu Apr 21 14:53:19 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: POE-Test-Loops
-version: 1.040
+version: 1.050
abstract: POE::Loop test suite
author:
- Rocco Caputo <rcaputo at cpan.org>
Modified: branches/upstream/libpoe-test-loops-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/README?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/README (original)
+++ branches/upstream/libpoe-test-loops-perl/current/README Thu Apr 21 14:53:19 2011
@@ -88,8 +88,7 @@
_s_k_i_p___t_e_s_t_s_(_) should load any modules required by the event loop. See
most of the examples below.
- EExxaammppllee ppooee__tteessttss DDiirreeccttiivveess
-
+ EExxaammppllee ppooee__tteessttss DDiirreeccttiivveess
POE::Loop::Event checks whether the Event module exists and can be
loaded, then whether specific tests can run under specific operating
systems.
@@ -171,8 +170,7 @@
against ExtUtils::MakeMaker because that's what POE uses. Please
adjust these recipes according to your taste and preference.
- CCaalllliinngg tthhee TTeesstt GGeenneerraattoorr
-
+ CCaalllliinngg tthhee TTeesstt GGeenneerraattoorr
Tests need to be generated prior to the user or CPAN shell running
"make test". A tidy way to do this might be to create a new Makefile
target and include that as a dependency for "make test". POE takes a
@@ -282,15 +280,13 @@
capabilities. Distributions and event loops may set these variables to
signal which tests are okay to run.
- PPOOEE__LLOOOOPP__UUSSEESS__PPOOLLLL
-
+ PPOOEE__LLOOOOPP__UUSSEESS__PPOOLLLL
Some platforms do not support _p_o_l_l_(_) on certain kinds of filehandles.
Event loops that use _p_o_l_l_(_) should set this environment variable to a
true value. It will cause the tests to skip this troublesome
combination.
- PPOODDDDIITTIIEESS
-
+ PPOODDDDIITTIIEESS
Previous versions of POE::Test::Loops documented "=for poe_tests"
sections terminated by =cut and containing blank lines. This is
incorrect POD syntax, and it's the reason the _s_k_i_p___t_e_s_t_s_(_) functions
@@ -328,16 +324,13 @@
SSEEEE AALLSSOO
POE::Test::Loops, POE::Loop, perlpod.
- BBUUGG TTRRAACCKKEERR
-
+ BBUUGG TTRRAACCKKEERR
https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=POE-Test-Loops
- RREEPPOOSSIITTOORRYY
-
+ RREEPPOOSSIITTOORRYY
https://poe.svn.sourceforge.net/svnroot/poe/trunk/poe-test-loops
- OOTTHHEERR RREESSOOUURRCCEESS
-
+ OOTTHHEERR RREESSOOUURRCCEESS
http://search.cpan.org/dist/POE-Test-Loops/
AAUUTTHHOORR && CCOOPPYYRRIIGGHHTT
Modified: branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops.pm?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops.pm (original)
+++ branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops.pm Thu Apr 21 14:53:19 2011
@@ -6,7 +6,7 @@
use vars qw($VERSION);
use vars qw($VERSION);
-$VERSION = '1.040'; # NOTE - Should be #.### (three decimal places)
+$VERSION = '1.050'; # NOTE - Should be #.### (three decimal places)
use File::Spec;
use File::Path;
Modified: branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/connect_errors.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/connect_errors.pm?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/connect_errors.pm (original)
+++ branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/connect_errors.pm Thu Apr 21 14:53:19 2011
@@ -16,7 +16,7 @@
# MSWin32+ActiveState 5.6.1 and 5.10.1 always time out. And if we remove the
# delay, then the OS never times out. 5.8.0 seems to work fine. Since this
# behavior seems to come and go, we're skipping it for all versions of MSWin32.
-if ($^O eq 'MSWin32') {
+if ($^O eq 'MSWin32' and not $ENV{POE_DANTIC}) {
plan skip_all => "This test fails for various versions of MSWin32 perl";
}
Modified: branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_readline.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_readline.pm?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_readline.pm (original)
+++ branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_readline.pm Thu Apr 21 14:53:19 2011
@@ -111,10 +111,10 @@
"\eb\eb",
"\et", # transpose-words
"\cA\cT", # transpose-chars (fail bol)
- "\cE\cT", # transpose-chars (fail eol)
+ "\cE12\cT", # transpose-chars (at eol
"\cJ",
],
- done => "two one 21",
+ done => "two one 2121",
},
);
Added: branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_run_size.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_run_size.pm?rev=72927&op=file
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_run_size.pm (added)
+++ branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_run_size.pm Thu Apr 21 14:53:19 2011
@@ -1,0 +1,91 @@
+#!/usr/bin/perl -w
+# vim: ts=2 sw=2 expandtab
+
+use strict;
+
+use Test::More;
+use POSIX qw(_exit);
+use POE qw(Wheel::Run Filter::Line Filter::Stream Wheel::ReadWrite);
+
+BEGIN {
+ my $why;
+
+ $why = "This test requires Term::Size"
+ if do { eval "use Term::Size"; $@ };
+
+ plan skip_all => $why if $why;
+}
+
+plan tests => 4;
+
+my $winsize = [85, 29, 100, 200];
+
+### Handle the _start event. This sets things in motion.
+sub handle_start {
+ my ($kernel, $heap) = @_[KERNEL, HEAP];
+
+ # Set a signal handler.
+ $kernel->sig(CHLD => "got_sigchld");
+
+ # Start the terminal reader/writer.
+ $heap->{stdio} = POE::Wheel::ReadWrite->new(
+ InputHandle => \*STDIN,
+ OutputHandle => \*STDOUT,
+ InputEvent => "got_terminal_stdin",
+ Filter => POE::Filter::Line->new(),
+ );
+
+ # Start the asynchronous child process.
+ $heap->{program} = POE::Wheel::Run->new(
+ Program => [
+ $^X, '-e', (
+ 'use Term::Size qw(chars pixels); ' .
+ 'my ($c, $r, $px, $py) = (chars(\\*STDIN), pixels(\\*STDIN)); ' .
+ 'print "rows: $r, cols: $c, xpix: $px, ypix: $py\\n"; '
+ )
+ ],
+ Conduit => "pty",
+ Winsize => $winsize,
+ StdoutEvent => "got_child_stdout",
+ StdioFilter => POE::Filter::Line->new(),
+ );
+
+}
+
+sub handle_terminal_stdin {
+ my ($heap, $input) = @_[HEAP, ARG0];
+ $heap->{program}->put($input);
+}
+
+sub handle_child_stdout {
+ my ($heap, $input) = @_[HEAP, ARG0];
+ if ($input =~ m/^rows: (\d+), cols: (\d+), xpix: (\d+), ypix: (\d+)$/) {
+ is($winsize->[0], $1, 'rows set correctly');
+ is($winsize->[1], $2, 'cols set correctly');
+ is($winsize->[2], $3, 'xpix set correctly');
+ is($winsize->[3], $4, 'ypix set correctly');
+ }
+}
+
+sub handle_sigchld {
+ my ($heap, $child_pid) = @_[HEAP, ARG1];
+ if ($child_pid == $heap->{program}->PID) {
+ delete $heap->{program};
+ delete $heap->{stdio};
+ }
+ return 0;
+}
+
+### Start a session to encapsulate the previous features.
+POE::Session->create(
+ inline_states => {
+ _start => \&handle_start,
+ got_terminal_stdin => \&handle_terminal_stdin,
+ got_child_stdout => \&handle_child_stdout,
+ got_sigchld => \&handle_sigchld,
+ },
+);
+
+POE::Kernel->run();
+
+1;
Modified: branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_sf_ipv6.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_sf_ipv6.pm?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_sf_ipv6.pm (original)
+++ branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/wheel_sf_ipv6.pm Thu Apr 21 14:53:19 2011
@@ -6,7 +6,25 @@
use strict;
use lib qw(./mylib ../mylib);
-use Socket qw(AF_INET6);
+
+BEGIN {
+ # under perl-5.6.2 the warning "leaks" from the eval, while newer versions don't...
+ # it's due to Exporter.pm behaving differently, so we have to shut it up
+ no warnings 'redefine';
+ require Carp;
+ local *Carp::carp = sub { die @_ };
+ eval { require Socket; Socket->import('AF_INET6') };
+ if ($@) {
+ eval { require Socket6; Socket6->import('AF_INET6') };
+ if ($@) {
+ print "1..0 # Skip Cannot find AF_INET6 support in Socket or Socket6.\n";
+ CORE::exit();
+ }
+ }
+}
+
+# Second BEGIN block so that AF_INET6 is defined before this code is
+# compiled.
BEGIN {
my $error;
Modified: branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/z_leolo_wheel_run.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/z_leolo_wheel_run.pm?rev=72927&op=diff
==============================================================================
--- branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/z_leolo_wheel_run.pm (original)
+++ branches/upstream/libpoe-test-loops-perl/current/lib/POE/Test/Loops/z_leolo_wheel_run.pm Thu Apr 21 14:53:19 2011
@@ -7,7 +7,7 @@
use Test::More;
if ($^O eq "MSWin32" and not $ENV{POE_DANTIC}) {
- plan skip_all => "Sorry Perl crashes on $^O";
+ plan skip_all => "Perl crashes on $^O";
}
plan tests => 14;
More information about the Pkg-perl-cvs-commits
mailing list