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

[p5sagit/p5-mst-13.2.git] / lib / Pod / Simple / t / search_25_glob_squaa_coloncolon_kleene.t

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 (file)
--- 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";