diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-14 13:49:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-14 13:49:41 +0000 |
| commit | a0d3aac481b5c4ba30633fed9f9f2dca6771f7bc (patch) | |
| tree | 59e63d74689c7dea87a35385c9bf0084b35624ad /lib/IO/Zlib | |
| parent | 8ca60cef700efb73a84648ac3b19fd3a3eecd992 (diff) | |
| download | perl-a0d3aac481b5c4ba30633fed9f9f2dca6771f7bc.tar.gz | |
Add core test preamble
p4raw-id: //depot/perl@24842
Diffstat (limited to 'lib/IO/Zlib')
| -rw-r--r-- | lib/IO/Zlib/t/basic.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/external.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/getc.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/getline.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/import.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/large.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/tied.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/uncomp1.t | 7 | ||||
| -rw-r--r-- | lib/IO/Zlib/t/uncomp2.t | 7 |
9 files changed, 63 insertions, 0 deletions
diff --git a/lib/IO/Zlib/t/basic.t b/lib/IO/Zlib/t/basic.t index 49571317e5..2df2b8c096 100644 --- a/lib/IO/Zlib/t/basic.t +++ b/lib/IO/Zlib/t/basic.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + use IO::Zlib; sub ok diff --git a/lib/IO/Zlib/t/external.t b/lib/IO/Zlib/t/external.t index 1d90d7fe2c..765c54992b 100644 --- a/lib/IO/Zlib/t/external.t +++ b/lib/IO/Zlib/t/external.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + # Test this only iff we have an executable /usr/bin/gzip # AND we have /usr/bin in our PATH # AND we have a useable /usr/bin directory. diff --git a/lib/IO/Zlib/t/getc.t b/lib/IO/Zlib/t/getc.t index 2424d5b245..a3030c705f 100644 --- a/lib/IO/Zlib/t/getc.t +++ b/lib/IO/Zlib/t/getc.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + use IO::Zlib; sub ok diff --git a/lib/IO/Zlib/t/getline.t b/lib/IO/Zlib/t/getline.t index db18088dcd..4e0d14543d 100644 --- a/lib/IO/Zlib/t/getline.t +++ b/lib/IO/Zlib/t/getline.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + use IO::Zlib; sub ok diff --git a/lib/IO/Zlib/t/import.t b/lib/IO/Zlib/t/import.t index 336d80a943..3cbaa614d8 100644 --- a/lib/IO/Zlib/t/import.t +++ b/lib/IO/Zlib/t/import.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + print "1..1\n"; sub ok diff --git a/lib/IO/Zlib/t/large.t b/lib/IO/Zlib/t/large.t index 0203182004..ef5d16498e 100644 --- a/lib/IO/Zlib/t/large.t +++ b/lib/IO/Zlib/t/large.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + use IO::Zlib; sub ok diff --git a/lib/IO/Zlib/t/tied.t b/lib/IO/Zlib/t/tied.t index 029b282721..b6eebe66c1 100644 --- a/lib/IO/Zlib/t/tied.t +++ b/lib/IO/Zlib/t/tied.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + use IO::Zlib; sub ok diff --git a/lib/IO/Zlib/t/uncomp1.t b/lib/IO/Zlib/t/uncomp1.t index 4225ab7c4e..8424a27363 100644 --- a/lib/IO/Zlib/t/uncomp1.t +++ b/lib/IO/Zlib/t/uncomp1.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + use IO::Zlib; sub ok diff --git a/lib/IO/Zlib/t/uncomp2.t b/lib/IO/Zlib/t/uncomp2.t index 03e7a6bfdf..c8eb6ed4fb 100644 --- a/lib/IO/Zlib/t/uncomp2.t +++ b/lib/IO/Zlib/t/uncomp2.t @@ -1,3 +1,10 @@ +BEGIN { + if( $ENV{PERL_CORE} ) { + @INC = '../lib'; + chdir 't'; + } +} + require IO::Zlib; # uncomp2.t is like uncomp1.t but without 'use' sub ok |