diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-25 08:36:33 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-06-25 08:36:33 +0000 |
| commit | 996dc718da1f4671fb1ddb6550d03837abe87d27 (patch) | |
| tree | 25d629dbab729c00e2336f7337c51e96172e79ba | |
| parent | 39f7733f7d919f26b78bb3c93d85c8b5806102bc (diff) | |
| download | perl-996dc718da1f4671fb1ddb6550d03837abe87d27.tar.gz | |
More @INC test fixes
p4raw-id: //depot/perl@22994
| -rw-r--r-- | t/op/threads.t | 2 | ||||
| -rwxr-xr-x | t/run/switch_A.t | 2 | ||||
| -rw-r--r-- | t/uni/chomp.t | 2 | ||||
| -rw-r--r-- | t/uni/tr_7jis.t | 3 | ||||
| -rw-r--r-- | t/uni/tr_eucjp.t | 3 | ||||
| -rw-r--r-- | t/uni/tr_sjis.t | 3 | ||||
| -rw-r--r-- | t/uni/tr_utf8.t | 3 |
7 files changed, 7 insertions, 11 deletions
diff --git a/t/op/threads.t b/t/op/threads.t index 8709ece7f6..b8fb9a6abd 100644 --- a/t/op/threads.t +++ b/t/op/threads.t @@ -1,7 +1,7 @@ #!./perl BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require './test.pl'; # for which_perl() etc } diff --git a/t/run/switch_A.t b/t/run/switch_A.t index 4204e64023..d79f430df0 100755 --- a/t/run/switch_A.t +++ b/t/run/switch_A.t @@ -2,7 +2,7 @@ BEGIN { chdir 't' if -d 't'; - unshift @INC, '../lib'; + @INC = '../lib'; require './test.pl'; } diff --git a/t/uni/chomp.t b/t/uni/chomp.t index 12f1375002..5f52558ab6 100644 --- a/t/uni/chomp.t +++ b/t/uni/chomp.t @@ -3,7 +3,7 @@ BEGIN { if ($ENV{'PERL_CORE'}){ chdir 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } require Config; import Config; if ($Config{'extensions'} !~ /\bEncode\b/) { diff --git a/t/uni/tr_7jis.t b/t/uni/tr_7jis.t index 5443880cba..54df6a093a 100644 --- a/t/uni/tr_7jis.t +++ b/t/uni/tr_7jis.t @@ -8,7 +8,7 @@ BEGIN { if ($ENV{'PERL_CORE'}){ chdir 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } require Config; import Config; if ($Config{'extensions'} !~ /\bEncode\b/) { @@ -31,7 +31,6 @@ BEGIN { } use strict; -#use Test::More qw(no_plan); use Test::More tests => 6; use Encode; use encoding 'iso-2022-jp'; diff --git a/t/uni/tr_eucjp.t b/t/uni/tr_eucjp.t index 9d600799b8..03dec71357 100644 --- a/t/uni/tr_eucjp.t +++ b/t/uni/tr_eucjp.t @@ -7,7 +7,7 @@ BEGIN { if ($ENV{'PERL_CORE'}){ chdir 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } require Config; import Config; if ($Config{'extensions'} !~ /\bEncode\b/) { @@ -30,7 +30,6 @@ BEGIN { } use strict; -#use Test::More qw(no_plan); use Test::More tests => 6; use Encode; use encoding 'euc-jp'; diff --git a/t/uni/tr_sjis.t b/t/uni/tr_sjis.t index 6fda9f2807..9e05167543 100644 --- a/t/uni/tr_sjis.t +++ b/t/uni/tr_sjis.t @@ -7,7 +7,7 @@ BEGIN { if ($ENV{'PERL_CORE'}){ chdir 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } require Config; import Config; if ($Config{'extensions'} !~ /\bEncode\b/) { @@ -30,7 +30,6 @@ BEGIN { } use strict; -#use Test::More qw(no_plan); use Test::More tests => 6; use Encode; use encoding 'shiftjis'; diff --git a/t/uni/tr_utf8.t b/t/uni/tr_utf8.t index 4b35c6d323..606a84a9c0 100644 --- a/t/uni/tr_utf8.t +++ b/t/uni/tr_utf8.t @@ -8,7 +8,7 @@ BEGIN { if ($ENV{'PERL_CORE'}){ chdir 't'; - unshift @INC, '../lib'; + @INC = '../lib'; } require Config; import Config; if ($Config{'extensions'} !~ /\bEncode\b/) { @@ -31,7 +31,6 @@ BEGIN { } use strict; -#use Test::More qw(no_plan); use Test::More tests => 7; use encoding 'utf8'; |