The Grand Trek: move the *.t files from t/ to lib/ and ext/.

No doubt I made some mistakes like missed some files or
misnamed some files.  The naming rules were more or less:
(1) if the module is from CPAN, follows its ways, be it
    t/*.t or test.pl.
(2) otherwise if there are multiple tests for a module
    put them in a t/
(3) otherwise if there's only one test put it in Module.t
(4) helper files go to module/ (locale, strict, warnings)
(5) use longer filenames now that we can (but e.g. the
    compat-0.6.t and the Text::Balanced test files still
    were renamed to be more civil against the 8.3 people)
installperl was updated appropriately not to install the
*.t files or the help files from under lib.

TODO: some helper files still remain under t/ that could
follow their 'masters'.  UPDATE: On second thoughts, why
should they.  They can continue to live under t/lib, and
in fact the locale/strict/warnings helpers that were moved
could be moved back.  This way the amount of non-installable
stuff under lib/ stays smaller.

p4raw-id: //depot/perl@10676

1 files changed, 0 insertions, 152 deletions

diff --git a/t/lib/glob-global.t b/t/lib/glob-global.t
deleted file mode 100755
index 1d7903275b..0000000000
--- a/t/lib/glob-global.t
+++ /dev/null
@@ -1,152 +0,0 @@
-#!./perl
-
-BEGIN {
-    chdir 't' if -d 't';
-    if ($^O eq 'MacOS') { 
-	@INC = qw(: ::lib ::macos:lib); 
-    } else { 
-	@INC = '.'; 
-	push @INC, '../lib'; 
-    }
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
-        print "1..0\n";
-        exit 0;
-    }
-    print "1..10\n";
-}
-END {
-    print "not ok 1\n" unless $loaded;
-}
-
-BEGIN {
-    *CORE::GLOBAL::glob = sub { "Just another Perl hacker," };
-}
-
-BEGIN {
-    if ("Just another Perl hacker," ne (<*>)[0]) {
-        die <<EOMessage;
-Your version of perl ($]) doesn't seem to allow extensions to override
-the core glob operator.
-EOMessage
-    }
-}
-
-use File::Glob ':globally';
-$loaded = 1;
-print "ok 1\n";
-
-$_ = $^O eq "MacOS" ? ":lib:*.t" : "lib/*.t";
-my @r = glob;
-print "not " if $_ ne ($^O eq "MacOS" ? ":lib:*.t" : "lib/*.t");
-print "ok 2\n";
-
-# we should have at least basic.t, global.t, taint.t
-print "# |@r|\nnot " if @r < 3;
-print "ok 3\n";
-
-# check if <*/*> works
-if ($^O eq "MacOS") {
-    @r = <:*:*.t>;
-} else {
-    @r = <*/*.t>;
-}
-# at least t/global.t t/basic.t, t/taint.t
-print "not " if @r < 3;
-print "ok 4\n";
-my $r = scalar @r;
-
-# check if scalar context works
-@r = ();
-if ($^O eq "MacOS") {
-    while (defined($_ = <:*:*.t>)) {
-	#print "# $_\n";
-	push @r, $_;
-    }
-} else {
-    while (defined($_ = <*/*.t>)) {
-	#print "# $_\n";
-	push @r, $_;
-    }
-}
-print "not " if @r != $r;
-print "ok 5\n";
-
-# check if list context works
-@r = ();
-if ($^O eq "MacOS") {
-    for (<:*:*.t>) {
-	#print "# $_\n";
-	push @r, $_;
-    }
-} else {
-    for (<*/*.t>) {
-	#print "# $_\n";
-	push @r, $_;
-    }
-}
-print "not " if @r != $r;
-print "ok 6\n";
-
-# test if implicit assign to $_ in while() works
-@r = ();
-if ($^O eq "MacOS") {
-    while (<:*:*.t>) {
-	#print "# $_\n";
-	push @r, $_;
-    }
-} else {
-    while (<*/*.t>) {
-	#print "# $_\n";
-	push @r, $_;
-    }
-}
-print "not " if @r != $r;
-print "ok 7\n";
-
-# test if explicit glob() gets assign magic too
-my @s = ();
-while (glob($^O eq 'MacOS' ? ':*:*.t' : '*/*.t')) {
-    #print "# $_\n";
-    push @s, $_;
-}
-print "not " if "@r" ne "@s";
-print "ok 8\n";
-
-# how about in a different package, like?
-package Foo;
-use File::Glob ':globally';
-@s = ();
-while (glob($^O eq 'MacOS' ? ':*:*.t' : '*/*.t')) {
-    #print "# $_\n";
-    push @s, $_;
-}
-print "not " if "@r" ne "@s";
-print "ok 9\n";
-
-# test if different glob ops maintain independent contexts
-@s = ();
-my $i = 0;
-if ($^O eq "MacOS") {
-    while (<:*:*.t>) {
-	#print "# $_ <";
-	push @s, $_;
-	while (<:bas*:*.t>) {
-	    #print " $_";
-	    $i++;
-	}
-	#print " >\n";
-    }
-} else {
-    while (<*/*.t>) {
-	#print "# $_ <";
-	push @s, $_;
-	while (<bas*/*.t>) {
-	    #print " $_";
-	    $i++;
-	}
-	#print " >\n";
-    }
-}
-print "not " if "@r" ne "@s" or not $i;
-print "ok 10\n";