From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 13 Dec 2005 11:54:54 +0000 (+0000)
Subject: Changes to Pod::Simple's tests to get rid of the "^"s in the
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=318efef0dfffad8c4ba487ce1bea87a00e41ae43;p=p5sagit%2Fp5-mst-13.2.git

Changes to Pod::Simple's tests to get rid of the "^"s in the
directory names.

p4raw-id: //depot/perl@26340
---

diff --git a/MANIFEST b/MANIFEST
index d800dc9..3e0354a 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -2021,14 +2021,14 @@ lib/Pod/Simple/t/itemadapt.t		Pod::Simple test file
 lib/Pod/Simple/t/itemstar.t		Pod::Simple test file
 lib/Pod/Simple/t/items.t		Pod::Simple test file
 lib/Pod/Simple/t/linkclass.t		Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod	Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt	Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm	Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod	Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod		Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm		Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm		Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod		Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod	Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt	Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm	Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod	Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod		Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm		Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm		Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod		Pod::Simple test file
 lib/Pod/Simple/t/puller.t		Pod::Simple test file
 lib/Pod/Simple/t/pulltitle.t		Pod::Simple test file
 lib/Pod/Simple/TranscodeDumb.pm		Pod::Simple::TranscodeDumb
@@ -2052,19 +2052,19 @@ lib/Pod/Simple/t/test_junk1_out.txt	Pod::Simple test file
 lib/Pod/Simple/t/test_junk1.pod		Pod::Simple test file
 lib/Pod/Simple/t/test_junk2_out.txt	Pod::Simple test file
 lib/Pod/Simple/t/test_junk2.pod		Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Blorm.pm		Pod::Simple test file
-lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/hink^honk/readme.txt	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/pod/perlfliff.pod	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/pod/perlthang.pod	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/squaa/Glunk.pod	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/squaa.pm		Pod::Simple test file
-lib/Pod/Simple/t/test^lib/squaa/Vliff.pm	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/zikzik.pod		Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt	Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm		Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Zonk/Veng.pm		Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Blorm.pm		Pod::Simple test file
+lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/hink_honk/readme.txt	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/pod/perlfliff.pod	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/pod/perlthang.pod	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/squaa/Glunk.pod	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/squaa.pm		Pod::Simple test file
+lib/Pod/Simple/t/test_lib/squaa/Vliff.pm	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/zikzik.pod		Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt	Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm		Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Zonk/Veng.pm		Pod::Simple test file
 lib/Pod/Simple/t/test_old_perlcygwin_out.txt	Pod::Simple test file
 lib/Pod/Simple/t/test_old_perlcygwin.pod	Pod::Simple test file
 lib/Pod/Simple/t/test_old_perlfaq3_out.txt	Pod::Simple test file
@@ -2074,7 +2074,7 @@ lib/Pod/Simple/t/test_old_perlvar.pod	Pod::Simple test file
 lib/Pod/Simple/t/verbatim_formatted.t	Pod::Simple test file
 lib/Pod/Simple/t/verbatims.t		Pod::Simple test file
 lib/Pod/Simple/t/x_nixer.t		Pod::Simple test file
-lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm	Pod::Simple test file
+lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm	Pod::Simple test file
 lib/Pod/Simple/XMLOutStream.pm	turn Pod into XML
 lib/Pod/t/basic.cap		podlators test
 lib/Pod/t/basic.clr		podlators test
diff --git a/lib/Pod/Simple/t/htmlbatch_01.t b/lib/Pod/Simple/t/htmlbatch_01.t
index e191a32..098b21f 100644
--- a/lib/Pod/Simple/t/htmlbatch_01.t
+++ b/lib/Pod/Simple/t/htmlbatch_01.t
@@ -33,7 +33,7 @@ foreach my $t_maybe (
   next unless -e $t_maybe;
 
   $t_dir = $t_maybe;
-  $corpus_dir = File::Spec->catdir( $t_maybe, 'test^lib' );
+  $corpus_dir = File::Spec->catdir( $t_maybe, 'test_lib' );
   next unless -e $corpus_dir;
   last;
 }
diff --git a/lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm b/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm
rename to lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm
diff --git a/lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod b/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod
rename to lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod
diff --git a/lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm b/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm
rename to lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm
diff --git a/lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt b/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt
rename to lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt
diff --git a/lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod b/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod
rename to lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod
diff --git a/lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod b/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod
rename to lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod
diff --git a/lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm b/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm
rename to lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm
diff --git a/lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod b/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod
similarity index 100%
rename from lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod
rename to lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod
diff --git a/lib/Pod/Simple/t/search_10survey_specific.t b/lib/Pod/Simple/t/search_10survey_specific.t
index a6c9d3c..cf34413 100644
--- a/lib/Pod/Simple/t/search_10survey_specific.t
+++ b/lib/Pod/Simple/t/search_10survey_specific.t
@@ -43,9 +43,9 @@ sub source_path {
 }
 
 my $here;
-if(     -e ($here = source_path('test^lib'))) {
+if(     -e ($here = source_path('test_lib'))) {
   #
-} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'test^lib'))) {
+} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'test_lib'))) {
   #
 } else {
   die "Can't find the test corpus";
@@ -68,12 +68,12 @@ print $p;
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "Blorm|Zonk::Pronk|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
+ok $names, "Blorm|Zonk::Pronk|hink_honk::Glunk|hink_honk::Vliff|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "Blorm|Zonk::Pronk|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
+ok $names, "Blorm|Zonk::Pronk|hink_honk::Glunk|hink_honk::Vliff|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
 
 ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
diff --git a/lib/Pod/Simple/t/search_12survey_cwd.t b/lib/Pod/Simple/t/search_12survey_cwd.t
index 490efbf..fb2daa2 100644
--- a/lib/Pod/Simple/t/search_12survey_cwd.t
+++ b/lib/Pod/Simple/t/search_12survey_cwd.t
@@ -36,9 +36,9 @@ sub source_path {
 }
 
 my $here;
-if(     -e ($here = source_path('test^lib'))) {
+if(     -e ($here = source_path('test_lib'))) {
   chdir $here;
-} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'test^lib'))) {
+} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'test_lib'))) {
   chdir $here;
 } else {
   die "Can't find the test corpus";
@@ -61,12 +61,12 @@ print $p;
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "Blorm|Zonk::Pronk|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
+ok $names, "Blorm|Zonk::Pronk|hink_honk::Glunk|hink_honk::Vliff|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "Blorm|Zonk::Pronk|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
+ok $names, "Blorm|Zonk::Pronk|hink_honk::Glunk|hink_honk::Vliff|perlfliff|perlthang|squaa|squaa::Glunk|squaa::Vliff|zikzik";
 }
 
 ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
diff --git a/lib/Pod/Simple/t/search_20survey_two.t b/lib/Pod/Simple/t/search_20survey_two.t
index 1bfdaba..bfea22e 100644
--- a/lib/Pod/Simple/t/search_20survey_two.t
+++ b/lib/Pod/Simple/t/search_20survey_two.t
@@ -40,12 +40,12 @@ sub source_path {
 }
 
 my($here1, $here2);
-if(        -e ($here1 = source_path('test^lib'))) {
+if(        -e ($here1 = source_path('test_lib'))) {
   die "But where's $here2?"
-    unless -e ($here2 = source_path('other^test^lib'));
-} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test^lib'      ))) {
+    unless -e ($here2 = source_path('other_test_lib'));
+} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other^test^lib'));
+    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib'));
 } else {
   die "Can't find the test corpora";
 }
@@ -69,12 +69,12 @@ print $p;
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|perlfliff|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
+ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|hink_honk::Glunk|hink_honk::Vliff|perlfliff|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|perlfliff|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
+ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|hink_honk::Glunk|hink_honk::Vliff|perlfliff|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
 
 ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
diff --git a/lib/Pod/Simple/t/search_22survey_two_shadowing.t b/lib/Pod/Simple/t/search_22survey_two_shadowing.t
index dd1a62f..d61187e 100644
--- a/lib/Pod/Simple/t/search_22survey_two_shadowing.t
+++ b/lib/Pod/Simple/t/search_22survey_two_shadowing.t
@@ -37,17 +37,17 @@ sub source_path {
 
 my($here1, $here2, $here3);
 
-if(        -e ($here1 = source_path('test^lib'      ))) {
+if(        -e ($here1 = source_path('test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = source_path('other^test^lib'));
+    unless -e ($here2 = source_path('other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = source_path('yet^another^test^lib'));
+    unless -e ($here3 = source_path('yet_another_test_lib'));
 
-} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test^lib'      ))) {
+} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other^test^lib'));
+    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet^another^test^lib'));
+    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet_another_test_lib'));
 
 } else {
   die "Can't find the test corpora";
@@ -71,20 +71,20 @@ print $p;
 {
 print "# won't show any shadows, since we're just looking at the name2where keys\n";
 my $names = join "|", sort keys %$name2where;
-ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|perlfliff|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
+ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|hink_honk::Glunk|hink_honk::Vliff|perlfliff|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Wowo|zikzik";
 }
 
 {
 print "# but here we'll see shadowing:\n";
 my $names = join "|", sort values %$where2name;
-ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|perlfliff|perlthang|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik";
+ok $names, "Blorm|Sizzlesuzzle|Zonk::Pronk|hink_honk::Glunk|hink_honk::Glunk|hink_honk::Vliff|hink_honk::Vliff|perlfliff|perlthang|perlthang|perlzuk|squaa|squaa::Glunk|squaa::Vliff|squaa::Vliff|squaa::Vliff|squaa::Wowo|zikzik";
 
 my %count;
 for(values %$where2name) { ++$count{$_} };
 #print pretty(\%count), "\n\n";
 delete @count{ grep $count{$_} < 2, keys %count };
 my $shadowed = join "|", sort keys %count;
-ok $shadowed, "perlthang|squaa::Vliff";
+ok $shadowed, "hink_honk::Glunk|hink_honk::Vliff|perlthang|squaa::Vliff";
 
 sub thar { print "# Seen $_[0] :\n", map "#  {$_}\n", sort grep $where2name->{$_} eq $_[0],keys %$where2name; return; }
 
@@ -99,11 +99,11 @@ ok( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/');
 
 ok grep( m/squaa\.pm/, keys %$where2name ), 1;
 
-ok( ($name2where->{'perlthang'}    || 'huh???'), '/[^\^]test\^lib/' );
-ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test\^lib/' );
+ok( ($name2where->{'perlthang'}    || 'huh???'), '/[^\^]test_lib/' );
+ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test_lib/' );
 
 # Some sanity:
-ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/other\^test\^lib/' );
+ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/other_test_lib/' );
 
 
 
diff --git a/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t b/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t
index 9ae1785..eee796a 100644
--- a/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t
+++ b/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t
@@ -40,17 +40,17 @@ sub source_path {
 
 my($here1, $here2, $here3);
 
-if(        -e ($here1 = source_path( 'test^lib'      ))) {
+if(        -e ($here1 = source_path( 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = source_path( 'other^test^lib'));
+    unless -e ($here2 = source_path( 'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = source_path( 'yet^another^test^lib'));
+    unless -e ($here3 = source_path( 'yet_another_test_lib'));
 
-} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test^lib'      ))) {
+} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other^test^lib'));
+    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet^another^test^lib'));
+    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet_another_test_lib'));
 
 } else {
   die "Can't find the test corpora: $dir";
@@ -100,9 +100,9 @@ thar 'squaa::Vliff';
 
 ok ! $name2where->{'squaa'};  # because squaa.pm isn't squaa::*
 
-ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test\^lib/' );
+ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test_lib/' );
 
-ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/other\^test\^lib/' );
+ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/other_test_lib/' );
 
 
 print "# OK, bye from ", __FILE__, "\n";
diff --git a/lib/Pod/Simple/t/search_26_glob_kleene_k.t b/lib/Pod/Simple/t/search_26_glob_kleene_k.t
index 278edad..800302c 100644
--- a/lib/Pod/Simple/t/search_26_glob_kleene_k.t
+++ b/lib/Pod/Simple/t/search_26_glob_kleene_k.t
@@ -43,17 +43,17 @@ sub source_path {
 
 my($here1, $here2, $here3);
 
-if(        -e ($here1 = source_path(  'test^lib'      ))) {
+if(        -e ($here1 = source_path(  'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = source_path (   'other^test^lib'));
+    unless -e ($here2 = source_path (   'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = source_path(   'yet^another^test^lib'));
+    unless -e ($here3 = source_path(   'yet_another_test_lib'));
 
-} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test^lib'      ))) {
+} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other^test^lib'));
+    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet^another^test^lib'));
+    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet_another_test_lib'));
 
 } else {
   die "Can't find the test corpora";
@@ -80,12 +80,12 @@ print $p;
 
 {
 my $names = join "|", sort keys %$name2where;
-ok $names, "Zonk::Pronk|perlzuk|squaa::Glunk|zikzik";
+ok $names, "Zonk::Pronk|hink_honk::Glunk|perlzuk|squaa::Glunk|zikzik";
 }
 
 {
 my $names = join "|", sort values %$where2name;
-ok $names, "Zonk::Pronk|perlzuk|squaa::Glunk|zikzik";
+ok $names, "Zonk::Pronk|hink_honk::Glunk|hink_honk::Glunk|perlzuk|squaa::Glunk|zikzik";
 }
 
 print "# OK, bye from ", __FILE__, "\n";
diff --git a/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t b/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t
index ea9f634..d9d0458 100644
--- a/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t
+++ b/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t
@@ -37,17 +37,17 @@ sub source_path {
 
 my($here1, $here2, $here3);
 
-if(        -e ($here1 = source_path(  'test^lib'      ))) {
+if(        -e ($here1 = source_path(  'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = source_path(  'other^test^lib'));
+    unless -e ($here2 = source_path(  'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = source_path(  'yet^another^test^lib'));
+    unless -e ($here3 = source_path(  'yet_another_test_lib'));
 
-} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test^lib'      ))) {
+} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other^test^lib'));
+    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet^another^test^lib'));
+    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet_another_test_lib'));
 
 } else {
   die "Can't find the test corpora";
@@ -97,9 +97,9 @@ thar 'squaa::Vliff';
 
 ok   $name2where->{'squaa'};  # because squaa.pm IS squaa*
 
-ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test\^lib/' );
+ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test_lib/' );
 
-ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/other\^test\^lib/' );
+ok( ($name2where->{'squaa::Wowo'}  || 'huh???'), '/other_test_lib/' );
 
 
 print "# OK, bye from ", __FILE__, "\n";
diff --git a/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t b/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t
index 5e74a8a..a9414af 100644
--- a/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t
+++ b/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t
@@ -37,17 +37,17 @@ sub source_path {
 
 my($here1, $here2, $here3);
 
-if(        -e ($here1 = source_path(  'test^lib'      ))) {
+if(        -e ($here1 = source_path(  'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = source_path(  'other^test^lib'));
+    unless -e ($here2 = source_path(  'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = source_path(  'yet^another^test^lib'));
+    unless -e ($here3 = source_path(  'yet_another_test_lib'));
 
-} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test^lib'      ))) {
+} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other^test^lib'));
+    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet^another^test^lib'));
+    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet_another_test_lib'));
 
 } else {
   die "Can't find the test corpora";
diff --git a/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t b/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t
index 023b190..9f3c2f5 100644
--- a/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t
+++ b/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t
@@ -37,17 +37,17 @@ sub source_path {
 
 my($here1, $here2, $here3);
 
-if(        -e ($here1 = source_path(   'test^lib'      ))) {
+if(        -e ($here1 = source_path(   'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = source_path(   'other^test^lib'));
+    unless -e ($here2 = source_path(   'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = source_path(   'yet^another^test^lib'));
+    unless -e ($here3 = source_path(   'yet_another_test_lib'));
 
-} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test^lib'      ))) {
+} elsif(   -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib'      ))) {
   die "But where's $here2?"
-    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other^test^lib'));
+    unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib'));
   die "But where's $here3?"
-    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet^another^test^lib'));
+    unless -e ($here3 = File::Spec->catdir($cwd, 't', 'yet_another_test_lib'));
 
 } else {
   die "Can't find the test corpora";
diff --git a/lib/Pod/Simple/t/test^lib/Blorm.pm b/lib/Pod/Simple/t/test_lib/Blorm.pm
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/Blorm.pm
rename to lib/Pod/Simple/t/test_lib/Blorm.pm
diff --git a/lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt b/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt
rename to lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt
diff --git a/lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm b/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm
rename to lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm
diff --git a/lib/Pod/Simple/t/test^lib/Zonk/Veng.pm b/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/Zonk/Veng.pm
rename to lib/Pod/Simple/t/test_lib/Zonk/Veng.pm
diff --git a/lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod b/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod
rename to lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod
diff --git a/lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm b/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm
rename to lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm
diff --git a/lib/Pod/Simple/t/test^lib/hink^honk/readme.txt b/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/hink^honk/readme.txt
rename to lib/Pod/Simple/t/test_lib/hink_honk/readme.txt
diff --git a/lib/Pod/Simple/t/test^lib/pod/perlfliff.pod b/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/pod/perlfliff.pod
rename to lib/Pod/Simple/t/test_lib/pod/perlfliff.pod
diff --git a/lib/Pod/Simple/t/test^lib/pod/perlthang.pod b/lib/Pod/Simple/t/test_lib/pod/perlthang.pod
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/pod/perlthang.pod
rename to lib/Pod/Simple/t/test_lib/pod/perlthang.pod
diff --git a/lib/Pod/Simple/t/test^lib/squaa.pm b/lib/Pod/Simple/t/test_lib/squaa.pm
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/squaa.pm
rename to lib/Pod/Simple/t/test_lib/squaa.pm
diff --git a/lib/Pod/Simple/t/test^lib/squaa/Glunk.pod b/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/squaa/Glunk.pod
rename to lib/Pod/Simple/t/test_lib/squaa/Glunk.pod
diff --git a/lib/Pod/Simple/t/test^lib/squaa/Vliff.pm b/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/squaa/Vliff.pm
rename to lib/Pod/Simple/t/test_lib/squaa/Vliff.pm
diff --git a/lib/Pod/Simple/t/test^lib/zikzik.pod b/lib/Pod/Simple/t/test_lib/zikzik.pod
similarity index 100%
rename from lib/Pod/Simple/t/test^lib/zikzik.pod
rename to lib/Pod/Simple/t/test_lib/zikzik.pod
diff --git a/lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm b/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm
similarity index 100%
rename from lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm
rename to lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm