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";
{
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";