diff options
Diffstat (limited to 't')
49 files changed, 49 insertions, 49 deletions
diff --git a/t/bigmem/index.t b/t/bigmem/index.t index fdd502c7c7..48c22421f6 100644 --- a/t/bigmem/index.t +++ b/t/bigmem/index.t @@ -1,6 +1,6 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; unshift @INC, "../lib"; } diff --git a/t/bigmem/pos.t b/t/bigmem/pos.t index aad93f636d..31cf756627 100644 --- a/t/bigmem/pos.t +++ b/t/bigmem/pos.t @@ -1,6 +1,6 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; unshift @INC, "../lib"; require './test.pl'; } diff --git a/t/bigmem/read.t b/t/bigmem/read.t index b29c097a6a..773df3fe83 100644 --- a/t/bigmem/read.t +++ b/t/bigmem/read.t @@ -1,6 +1,6 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; unshift @INC, "../lib"; } diff --git a/t/bigmem/regexp.t b/t/bigmem/regexp.t index d5496f1cbb..c2a04b1af5 100644 --- a/t/bigmem/regexp.t +++ b/t/bigmem/regexp.t @@ -1,6 +1,6 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; unshift @INC, "../lib"; require './test.pl'; } diff --git a/t/bigmem/vec.t b/t/bigmem/vec.t index bf3c513f63..12d3fed4c5 100644 --- a/t/bigmem/vec.t +++ b/t/bigmem/vec.t @@ -1,6 +1,6 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; unshift @INC, "../lib"; } diff --git a/t/comp/hints.t b/t/comp/hints.t index 307f298d44..0f526097e7 100644 --- a/t/comp/hints.t +++ b/t/comp/hints.t @@ -4,7 +4,7 @@ BEGIN { @INC = qw(. ../lib ../ext/re); - chdir 't'; + chdir 't' if -d 't'; } BEGIN { print "1..31\n"; } diff --git a/t/comp/parser.t b/t/comp/parser.t index c5cff292c6..ffa4dffed9 100644 --- a/t/comp/parser.t +++ b/t/comp/parser.t @@ -5,7 +5,7 @@ BEGIN { @INC = qw(. ../lib); - chdir 't'; + chdir 't' if -d 't'; } print "1..170\n"; diff --git a/t/io/defout.t b/t/io/defout.t index 2cb7b9f5cc..a70fb6f266 100644 --- a/t/io/defout.t +++ b/t/io/defout.t @@ -7,7 +7,7 @@ # it probably needs expanding at some point to cover other stuff. BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/lib/1_compile.t b/t/lib/1_compile.t index 2802ae2ad6..a1437ede7b 100644 --- a/t/lib/1_compile.t +++ b/t/lib/1_compile.t @@ -5,7 +5,7 @@ # of their own. BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/mro/basic.t b/t/mro/basic.t index 5625b5190e..b2578442ee 100644 --- a/t/mro/basic.t +++ b/t/mro/basic.t @@ -4,7 +4,7 @@ use strict; use warnings; BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require q(./test.pl); } diff --git a/t/mro/isa_aliases.t b/t/mro/isa_aliases.t index 2073e5ebe5..6ce81d137e 100644 --- a/t/mro/isa_aliases.t +++ b/t/mro/isa_aliases.t @@ -1,6 +1,6 @@ #!./perl -BEGIN { chdir 't'; @INC = '../lib'; require './test.pl' } +BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' } plan 13; diff --git a/t/mro/isa_aliases_utf8.t b/t/mro/isa_aliases_utf8.t index ef715a2eb1..721a4918dd 100644 --- a/t/mro/isa_aliases_utf8.t +++ b/t/mro/isa_aliases_utf8.t @@ -1,6 +1,6 @@ #!./perl -BEGIN { chdir 't'; @INC = '../lib'; require './test.pl' } +BEGIN { chdir 't' if -d 't'; @INC = '../lib'; require './test.pl' } use utf8; use open qw( :utf8 :std ); diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t index e177d7098f..ccae4ef504 100644 --- a/t/mro/next_edgecases.t +++ b/t/mro/next_edgecases.t @@ -3,7 +3,7 @@ use strict; use warnings; -BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" } +BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" } plan(tests => 12); diff --git a/t/mro/next_edgecases_utf8.t b/t/mro/next_edgecases_utf8.t index ba6ff8b06b..3546a70b7b 100644 --- a/t/mro/next_edgecases_utf8.t +++ b/t/mro/next_edgecases_utf8.t @@ -3,7 +3,7 @@ use strict; use warnings; -BEGIN { chdir 't'; require q(./test.pl); @INC = qw "../lib lib" } +BEGIN { chdir 't' if -d 't'; require q(./test.pl); @INC = qw "../lib lib" } use utf8; use open qw( :utf8 :std ); diff --git a/t/op/alarm.t b/t/op/alarm.t index 82691c5cf2..28cc65cf7c 100644 --- a/t/op/alarm.t +++ b/t/op/alarm.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/op/blocks.t b/t/op/blocks.t index bfab9e071b..262ebbab16 100644 --- a/t/op/blocks.t +++ b/t/op/blocks.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; set_up_inc('../lib'); } diff --git a/t/op/current_sub.t b/t/op/current_sub.t index 8c82d112d6..9331fce960 100644 --- a/t/op/current_sub.t +++ b/t/op/current_sub.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = qw(../lib); require './test.pl'; plan (tests => 17); diff --git a/t/op/dbm.t b/t/op/dbm.t index 9e81f590ed..abcc6297df 100644 --- a/t/op/dbm.t +++ b/t/op/dbm.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; diff --git a/t/op/defined.t b/t/op/defined.t index 7129e47a88..7ce2670075 100644 --- a/t/op/defined.t +++ b/t/op/defined.t @@ -1,6 +1,6 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; } @@ -1,7 +1,7 @@ #!./perl -w BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/op/evalbytes.t b/t/op/evalbytes.t index 5a03e63e68..9961072d7c 100644 --- a/t/op/evalbytes.t +++ b/t/op/evalbytes.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/op/groups.t b/t/op/groups.t index dc2631e7fa..008aae8450 100644 --- a/t/op/groups.t +++ b/t/op/groups.t @@ -10,7 +10,7 @@ BEGIN { $ENV{LC_ALL} = "C"; # so that external utilities speak English $ENV{LANGUAGE} = 'C'; # GNU locale extension - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; skip_all_if_miniperl("no dynamic loading on miniperl, no POSIX"); diff --git a/t/op/hash-rt85026.t b/t/op/hash-rt85026.t index 91087b806f..8dbf004dce 100644 --- a/t/op/hash-rt85026.t +++ b/t/op/hash-rt85026.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; skip_all_without_dynamic_extension("Devel::Peek"); @@ -3,7 +3,7 @@ # This file is intentionally encoded in latin-1. BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; set_up_inc('../lib'); require Config; import Config; diff --git a/t/op/lex.t b/t/op/lex.t index b33f0efc99..5af8538b27 100644 --- a/t/op/lex.t +++ b/t/op/lex.t @@ -2,7 +2,7 @@ use strict; use warnings; -BEGIN { chdir 't'; require './test.pl'; } +BEGIN { chdir 't' if -d 't'; require './test.pl'; } plan(tests => 8); diff --git a/t/op/lexsub.t b/t/op/lexsub.t index af0fa183aa..cbf44ae72b 100644 --- a/t/op/lexsub.t +++ b/t/op/lexsub.t @@ -1,7 +1,7 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; set_up_inc('../lib'); *bar::is = *is; diff --git a/t/op/packagev.t b/t/op/packagev.t index 563e444af2..86fb46286b 100644 --- a/t/op/packagev.t +++ b/t/op/packagev.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = qw '../lib ../cpan/version/lib'; require './test.pl'; } @@ -3,7 +3,7 @@ use strict; BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; } diff --git a/t/op/read.t b/t/op/read.t index 23f1b51a2c..11cb454ee8 100644 --- a/t/op/read.t +++ b/t/op/read.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/op/readline.t b/t/op/readline.t index 0c5619f1c2..db98fffef8 100644 --- a/t/op/readline.t +++ b/t/op/readline.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; set_up_inc('../lib'); } diff --git a/t/op/require_errors.t b/t/op/require_errors.t index a152d2daf6..be7636dcc2 100644 --- a/t/op/require_errors.t +++ b/t/op/require_errors.t @@ -3,7 +3,7 @@ use strict; use warnings; BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; } diff --git a/t/op/require_override.t b/t/op/require_override.t index 7f9ee65e50..73c3f3a597 100644 --- a/t/op/require_override.t +++ b/t/op/require_override.t @@ -3,7 +3,7 @@ use strict; use warnings; BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; } diff --git a/t/op/rt119311.t b/t/op/rt119311.t index 2ad7a9cf15..dabc90e066 100644 --- a/t/op/rt119311.t +++ b/t/op/rt119311.t @@ -22,7 +22,7 @@ # outer sub. Then we test a lexical directly inside the sub that DESTROY # calls. Then we repeat with formats. -BEGIN { chdir 't'; require './test.pl' } +BEGIN { chdir 't' if -d 't'; require './test.pl' } plan 22; sub foo { diff --git a/t/op/select.t b/t/op/select.t index 1994dd2131..d61c373b82 100644 --- a/t/op/select.t +++ b/t/op/select.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; } diff --git a/t/op/signatures.t b/t/op/signatures.t index 99f075fcf1..f9c67703cc 100644 --- a/t/op/signatures.t +++ b/t/op/signatures.t @@ -1,7 +1,7 @@ #!perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/op/smartmatch.t b/t/op/smartmatch.t index bbd63725cf..a5f6373b9a 100644 --- a/t/op/smartmatch.t +++ b/t/op/smartmatch.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; set_up_inc('../lib'); } diff --git a/t/op/svleak.t b/t/op/svleak.t index 3b8df477f8..ba757e43fb 100644 --- a/t/op/svleak.t +++ b/t/op/svleak.t @@ -5,7 +5,7 @@ # see if the count increases. BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; diff --git a/t/op/unlink.t b/t/op/unlink.t index 7602149909..892b6469ef 100644 --- a/t/op/unlink.t +++ b/t/op/unlink.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/op/upgrade.t b/t/op/upgrade.t index 5f2ffa6299..d451cd56dd 100644 --- a/t/op/upgrade.t +++ b/t/op/upgrade.t @@ -5,7 +5,7 @@ # build or testsuite that upgraded an NV to an RV BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/op/while.t b/t/op/while.t index 1e8eb44d94..a0f2c67638 100644 --- a/t/op/while.t +++ b/t/op/while.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = "../lib"; require "./test.pl"; } diff --git a/t/re/reg_eval_scope.t b/t/re/reg_eval_scope.t index 0eaeeb98d7..4243f87a2c 100644 --- a/t/re/reg_eval_scope.t +++ b/t/re/reg_eval_scope.t @@ -3,7 +3,7 @@ # Test scoping issues with embedded code in regexps. BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; set_up_inc(qw(lib ../lib)); } diff --git a/t/run/dtrace.t b/t/run/dtrace.t index 0992cd5eb4..21409738ab 100644 --- a/t/run/dtrace.t +++ b/t/run/dtrace.t @@ -4,7 +4,7 @@ my $Perl; my $dtrace; BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; diff --git a/t/run/script.t b/t/run/script.t index 2553e0045b..fa61a2ce33 100644 --- a/t/run/script.t +++ b/t/run/script.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; # for which_perl() etc plan(3); diff --git a/t/run/switchd-78586.t b/t/run/switchd-78586.t index 02e0b25e87..d19231fac6 100644 --- a/t/run/switchd-78586.t +++ b/t/run/switchd-78586.t @@ -2,7 +2,7 @@ BEGIN { $^P = 0x122; - chdir 't'; + chdir 't' if -d 't'; @INC = ('../lib', 'lib'); require './test.pl'; } diff --git a/t/run/switcht.t b/t/run/switcht.t index fd8188518f..01b9f2f623 100644 --- a/t/run/switcht.t +++ b/t/run/switcht.t @@ -1,7 +1,7 @@ #!./perl -t BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; } diff --git a/t/uni/lex_utf8.t b/t/uni/lex_utf8.t index 5ade6208e0..6b155bb0bf 100644 --- a/t/uni/lex_utf8.t +++ b/t/uni/lex_utf8.t @@ -5,7 +5,7 @@ BEGIN { $| = 1; - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require './test.pl'; skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader; diff --git a/t/uni/overload.t b/t/uni/overload.t index 0fd8de6455..1ae460ff86 100644 --- a/t/uni/overload.t +++ b/t/uni/overload.t @@ -1,7 +1,7 @@ #!perl -w BEGIN { - chdir 't'; + chdir 't' if -d 't'; @INC = '../lib'; require Config; import Config; require './test.pl'; diff --git a/t/uni/readline.t b/t/uni/readline.t index 294262ee1e..c733f69e73 100644 --- a/t/uni/readline.t +++ b/t/uni/readline.t @@ -1,7 +1,7 @@ #!./perl BEGIN { - chdir 't'; + chdir 't' if -d 't'; require './test.pl'; set_up_inc('../lib'); } |