Hello community, here is the log from the commit of package perl-Test-Script for openSUSE:Factory checked in at 2015-05-15 07:44:09 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Test-Script (Old) and /work/SRC/openSUSE:Factory/.perl-Test-Script.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Test-Script" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Test-Script/perl-Test-Script.changes 2015-05-10 10:56:26.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Test-Script.new/perl-Test-Script.changes 2015-05-15 07:44:36.000000000 +0200 @@ -1,0 +2,13 @@ +Wed May 13 12:59:49 UTC 2015 - co...@suse.com + +- updated to 1.10 + see /usr/share/doc/packages/perl-Test-Script/Changes + + 1.10 2015-05-12 05:15:41 -0400 + - Work around for buggy IPC::Run3 0.048 on MSWin32 + On Windows we probe for and mitigate a bug in IPC::Run3 + (see https://github.com/plicease/Test-Script/issues/1 for details) + with the intention of removing the workaround if/when IPC::Run3 + is fixed. + +------------------------------------------------------------------- Old: ---- Test-Script-1.09.tar.gz New: ---- Test-Script-1.10.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Test-Script.spec ++++++ --- /var/tmp/diff_new_pack.s1lJ6p/_old 2015-05-15 07:44:36.000000000 +0200 +++ /var/tmp/diff_new_pack.s1lJ6p/_new 2015-05-15 07:44:36.000000000 +0200 @@ -17,7 +17,7 @@ Name: perl-Test-Script -Version: 1.09 +Version: 1.10 Release: 0 %define cpan_name Test-Script Summary: Basic cross-platform tests for scripts @@ -32,11 +32,11 @@ BuildRequires: perl-macros BuildRequires: perl(IPC::Run3) >= 0.034 BuildRequires: perl(Probe::Perl) >= 0.01 -BuildRequires: perl(Test::More) >= 0.94 +BuildRequires: perl(Test::More) >= 0.96 BuildRequires: perl(Test::Tester) Requires: perl(IPC::Run3) >= 0.034 Requires: perl(Probe::Perl) >= 0.01 -Requires: perl(Test::More) >= 0.94 +Requires: perl(Test::More) >= 0.96 %{perl_requires} %description ++++++ Test-Script-1.09.tar.gz -> Test-Script-1.10.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/Changes new/Test-Script-1.10/Changes --- old/Test-Script-1.09/Changes 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/Changes 2015-05-12 11:15:45.000000000 +0200 @@ -1,5 +1,12 @@ Revision history for Perl extension Test-Script +1.10 2015-05-12 05:15:41 -0400 + - Work around for buggy IPC::Run3 0.048 on MSWin32 + On Windows we probe for and mitigate a bug in IPC::Run3 + (see https://github.com/plicease/Test-Script/issues/1 for details) + with the intention of removing the workaround if/when IPC::Run3 + is fixed. + 1.09 2015-05-07 16:44:26 -0400 - If IPC::Run3::run3 throws an exception it will now fail the test (with a helpful diagnostic) rather than crashing the test script. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/MANIFEST new/Test-Script-1.10/MANIFEST --- old/Test-Script-1.09/MANIFEST 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/MANIFEST 2015-05-12 11:15:45.000000000 +0200 @@ -12,6 +12,7 @@ lib/Test/Script.pm t/00_diag.t t/00_diag.txt +t/00_diag2.t t/01_compile.t t/02_compiles_good.t t/03_compiles_bad.t diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/META.json new/Test-Script-1.10/META.json --- old/Test-Script-1.09/META.json 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/META.json 2015-05-12 11:15:45.000000000 +0200 @@ -27,7 +27,7 @@ "IPC::Run3" : "0.034", "Probe::Perl" : "0.01", "Test::Builder" : "0.32", - "Test::More" : "0.94", + "Test::More" : "0.96", "perl" : "5.006" } }, @@ -36,7 +36,7 @@ "File::Spec::Functions" : "0", "Test::Builder" : "0.32", "Test::Builder::Tester" : "1.02", - "Test::More" : "0.94", + "Test::More" : "0.96", "Test::Tester" : "0", "perl" : "5.006" } @@ -54,6 +54,6 @@ "web" : "https://github.com/plicease/Test-Script"; } }, - "version" : "1.09" + "version" : "1.10" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/META.yml new/Test-Script-1.10/META.yml --- old/Test-Script-1.09/META.yml 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/META.yml 2015-05-12 11:15:45.000000000 +0200 @@ -7,7 +7,7 @@ File::Spec::Functions: '0' Test::Builder: '0.32' Test::Builder::Tester: '1.02' - Test::More: '0.94' + Test::More: '0.96' Test::Tester: '0' perl: '5.006' configure_requires: @@ -25,10 +25,10 @@ IPC::Run3: '0.034' Probe::Perl: '0.01' Test::Builder: '0.32' - Test::More: '0.94' + Test::More: '0.96' perl: '5.006' resources: bugtracker: https://github.com/plicease/Test-Script/issues homepage: http://perl.wdlabs.com/Test-Script repository: git://github.com/plicease/Test-Script.git -version: '1.09' +version: '1.10' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/Makefile.PL new/Test-Script-1.10/Makefile.PL --- old/Test-Script-1.09/Makefile.PL 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/Makefile.PL 2015-05-12 11:15:45.000000000 +0200 @@ -28,16 +28,16 @@ "IPC::Run3" => "0.034", "Probe::Perl" => "0.01", "Test::Builder" => "0.32", - "Test::More" => "0.94" + "Test::More" => "0.96" }, "TEST_REQUIRES" => { "File::Spec::Functions" => 0, "Test::Builder" => "0.32", "Test::Builder::Tester" => "1.02", - "Test::More" => "0.94", + "Test::More" => "0.96", "Test::Tester" => 0 }, - "VERSION" => "1.09", + "VERSION" => "1.10", "test" => { "TESTS" => "t/*.t" } @@ -52,7 +52,7 @@ "Probe::Perl" => "0.01", "Test::Builder" => "0.32", "Test::Builder::Tester" => "1.02", - "Test::More" => "0.94", + "Test::More" => "0.96", "Test::Tester" => 0 ); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/README new/Test-Script-1.10/README --- old/Test-Script-1.09/README 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/README 2015-05-12 11:15:45.000000000 +0200 @@ -4,7 +4,7 @@ VERSION - version 1.09 + version 1.10 SYNOPSIS @@ -123,14 +123,14 @@ script_stdout_is - script_stdout_is $expected_stdout, $test; + script_stdout_is $expected_stdout, $test_name; Tests if the output to stdout from the previous "script_runs" matches the expected value exactly. script_stdout_isnt - script_stdout_is $expected_stdout, $test; + script_stdout_is $expected_stdout, $test_name; Tests if the output to stdout from the previous "script_runs" does NOT match the expected value exactly. @@ -151,14 +151,14 @@ script_stderr_is - script_stderr_is $expected_stderr, $test; + script_stderr_is $expected_stderr, $test_name; Tests if the output to stderr from the previous "script_runs" matches the expected value exactly. script_stderr_isnt - script_stderr_is $expected_stderr, $test; + script_stderr_is $expected_stderr, $test_name; Tests if the output to stderr from the previous "script_runs" does NOT match the expected value exactly. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/cpanfile new/Test-Script-1.10/cpanfile --- old/Test-Script-1.09/cpanfile 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/cpanfile 2015-05-12 11:15:45.000000000 +0200 @@ -2,14 +2,14 @@ requires "IPC::Run3" => "0.034"; requires "Probe::Perl" => "0.01"; requires "Test::Builder" => "0.32"; -requires "Test::More" => "0.94"; +requires "Test::More" => "0.96"; requires "perl" => "5.006"; on 'test' => sub { requires "File::Spec::Functions" => "0"; requires "Test::Builder" => "0.32"; requires "Test::Builder::Tester" => "1.02"; - requires "Test::More" => "0.94"; + requires "Test::More" => "0.96"; requires "Test::Tester" => "0"; requires "perl" => "5.006"; }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/dist.ini new/Test-Script-1.10/dist.ini --- old/Test-Script-1.09/dist.ini 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/dist.ini 2015-05-12 11:15:45.000000000 +0200 @@ -4,7 +4,7 @@ license = Perl_5 copyright_holder = Adam Kennedy copyright_year = 2006 -version = 1.09 +version = 1.10 [@Author::Plicease] :version = 1.70 @@ -24,7 +24,7 @@ [Prereqs] File::Spec = 0.80 IPC::Run3 = 0.034 -Test::More = 0.62 +Test::More = 0.96 Probe::Perl = 0.01 [Prereqs / TestPrereqs] diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/lib/Test/Script.pm new/Test-Script-1.10/lib/Test/Script.pm --- old/Test-Script-1.09/lib/Test/Script.pm 2015-05-07 22:44:29.000000000 +0200 +++ new/Test-Script-1.10/lib/Test/Script.pm 2015-05-12 11:15:45.000000000 +0200 @@ -1,7 +1,7 @@ package Test::Script; # ABSTRACT: Basic cross-platform tests for scripts -our $VERSION = '1.09'; # VERSION +our $VERSION = '1.10'; # VERSION use 5.006; @@ -12,7 +12,7 @@ use File::Spec (); use File::Spec::Unix (); use Probe::Perl (); -use IPC::Run3 (); +use IPC::Run3 qw( run3 ); use Test::Builder (); our @ISA = 'Exporter'; @@ -62,6 +62,24 @@ ); } +## This can and should be removed if/when IPC::Run3 is fixed on MSWin32 +## See rt94685, rt46333, rt95308 and IPC-Run3/gh#9" +sub _borked_ipc_run3 () { + $^O eq 'MSWin32' && + ! eval { $! = 0; IPC::Run3::run3 [ perl, -e => 'BEGIN {die}' ], \undef, \undef, \undef; 1 } +} + +if(_borked_ipc_run3()) +{ + no warnings 'redefine'; + *run3 = sub { + $! = 0; + my $r = IPC::Run3::run3(@_, { return_if_system_error => 1 }); + Carp::croak($!) if $! && $! !~ /Inappropriate I\/O control operation/; + $r; + }; +} + ##################################################################### # Test Functions @@ -75,7 +93,7 @@ my $stdin = ''; my $stdout = ''; my $stderr = ''; - my $rv = eval { IPC::Run3::run3( $cmd, \$stdin, \$stdout, \$stderr ) }; + my $rv = eval { run3( $cmd, \$stdin, \$stdout, \$stderr ) }; my $error = $@; my $exit = $? ? ($? >> 8) : 0; my $signal = $? ? ($? & 127) : 0; @@ -105,7 +123,7 @@ my $cmd = [ perl, @libs, $path, @$args ]; $stdout = ''; $stderr = ''; - my $rv = eval { IPC::Run3::run3( $cmd, $opt->{stdin}, $opt->{stdout}, $opt->{stderr} ) }; + my $rv = eval { run3( $cmd, $opt->{stdin}, $opt->{stdout}, $opt->{stderr} ) }; my $error = $@; my $exit = $? ? ($? >> 8) : 0; my $signal = $? ? ($? & 127) : 0; @@ -267,7 +285,7 @@ =head1 VERSION -version 1.09 +version 1.10 =head1 SYNOPSIS @@ -395,14 +413,14 @@ =head2 script_stdout_is - script_stdout_is $expected_stdout, $test; + script_stdout_is $expected_stdout, $test_name; Tests if the output to stdout from the previous L</script_runs> matches the expected value exactly. =head2 script_stdout_isnt - script_stdout_is $expected_stdout, $test; + script_stdout_is $expected_stdout, $test_name; Tests if the output to stdout from the previous L</script_runs> does NOT match the expected value exactly. @@ -423,14 +441,14 @@ =head2 script_stderr_is - script_stderr_is $expected_stderr, $test; + script_stderr_is $expected_stderr, $test_name; Tests if the output to stderr from the previous L</script_runs> matches the expected value exactly. =head2 script_stderr_isnt - script_stderr_is $expected_stderr, $test; + script_stderr_is $expected_stderr, $test_name; Tests if the output to stderr from the previous L</script_runs> does NOT match the expected value exactly. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Test-Script-1.09/t/00_diag2.t new/Test-Script-1.10/t/00_diag2.t --- old/Test-Script-1.09/t/00_diag2.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Test-Script-1.10/t/00_diag2.t 2015-05-12 11:15:45.000000000 +0200 @@ -0,0 +1,17 @@ +use strict; +use warnings; +use Test::More tests => 1; +use Test::Script; + +pass; + +diag ''; +diag ''; +diag ''; + +diag "probing IPC::Run3 for rt94685 rt46333 rt95308 gh#9"; +diag "IPC::Run3 is ", Test::Script::_borked_ipc_run3() ? 'borked' : 'good'; + +diag ''; +diag ''; +
