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_22survey_two_shadowing.t

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