Hello community, here is the log from the commit of package perl-Test-TCP for openSUSE:Factory checked in at 2016-08-22 10:07:19 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-TCP (Old) and /work/SRC/openSUSE:Factory/.perl-Test-TCP.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-TCP" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-TCP/perl-Test-TCP.changes 2016-05-03 10:16:56.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-TCP.new/perl-Test-TCP.changes 2016-08-22 10:07:21.000000000 +0200 @@ -1,0 +2,10 @@ +Fri Aug 19 06:04:06 UTC 2016 - [email protected] + +- updated to 2.17 + see /usr/share/doc/packages/perl-Test-TCP/Changes + + 2.17 2016-08-18T14:42:56Z + - check_port can take 'host' argument(#55) + - Fix test on Windows issue(#55) + +------------------------------------------------------------------- Old: ---- Test-TCP-2.16.tar.gz New: ---- Test-TCP-2.17.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-TCP.spec ++++++ --- /var/tmp/diff_new_pack.K0xvWE/_old 2016-08-22 10:07:22.000000000 +0200 +++ /var/tmp/diff_new_pack.K0xvWE/_new 2016-08-22 10:07:22.000000000 +0200 @@ -17,14 +17,14 @@ Name: perl-Test-TCP -Version: 2.16 +Version: 2.17 Release: 0 %define cpan_name Test-TCP Summary: Testing Tcp Program License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/Test-TCP/ -Source0: http://www.cpan.org/authors/id/T/TO/TOKUHIROM/%{cpan_name}-%{version}.tar.gz +Source0: http://www.cpan.org/authors/id/S/SY/SYOHEX/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build ++++++ Test-TCP-2.16.tar.gz -> Test-TCP-2.17.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/Changes new/Test-TCP-2.17/Changes --- old/Test-TCP-2.16/Changes 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/Changes 2016-08-18 16:43:22.000000000 +0200 @@ -1,5 +1,9 @@ Revision history for Perl module Test::TCP +2.17 2016-08-18T14:42:56Z + - check_port can take 'host' argument(#55) + - Fix test on Windows issue(#55) + 2.16 2016-04-13T02:27:43Z commit 3ae73a349f70f06c60de3f635916929bc8643429 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/META.json new/Test-TCP-2.17/META.json --- old/Test-TCP-2.16/META.json 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/META.json 2016-08-18 16:43:22.000000000 +0200 @@ -4,7 +4,7 @@ "Tokuhiro Matsuno <[email protected]>" ], "dynamic_config" : 0, - "generated_by" : "Minilla/v3.0.1", + "generated_by" : "Minilla/v3.0.4", "license" : [ "perl_5" ], @@ -67,7 +67,7 @@ }, "Test::TCP" : { "file" : "lib/Test/TCP.pm", - "version" : "2.16" + "version" : "2.17" }, "Test::TCP::CheckPort" : { "file" : "lib/Test/TCP/CheckPort.pm" @@ -84,7 +84,7 @@ "web" : "https://github.com/tokuhirom/Test-TCP"; } }, - "version" : "2.16", + "version" : "2.17", "x_contributors" : [ "tokuhirom <tokuhirom@d0d07461-0603-4401-acd4-de1884942a52>", "mattn <mattn@d0d07461-0603-4401-acd4-de1884942a52>", @@ -107,6 +107,10 @@ "Tatsuhiko Miyagawa <[email protected]>", "Chad Granum <[email protected]>", "Dagfinn Ilmari Mannsåker <[email protected]>", - "Alex Vandiver <[email protected]>" - ] + "David Precious <[email protected]>", + "Alex Vandiver <[email protected]>", + "richard.leach <[email protected]>", + "Syohei YOSHIDA <[email protected]>" + ], + "x_serialization_backend" : "JSON::PP version 2.27400" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/META.yml new/Test-TCP-2.17/META.yml --- old/Test-TCP-2.16/META.yml 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/META.yml 2016-08-18 16:43:22.000000000 +0200 @@ -9,7 +9,7 @@ configure_requires: ExtUtils::MakeMaker: '6.64' dynamic_config: 0 -generated_by: 'Minilla/v3.0.1, CPAN::Meta::Converter version 2.150001' +generated_by: 'Minilla/v3.0.4, CPAN::Meta::Converter version 2.150005' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -30,7 +30,7 @@ file: lib/Net/EmptyPort.pm Test::TCP: file: lib/Test/TCP.pm - version: '2.16' + version: '2.17' Test::TCP::CheckPort: file: lib/Test/TCP/CheckPort.pm requires: @@ -44,7 +44,7 @@ bugtracker: https://github.com/tokuhirom/Test-TCP/issues homepage: https://github.com/tokuhirom/Test-TCP repository: git://github.com/tokuhirom/Test-TCP.git -version: '2.16' +version: '2.17' x_contributors: - 'tokuhirom <tokuhirom@d0d07461-0603-4401-acd4-de1884942a52>' - 'mattn <mattn@d0d07461-0603-4401-acd4-de1884942a52>' @@ -67,4 +67,8 @@ - 'Tatsuhiko Miyagawa <[email protected]>' - 'Chad Granum <[email protected]>' - 'Dagfinn Ilmari Mannsåker <[email protected]>' + - 'David Precious <[email protected]>' - 'Alex Vandiver <[email protected]>' + - 'richard.leach <[email protected]>' + - 'Syohei YOSHIDA <[email protected]>' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/Makefile.PL new/Test-TCP-2.17/Makefile.PL --- old/Test-TCP-2.16/Makefile.PL 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/Makefile.PL 2016-08-18 16:43:22.000000000 +0200 @@ -12,7 +12,7 @@ my %WriteMakefileArgs = ( NAME => 'Test::TCP', DISTNAME => 'Test-TCP', - VERSION => '2.16', + VERSION => '2.17', EXE_FILES => [glob('script/*'), glob('bin/*')], CONFIGURE_REQUIRES => { "ExtUtils::MakeMaker" => "6.64" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/lib/Net/EmptyPort.pm new/Test-TCP-2.17/lib/Net/EmptyPort.pm --- old/Test-TCP-2.16/lib/Net/EmptyPort.pm 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/lib/Net/EmptyPort.pm 2016-08-18 16:43:22.000000000 +0200 @@ -124,7 +124,7 @@ my $waiter = _make_waiter($max_wait); while ( $waiter->() ) { - if ($^O eq 'MSWin32' ? `$^X -MTest::TCP::CheckPort -echeck_port $port $proto` : check_port({ host => $host, port => $port, proto => $proto })) { + if ($^O eq 'MSWin32' ? `$^X -MTest::TCP::CheckPort -echeck_port $host $port $proto` : check_port({ host => $host, port => $port, proto => $proto })) { return 1; } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/lib/Test/TCP/CheckPort.pm new/Test-TCP-2.17/lib/Test/TCP/CheckPort.pm --- old/Test-TCP-2.16/lib/Test/TCP/CheckPort.pm 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/lib/Test/TCP/CheckPort.pm 2016-08-18 16:43:22.000000000 +0200 @@ -6,7 +6,13 @@ our @EXPORT = qw/ check_port /; -sub check_port { print Net::EmptyPort::check_port( @ARGV ) } +sub check_port { + if ( @ARGV == 3) { + print Net::EmptyPort::check_port( { host => $ARGV[0], port => $ARGV[1], proto => $ARGV[2] } ); + } else { + print Net::EmptyPort::check_port( @ARGV ); + } +} 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/lib/Test/TCP.pm new/Test-TCP-2.17/lib/Test/TCP.pm --- old/Test-TCP-2.16/lib/Test/TCP.pm 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/lib/Test/TCP.pm 2016-08-18 16:43:22.000000000 +0200 @@ -2,7 +2,7 @@ use strict; use warnings; use 5.00800; -our $VERSION = '2.16'; +our $VERSION = '2.17'; use base qw/Exporter/; use Test::SharedFork 0.12; use Test::More (); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/t/11_net_empty_port.t new/Test-TCP-2.17/t/11_net_empty_port.t --- old/Test-TCP-2.16/t/11_net_empty_port.t 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/t/11_net_empty_port.t 2016-08-18 16:43:22.000000000 +0200 @@ -8,9 +8,10 @@ my $host = shift; my $port = empty_port(); - ok "found an empty port"; + ok $port, "found an empty port on $host"; - ok !wait_port({ host => $host, port => $port, max_wait => 0.1 }), "port is closed"; + ok !wait_port({ host => $host, port => $port, max_wait => 0.1 }), + "port $port on $host is closed"; my $sock = IO::Socket::IP->new( LocalAddr => $host, @@ -19,11 +20,24 @@ V6Only => 1, ) or die "Couldn't create socket: $!"; - ok wait_port({ host => $host, port => $port, max_wait => 3 }), "port is open"; + ok wait_port({ host => $host, port => $port, max_wait => 3 }), + "port $port on $host is now open"; }; ok can_bind('127.0.0.1'), 'bind to 127.0.0.1'; -ok ! can_bind('8.8.8.8'), 'bind to an anvailable address'; + +# Skip this check if binding to non-local addresses is enabled (most common +# on load balancers with floating IPs) +SKIP: { + if (-f '/proc/sys/net/ipv4/ip_nonlocal_bind') { + open my $fh, "<", "/proc/sys/net/ipv4/ip_nonlocal_bind"; + if (<$fh> =~ /1/) { + skip "Binding to non-local adddresses is allowed"; + } else { + ok ! can_bind('8.8.8.8'), 'Cannot bind to an unavailable address'; + } + } +} subtest 'v4' => sub { doit('127.0.0.1'); @@ -32,7 +46,7 @@ subtest 'v6' => sub { plan skip_all => "IPv6 not supported" unless eval { Socket::IPV6_V6ONLY } and can_bind("::1"); - ok "found an empty port"; + diag "found an empty IPv6 port"; doit('::1'); }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-TCP-2.16/xt/04_dependents.t new/Test-TCP-2.17/xt/04_dependents.t --- old/Test-TCP-2.16/xt/04_dependents.t 2016-04-13 04:28:55.000000000 +0200 +++ new/Test-TCP-2.17/xt/04_dependents.t 2016-08-18 16:43:22.000000000 +0200 @@ -13,10 +13,12 @@ plan skip_all => "No cpanm" unless which('cpanm'); local $ENV{PERL_CPANM_OPT} = '--no-man-pages --no-prompt --no-interactive'; +local $ENV{RELEASE_TESTING}; +local $ENV{AUTHOR_TESTING}; my $tmp = tempdir(CLEANUP => 1); is(system("cpanm --notest -l $tmp ."), 0); -for (qw(Monoceros Plack POSIX::getpeername Starman Dancer2)) { +for (qw(Plack POSIX::getpeername Starman Dancer2)) { is(system("cpanm -l $tmp --reinstall $_"), 0, $_); }
