Test preamble: if requiring ./test.pl, needs chdir.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 26 Sep 2014 01:02:08 +0000 (21:02 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 8 Oct 2014 21:21:05 +0000 (23:21 +0200)
Exception: t/op/chdir, which does things its own way, for obvious reasons.

40 files changed:
t/benchmark/rt26188-speed-up-keys-on-empty-hash.t
t/io/errno.t
t/io/inplace.t
t/io/iprefix.t
t/lib/deprecate.t
t/lib/mypragma.t
t/lib/proxy_constant_subs.t
t/mro/next_NEXT.t
t/mro/next_NEXT_utf8.t
t/op/array_base.t
t/op/die_except.t
t/op/die_unwind.t
t/op/flip.t
t/op/for.t
t/op/magic-27839.t
t/op/oct.t
t/op/print.t
t/op/require_37033.t
t/op/sigdispatch.t
t/op/sigsystem.t
t/op/split_unicode.t
t/op/unshift.t
t/re/qr-72922.t
t/re/reg_eval.t
t/re/regexp_unicode_prop.t
t/uni/chomp.t
t/uni/chr.t
t/uni/eval.t
t/uni/goto.t
t/uni/greek.t
t/uni/latin2.t
t/uni/package.t
t/uni/parser.t
t/uni/tie.t
t/uni/tr_7jis.t
t/uni/tr_eucjp.t
t/uni/tr_sjis.t
t/uni/tr_utf8.t
t/uni/variables.t
t/uni/write.t

index a9caeb7..9436395 100644 (file)
@@ -1,6 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use Benchmark;
+chdir 't' if -d 't';
 require './test.pl';
 plan(tests => 6);
 
index e9a6c09..8d0f4b2 100644 (file)
@@ -7,6 +7,7 @@
 use strict;
 use Config;
 
+chdir 't' if -d 't';
 require './test.pl';
 
 plan( tests => 16 );
index 5cb56b9..98159e0 100644 (file)
@@ -1,5 +1,6 @@
 #!./perl
 use strict;
+chdir 't' if -d 't';
 require './test.pl';
 
 $^I = $^O eq 'VMS' ? '_bak' : '.bak';
index 9e09ce0..f011eba 100644 (file)
@@ -1,5 +1,6 @@
 #!./perl
 use strict;
+chdir 't' if -d 't';
 require './test.pl';
 
 $^I = 'bak.*';
index 9e59469..09b258f 100644 (file)
@@ -2,6 +2,7 @@
 use strict;
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
 }
 use File::Copy ();
index 0464897..2bc3f53 100644 (file)
@@ -5,6 +5,7 @@ use warnings;
 
 BEGIN {
     unshift @INC, 'lib';
+    chdir 't' if -d 't';
     require './test.pl';
     plan(tests => 14);
 }
index 9e73006..0b327b1 100644 (file)
@@ -1,5 +1,6 @@
 my @symbols;
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension($_) foreach qw(B Fcntl);
     # S_IFMT is a real subroutine, and acts as control
index e8d85fc..7f61c4d 100644 (file)
@@ -4,6 +4,7 @@ use strict;
 use warnings;
 use NEXT;
 
+chdir 't' if -d 't';
 require './test.pl';
 plan(tests => 4);
 
index 5961a95..c04c85a 100644 (file)
@@ -6,6 +6,7 @@ use NEXT;
 use utf8;
 use open qw( :utf8 :std );
 
+chdir 't' if -d 't';
 require './test.pl';
 plan(tests => 4);
 
index a276240..a30236d 100644 (file)
@@ -2,6 +2,7 @@
 use strict;
 
 BEGIN {
+ chdir 't' if -d 't';
  require './test.pl';
 
  plan (tests => my $tests = 11);
index a65bf4a..36b068c 100644 (file)
@@ -1,5 +1,6 @@
 #!./perl -w
 
+chdir 't' if -d 't';
 require './test.pl';
 use strict;
 
index 29fa6e6..eee1ce5 100644 (file)
@@ -1,5 +1,6 @@
 #!./perl -w
 
+chdir 't' if -d 't';
 require './test.pl';
 use strict;
 
index 5793950..95260f8 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl
 
 BEGIN {
+    chdir 't' if -d 't';
     require "./test.pl";
 }
 
index 563caad..c1c27c3 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl
 
 BEGIN {
+    chdir 't' if -d 't';
     require "./test.pl";
 }
 
index 3e877a4..a1c7fe2 100644 (file)
@@ -2,6 +2,7 @@
 
 BEGIN {
     $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_if_miniperl("no dynamic loading on miniperl, no Tie::Hash::NamedCapture");
     plan(tests => 2);
index d8caecd..2324655 100644 (file)
@@ -2,6 +2,7 @@
 
 # Tests 51 onwards are intentionally not all-warnings-clean
 
+chdir 't' if -d 't';
 require './test.pl';
 use strict;
 
index 31a476c..93aa94a 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl
 
 BEGIN {
+    chdir 't' if -d 't';
     require "./test.pl";
 }
 
index dac8568..ac22fe5 100644 (file)
@@ -4,6 +4,7 @@ use strict;
 # Check that require doesn't leave the handle it uses open, if it happens that
 # the handle it opens gets file descriptor 0. RT #37033.
 
+chdir 't' if -d 't';
 require './test.pl';
 @INC = 'lib';
 
index 12b2d5e..9808f7b 100644 (file)
@@ -3,6 +3,7 @@
 # We assume that TestInit has been used.
 
 BEGIN {
+      chdir 't' if -d 't';
       require './test.pl';
 }
 
index ddfebf9..25da854 100644 (file)
@@ -1,6 +1,7 @@
 #!perl -w
 
 BEGIN {
+      chdir 't' if -d 't';
       require './test.pl';
       skip_all_if_miniperl();
       skip_all_without_config(qw(d_fork));
index bb50620..8bfa935 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_if_miniperl("no dynamic loading on miniperl, no File::Spec (used by charnames)");
     plan(tests => 145);
index 8ef68fd..7782b2a 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl
 
 BEGIN {
+    chdir 't' if -d 't';
     require "./test.pl";
 }
 
index 5daaff0..1b27683 100644 (file)
@@ -2,6 +2,7 @@
 use strict;
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_if_miniperl("no dynamic loading on miniperl, no Scalar::Util");
     plan(tests => 14);
index 56a55a8..09bc3d4 100644 (file)
@@ -5,6 +5,7 @@
 # --rafl
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
 }
 
index fb1b154..617f14e 100644 (file)
@@ -9,6 +9,7 @@ use warnings;
 use 5.010;
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_if_miniperl("no dynamic loading on miniperl, no File::Spec (used by charnames)");
 }
index 0dca91a..4730736 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl -w
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index 9445d32..321e828 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl -w
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index f08c706..bd02bdb 100644 (file)
@@ -3,6 +3,7 @@
 # Check if eval correctly ignores the UTF-8 hint.
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
 }
 
index 922ddc1..76132bc 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl -w
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
 }
 
index 5326ab9..9295e6f 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl -w
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index 6e7d980..aacc131 100644 (file)
@@ -1,6 +1,7 @@
 #!./perl -w
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index bb9092b..1480ebd 100644 (file)
@@ -3,6 +3,7 @@
 # Checks if 'package' work as intended.
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
 }
 
index 83ffd8e..b92a4a8 100644 (file)
@@ -4,6 +4,7 @@
 # (including weird syntax errors)
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_unicode_tables();
 }
index b9da823..c476306 100644 (file)
@@ -1,6 +1,7 @@
 #!perl -w
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
 }
 
index 2108319..9bedaaa 100644 (file)
@@ -5,6 +5,7 @@
 # -- dankogai
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index a317bb1..99ae2fd 100644 (file)
@@ -4,6 +4,7 @@
 # -- dankogai
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index a82b35c..84a9ca5 100644 (file)
@@ -4,6 +4,7 @@
 # -- dankogai
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index 2a566d9..4bfe293 100644 (file)
@@ -5,6 +5,7 @@
 # -- dankogai
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_dynamic_extension('Encode');
     skip_all("EBCDIC") if $::IS_EBCDIC;
index 23d3503..e441000 100644 (file)
@@ -4,6 +4,7 @@
 # (including weird syntax errors)
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all_without_unicode_tables();
 }
index bfc1ddb..d011861 100644 (file)
@@ -2,6 +2,7 @@
 use strict;
 
 BEGIN {
+    chdir 't' if -d 't';
     require './test.pl';
     skip_all("EBCDIC porting needed") if $::IS_EBCDIC;
     skip_all_without_perlio();