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