r50272 - in /branches/upstream/libwx-perl-processstream-perl/current: Changes META.yml lib/Wx/Perl/ProcessStream.pm t/01-events.t
ryan at users.alioth.debian.org
ryan at users.alioth.debian.org
Tue Jan 5 18:40:24 UTC 2010
Author: ryan
Date: Tue Jan 5 18:40:03 2010
New Revision: 50272
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=50272
Log:
[svn-upgrade] Integrating new upstream version, libwx-perl-processstream-perl (0.24)
Modified:
branches/upstream/libwx-perl-processstream-perl/current/Changes
branches/upstream/libwx-perl-processstream-perl/current/META.yml
branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm
branches/upstream/libwx-perl-processstream-perl/current/t/01-events.t
Modified: branches/upstream/libwx-perl-processstream-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-processstream-perl/current/Changes?rev=50272&op=diff
==============================================================================
--- branches/upstream/libwx-perl-processstream-perl/current/Changes (original)
+++ branches/upstream/libwx-perl-processstream-perl/current/Changes Tue Jan 5 18:40:03 2010
@@ -1,4 +1,10 @@
Revision history for Wx-Perl-ProcessStream
+
+0.24 2010-01-05 00:00
+ Added tests to confirm correct operation of 'print 0;'
+
+0.23 2010-01-04 00:00
+ Various test & failure fixes
0.21 2009-10-13 00:00
Fixed test failure on none Win32.
Modified: branches/upstream/libwx-perl-processstream-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-processstream-perl/current/META.yml?rev=50272&op=diff
==============================================================================
--- branches/upstream/libwx-perl-processstream-perl/current/META.yml (original)
+++ branches/upstream/libwx-perl-processstream-perl/current/META.yml Tue Jan 5 18:40:03 2010
@@ -1,15 +1,23 @@
--- #YAML:1.0
-name: Wx-Perl-ProcessStream
-version: 0.22
-abstract: access IO of external processes via events
-license: ~
-author:
+name: Wx-Perl-ProcessStream
+version: 0.24
+abstract: access IO of external processes via events
+author:
- Mark Dootson <mdootson at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.42_01
-distribution_type: module
-requires:
- Time::HiRes: 1.2
- Wx: 0.5
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Time::HiRes: 1.2
+ Wx: 0.5
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm?rev=50272&op=diff
==============================================================================
--- branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm (original)
+++ branches/upstream/libwx-perl-processstream-perl/current/lib/Wx/Perl/ProcessStream.pm Tue Jan 5 18:40:03 2010
@@ -11,7 +11,7 @@
package Wx::Perl::ProcessStream;
-our $VERSION = '0.22';
+our $VERSION = '0.24';
=head1 NAME
@@ -19,7 +19,7 @@
=head1 VERSION
-Version 0.22
+Version 0.24
=head1 SYNOPSYS
@@ -556,9 +556,7 @@
# STDERR
- my $linecounter = 100;
-
- while( ( my $linebuffer = $process->__read_error_line ) && $linecounter ){
+ while( ( my $linebuffer = $process->__read_error_line ) ){
$continueprocessloop ++;
$linedataread ++;
$linebuffer =~ s/(\r\n|\n)$//;
@@ -567,15 +565,12 @@
$event->SetLine( $linebuffer );
$event->SetProcess( $process );
$process->__get_handler()->AddPendingEvent($event);
- $linecounter --;
}
# STDOUT
- $linecounter = 100;
-
- while( ( my $linebuffer = $process->__read_input_line ) && $linecounter ){
+ while( ( my $linebuffer = $process->__read_input_line ) ){
$continueprocessloop ++;
$linedataread ++;
$linebuffer =~ s/(\r\n|\n)$//;
@@ -584,7 +579,6 @@
$event->SetLine( $linebuffer );
$event->SetProcess( $process );
$process->__get_handler()->AddPendingEvent($event);
- $linecounter --;
}
}
Modified: branches/upstream/libwx-perl-processstream-perl/current/t/01-events.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwx-perl-processstream-perl/current/t/01-events.t?rev=50272&op=diff
==============================================================================
--- branches/upstream/libwx-perl-processstream-perl/current/t/01-events.t (original)
+++ branches/upstream/libwx-perl-processstream-perl/current/t/01-events.t Tue Jan 5 18:40:03 2010
@@ -3,7 +3,7 @@
package main;
use strict;
-use Test::More tests => 45 + $ENV{WXPPS_MULTITEST};
+use Test::More tests => 51 + $ENV{WXPPS_MULTITEST};
use lib 't';
use Wx;
use WxTesting qw( app_from_wxtesting_frame );
@@ -14,7 +14,7 @@
package ProcessStreamTestingFrame;
use strict;
use base qw(WxTesting::Frame);
-use Wx::Perl::ProcessStream 0.18 qw( :everything );
+use Wx::Perl::ProcessStream 0.24 qw( :everything );
use Test::More;
use Time::HiRes qw( sleep );
@@ -43,6 +43,29 @@
my $cmd;
my $process;
my $errs;
+
+ if($^O =~ /^MSWin/) {
+ $cmd = [ $perl, '-e', q("print 0, qq(\n);") ];
+ } else {
+ $cmd = [ $perl, '-e', q(print 0, qq(\n);) ];
+ }
+
+ {
+ $process = $self->start_process_a( $cmd );
+ ok( $process->IsAlive() );
+ $self->wait_for_test_complete();
+ is( $process->IsAlive(), 0 );
+ is( $self->{_stdout}->[0], '0' );
+ $errs = join('', @{ $self->{_stderr} });
+ $errs ||= '';
+ is( $errs, '' );
+ is( $self->{_exitcode}, 0 );
+ is( $process->GetExitCode() , 0 );
+ $process->Destroy;
+ $process = undef;
+ }
+
+
if($^O =~ /^MSWin/) {
$cmd = [ $perl, '-e', q("print 'HELLO WORLD', qq(\n);") ];
} else {
More information about the Pkg-perl-cvs-commits
mailing list