r68267 - in /trunk/libpoe-test-loops-perl: ./ debian/ lib/POE/Test/ lib/POE/Test/Loops/
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Thu Feb 10 09:59:21 UTC 2011
Author: periapt-guest
Date: Thu Feb 10 09:59:14 2011
New Revision: 68267
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68267
Log:
New upstream release
Modified:
trunk/libpoe-test-loops-perl/CHANGES
trunk/libpoe-test-loops-perl/META.yml
trunk/libpoe-test-loops-perl/Makefile.PL
trunk/libpoe-test-loops-perl/README
trunk/libpoe-test-loops-perl/debian/changelog
trunk/libpoe-test-loops-perl/lib/POE/Test/Loops.pm
trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/k_alarms.pm
trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/ses_nfa.pm
trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/wheel_sf_ipv6.pm
trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/z_rt54319_bazerka_followtail.pm
Modified: trunk/libpoe-test-loops-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/CHANGES?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/CHANGES (original)
+++ trunk/libpoe-test-loops-perl/CHANGES Thu Feb 10 09:59:14 2011
@@ -1,0 +1,218 @@
+================================
+2011-02-02 20:11:23 -0500 v1_040
+================================
+
+ commit 1092e7311156f0ef2941c4d841f7c09989cd03c3
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Wed Feb 2 20:11:23 2011 -0500
+
+ Bump for release.
+
+ commit 4966c1668ab76534b9d36f95b55ff2f0358765d8
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Fri Jan 28 21:33:59 2011 -0500
+
+ Bump version.
+
+ commit 739fb21e62d92722230a5e12ba6cb4f2991ec4f1
+ Author: Apocalypse <perl at 0ne.us>
+ Date: Fri Jan 28 12:46:19 2011 -0700
+
+ fix non-numeric comparison when using dev release
+
+ commit 2ce59f530a40c4ba112119031ade310554d32e9c
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Thu Jan 27 20:27:48 2011 -0500
+
+ Eliminate Socket6 use from the tests.
+
+ commit a5a3652cf445211a6b1e759fb5acebadeee3878e
+ Author: Perl Whore <whoreperl at gmail.com>
+ Date: Thu Jan 27 18:00:24 2011 -0500
+
+ Resolve a test failure on CentOS, which appears to be a race
+ condition in the test itself. Resolves rt.cpan.org #61727.
+
+ commit 77f807dda02bfb6d21a15ca60d84c737a226a4d8
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Fri Dec 3 23:43:40 2010 -0500
+
+ Fix alarms tests to match POE's documentation.
+
+ commit f7e2481974b1ce1efcb62e7c0ad31bb69ec6fc1d
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Fri Dec 3 23:43:28 2010 -0500
+
+ Convert metadata and changelogs to Git workflow.
+
+================================
+2010-11-18 22:37:59 -0500 v1_036
+================================
+
+ commit bc3f702241916c37f833d4bb6ff2a60b716fcb6b
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Thu Nov 18 22:37:59 2010 -0500
+
+ New revision for a new release.
+
+ commit 881ccb7c4a73550db6a27de9e438237a25665ecb
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Thu Nov 18 08:53:16 2010 -0500
+
+ Fix POE::Wheel::ReadLine test issues on solaris and DragonFly BSD.
+
+ Force a known good TERM environment variable on solaris, rather than
+ whatever one might be set. Catch the case where POE::Wheel::ReadLine
+ fails to instantiate, and skip all tests.
+
+ commit 44bfa444898de17eb955ac63d822493861b91b6e
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Sep 7 22:14:56 2010 -0400
+
+ Remove cvs/svn keywords.
+
+ commit 5e1e5c185f5790f58da34287c8f44880e31fce79
+ Author: Rocco Caputo <rcaputo at cpan.org>
+ Date: Tue Sep 7 22:01:35 2010 -0400
+
+ 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: trunk/libpoe-test-loops-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/META.yml?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/META.yml (original)
+++ trunk/libpoe-test-loops-perl/META.yml Thu Feb 10 09:59:14 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: POE-Test-Loops
-version: 1.036
+version: 1.040
abstract: POE::Loop test suite
author:
- Rocco Caputo <rcaputo at cpan.org>
@@ -14,7 +14,7 @@
Test::More: 0
resources:
license: http://dev.perl.org/licenses/
- repository: https://poe.svn.sourceforge.net/svnroot/poe/trunk/poe-test-loops
+ repository: https://github.com/rcaputo/poe-test-loops
no_index:
directory:
- t
Modified: trunk/libpoe-test-loops-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/Makefile.PL?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/Makefile.PL (original)
+++ trunk/libpoe-test-loops-perl/Makefile.PL Thu Feb 10 09:59:14 2011
@@ -13,8 +13,7 @@
META_ADD => {
resources => {
license => 'http://dev.perl.org/licenses/',
- repository =>
- 'https://poe.svn.sourceforge.net/svnroot/poe/trunk/poe-test-loops'
+ repository => 'https://github.com/rcaputo/poe-test-loops',
},
},
PREREQ_PM => {
@@ -25,9 +24,10 @@
COMPRESS => 'gzip -9f',
SUFFIX => 'gz',
PREOP => (
- 'svn-log.perl --tags ^ptl- | ' .
+ 'git-log.pl | ' .
'tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES;' .
- 'perldoc bin/poe-gen-tests > README'
+ 'LANG=C perldoc bin/poe-gen-tests | ' .
+ 'tee ./$(DISTNAME)-$(VERSION)/README > README'
),
},
);
Modified: trunk/libpoe-test-loops-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/README?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/README (original)
+++ trunk/libpoe-test-loops-perl/README Thu Feb 10 09:59:14 2011
@@ -1,25 +1,25 @@
-POEâGENâTESTS(1) User Contributed Perl Documentation POEâGENâTESTS(1)
+POE-GEN-TESTS(1) User Contributed Perl Documentation POE-GEN-TESTS(1)
NNAAMMEE
- poeâgenâtests â generate standard POE tests for thirdâparty modules
+ poe-gen-tests - generate standard POE tests for third-party modules
SSYYNNOOPPSSIISS
- poeâgenâtests ââdirbase t/loops \
- ââloop Glib \
- ââloop Kqueue \
- ââloop Event::Lib \
- ââloop POE::XS::Loop::Poll
+ poe-gen-tests --dirbase t/loops \
+ --loop Glib \
+ --loop Kqueue \
+ --loop Event::Lib \
+ --loop POE::XS::Loop::Poll
DDEESSCCRRIIPPTTIIOONN
This program and the accompanying POE::Test::Loop::* modules make up
- POEâs tests for POE::Loop subclasses. These tests are designed to run
+ POE's tests for POE::Loop subclasses. These tests are designed to run
identically regardless of the current event loop. POE uses them to
test the event loops it bundles:
POE::Loop::Gtk
- POE::Loop::IO_Poll (ââloop IO::Poll)
+ POE::Loop::IO_Poll (--loop IO::Poll)
POE::Loop::Tk
POE::Loop::Event
POE::Loop::Select
@@ -28,10 +28,10 @@
to generate over 420 comprehensive tests for their own work.
UUSSAAGGEE
- poeâgenâtests creates test files for one or more event loops beneath
- the directory specified in ââdirbase. For example,
-
- poeâgenâtests ââdirbase t/loops ââloop Select
+ poe-gen-tests creates test files for one or more event loops beneath
+ the directory specified in --dirbase. For example,
+
+ poe-gen-tests --dirbase t/loops --loop Select
generates the following test files:
@@ -60,25 +60,25 @@
t/loops/select/wheel_sf_unix.t
t/loops/select/wheel_tail.t
- The ââloop parameter is either a POE::Loop::... class name or the event
+ The --loop parameter is either a POE::Loop::... class name or the event
loop class that will complete the POE::Loop::... package name.
- poeâgenâtests ââdirbase t/loops ââloop Event::Lib
- poeâgenâtests ââdirbase t/loops ââloop POE::Loop::Event_Lib
-
- poeâgenâtests looks for a "=for poe_tests" or "=begin poe_tests"
+ poe-gen-tests --dirbase t/loops --loop Event::Lib
+ poe-gen-tests --dirbase t/loops --loop POE::Loop::Event_Lib
+
+ poe-gen-tests looks for a "=for poe_tests" or "=begin poe_tests"
section within the POE::Loop class being tested. If defined, this
section should include a single function, _s_k_i_p___t_e_s_t_s_(_), that determines
whether any given test should be skipped.
Please see perlpod for syntax for "=for" and "=begin". Also see
- PODDITIES for notable differences between POE::Test::Loopâs POD support
+ PODDITIES for notable differences between POE::Test::Loop's POD support
and the standard.
_s_k_i_p___t_e_s_t_s_(_) is called with one parameter, the base name of the test
about to be executed. It returns false if the test should run, or a
message that will be displayed to the user explaining why the test will
- be skipped. This message is passed directly to Test::Moreâs _p_l_a_n_(_)
+ be skipped. This message is passed directly to Test::More's _p_l_a_n_(_)
along with "skip_all". The logic is essentially:
if (my $why = skip_tests("k_signals_rerun")) {
@@ -88,7 +88,8 @@
_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.
@@ -118,7 +119,7 @@
defined $ENV{DISPLAY} and length $ENV{DISPLAY}
);
return "Gtk tests require the Gtk module" if do { eval "use Gtk"; $@ };
- return "Gtk init failed. Is DISPLAY valid?" unless defined Gtkâ>init_check;
+ return "Gtk init failed. Is DISPLAY valid?" unless defined Gtk->init_check;
if ($test_name eq "z_rt39872_sigchld_stop") {
return "Gdk crashes";
}
@@ -155,7 +156,7 @@
return "This test crashes Perl when run with Tk on $^O";
}
return "Tk tests require the Tk module" if do { eval "use Tk"; $@ };
- my $m = eval { Tk::MainWindowâ>new() };
+ my $m = eval { Tk::MainWindow->new() };
if ($@) {
my $why = $@;
$why =~ s/ at .*//;
@@ -167,28 +168,29 @@
IINNSSTTAALLLL SSCCRRIIPPTT IINNTTEEGGRRAATTIIOONN
The POE::Loop tests started out as part of the POE distribution. All
the recommendations and examples that follow are written and tested
- against ExtUtils::MakeMaker because thatâs what POE uses. Please
+ 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
simpler approach, calling the script from its Makefile.PL:
system(
- $^X, "poeâgenâtests", "ââdirbase", "t/30_loops",
- "ââloop", "Event", "ââloop", "Gtk", "ââloop", "IO::Poll",
- "ââloop", "Select", "ââloop", "Tk",
+ $^X, "poe-gen-tests", "--dirbase", "t/30_loops",
+ "--loop", "Event", "--loop", "Gtk", "--loop", "IO::Poll",
+ "--loop", "Select", "--loop", "Tk",
) and die $!;
- The previous approach generates tests at install time, so itâs not
+ The previous approach generates tests at install time, so it's not
necessary to include the generated files in the MANIFEST. Test
- directories should also be excluded from the MANIFEST. poeâgenâtests
+ directories should also be excluded from the MANIFEST. poe-gen-tests
will create the necessary paths.
- Itâs also possible to generate the tests prior to "make dist". The
- distributionâs MANIFEST must include the generated files in this case.
+ It's also possible to generate the tests prior to "make dist". The
+ distribution's MANIFEST must include the generated files in this case.
Most people will not need to add the generated tests to their
repositories.
@@ -204,9 +206,9 @@
}
CCLLEEAANNIINNGG UUPP
- Makefiles will not clean up files that arenât present in the MANIFEST.
+ Makefiles will not clean up files that aren't present in the MANIFEST.
This includes tests generated at install time. If this bothers you,
- youâll need to add directives to include the generated tests in the
+ you'll need to add directives to include the generated tests in the
"clean" and "distclean" targets.
clean => {
@@ -214,7 +216,7 @@
}
This assumes the "t/30_loops" directory contains only generated tests.
- Itâs recommended that generated and handâcoded tests not coexist in the
+ It's recommended that generated and hand-coded tests not coexist in the
same directory.
It seems like a good idea to delete the deeper directories and files
@@ -224,29 +226,29 @@
Some generated tests require a network to be present and accessible.
Those tests will be skipped unless the file "run_network_tests" is
present in the main distribution directory. You can include that file
- in your distributionâs tarball, but itâs better create it at install
- time after asking the user. Hereâs how POE does it. Naturally youâre
+ in your distribution's tarball, but it's better create it at install
+ time after asking the user. Here's how POE does it. Naturally you're
free to do it some other way.
# Switch to default behavior if STDIN isn't a tty.
- unless (ât STDIN) {
+ unless (-t STDIN) {
warn(
"\n",
"=============================================\n\n",
- "STDIN is not a terminal. Assuming ââdefault.\n\n",
+ "STDIN is not a terminal. Assuming --default.\n\n",
"=============================================\n\n",
);
- push @ARGV, "ââdefault";
- }
-
- # Remind the user she can use ââdefault.
-
- unless (grep /^ââdefault$/, @ARGV) {
+ push @ARGV, "--default";
+ }
+
+ # Remind the user she can use --default.
+
+ unless (grep /^--default$/, @ARGV) {
warn(
"\n",
"================================================\n\n",
- "Prompts may be bypassed with the ââdefault flag.\n\n",
+ "Prompts may be bypassed with the --default flag.\n\n",
"================================================\n\n",
);
}
@@ -260,7 +262,7 @@
);
my $ret = "n";
- if (grep /^ââdefault$/, @ARGV) {
+ if (grep /^--default$/, @ARGV) {
print $prompt, " [$ret] $ret\n\n";
}
else {
@@ -276,22 +278,24 @@
print "\n";
SSkkiippppiinngg OOtthheerr TTeessttss
- POEâs loop tests will enable or disable tests based on the event loopâs
+ POE's loop tests will enable or disable tests based on the event loop's
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
+ incorrect POD syntax, and it's the reason the _s_k_i_p___t_e_s_t_s_(_) functions
showed up in perldoc and on search.cpan.org. The following syntax is
- wrong and should not have been used. Iâm so sorry.
+ wrong and should not have been used. I'm so sorry.
=for poe_tests
@@ -306,7 +310,7 @@
...
}
- Multiâline tests containing blank lines can be specified using PODâs
+ Multi-line tests containing blank lines can be specified using POD's
"=begin poe_tests" terminated by "=end poe_tests".
=begin poe_tests
@@ -324,20 +328,23 @@
SSEEEE AALLSSOO
POE::Test::Loops, POE::Loop, perlpod.
- BBUUGG TTRRAACCKKEERR
- https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=POEâTestâLoops
-
- RREEPPOOSSIITTOORRYY
- https://poe.svn.sourceforge.net/svnroot/poe/trunk/poeâtestâloops
-
- OOTTHHEERR RREESSOOUURRCCEESS
- http://search.cpan.org/dist/POEâTestâLoops/
+ BBUUGG TTRRAACCKKEERR
+
+ https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=POE-Test-Loops
+
+ RREEPPOOSSIITTOORRYY
+
+ https://poe.svn.sourceforge.net/svnroot/poe/trunk/poe-test-loops
+
+ OOTTHHEERR RREESSOOUURRCCEESS
+
+ http://search.cpan.org/dist/POE-Test-Loops/
AAUUTTHHOORR && CCOOPPYYRRIIGGHHTT
Rocco Caputo <rcaputo at cpan.org>. Benjamin Smith <bsmith at cpan.org>.
Countless other people.
- These tests are Copyright 1998â2009 by Rocco Caputo, Benjamin Smith,
+ These tests are Copyright 1998-2009 by Rocco Caputo, Benjamin Smith,
and countless contributors. All rights are reserved. These tests are
free software; you may redistribute them and/or modify them under the
same terms as Perl itself.
@@ -346,4 +353,4 @@
-perl v5.10.0 2010â09â04 POEâGENâTESTS(1)
+perl v5.10.0 2010-09-04 POE-GEN-TESTS(1)
Modified: trunk/libpoe-test-loops-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/debian/changelog?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/debian/changelog (original)
+++ trunk/libpoe-test-loops-perl/debian/changelog Thu Feb 10 09:59:14 2011
@@ -1,3 +1,9 @@
+libpoe-test-loops-perl (1.040-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Thu, 10 Feb 2011 10:01:25 +0000
+
libpoe-test-loops-perl (1.036-1) unstable; urgency=low
* New upstream release
Modified: trunk/libpoe-test-loops-perl/lib/POE/Test/Loops.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/lib/POE/Test/Loops.pm?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/lib/POE/Test/Loops.pm (original)
+++ trunk/libpoe-test-loops-perl/lib/POE/Test/Loops.pm Thu Feb 10 09:59:14 2011
@@ -6,7 +6,7 @@
use vars qw($VERSION);
use vars qw($VERSION);
-$VERSION = '1.036'; # NOTE - Should be #.### (three decimal places)
+$VERSION = '1.040'; # NOTE - Should be #.### (three decimal places)
use File::Spec;
use File::Path;
Modified: trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/k_alarms.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/k_alarms.pm?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/k_alarms.pm (original)
+++ trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/k_alarms.pm Thu Feb 10 09:59:14 2011
@@ -342,9 +342,9 @@
my $test_14 = $kernel->alarm_set( test_14 => 1 => 14 );
my @test_array = $kernel->alarm_remove( $test_14 );
- ok($test_array[0] eq 'test_14', "alarm 14 remove: name is correct");
- ok($test_array[1] == 1, "alarm 14 remove: time is correct");
- ok($test_array[2] == 14, "alarm 14 remove: data is correct");
+ ok($test_array[0] eq 'test_14', "alarm 14 remove: name is correct");
+ ok($test_array[1] == 1, "alarm 14 remove: time is correct");
+ is_deeply($test_array[2], [ 14 ], "alarm 14 remove: data is correct");
# Have time stand still so we can test against it.
# Heisenberg strikes again!
@@ -359,7 +359,7 @@
$test_scalar->[1] >= $now
), "alarm 15 remove: time is correct"
);
- ok($test_scalar->[2] == 15, "alarm 15 remove: data is correct");
+ is_deeply($test_scalar->[2], [ 15 ], "alarm 15 remove: data is correct");
},
# This one is dispatched.
Modified: trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/ses_nfa.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/ses_nfa.pm?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/ses_nfa.pm (original)
+++ trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/ses_nfa.pm Thu Feb 10 09:59:14 2011
@@ -18,7 +18,11 @@
use POE qw(NFA);
my $NEW_POE;
BEGIN {
- if (eval("\$POE::VER" . "SION") <= 1.003) { # Pesky CPAN indexer.
+ # fixes Argument "1.294_272" isn't numeric in numeric le
+ my $poe_ver = eval("\$POE::VER" . "SION"); # Pesky CPAN indexer.
+ $poe_ver = $1 if $poe_ver =~ /^(?:[^_]+)\_/;
+
+ if ($poe_ver <= 1.003) {
$NEW_POE = 0;
plan tests => 28;
} else {
Modified: trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/wheel_sf_ipv6.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/wheel_sf_ipv6.pm?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/wheel_sf_ipv6.pm (original)
+++ trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/wheel_sf_ipv6.pm Thu Feb 10 09:59:14 2011
@@ -6,26 +6,33 @@
use strict;
use lib qw(./mylib ../mylib);
-use Socket;
+use Socket qw(AF_INET6);
BEGIN {
my $error;
- eval 'use Socket6 ()';
- if ( length($@) or not exists($INC{"Socket6.pm"}) ) {
- $error = "Socket6 is needed for IPv6 tests";
+ eval 'use Socket::GetAddrInfo qw(:newapi getaddrinfo getnameinfo NI_NUMERICHOST NI_NUMERICSERV)';
+ if ($@) {
+ $error = "Socket::GetAddrInfo is needed for IPv6 tests";
}
elsif ($^O eq "cygwin") {
- $error = "IPv6 is not available on Cygwin, even if Socket6 is installed";
+ $error = (
+ "IPv6 isn't available on Cygwin, even with Socket::GetAddrInfo installed"
+ );
}
else {
my $addr;
- eval { $addr = Socket6::inet_pton(&Socket6::AF_INET6, "::1") };
+ eval {
+ my ($error, @addr) = getaddrinfo(
+ "localhost", 80, { family => AF_INET6 }
+ );
+ $addr = $addr[0]{addr} if @addr;
+ };
if ($@) {
- $error = "AF_INET6 not provided by Socket6.pm ... can't test this";
+ $error = "error resolving localhost for IPv6: $@";
}
elsif (!defined $addr) {
- $error = "IPv6 tests require a configured localhost address ('::1')";
+ $error = "IPv6 tests require a configured IPv6 localhost address";
}
elsif (!-f 'run_network_tests') {
$error = "Network access (and permission) required to run this test";
@@ -63,7 +70,7 @@
POE::Component::Server::TCP->new(
Port => 0,
Address => '::1',
- Domain => Socket6::AF_INET6,
+ Domain => AF_INET6,
Alias => 'server',
ClientConnected => \&server_got_connect,
ClientInput => \&server_got_input,
@@ -74,7 +81,9 @@
Started => sub {
eval {
my $socket_name = $_[HEAP]{listener}->getsockname();
- $tcp_server_port = (Socket6::unpack_sockaddr_in6($socket_name))[0];
+ (my ($err, $host), $tcp_server_port) = getnameinfo(
+ $socket_name, NI_NUMERICHOST | NI_NUMERICSERV
+ );
};
if (!$tcp_server_port || $@) {
$tcp_server_port = undef;
@@ -126,7 +135,7 @@
POE::Component::Client::TCP->new(
RemoteAddress => '::1',
RemotePort => $tcp_server_port,
- Domain => Socket6::AF_INET6,
+ Domain => AF_INET6,
BindAddress => '::1',
Connected => \&client_got_connect,
ServerInput => \&client_got_input,
Modified: trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/z_rt54319_bazerka_followtail.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/z_rt54319_bazerka_followtail.pm?rev=68267&op=diff
==============================================================================
--- trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/z_rt54319_bazerka_followtail.pm (original)
+++ trunk/libpoe-test-loops-perl/lib/POE/Test/Loops/z_rt54319_bazerka_followtail.pm Thu Feb 10 09:59:14 2011
@@ -44,13 +44,15 @@
InputEvent => "got_log_line",
PollInterval => 3,
);
- $_[KERNEL]->delay(timeout => 15);
+ $_[KERNEL]->delay(timeout => 20);
},
got_log_line => sub {
my ($write, $time) = split /\s+/, $_[ARG0];
my $elapsed = time() - $time;
ok($elapsed <= 3, "response time <=3 seconds ($elapsed)");
- delete $_[HEAP]{tailor} if $write >= TESTS;
+ return if $write < TESTS;
+ $_[KERNEL]->delay(timeout => undef);
+ delete $_[HEAP]{tailor};
},
timeout => sub {
delete $_[HEAP]{tailor};
More information about the Pkg-perl-cvs-commits
mailing list