r62515 - in /branches/upstream/libtest-tcp-perl/current: Changes META.yml Makefile.PL inc/Test/More.pm lib/Test/TCP.pm t/04_die.t

periapt-guest at users.alioth.debian.org periapt-guest at users.alioth.debian.org
Mon Sep 13 08:03:31 UTC 2010 

Author: periapt-guest
Date: Mon Sep 13 08:03:13 2010
New Revision: 62515

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62515
Log:
[svn-upgrade] new version libtest-tcp-perl (1.06)

Modified:
    branches/upstream/libtest-tcp-perl/current/Changes
    branches/upstream/libtest-tcp-perl/current/META.yml
    branches/upstream/libtest-tcp-perl/current/Makefile.PL
    branches/upstream/libtest-tcp-perl/current/inc/Test/More.pm
    branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm
    branches/upstream/libtest-tcp-perl/current/t/04_die.t

Modified: branches/upstream/libtest-tcp-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/Changes?rev=62515&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/Changes (original)
+++ branches/upstream/libtest-tcp-perl/current/Changes Mon Sep 13 08:03:13 2010
@@ -1,4 +1,13 @@
 Revision history for Perl extension Test::TCP
+
+1.06
+
+    - depend to Test::SharedFork 0.14. It fixes issue with Test::Builder2.
+
+1.05
+
+    - workaround for $@ issue in test case.
+      Data::Util's method modifier clears $@.
 
 1.04
 

Modified: branches/upstream/libtest-tcp-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/META.yml?rev=62515&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/META.yml (original)
+++ branches/upstream/libtest-tcp-perl/current/META.yml Mon Sep 13 08:03:13 2010
@@ -20,8 +20,8 @@
     - xt
 requires:
   IO::Socket::INET: 0
-  Test::SharedFork: 0.12
+  Test::SharedFork: 0.14
   perl: 5.8.0
 resources:
   license: http://dev.perl.org/licenses/
-version: 1.04
+version: 1.06

Modified: branches/upstream/libtest-tcp-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/Makefile.PL?rev=62515&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-tcp-perl/current/Makefile.PL Mon Sep 13 08:03:13 2010
@@ -5,7 +5,7 @@
 all_from 'lib/Test/TCP.pm';
 
 requires 'IO::Socket::INET' => 0;
-requires 'Test::SharedFork' => 0.12;
+requires 'Test::SharedFork' => 0.14;
 
 tests 't/*.t t/*/*.t t/*/*/*.t t/*/*/*/*.t';
 test_requires 'Test::More';

Modified: branches/upstream/libtest-tcp-perl/current/inc/Test/More.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/inc/Test/More.pm?rev=62515&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/inc/Test/More.pm (original)
+++ branches/upstream/libtest-tcp-perl/current/inc/Test/More.pm Mon Sep 13 08:03:13 2010
@@ -1,7 +1,7 @@
 #line 1
 package Test::More;
 
-use 5.006;
+use 5.008001;
 use strict;
 use warnings;
 
@@ -18,7 +18,7 @@
     return warn @_, " at $file line $line\n";
 }
 
-our $VERSION = '0.96';
+our $VERSION = '2.00_01';
 $VERSION = eval $VERSION;    ## no critic (BuiltinFunctions::ProhibitStringyEval)
 
 use Test::Builder::Module;
@@ -249,7 +249,7 @@
 
 #line 736
 
-sub subtest($&) {
+sub subtest {
     my ($name, $subtests) = @_;
 
     my $tb = Test::More->builder;
@@ -270,7 +270,7 @@
     return $tb->ok( 0, @_ );
 }
 
-#line 823
+#line 828
 
 sub use_ok ($;@) {
     my( $module, @imports ) = @_;
@@ -332,7 +332,7 @@
     return( $eval_result, $eval_error );
 }
 
-#line 892
+#line 897
 
 sub require_ok ($) {
     my($module) = shift;
@@ -376,7 +376,7 @@
     return $module =~ /^[a-zA-Z]\w*$/ ? 1 : 0;
 }
 
-#line 969
+#line 974
 
 our( @Data_Stack, %Refs_Seen );
 my $DNE = bless [], 'Does::Not::Exist';
@@ -483,7 +483,7 @@
     return '';
 }
 
-#line 1129
+#line 1134
 
 sub diag {
     return Test::More->builder->diag(@_);
@@ -493,13 +493,13 @@
     return Test::More->builder->note(@_);
 }
 
-#line 1155
+#line 1160
 
 sub explain {
     return Test::More->builder->explain(@_);
 }
 
-#line 1221
+#line 1226
 
 ## no critic (Subroutines::RequireFinalReturn)
 sub skip {
@@ -527,7 +527,7 @@
     last SKIP;
 }
 
-#line 1305
+#line 1310
 
 sub todo_skip {
     my( $why, $how_many ) = @_;
@@ -548,7 +548,7 @@
     last TODO;
 }
 
-#line 1360
+#line 1365
 
 sub BAIL_OUT {
     my $reason = shift;
@@ -557,7 +557,7 @@
     $tb->BAIL_OUT($reason);
 }
 
-#line 1399
+#line 1404
 
 #'#
 sub eq_array {
@@ -697,7 +697,7 @@
     }
 }
 
-#line 1546
+#line 1551
 
 sub eq_hash {
     local @Data_Stack = ();
@@ -732,7 +732,7 @@
     return $ok;
 }
 
-#line 1605
+#line 1610
 
 sub eq_set {
     my( $a1, $a2 ) = @_;
@@ -757,6 +757,6 @@
     );
 }
 
-#line 1807
+#line 1812
 
 1;

Modified: branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm?rev=62515&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm (original)
+++ branches/upstream/libtest-tcp-perl/current/lib/Test/TCP.pm Mon Sep 13 08:03:13 2010
@@ -2,10 +2,10 @@
 use strict;
 use warnings;
 use 5.00800;
-our $VERSION = '1.04';
+our $VERSION = '1.06';
 use base qw/Exporter/;
 use IO::Socket::INET;
-use Test::SharedFork;
+use Test::SharedFork 0.12;
 use Test::More ();
 use Config;
 use POSIX;
@@ -48,7 +48,7 @@
     }
     my $port = $args{port} || empty_port();
 
-    if ( my $pid = Test::SharedFork->fork() ) {
+    if ( my $pid = fork() ) {
         # parent.
         wait_port($port);
 

Modified: branches/upstream/libtest-tcp-perl/current/t/04_die.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-tcp-perl/current/t/04_die.t?rev=62515&op=diff
==============================================================================
--- branches/upstream/libtest-tcp-perl/current/t/04_die.t (original)
+++ branches/upstream/libtest-tcp-perl/current/t/04_die.t Mon Sep 13 08:03:13 2010
@@ -20,8 +20,9 @@
         },
     );
 };
-ok $@;
-like $@, qr/sinamon/;
+my $e = $@;
+ok $e;
+like $e, qr/sinamon/;
 my $killed = kill 9, $child_pid;
 is $killed, 0, "already killed by test_tcp";

More information about the Pkg-perl-cvs-commits mailing list