| Subject: | [PATCH] Make IPC::Runs tests work with perl core |
Hey,
the attached patch makes IPC::Runs tests work with perl core -- this will help the integration
a bit down the line.
kill the other 2 tickets -- rt.cpan.org's UI was being stupid
diff -ru IPC-Run-0.79.org/t/adopt.t IPC-Run-0.79/t/adopt.t
--- IPC-Run-0.79.org/t/adopt.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/adopt.t Mon Jan 24 16:33:30 2005
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/binmode.t IPC-Run-0.79/t/binmode.t
--- IPC-Run-0.79.org/t/binmode.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/binmode.t Mon Jan 24 16:33:39 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
## Handy to have when our output is intermingled with debugging output sent
## to the debugging fd.
$| = 1 ;
diff -ru IPC-Run-0.79.org/t/bogus.t IPC-Run-0.79/t/bogus.t
--- IPC-Run-0.79.org/t/bogus.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/bogus.t Mon Jan 24 16:33:31 2005
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/filter.t IPC-Run-0.79/t/filter.t
--- IPC-Run-0.79.org/t/filter.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/filter.t Mon Jan 24 16:33:31 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/harness.t IPC-Run-0.79/t/harness.t
--- IPC-Run-0.79.org/t/harness.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/harness.t Mon Jan 24 16:33:31 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/io.t IPC-Run-0.79/t/io.t
--- IPC-Run-0.79.org/t/io.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/io.t Mon Jan 24 16:33:31 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/kill_kill.t IPC-Run-0.79/t/kill_kill.t
--- IPC-Run-0.79.org/t/kill_kill.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/kill_kill.t Mon Jan 24 16:33:31 2005
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/parallel.t IPC-Run-0.79/t/parallel.t
--- IPC-Run-0.79.org/t/parallel.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/parallel.t Mon Jan 24 16:33:32 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
## Handy to have when our output is intermingled with debugging output sent
## to the debugging fd.
$| = 1 ;
diff -ru IPC-Run-0.79.org/t/pty.t IPC-Run-0.79/t/pty.t
--- IPC-Run-0.79.org/t/pty.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/pty.t Mon Jan 24 16:33:32 2005
@@ -23,6 +23,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/pump.t IPC-Run-0.79/t/pump.t
--- IPC-Run-0.79.org/t/pump.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/pump.t Mon Jan 24 16:33:32 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/run.t IPC-Run-0.79/t/run.t
--- IPC-Run-0.79.org/t/run.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/run.t Mon Jan 24 16:33:32 2005
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
## Handy to have when our output is intermingled with debugging output sent
## to the debugging fd.
$| = 1 ;
diff -ru IPC-Run-0.79.org/t/signal.t IPC-Run-0.79/t/signal.t
--- IPC-Run-0.79.org/t/signal.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/signal.t Mon Jan 24 16:33:32 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/timeout.t IPC-Run-0.79/t/timeout.t
--- IPC-Run-0.79.org/t/timeout.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/timeout.t Mon Jan 24 16:33:32 2005
@@ -6,6 +6,15 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
+
## Separate from run.t so run.t is not too slow.
use strict ;
diff -ru IPC-Run-0.79.org/t/timer.t IPC-Run-0.79/t/timer.t
--- IPC-Run-0.79.org/t/timer.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/timer.t Mon Jan 24 16:33:32 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;
diff -ru IPC-Run-0.79.org/t/win32_compile.t IPC-Run-0.79/t/win32_compile.t
--- IPC-Run-0.79.org/t/win32_compile.t Mon Jan 24 16:08:44 2005
+++ IPC-Run-0.79/t/win32_compile.t Mon Jan 24 16:33:32 2005
@@ -6,6 +6,14 @@
=cut
+BEGIN {
+ if( $ENV{PERL_CORE} ) {
+ chdir '../lib/IPC/Run' if -d '../lib/IPC/Run';
+ unshift @INC, 'lib', '../..';
+ $^X = '../../../t/' . $^X;
+ }
+}
+
use strict ;
use Test ;