Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Future-IO for openSUSE:Factory
checked in at 2023-05-12 20:34:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Future-IO (Old)
and /work/SRC/openSUSE:Factory/.perl-Future-IO.new.1533 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Future-IO"
Fri May 12 20:34:26 2023 rev:4 rq:1084426 version:0.14
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Future-IO/perl-Future-IO.changes
2023-02-20 17:48:01.656168435 +0100
+++ /work/SRC/openSUSE:Factory/.perl-Future-IO.new.1533/perl-Future-IO.changes
2023-05-12 20:35:28.545270079 +0200
@@ -1,0 +2,11 @@
+Wed Apr 26 03:06:15 UTC 2023 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 0.14
+ see /usr/share/doc/packages/perl-Future-IO/Changes
+
+ 0.14 2023-04-25
+ [CHANGES]
+ * Moved `Test::Future::IO::Impl` into its own distribution, so that
+ downstream packages don't have to runtime-depend on `Test2`
+
+-------------------------------------------------------------------
Old:
----
Future-IO-0.13.tar.gz
New:
----
Future-IO-0.14.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Future-IO.spec ++++++
--- /var/tmp/diff_new_pack.NUteos/_old 2023-05-12 20:35:29.845277224 +0200
+++ /var/tmp/diff_new_pack.NUteos/_new 2023-05-12 20:35:29.853277267 +0200
@@ -18,7 +18,7 @@
%define cpan_name Future-IO
Name: perl-Future-IO
-Version: 0.13
+Version: 0.14
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Future-returning IO methods
@@ -32,6 +32,7 @@
BuildRequires: perl(Module::Build) >= 0.400400
BuildRequires: perl(Struct::Dumb)
BuildRequires: perl(Test2::V0)
+BuildRequires: perl(Test::Future::IO::Impl)
Requires: perl(Future)
Requires: perl(Struct::Dumb)
%{perl_requires}
++++++ Future-IO-0.13.tar.gz -> Future-IO-0.14.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/Build.PL new/Future-IO-0.14/Build.PL
--- old/Future-IO-0.13/Build.PL 2023-02-19 21:25:48.000000000 +0100
+++ new/Future-IO-0.14/Build.PL 2023-04-25 14:04:14.000000000 +0200
@@ -14,6 +14,7 @@
'perl' => '5.014',
},
test_requires => {
+ 'Test::Future::IO::Impl' => 0,
'Test2::V0' => 0,
},
configure_requires => {
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/Changes new/Future-IO-0.14/Changes
--- old/Future-IO-0.13/Changes 2023-02-19 21:25:48.000000000 +0100
+++ new/Future-IO-0.14/Changes 2023-04-25 14:04:14.000000000 +0200
@@ -1,5 +1,10 @@
Revision history for Future-IO
+0.14 2023-04-25
+ [CHANGES]
+ * Moved `Test::Future::IO::Impl` into its own distribution, so that
+ downstream packages don't have to runtime-depend on `Test2`
+
0.13 2023-02-19
[CHANGES]
* Swap all unit tests from `Test::More` to `Test2::V0`
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/MANIFEST new/Future-IO-0.14/MANIFEST
--- old/Future-IO-0.13/MANIFEST 2023-02-19 21:25:48.000000000 +0100
+++ new/Future-IO-0.14/MANIFEST 2023-04-25 14:04:14.000000000 +0200
@@ -3,7 +3,6 @@
lib/Future/IO.pm
lib/Future/IO/ImplBase.pm
lib/Future/IO/System.pm
-lib/Test/Future/IO/Impl.pm
LICENSE
MANIFEST This list of files
META.json
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/META.json new/Future-IO-0.14/META.json
--- old/Future-IO-0.13/META.json 2023-02-19 21:25:48.000000000 +0100
+++ new/Future-IO-0.14/META.json 2023-04-25 14:04:14.000000000 +0200
@@ -29,26 +29,23 @@
},
"test" : {
"requires" : {
- "Test2::V0" : "0"
+ "Test2::V0" : "0",
+ "Test::Future::IO::Impl" : "0"
}
}
},
"provides" : {
"Future::IO" : {
"file" : "lib/Future/IO.pm",
- "version" : "0.13"
+ "version" : "0.14"
},
"Future::IO::ImplBase" : {
"file" : "lib/Future/IO/ImplBase.pm",
- "version" : "0.13"
+ "version" : "0.14"
},
"Future::IO::System" : {
"file" : "lib/Future/IO/System.pm",
- "version" : "0.13"
- },
- "Test::Future::IO::Impl" : {
- "file" : "lib/Test/Future/IO/Impl.pm",
- "version" : "0.13"
+ "version" : "0.14"
}
},
"release_status" : "stable",
@@ -57,6 +54,6 @@
"http://dev.perl.org/licenses/";
]
},
- "version" : "0.13",
+ "version" : "0.14",
"x_serialization_backend" : "JSON::PP version 4.07"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/META.yml new/Future-IO-0.14/META.yml
--- old/Future-IO-0.13/META.yml 2023-02-19 21:25:48.000000000 +0100
+++ new/Future-IO-0.14/META.yml 2023-04-25 14:04:14.000000000 +0200
@@ -4,6 +4,7 @@
- 'Paul Evans <leon...@leonerd.org.uk>'
build_requires:
Test2::V0: '0'
+ Test::Future::IO::Impl: '0'
configure_requires:
Module::Build: '0.4004'
dynamic_config: 1
@@ -16,16 +17,13 @@
provides:
Future::IO:
file: lib/Future/IO.pm
- version: '0.13'
+ version: '0.14'
Future::IO::ImplBase:
file: lib/Future/IO/ImplBase.pm
- version: '0.13'
+ version: '0.14'
Future::IO::System:
file: lib/Future/IO/System.pm
- version: '0.13'
- Test::Future::IO::Impl:
- file: lib/Test/Future/IO/Impl.pm
- version: '0.13'
+ version: '0.14'
requires:
Future: '0'
Struct::Dumb: '0'
@@ -33,5 +31,5 @@
perl: '5.014'
resources:
license: http://dev.perl.org/licenses/
-version: '0.13'
+version: '0.14'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/lib/Future/IO/ImplBase.pm
new/Future-IO-0.14/lib/Future/IO/ImplBase.pm
--- old/Future-IO-0.13/lib/Future/IO/ImplBase.pm 2023-02-19
21:25:48.000000000 +0100
+++ new/Future-IO-0.14/lib/Future/IO/ImplBase.pm 2023-04-25
14:04:14.000000000 +0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2019-2021 -- leon...@leonerd.org.uk
-package Future::IO::ImplBase 0.13;
+package Future::IO::ImplBase 0.14;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/lib/Future/IO/System.pm
new/Future-IO-0.14/lib/Future/IO/System.pm
--- old/Future-IO-0.13/lib/Future/IO/System.pm 2023-02-19 21:25:48.000000000
+0100
+++ new/Future-IO-0.14/lib/Future/IO/System.pm 2023-04-25 14:04:14.000000000
+0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2023 -- leon...@leonerd.org.uk
-package Future::IO::System 0.13;
+package Future::IO::System 0.14;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/lib/Future/IO.pm
new/Future-IO-0.14/lib/Future/IO.pm
--- old/Future-IO-0.13/lib/Future/IO.pm 2023-02-19 21:25:48.000000000 +0100
+++ new/Future-IO-0.14/lib/Future/IO.pm 2023-04-25 14:04:14.000000000 +0200
@@ -3,7 +3,7 @@
#
# (C) Paul Evans, 2019-2023 -- leon...@leonerd.org.uk
-package Future::IO 0.13;
+package Future::IO 0.14;
use v5.14;
use warnings;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/lib/Test/Future/IO/Impl.pm
new/Future-IO-0.14/lib/Test/Future/IO/Impl.pm
--- old/Future-IO-0.13/lib/Test/Future/IO/Impl.pm 2023-02-19
21:25:48.000000000 +0100
+++ new/Future-IO-0.14/lib/Test/Future/IO/Impl.pm 1970-01-01
01:00:00.000000000 +0100
@@ -1,397 +0,0 @@
-# You may distribute under the terms of either the GNU General Public License
-# or the Artistic License (the same terms as Perl itself)
-#
-# (C) Paul Evans, 2021 -- leon...@leonerd.org.uk
-
-package Test::Future::IO::Impl 0.13;
-
-use v5.14;
-use warnings;
-
-use Test2::V0;
-use Test2::API ();
-
-use Errno qw( EINVAL EPIPE );
-use IO::Handle;
-use Socket qw( pack_sockaddr_in INADDR_LOOPBACK );
-use Time::HiRes qw( time );
-
-use Exporter 'import';
-our @EXPORT = qw( run_tests );
-
-=head1 NAME
-
-C<Test::Future::IO::Impl> - acceptance tests for C<Future::IO> implementations
-
-=head1 SYNOPSIS
-
- use Test::More;
- use Test::Future::IO::Impl;
-
- use Future::IO;
- use Future::IO::Impl::MyNewImpl;
-
- run_tests 'sleep';
-
- done_testing;
-
-=head1 DESCRIPTION
-
-This module contains a collection of acceptance tests for implementations of
-L<Future::IO>.
-
-=cut
-
-=head1 FUNCTIONS
-
-=cut
-
-my $errstr_EPIPE = do {
- # On MSWin32 we don't get EPIPE, but EINVAL
- local $! = $^O eq "MSWin32" ? EINVAL : EPIPE; "$!";
-};
-
-my $errstr_ECONNREFUSED = do {
- local $! = Errno::ECONNREFUSED; "$!";
-};
-
-sub time_about(&@)
-{
- my ( $code, $want_time, $name ) = @_;
- my $ctx = Test2::API::context;
-
- my $t0 = time();
- $code->();
- my $t1 = time();
-
- my $got_time = $t1 - $t0;
- $ctx->ok(
- $got_time >= $want_time * 0.9 && $got_time <= $want_time * 1.5, $name
- ) or
- $ctx->diag( sprintf "Test took %.3f seconds", $got_time );
-
- $ctx->release;
-}
-
-=head2 run_tests
-
- run_tests @suitenames
-
-Runs a collection of tests against C<Future::IO>. It is expected that the
-caller has already loaded the specific implementation module to be tested
-against before this function is called.
-
-=cut
-
-sub run_tests
-{
- foreach my $test ( @_ ) {
- my $code = __PACKAGE__->can( "run_${test}_test" )
- or die "Unrecognised test suite name $test";
- __PACKAGE__->$code();
- }
-}
-
-=head1 TEST SUITES
-
-The following test suite names may be passed to the L</run_tests> function:
-
-=cut
-
-=head2 accept
-
-Tests the C<< Future::IO->accept >> method.
-
-=cut
-
-sub run_accept_test
-{
- require IO::Socket::INET;
-
- my $serversock = IO::Socket::INET->new(
- Type => Socket::SOCK_STREAM(),
- LocalAddr => "localhost",
- LocalPort => 0,
- Listen => 1,
- ) or die "Cannot socket()/listen() - $@";
-
- $serversock->blocking( 0 );
-
- my $f = Future::IO->accept( $serversock );
-
- # Some platforms have assigned 127.0.0.1 here; others have left 0.0.0.0
- # If it's still 0.0.0.0, then guess that maybe connecting to 127.0.0.1 will
- # work
- my $sockname = ( $serversock->sockhost ne "0.0.0.0" )
- ? $serversock->sockname
- : pack_sockaddr_in( $serversock->sockport, INADDR_LOOPBACK );
-
- my $clientsock = IO::Socket::INET->new(
- Type => Socket::SOCK_STREAM(),
- ) or die "Cannot socket() - $@";
- $clientsock->connect( $sockname ) or die "Cannot connect() - $@";
-
- my $acceptedsock = $f->get;
-
- ok( $clientsock->peername eq $acceptedsock->sockname, 'Accepted socket
address matches' );
-}
-
-=head2 connect
-
-Tests the C<< Future::IO->connect >> method.
-
-=cut
-
-sub run_connect_test
-{
- require IO::Socket::INET;
-
- my $serversock = IO::Socket::INET->new(
- Type => Socket::SOCK_STREAM(),
- LocalAddr => "localhost",
- LocalPort => 0,
- Listen => 1,
- ) or die "Cannot socket()/listen() - $@";
-
- # Some platforms have assigned 127.0.0.1 here; others have left 0.0.0.0
- # If it's still 0.0.0.0, then guess that maybe connecting to 127.0.0.1 will
- # work
- my $sockname = ( $serversock->sockhost ne "0.0.0.0" )
- ? $serversock->sockname
- : pack_sockaddr_in( $serversock->sockport, INADDR_LOOPBACK );
-
- # ->connect success
- {
- my $clientsock = IO::Socket::INET->new(
- Type => Socket::SOCK_STREAM(),
- ) or die "Cannot socket() - $@";
- $clientsock->blocking( 0 );
-
- my $f = Future::IO->connect( $clientsock, $sockname );
-
- $f->get;
-
- my $acceptedsock = $serversock->accept;
- ok( $clientsock->peername eq $acceptedsock->sockname, 'Accepted socket
address matches' );
- }
-
- $serversock->close;
- undef $serversock;
-
- # I really hate this, but apparently Win32 testers will fail if we don't
- # do this.
- sleep 1 if $^O eq "MSWin32";
-
- # ->connect fails
- {
- my $clientsock = IO::Socket::INET->new(
- Type => Socket::SOCK_STREAM(),
- ) or die "Cannot socket() - $@";
- $clientsock->blocking( 0 );
-
- my $f = Future::IO->connect( $clientsock, $sockname );
-
- ok( !eval { $f->get; 1 }, 'Future::IO->connect fails on closed server' );
-
- is( [ $f->failure ],
- [ "connect: $errstr_ECONNREFUSED\n", connect => $clientsock,
$errstr_ECONNREFUSED ],
- 'Future::IO->connect failure' );
- }
-}
-
-=head2 sleep
-
-Tests the C<< Future::IO->sleep >> method.
-
-=cut
-
-sub run_sleep_test
-{
- time_about sub {
- Future::IO->sleep( 0.2 )->get;
- }, 0.2, 'Future::IO->sleep( 0.2 ) sleeps 0.2 seconds';
-
- time_about sub {
- my $f1 = Future::IO->sleep( 0.1 );
- my $f2 = Future::IO->sleep( 0.3 );
- $f1->cancel;
- $f2->get;
- }, 0.3, 'Future::IO->sleep can be cancelled';
-
- {
- my $f1 = Future::IO->sleep( 0.1 );
- my $f2 = Future::IO->sleep( 0.3 );
-
- is( $f2->await, $f2, '->await returns Future' );
- ok( $f2->is_ready, '$f2 is ready after ->await' );
- ok( $f1->is_ready, '$f1 is also ready after ->await' );
- }
-
- time_about sub {
- Future::IO->alarm( time() + 0.2 )->get;
- }, 0.2, 'Future::IO->alarm( now + 0.2 ) sleeps 0.2 seconds';
-}
-
-=head2 sysread
-
-Tests the C<< Future::IO->sysread >> method.
-
-=cut
-
-sub run_sysread_test
-{
- # ->sysread yielding bytes
- {
- pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
-
- $wr->autoflush();
- $wr->print( "BYTES" );
-
- my $f = Future::IO->sysread( $rd, 5 );
-
- is( scalar $f->get, "BYTES", 'Future::IO->sysread yields bytes from
pipe' );
- }
-
- # ->sysread yielding EOF
- {
- pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
- $wr->close; undef $wr;
-
- my $f = Future::IO->sysread( $rd, 1 );
-
- is( [ $f->get ], [], 'Future::IO->sysread yields nothing on EOF' );
- }
-
- # TODO: is there a nice portable way we can test for an IO error?
-
- # ->sysread can be cancelled
- {
- pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
-
- $wr->autoflush();
- $wr->print( "BYTES" );
-
- my $f1 = Future::IO->sysread( $rd, 3 );
- my $f2 = Future::IO->sysread( $rd, 3 );
-
- $f1->cancel;
-
- is( scalar $f2->get, "BYT", 'Future::IO->sysread can be cancelled' );
- }
-}
-
-=head2 syswrite
-
-Tests the C<< Future::IO->syswrite >> method.
-
-=cut
-
-sub run_syswrite_test
-{
- # ->syswrite success
- {
- pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
-
- my $f = Future::IO->syswrite( $wr, "BYTES" );
-
- is( scalar $f->get, 5, 'Future::IO->syswrite yields written count' );
-
- $rd->read( my $buf, 5 );
- is( $buf, "BYTES", 'Future::IO->syswrite wrote bytes' );
- }
-
- # ->syswrite yielding EAGAIN
- SKIP: {
- $^O eq "MSWin32" and skip "MSWin32 doesn't do EAGAIN properly", 2;
-
- pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
- $wr->blocking( 0 );
-
- # Attempt to fill the pipe
- $wr->syswrite( "X" x 4096 ) for 1..256;
-
- my $f = Future::IO->syswrite( $wr, "more" );
-
- ok( !$f->is_ready, '$f is still pending' );
-
- # Now make some space
- $rd->read( my $buf, 4096 );
-
- is( scalar $f->get, 4, 'Future::IO->syswrite yields written count' );
- }
-
- # ->syswrite yielding EPIPE
- {
- pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
- $rd->close; undef $rd;
-
- local $SIG{PIPE} = 'IGNORE';
-
- my $f = Future::IO->syswrite( $wr, "BYTES" );
-
- ok( !eval { $f->get }, 'Future::IO->syswrite fails on EPIPE' );
-
- is( [ $f->failure ],
- [ "syswrite: $errstr_EPIPE\n", syswrite => $wr, $errstr_EPIPE ],
- 'Future::IO->syswrite failure for EPIPE' );
- }
-
- # ->syswrite can be cancelled
- {
- pipe my ( $rd, $wr ) or die "Cannot pipe() - $!";
-
- my $f1 = Future::IO->syswrite( $wr, "BY" );
- my $f2 = Future::IO->syswrite( $wr, "TES" );
-
- $f1->cancel;
-
- is( scalar $f2->get, 3, 'Future::IO->syswrite after cancelled one still
works' );
-
- $rd->read( my $buf, 3 );
- is( $buf, "TES", 'Cancelled Future::IO->syswrite did not write bytes' );
- }
-}
-
-=head2 waitpid
-
-Tests the C<< Future::IO->waitpid >> method.
-
-=cut
-
-sub run_waitpid_test
-{
- # pre-exit
- {
- defined( my $pid = fork() ) or die "Unable to fork() - $!";
- if( $pid == 0 ) {
- # child
- exit 3;
- }
-
- Time::HiRes::sleep 0.1;
-
- my $f = Future::IO->waitpid( $pid );
- is( scalar $f->get, ( 3 << 8 ), 'Future::IO->waitpid yields child wait
status for pre-exit' );
- }
-
- # post-exit
- {
- defined( my $pid = fork() ) or die "Unable to fork() - $!";
- if( $pid == 0 ) {
- # child
- Time::HiRes::sleep 0.1;
- exit 4;
- }
-
- my $f = Future::IO->waitpid( $pid );
- is( scalar $f->get, ( 4 << 8 ), 'Future::IO->waitpid yields child wait
status for post-exit' );
- }
-}
-
-=head1 AUTHOR
-
-Paul Evans <leon...@leonerd.org.uk>
-
-=cut
-
-0x55AA;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Future-IO-0.13/t/00use.t new/Future-IO-0.14/t/00use.t
--- old/Future-IO-0.13/t/00use.t 2023-02-19 21:25:48.000000000 +0100
+++ new/Future-IO-0.14/t/00use.t 2023-04-25 14:04:14.000000000 +0200
@@ -8,7 +8,5 @@
require Future::IO;
require Future::IO::ImplBase;
-require Test::Future::IO::Impl;;
-
pass "Modules loaded";
done_testing;
