Test preamble: unify to dot slash test dot pl
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 26 Sep 2014 00:58:56 +0000 (20:58 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 8 Oct 2014 21:21:04 +0000 (23:21 +0200)
42 files changed:
t/io/crlf.t
t/io/errnosig.t
t/lib/no_load.t
t/op/array.t
t/op/auto.t
t/op/chdir.t
t/op/chr.t
t/op/context.t
t/op/coreamp.t
t/op/coresubs.t
t/op/crypt.t
t/op/defins.t
t/op/delete.t
t/op/die_keeperr.t
t/op/flip.t
t/op/for.t
t/op/glob.t
t/op/goto.t
t/op/grep.t
t/op/hashwarn.t
t/op/incfilter.t
t/op/list.t
t/op/localref.t
t/op/loopctl.t
t/op/method.t
t/op/ord.t
t/op/postfixderef.t
t/op/print.t
t/op/protowarn.t
t/op/quotemeta.t
t/op/rand.t
t/op/range.t
t/op/recurse.t
t/op/ref.t
t/op/sleep.t
t/op/srand.t
t/op/sselect.t
t/op/unshift.t
t/op/ver.t
t/run/exit.t
t/uni/method.t
t/uni/sprintf.t

index f26ea0d..ea138fa 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "test.pl";
+    require "./test.pl";
     skip_all_without_perlio();
 }
 
index 8effcf1..ef6a7bd 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
 }
 
 require Config; import Config;
-require "test.pl";
+require "./test.pl";
 plan(tests => 1);
 
 SKIP: {
index 39f0dc6..5852005 100644 (file)
@@ -11,7 +11,7 @@ BEGIN {
 use strict;
 use warnings;
 
-require "test.pl";
+require "./test.pl";
 
 #
 # Format: [Module-that-should-not-be-loaded => modules to test]
index bc5c096..54ef3f2 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = ('.', '../lib');
-    require 'test.pl';
+    require './test.pl';
 }
 
 plan (170);
index 00f7caa..90380ed 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan( tests => 47 );
index d785285..813b0ed 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     # chdir() works!  Instead, we'll hedge our bets and put both
     # possibilities into @INC.
     unshift @INC, qw(t . lib ../lib);
-    require "test.pl";
+    require "./test.pl";
     plan(tests => 48);
 }
 
index 57b4ade..b15957c 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib); # ../lib needed for test.deparse
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan tests => 42;
index 8753d1e..5272b7a 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(. ../lib);
 }
 
-require "test.pl";
+require "./test.pl";
 plan( tests => 7 );
 
 sub foo {
index ffd02df..9a9ab48 100644 (file)
@@ -10,7 +10,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib ../dist/if);
-    require "test.pl";
+    require "./test.pl";
     $^P |= 0x100;
 }
 
index 36a6a10..612db5c 100644 (file)
@@ -7,7 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "test.pl";
+    require "./test.pl";
     skip_all_without_dynamic_extension('B');
     $^P |= 0x100;
 }
index 27c878f..424a24f 100644 (file)
@@ -8,7 +8,7 @@ BEGIN {
 BEGIN {
     use Config;
 
-    require "test.pl";
+    require "./test.pl";
 
     if( !$Config{d_crypt} ) {
         skip_all("crypt unimplemented");
index 54d3150..86e0dd8 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
     @INC = qw(. ../lib);
     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
 }
-require 'test.pl';
+require './test.pl';
 plan( tests => 27 );
 
 my $unix_mode = 1;
index 493717e..e683327 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(. ../lib);
 }
 
-require "test.pl";
+require "./test.pl";
 plan( tests => 38 );
 
 # delete() on hash elements
index 083bd5d..055a802 100644 (file)
@@ -2,7 +2,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    require 'test.pl';
+    require './test.pl';
     plan(24);
 }
 
index bb1526d..5793950 100644 (file)
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan(12);
index 36af7fd..563caad 100644 (file)
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan(107);
index e6f3680..7eec330 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require 'test.pl';
+    require './test.pl';
 }
 
 plan( tests => 18 );
index 13e6b04..ccee71b 100644 (file)
@@ -5,7 +5,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "test.pl";
+    require "./test.pl";
 }
 
 use warnings;
index d34686d..ea434a5 100644 (file)
@@ -7,7 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan( tests => 66 );
index b14e9c2..a6a1de9 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(. ../lib);
 }
 
-require 'test.pl';
+require './test.pl';
 plan( tests => 16 );
 
 use strict;
index 905d819..9019ba5 100644 (file)
@@ -5,7 +5,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require 'test.pl';
+    require './test.pl';
     skip_all_if_miniperl('no dynamic loading on miniperl, no Filter::Util::Call');
     skip_all_without_perlio();
 }
index 0f6e0bc..d14873f 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(. ../lib);
 }
 
-require "test.pl";
+require "./test.pl";
 plan( tests => 65 );
 
 @foo = (1, 2, 3, 4);
index 3f49344..d481f15 100644 (file)
@@ -2,7 +2,7 @@
 
 chdir 't' if -d 't';
 @INC = qw(. ../lib);
-require "test.pl";
+require "./test.pl";
 plan( tests => 64 );
 
 $aa = 1;
index d520a7f..a603420 100644 (file)
@@ -33,7 +33,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan( tests => 67 );
index 31e2ea1..3e26f2f 100644 (file)
@@ -7,7 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib lib ../dist/base/lib);
-    require "test.pl";
+    require "./test.pl";
 }
 
 use strict;
index 1c82262..51b2a4e 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib); # ../lib needed for test.deparse
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan tests => 35;
index e60b33b..3d60b9e 100644 (file)
@@ -11,7 +11,7 @@ this file contains all dereferencing tests from ref.t but using postfix instead
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require 'test.pl';
+    require './test.pl';
 }
 
 use strict qw(refs subs);
index a98b0bf..31a476c 100644 (file)
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan(3);
index 0cf946a..eb046e5 100644 (file)
@@ -9,7 +9,7 @@ use strict;
 use warnings;
 
 BEGIN {
-    require 'test.pl';
+    require './test.pl';
     plan( tests => 12 );
 }
 
index 9e62076..7f5705d 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = qw(../lib .);
     require Config; import Config;
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan tests => 60;
index 90d1c37..b3bfdd4 100644 (file)
@@ -23,7 +23,7 @@ BEGIN {
 use strict;
 use Config;
 
-require "test.pl";
+require "./test.pl";
 plan(tests => 10);
 
 
index 903cdee..7809882 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = ('../lib', '.');
 }   
 # Avoid using eq_array below as it uses .. internally.
-require 'test.pl';
+require './test.pl';
 
 use Config;
 
index 2a0201a..c64dda1 100644 (file)
@@ -7,7 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require "test.pl";
+    require "./test.pl";
     plan(tests => 28);
 }
 
index 244dbd8..8c9e3fd 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
-    require 'test.pl';
+    require './test.pl';
 }
 
 use strict qw(refs subs);
index 3f5bbe0..441f76a 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     @INC = qw(. ../lib);
 }
 
-require "test.pl";
+require "./test.pl";
 plan( tests => 4 );
 
 use strict;
index 5321cde..61c64d2 100644 (file)
@@ -9,7 +9,7 @@ BEGIN {
 
 use strict;
 
-require "test.pl";
+require "./test.pl";
 plan(tests => 10);
 
 # Generate a load of random numbers.
index 879c9d5..d0dc33b 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
     $hires = eval 'use Time::HiResx "time"; 1';
 }
 
-require 'test.pl';
+require './test.pl';
 
 plan (15);
 
index a6cd692..8ef68fd 100644 (file)
@@ -1,7 +1,7 @@
 #!./perl
 
 BEGIN {
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan(36);
index 3969d11..1496725 100644 (file)
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib);
     $SIG{'__WARN__'} = sub { warn $_[0] if $DOWARN };
-    require "test.pl";
+    require "./test.pl";
 }
 
 $DOWARN = 1; # enable run-time warnings now
index 02e57c6..ce3270e 100644 (file)
@@ -39,7 +39,7 @@ if ($^O eq 'VMS') {
     $numtests = 29 unless $vms_exit_mode;
 }
 
-require "test.pl";
+require "./test.pl";
 plan(tests => $numtests);
 
 my $native_success = 0;
index abe3c83..53c5485 100644 (file)
@@ -7,7 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(. ../lib ../cpan/parent/lib);
-    require "test.pl";
+    require "./test.pl";
 }
 
 use strict;
index 0862649..258ab54 100644 (file)
@@ -3,7 +3,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = qw(../lib .);
-    require "test.pl";
+    require "./test.pl";
 }
 
 plan tests => 52;