diff options
| author | Steve Peters <steve@fisharerojo.org> | 2007-03-23 01:47:41 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-03-23 01:47:41 +0000 |
| commit | 9b134129b37f0ac68efe970f543cccef309944c6 (patch) | |
| tree | 6ea87eb70c4a259fdb8ba30dbe2facf5d642b977 /lib/Pod/Simple/t/search26.t | |
| parent | 4f90f8a54e3419c3cfd886662db5eccd3cfbf5fd (diff) | |
| download | perl-9b134129b37f0ac68efe970f543cccef309944c6.tar.gz | |
Additional test file edits needed for Pod-Simple-3.05 that couldn't
be included due to the integrates being performed in the previous
change.
p4raw-id: //depot/perl@30707
Diffstat (limited to 'lib/Pod/Simple/t/search26.t')
| -rw-r--r-- | lib/Pod/Simple/t/search26.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/Pod/Simple/t/search26.t b/lib/Pod/Simple/t/search26.t index 800302c215..fb9d322c76 100644 --- a/lib/Pod/Simple/t/search26.t +++ b/lib/Pod/Simple/t/search26.t @@ -43,17 +43,17 @@ sub source_path { my($here1, $here2, $here3); -if( -e ($here1 = source_path( 'test_lib' ))) { +if( -e ($here1 = source_path( 'testlib1' ))) { die "But where's $here2?" - unless -e ($here2 = source_path ( 'other_test_lib')); + unless -e ($here2 = source_path ( 'testlib2')); die "But where's $here3?" - unless -e ($here3 = source_path( 'yet_another_test_lib')); + unless -e ($here3 = source_path( 'testlib3')); -} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'test_lib' ))) { +} elsif( -e ($here1 = File::Spec->catdir($cwd, 't', 'testlib1' ))) { die "But where's $here2?" - unless -e ($here2 = File::Spec->catdir($cwd, 't', 'other_test_lib')); + unless -e ($here2 = File::Spec->catdir($cwd, 't', 'testlib2')); 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', 'testlib3')); } else { die "Can't find the test corpora"; @@ -80,12 +80,12 @@ print $p; { my $names = join "|", sort keys %$name2where; -ok $names, "Zonk::Pronk|hink_honk::Glunk|perlzuk|squaa::Glunk|zikzik"; +ok $names, "Zonk::Pronk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik"; } { my $names = join "|", sort values %$where2name; -ok $names, "Zonk::Pronk|hink_honk::Glunk|hink_honk::Glunk|perlzuk|squaa::Glunk|zikzik"; +ok $names, "Zonk::Pronk|hinkhonk::Glunk|hinkhonk::Glunk|perlzuk|squaa::Glunk|zikzik"; } print "# OK, bye from ", __FILE__, "\n"; |