}
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";
}
{
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$/');