Change 26340 by [EMAIL PROTECTED] on 2005/12/13 11:54:54
Changes to Pod::Simple's tests to get rid of the "^"s in the
directory names.
Affected files ...
... //depot/perl/MANIFEST#1334 edit
... //depot/perl/lib/Pod/Simple/t/htmlbatch_01.t#2 edit
... //depot/perl/lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt#2 delete
... //depot/perl/lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm#1 add
... //depot/perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod#1 add
... //depot/perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm#1 add
... //depot/perl/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt#1 add
... //depot/perl/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod#1 add
... //depot/perl/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod#1 add
... //depot/perl/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm#1 add
... //depot/perl/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod#1 add
... //depot/perl/lib/Pod/Simple/t/search_10survey_specific.t#2 edit
... //depot/perl/lib/Pod/Simple/t/search_12survey_cwd.t#2 edit
... //depot/perl/lib/Pod/Simple/t/search_20survey_two.t#2 edit
... //depot/perl/lib/Pod/Simple/t/search_22survey_two_shadowing.t#2 edit
... //depot/perl/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t#2
edit
... //depot/perl/lib/Pod/Simple/t/search_26_glob_kleene_k.t#2 edit
... //depot/perl/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t#2 edit
... //depot/perl/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t#2 edit
... //depot/perl/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t#2 edit
... //depot/perl/lib/Pod/Simple/t/test^lib/Blorm.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/Zonk/Veng.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/hink^honk/readme.txt#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/pod/perlfliff.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/pod/perlthang.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/squaa.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/squaa/Glunk.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/squaa/Vliff.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/test^lib/zikzik.pod#2 delete
... //depot/perl/lib/Pod/Simple/t/test_lib/Blorm.pm#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/pod/perlthang.pod#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/squaa.pm#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm#1 add
... //depot/perl/lib/Pod/Simple/t/test_lib/zikzik.pod#1 add
... //depot/perl/lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm#2 delete
... //depot/perl/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm#1 add
Differences ...
==== //depot/perl/MANIFEST#1334 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#1333~26311~ 2005-12-09 05:22:33.000000000 -0800
+++ perl/MANIFEST 2005-12-13 03:54:54.000000000 -0800
@@ -2021,14 +2021,14 @@
lib/Pod/Simple/t/itemstar.t Pod::Simple test file
lib/Pod/Simple/t/items.t Pod::Simple test file
lib/Pod/Simple/t/linkclass.t Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod Pod::Simple
test file
-lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm Pod::Simple
test file
-lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm Pod::Simple test file
-lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod Pod::Simple
test file
+lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm Pod::Simple
test file
+lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm Pod::Simple test file
+lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod Pod::Simple test file
lib/Pod/Simple/t/puller.t Pod::Simple test file
lib/Pod/Simple/t/pulltitle.t Pod::Simple test file
lib/Pod/Simple/TranscodeDumb.pm Pod::Simple::TranscodeDumb
@@ -2052,19 +2052,19 @@
lib/Pod/Simple/t/test_junk1.pod Pod::Simple test file
lib/Pod/Simple/t/test_junk2_out.txt Pod::Simple test file
lib/Pod/Simple/t/test_junk2.pod Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Blorm.pm Pod::Simple test file
-lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod Pod::Simple test file
-lib/Pod/Simple/t/test^lib/hink^honk/readme.txt Pod::Simple test file
-lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm Pod::Simple test file
-lib/Pod/Simple/t/test^lib/pod/perlfliff.pod Pod::Simple test file
-lib/Pod/Simple/t/test^lib/pod/perlthang.pod Pod::Simple test file
-lib/Pod/Simple/t/test^lib/squaa/Glunk.pod Pod::Simple test file
-lib/Pod/Simple/t/test^lib/squaa.pm Pod::Simple test file
-lib/Pod/Simple/t/test^lib/squaa/Vliff.pm Pod::Simple test file
-lib/Pod/Simple/t/test^lib/zikzik.pod Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm Pod::Simple test file
-lib/Pod/Simple/t/test^lib/Zonk/Veng.pm Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Blorm.pm Pod::Simple test file
+lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod Pod::Simple test file
+lib/Pod/Simple/t/test_lib/hink_honk/readme.txt Pod::Simple test file
+lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm Pod::Simple test file
+lib/Pod/Simple/t/test_lib/pod/perlfliff.pod Pod::Simple test file
+lib/Pod/Simple/t/test_lib/pod/perlthang.pod Pod::Simple test file
+lib/Pod/Simple/t/test_lib/squaa/Glunk.pod Pod::Simple test file
+lib/Pod/Simple/t/test_lib/squaa.pm Pod::Simple test file
+lib/Pod/Simple/t/test_lib/squaa/Vliff.pm Pod::Simple test file
+lib/Pod/Simple/t/test_lib/zikzik.pod Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm Pod::Simple test file
+lib/Pod/Simple/t/test_lib/Zonk/Veng.pm Pod::Simple test file
lib/Pod/Simple/t/test_old_perlcygwin_out.txt Pod::Simple test file
lib/Pod/Simple/t/test_old_perlcygwin.pod Pod::Simple test file
lib/Pod/Simple/t/test_old_perlfaq3_out.txt Pod::Simple test file
@@ -2074,7 +2074,7 @@
lib/Pod/Simple/t/verbatim_formatted.t Pod::Simple test file
lib/Pod/Simple/t/verbatims.t Pod::Simple test file
lib/Pod/Simple/t/x_nixer.t Pod::Simple test file
-lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm Pod::Simple test file
+lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm Pod::Simple test file
lib/Pod/Simple/XMLOutStream.pm turn Pod into XML
lib/Pod/t/basic.cap podlators test
lib/Pod/t/basic.clr podlators test
==== //depot/perl/lib/Pod/Simple/t/htmlbatch_01.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/htmlbatch_01.t
--- perl/lib/Pod/Simple/t/htmlbatch_01.t#1~26291~ 2005-12-07
03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/htmlbatch_01.t 2005-12-13 03:54:54.000000000
-0800
@@ -33,7 +33,7 @@
next unless -e $t_maybe;
$t_dir = $t_maybe;
- $corpus_dir = File::Spec->catdir( $t_maybe, 'test^lib' );
+ $corpus_dir = File::Spec->catdir( $t_maybe, 'test_lib' );
next unless -e $corpus_dir;
last;
}
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,10 @@
+
+1;
+__END__
+
+=head1 NAME
+
+Sizzlesuzzle -- hooboy, this is a test file too.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod#1 (text)
====
Index: perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,11 @@
+
+=head1 NAME
+
+squaa::Glunk -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm#1 (text)
====
Index: perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,14 @@
+
+=head1 NAME
+
+squaa::Vliff -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
+print "HOOBOY!\n";
+1;
+
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt#1 (text)
====
Index: perl/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1 @@
+This directory should never be scanned.
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod#1 (text)
====
Index: perl/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,7 @@
+
+=head1 NAME
+
+perlthang - This is just some test file
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod#1 (text) ====
Index: perl/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,7 @@
+
+=head1 NAME
+
+perlthang - This is just some test file
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,14 @@
+
+=head1 NAME
+
+squaa::Vliff -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
+print "HOOBOY!\n";
+1;
+
==== //depot/perl/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod#1 (text) ====
Index: perl/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,11 @@
+
+=head1 NAME
+
+squaa::Glunk -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/search_10survey_specific.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_10survey_specific.t
--- perl/lib/Pod/Simple/t/search_10survey_specific.t#1~26291~ 2005-12-07
03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_10survey_specific.t 2005-12-13
03:54:54.000000000 -0800
@@ -43,9 +43,9 @@
}
my $here;
-if( -e ($here = source_path('test^lib'))) {
+if( -e ($here = source_path('test_lib'))) {
#
-} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'test^lib'))) {
+} elsif(-e ($here = File::Spec->catdir($cwd, 't', 'test_lib'))) {
#
} else {
die "Can't find the test corpus";
@@ -68,12 +68,12 @@
{
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$/');
==== //depot/perl/lib/Pod/Simple/t/search_12survey_cwd.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_12survey_cwd.t
--- perl/lib/Pod/Simple/t/search_12survey_cwd.t#1~26291~ 2005-12-07
03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_12survey_cwd.t 2005-12-13 03:54:54.000000000
-0800
@@ -36,9 +36,9 @@
}
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 @@
{
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$/');
==== //depot/perl/lib/Pod/Simple/t/search_20survey_two.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_20survey_two.t
--- perl/lib/Pod/Simple/t/search_20survey_two.t#1~26291~ 2005-12-07
03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_20survey_two.t 2005-12-13 03:54:54.000000000
-0800
@@ -40,12 +40,12 @@
}
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";
}
@@ -69,12 +69,12 @@
{
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$/');
==== //depot/perl/lib/Pod/Simple/t/search_22survey_two_shadowing.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_22survey_two_shadowing.t
--- perl/lib/Pod/Simple/t/search_22survey_two_shadowing.t#1~26291~
2005-12-07 03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_22survey_two_shadowing.t 2005-12-13
03:54:54.000000000 -0800
@@ -37,17 +37,17 @@
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 "# 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 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/' );
==== //depot/perl/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t#2
(text) ====
Index: perl/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t
--- perl/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t#1~26291~
2005-12-07 03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t
2005-12-13 03:54:54.000000000 -0800
@@ -40,17 +40,17 @@
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: $dir";
@@ -100,9 +100,9 @@
ok ! $name2where->{'squaa'}; # because squaa.pm isn't squaa::*
-ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test\^lib/' );
+ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test_lib/' );
-ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/other\^test\^lib/' );
+ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/other_test_lib/' );
print "# OK, bye from ", __FILE__, "\n";
==== //depot/perl/lib/Pod/Simple/t/search_26_glob_kleene_k.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_26_glob_kleene_k.t
--- perl/lib/Pod/Simple/t/search_26_glob_kleene_k.t#1~26291~ 2005-12-07
03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_26_glob_kleene_k.t 2005-12-13
03:54:54.000000000 -0800
@@ -43,17 +43,17 @@
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";
@@ -80,12 +80,12 @@
{
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";
==== //depot/perl/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t
--- perl/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t#1~26291~
2005-12-07 03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t 2005-12-13
03:54:54.000000000 -0800
@@ -37,17 +37,17 @@
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";
@@ -97,9 +97,9 @@
ok $name2where->{'squaa'}; # because squaa.pm IS squaa*
-ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test\^lib/' );
+ok( ($name2where->{'squaa::Vliff'} || 'huh???'), '/[^\^]test_lib/' );
-ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/other\^test\^lib/' );
+ok( ($name2where->{'squaa::Wowo'} || 'huh???'), '/other_test_lib/' );
print "# OK, bye from ", __FILE__, "\n";
==== //depot/perl/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t
--- perl/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t#1~26291~ 2005-12-07
03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t 2005-12-13
03:54:54.000000000 -0800
@@ -37,17 +37,17 @@
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";
==== //depot/perl/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t#2 (text) ====
Index: perl/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t
--- perl/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t#1~26291~ 2005-12-07
03:38:00.000000000 -0800
+++ perl/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t 2005-12-13
03:54:54.000000000 -0800
@@ -37,17 +37,17 @@
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";
==== //depot/perl/lib/Pod/Simple/t/test_lib/Blorm.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/Blorm.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/Blorm.pm 2005-12-13 03:54:54.000000000
-0800
@@ -0,0 +1,10 @@
+=head1 NAME
+
+Blorm -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,4 @@
+
+This is just a dummy file. It's podless and shouldn't even be scanned for pod.
+
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,43 @@
+
+=head1 NAME
+
+Zonk::Pronk -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+This is a test Pod document in Latin-1. Its content is the last two
+paragraphs of Baudelaire's I<Le Joujou du pauvre>.
+
+A travers ces barreaux symboliques séparant deux mondes, la grande route
+et le château, l'enfant pauvre montrait à l'enfant riche son propre
+joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
+Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
+une boîte grillée, c'était un rat vivantE<160>! Les parents, par économie
+sans doute, avaient tiré le joujou de la vie elle-même.
+
+Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
+dents d'une I<égale> blancheur.
+
+=head2 As Verbatim
+
+ A travers ces barreaux symboliques séparant deux mondes, la grande route
+ et le château, l'enfant pauvre montrait à l'enfant riche son propre
+ joujou, que celui-ci examinait avidement comme un objet rare et inconnu.
+ Or, ce joujou, que le petit souillon agaçait, agitait et secouait dans
+ une boîte grillée, c'était un rat vivant ! Les parents, par économie
+ sans doute, avaient tiré le joujou de la vie elle-même.
+
+ Et les deux enfants se riaient l'un à l'autre fraternellement, avec des
+ dents d'une égale blancheur.
+
+[end]
+
+=cut
+
+
+
+print "HOOBOY!\n";
+1;
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm 2005-12-13 03:54:54.000000000
-0800
@@ -0,0 +1,4 @@
+
+# This is just a podless test file.
+1;
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,11 @@
+
+=head1 NAME
+
+squaa::Glunk -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,14 @@
+
+=head1 NAME
+
+squaa::Vliff -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
+print "HOOBOY!\n";
+1;
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1 @@
+This directory should never be scanned.
==== //depot/perl/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,7 @@
+
+=head1 NAME
+
+perlthang - This is just some test file
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/pod/perlthang.pod#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/pod/perlthang.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/pod/perlthang.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,7 @@
+
+=head1 NAME
+
+perlthang - This is just some test file
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/squaa.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/squaa.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/squaa.pm 2005-12-13 03:54:54.000000000
-0800
@@ -0,0 +1,12 @@
+package squaa;
+
+=head1 NAME
+
+squaa -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,11 @@
+
+=head1 NAME
+
+squaa::Glunk -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,14 @@
+
+=head1 NAME
+
+squaa::Vliff -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
+print "HOOBOY!\n";
+1;
+
==== //depot/perl/lib/Pod/Simple/t/test_lib/zikzik.pod#1 (text) ====
Index: perl/lib/Pod/Simple/t/test_lib/zikzik.pod
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/test_lib/zikzik.pod 2005-12-13 03:54:54.000000000
-0800
@@ -0,0 +1,10 @@
+=head1 NAME
+
+zikzik -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
==== //depot/perl/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm#1 (text)
====
Index: perl/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm
--- /dev/null 2005-11-29 02:13:17.616583056 -0800
+++ perl/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm 2005-12-13
03:54:54.000000000 -0800
@@ -0,0 +1,14 @@
+
+=head1 NAME
+
+squaa::Vliff -- blorpoesu
+
+=head1 DESCRIPTION
+
+This is just a test file.
+
+=cut
+
+print "HOOBOY!\n";
+1;
+
End of Patch.
