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

diff --git a/lib/Pod/Simple/t/search_12survey_cwd.t b/lib/Pod/Simple/t/search_12survey_cwd.t
index 490efbf..fb2daa2 100644 (file)
--- 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$/');