From 318efef0dfffad8c4ba487ce1bea87a00e41ae43 Mon Sep 17 00:00:00 2001 From: Steve Peters Date: Tue, 13 Dec 2005 11:54:54 +0000 Subject: Changes to Pod::Simple's tests to get rid of the "^"s in the directory names. p4raw-id: //depot/perl@26340 --- lib/Pod/Simple/t/htmlbatch_01.t | 2 +- lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm | 10 ----- .../Simple/t/other^test^lib/hink^honk/Glunk.pod | 11 ------ lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm | 14 ------- .../Simple/t/other^test^lib/hink^honk/readme.txt | 1 - lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod | 7 ---- lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod | 7 ---- lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm | 14 ------- lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod | 11 ------ lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm | 10 +++++ .../Simple/t/other_test_lib/hink_honk/Glunk.pod | 11 ++++++ lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm | 14 +++++++ .../Simple/t/other_test_lib/hink_honk/readme.txt | 1 + lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod | 7 ++++ lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod | 7 ++++ lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm | 14 +++++++ lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod | 11 ++++++ lib/Pod/Simple/t/search_10survey_specific.t | 8 ++-- lib/Pod/Simple/t/search_12survey_cwd.t | 8 ++-- lib/Pod/Simple/t/search_20survey_two.t | 12 +++--- lib/Pod/Simple/t/search_22survey_two_shadowing.t | 24 ++++++------ .../t/search_25_glob_squaa_coloncolon_kleene.t | 16 ++++---- lib/Pod/Simple/t/search_26_glob_kleene_k.t | 16 ++++---- lib/Pod/Simple/t/search_27_glob_squaa_kleene.t | 16 ++++---- lib/Pod/Simple/t/search_28_glob_z_kleene_k.t | 12 +++--- lib/Pod/Simple/t/search_29_glob_z_qmark_k.t | 12 +++--- lib/Pod/Simple/t/test^lib/Blorm.pm | 10 ----- lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt | 4 -- lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm | 43 ---------------------- lib/Pod/Simple/t/test^lib/Zonk/Veng.pm | 4 -- lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod | 11 ------ lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm | 14 ------- lib/Pod/Simple/t/test^lib/hink^honk/readme.txt | 1 - lib/Pod/Simple/t/test^lib/pod/perlfliff.pod | 7 ---- lib/Pod/Simple/t/test^lib/pod/perlthang.pod | 7 ---- lib/Pod/Simple/t/test^lib/squaa.pm | 12 ------ lib/Pod/Simple/t/test^lib/squaa/Glunk.pod | 11 ------ lib/Pod/Simple/t/test^lib/squaa/Vliff.pm | 14 ------- lib/Pod/Simple/t/test^lib/zikzik.pod | 10 ----- lib/Pod/Simple/t/test_lib/Blorm.pm | 10 +++++ lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt | 4 ++ lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm | 43 ++++++++++++++++++++++ lib/Pod/Simple/t/test_lib/Zonk/Veng.pm | 4 ++ lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod | 11 ++++++ lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm | 14 +++++++ lib/Pod/Simple/t/test_lib/hink_honk/readme.txt | 1 + lib/Pod/Simple/t/test_lib/pod/perlfliff.pod | 7 ++++ lib/Pod/Simple/t/test_lib/pod/perlthang.pod | 7 ++++ lib/Pod/Simple/t/test_lib/squaa.pm | 12 ++++++ lib/Pod/Simple/t/test_lib/squaa/Glunk.pod | 11 ++++++ lib/Pod/Simple/t/test_lib/squaa/Vliff.pm | 14 +++++++ lib/Pod/Simple/t/test_lib/zikzik.pod | 10 +++++ .../Simple/t/yet^another^test^lib/squaa/Vliff.pm | 14 ------- .../Simple/t/yet_another_test_lib/squaa/Vliff.pm | 14 +++++++ 54 files changed, 300 insertions(+), 300 deletions(-) delete mode 100644 lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm delete mode 100644 lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod delete mode 100644 lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm delete mode 100644 lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt delete mode 100644 lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod delete mode 100644 lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod delete mode 100644 lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm delete mode 100644 lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod create mode 100644 lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm create mode 100644 lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod create mode 100644 lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm create mode 100644 lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt create mode 100644 lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod create mode 100644 lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod create mode 100644 lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm create mode 100644 lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod delete mode 100644 lib/Pod/Simple/t/test^lib/Blorm.pm delete mode 100644 lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt delete mode 100644 lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm delete mode 100644 lib/Pod/Simple/t/test^lib/Zonk/Veng.pm delete mode 100644 lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod delete mode 100644 lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm delete mode 100644 lib/Pod/Simple/t/test^lib/hink^honk/readme.txt delete mode 100644 lib/Pod/Simple/t/test^lib/pod/perlfliff.pod delete mode 100644 lib/Pod/Simple/t/test^lib/pod/perlthang.pod delete mode 100644 lib/Pod/Simple/t/test^lib/squaa.pm delete mode 100644 lib/Pod/Simple/t/test^lib/squaa/Glunk.pod delete mode 100644 lib/Pod/Simple/t/test^lib/squaa/Vliff.pm delete mode 100644 lib/Pod/Simple/t/test^lib/zikzik.pod create mode 100644 lib/Pod/Simple/t/test_lib/Blorm.pm create mode 100644 lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt create mode 100644 lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm create mode 100644 lib/Pod/Simple/t/test_lib/Zonk/Veng.pm create mode 100644 lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod create mode 100644 lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm create mode 100644 lib/Pod/Simple/t/test_lib/hink_honk/readme.txt create mode 100644 lib/Pod/Simple/t/test_lib/pod/perlfliff.pod create mode 100644 lib/Pod/Simple/t/test_lib/pod/perlthang.pod create mode 100644 lib/Pod/Simple/t/test_lib/squaa.pm create mode 100644 lib/Pod/Simple/t/test_lib/squaa/Glunk.pod create mode 100644 lib/Pod/Simple/t/test_lib/squaa/Vliff.pm create mode 100644 lib/Pod/Simple/t/test_lib/zikzik.pod delete mode 100644 lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm create mode 100644 lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm (limited to 'lib/Pod') diff --git a/lib/Pod/Simple/t/htmlbatch_01.t b/lib/Pod/Simple/t/htmlbatch_01.t index e191a32336..098b21fc7c 100644 --- a/lib/Pod/Simple/t/htmlbatch_01.t +++ b/lib/Pod/Simple/t/htmlbatch_01.t @@ -33,7 +33,7 @@ foreach my $t_maybe ( 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; } diff --git a/lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm b/lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm deleted file mode 100644 index b96722c13b..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/Sizzlesuzzle.pm +++ /dev/null @@ -1,10 +0,0 @@ - -1; -__END__ - -=head1 NAME - -Sizzlesuzzle -- hooboy, this is a test file too. - -=cut - diff --git a/lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod b/lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod deleted file mode 100644 index 98e7624a71..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/hink^honk/Glunk.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Glunk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm b/lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/hink^honk/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt b/lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt deleted file mode 100644 index 96ae070ee8..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/hink^honk/readme.txt +++ /dev/null @@ -1 +0,0 @@ -This directory should never be scanned. diff --git a/lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod b/lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/pod/perlthang.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod b/lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/pod/perlzuk.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm b/lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/squaa/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod b/lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod deleted file mode 100644 index 98e7624a71..0000000000 --- a/lib/Pod/Simple/t/other^test^lib/squaa/Wowo.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Glunk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm b/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm new file mode 100644 index 0000000000..b96722c13b --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/Sizzlesuzzle.pm @@ -0,0 +1,10 @@ + +1; +__END__ + +=head1 NAME + +Sizzlesuzzle -- hooboy, this is a test file too. + +=cut + diff --git a/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod b/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod new file mode 100644 index 0000000000..98e7624a71 --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/hink_honk/Glunk.pod @@ -0,0 +1,11 @@ + +=head1 NAME + +squaa::Glunk -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + diff --git a/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm b/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm new file mode 100644 index 0000000000..93d1b411f2 --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/hink_honk/Vliff.pm @@ -0,0 +1,14 @@ + +=head1 NAME + +squaa::Vliff -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + +print "HOOBOY!\n"; +1; + diff --git a/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt b/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt new file mode 100644 index 0000000000..96ae070ee8 --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/hink_honk/readme.txt @@ -0,0 +1 @@ +This directory should never be scanned. diff --git a/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod b/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod new file mode 100644 index 0000000000..63ae3da342 --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/pod/perlthang.pod @@ -0,0 +1,7 @@ + +=head1 NAME + +perlthang - This is just some test file + +=cut + diff --git a/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod b/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod new file mode 100644 index 0000000000..63ae3da342 --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/pod/perlzuk.pod @@ -0,0 +1,7 @@ + +=head1 NAME + +perlthang - This is just some test file + +=cut + diff --git a/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm b/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm new file mode 100644 index 0000000000..93d1b411f2 --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/squaa/Vliff.pm @@ -0,0 +1,14 @@ + +=head1 NAME + +squaa::Vliff -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + +print "HOOBOY!\n"; +1; + diff --git a/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod b/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod new file mode 100644 index 0000000000..98e7624a71 --- /dev/null +++ b/lib/Pod/Simple/t/other_test_lib/squaa/Wowo.pod @@ -0,0 +1,11 @@ + +=head1 NAME + +squaa::Glunk -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + diff --git a/lib/Pod/Simple/t/search_10survey_specific.t b/lib/Pod/Simple/t/search_10survey_specific.t index a6c9d3c34d..cf344134aa 100644 --- a/lib/Pod/Simple/t/search_10survey_specific.t +++ b/lib/Pod/Simple/t/search_10survey_specific.t @@ -43,9 +43,9 @@ sub source_path { } 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 @@ 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$/'); diff --git a/lib/Pod/Simple/t/search_12survey_cwd.t b/lib/Pod/Simple/t/search_12survey_cwd.t index 490efbfe65..fb2daa2ecb 100644 --- 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$/'); diff --git a/lib/Pod/Simple/t/search_20survey_two.t b/lib/Pod/Simple/t/search_20survey_two.t index 1bfdabad8a..bfea22ec31 100644 --- a/lib/Pod/Simple/t/search_20survey_two.t +++ b/lib/Pod/Simple/t/search_20survey_two.t @@ -40,12 +40,12 @@ sub source_path { } 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 @@ print $p; { 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$/'); diff --git a/lib/Pod/Simple/t/search_22survey_two_shadowing.t b/lib/Pod/Simple/t/search_22survey_two_shadowing.t index dd1a62fe86..d61187e64f 100644 --- a/lib/Pod/Simple/t/search_22survey_two_shadowing.t +++ b/lib/Pod/Simple/t/search_22survey_two_shadowing.t @@ -37,17 +37,17 @@ sub source_path { 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 $p; { 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( ($name2where->{'squaa'} || 'huh???'), '/squaa\.pm$/'); 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/' ); diff --git a/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t b/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t index 9ae17858e1..eee796a889 100644 --- a/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t +++ b/lib/Pod/Simple/t/search_25_glob_squaa_coloncolon_kleene.t @@ -40,17 +40,17 @@ sub source_path { 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 @@ thar 'squaa::Vliff'; 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"; diff --git a/lib/Pod/Simple/t/search_26_glob_kleene_k.t b/lib/Pod/Simple/t/search_26_glob_kleene_k.t index 278edade4e..800302c215 100644 --- a/lib/Pod/Simple/t/search_26_glob_kleene_k.t +++ b/lib/Pod/Simple/t/search_26_glob_kleene_k.t @@ -43,17 +43,17 @@ sub source_path { 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 @@ print $p; { 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"; diff --git a/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t b/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t index ea9f6340e7..d9d045801a 100644 --- a/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t +++ b/lib/Pod/Simple/t/search_27_glob_squaa_kleene.t @@ -37,17 +37,17 @@ sub source_path { 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 @@ thar 'squaa::Vliff'; 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"; diff --git a/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t b/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t index 5e74a8a61f..a9414af70a 100644 --- a/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t +++ b/lib/Pod/Simple/t/search_28_glob_z_kleene_k.t @@ -37,17 +37,17 @@ sub source_path { 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"; diff --git a/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t b/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t index 023b1905dc..9f3c2f5abd 100644 --- a/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t +++ b/lib/Pod/Simple/t/search_29_glob_z_qmark_k.t @@ -37,17 +37,17 @@ sub source_path { 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"; diff --git a/lib/Pod/Simple/t/test^lib/Blorm.pm b/lib/Pod/Simple/t/test^lib/Blorm.pm deleted file mode 100644 index 13499fadc9..0000000000 --- a/lib/Pod/Simple/t/test^lib/Blorm.pm +++ /dev/null @@ -1,10 +0,0 @@ -=head1 NAME - -Blorm -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt b/lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt deleted file mode 100644 index 656827cf74..0000000000 --- a/lib/Pod/Simple/t/test^lib/Zonk/Fiddle.txt +++ /dev/null @@ -1,4 +0,0 @@ - -This is just a dummy file. It's podless and shouldn't even be scanned for pod. - - diff --git a/lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm b/lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm deleted file mode 100644 index 559af82920..0000000000 --- a/lib/Pod/Simple/t/test^lib/Zonk/Pronk.pm +++ /dev/null @@ -1,43 +0,0 @@ - -=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. - -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; - diff --git a/lib/Pod/Simple/t/test^lib/Zonk/Veng.pm b/lib/Pod/Simple/t/test^lib/Zonk/Veng.pm deleted file mode 100644 index 078119534d..0000000000 --- a/lib/Pod/Simple/t/test^lib/Zonk/Veng.pm +++ /dev/null @@ -1,4 +0,0 @@ - -# This is just a podless test file. -1; - diff --git a/lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod b/lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod deleted file mode 100644 index 98e7624a71..0000000000 --- a/lib/Pod/Simple/t/test^lib/hink^honk/Glunk.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Glunk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm b/lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/test^lib/hink^honk/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/test^lib/hink^honk/readme.txt b/lib/Pod/Simple/t/test^lib/hink^honk/readme.txt deleted file mode 100644 index 96ae070ee8..0000000000 --- a/lib/Pod/Simple/t/test^lib/hink^honk/readme.txt +++ /dev/null @@ -1 +0,0 @@ -This directory should never be scanned. diff --git a/lib/Pod/Simple/t/test^lib/pod/perlfliff.pod b/lib/Pod/Simple/t/test^lib/pod/perlfliff.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/test^lib/pod/perlfliff.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/test^lib/pod/perlthang.pod b/lib/Pod/Simple/t/test^lib/pod/perlthang.pod deleted file mode 100644 index 63ae3da342..0000000000 --- a/lib/Pod/Simple/t/test^lib/pod/perlthang.pod +++ /dev/null @@ -1,7 +0,0 @@ - -=head1 NAME - -perlthang - This is just some test file - -=cut - diff --git a/lib/Pod/Simple/t/test^lib/squaa.pm b/lib/Pod/Simple/t/test^lib/squaa.pm deleted file mode 100644 index 43228fd174..0000000000 --- a/lib/Pod/Simple/t/test^lib/squaa.pm +++ /dev/null @@ -1,12 +0,0 @@ -package squaa; - -=head1 NAME - -squaa -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/test^lib/squaa/Glunk.pod b/lib/Pod/Simple/t/test^lib/squaa/Glunk.pod deleted file mode 100644 index 98e7624a71..0000000000 --- a/lib/Pod/Simple/t/test^lib/squaa/Glunk.pod +++ /dev/null @@ -1,11 +0,0 @@ - -=head1 NAME - -squaa::Glunk -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/test^lib/squaa/Vliff.pm b/lib/Pod/Simple/t/test^lib/squaa/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/test^lib/squaa/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/test^lib/zikzik.pod b/lib/Pod/Simple/t/test^lib/zikzik.pod deleted file mode 100644 index 50f86dec6a..0000000000 --- a/lib/Pod/Simple/t/test^lib/zikzik.pod +++ /dev/null @@ -1,10 +0,0 @@ -=head1 NAME - -zikzik -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - diff --git a/lib/Pod/Simple/t/test_lib/Blorm.pm b/lib/Pod/Simple/t/test_lib/Blorm.pm new file mode 100644 index 0000000000..13499fadc9 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/Blorm.pm @@ -0,0 +1,10 @@ +=head1 NAME + +Blorm -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + diff --git a/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt b/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt new file mode 100644 index 0000000000..656827cf74 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/Zonk/Fiddle.txt @@ -0,0 +1,4 @@ + +This is just a dummy file. It's podless and shouldn't even be scanned for pod. + + diff --git a/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm b/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm new file mode 100644 index 0000000000..559af82920 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/Zonk/Pronk.pm @@ -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. + +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; + diff --git a/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm b/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm new file mode 100644 index 0000000000..078119534d --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/Zonk/Veng.pm @@ -0,0 +1,4 @@ + +# This is just a podless test file. +1; + diff --git a/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod b/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod new file mode 100644 index 0000000000..98e7624a71 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/hink_honk/Glunk.pod @@ -0,0 +1,11 @@ + +=head1 NAME + +squaa::Glunk -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + diff --git a/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm b/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm new file mode 100644 index 0000000000..93d1b411f2 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/hink_honk/Vliff.pm @@ -0,0 +1,14 @@ + +=head1 NAME + +squaa::Vliff -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + +print "HOOBOY!\n"; +1; + diff --git a/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt b/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt new file mode 100644 index 0000000000..96ae070ee8 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/hink_honk/readme.txt @@ -0,0 +1 @@ +This directory should never be scanned. diff --git a/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod b/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod new file mode 100644 index 0000000000..63ae3da342 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/pod/perlfliff.pod @@ -0,0 +1,7 @@ + +=head1 NAME + +perlthang - This is just some test file + +=cut + diff --git a/lib/Pod/Simple/t/test_lib/pod/perlthang.pod b/lib/Pod/Simple/t/test_lib/pod/perlthang.pod new file mode 100644 index 0000000000..63ae3da342 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/pod/perlthang.pod @@ -0,0 +1,7 @@ + +=head1 NAME + +perlthang - This is just some test file + +=cut + diff --git a/lib/Pod/Simple/t/test_lib/squaa.pm b/lib/Pod/Simple/t/test_lib/squaa.pm new file mode 100644 index 0000000000..43228fd174 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/squaa.pm @@ -0,0 +1,12 @@ +package squaa; + +=head1 NAME + +squaa -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + diff --git a/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod b/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod new file mode 100644 index 0000000000..98e7624a71 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/squaa/Glunk.pod @@ -0,0 +1,11 @@ + +=head1 NAME + +squaa::Glunk -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + diff --git a/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm b/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm new file mode 100644 index 0000000000..93d1b411f2 --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/squaa/Vliff.pm @@ -0,0 +1,14 @@ + +=head1 NAME + +squaa::Vliff -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + +print "HOOBOY!\n"; +1; + diff --git a/lib/Pod/Simple/t/test_lib/zikzik.pod b/lib/Pod/Simple/t/test_lib/zikzik.pod new file mode 100644 index 0000000000..50f86dec6a --- /dev/null +++ b/lib/Pod/Simple/t/test_lib/zikzik.pod @@ -0,0 +1,10 @@ +=head1 NAME + +zikzik -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + diff --git a/lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm b/lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm deleted file mode 100644 index 93d1b411f2..0000000000 --- a/lib/Pod/Simple/t/yet^another^test^lib/squaa/Vliff.pm +++ /dev/null @@ -1,14 +0,0 @@ - -=head1 NAME - -squaa::Vliff -- blorpoesu - -=head1 DESCRIPTION - -This is just a test file. - -=cut - -print "HOOBOY!\n"; -1; - diff --git a/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm b/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm new file mode 100644 index 0000000000..93d1b411f2 --- /dev/null +++ b/lib/Pod/Simple/t/yet_another_test_lib/squaa/Vliff.pm @@ -0,0 +1,14 @@ + +=head1 NAME + +squaa::Vliff -- blorpoesu + +=head1 DESCRIPTION + +This is just a test file. + +=cut + +print "HOOBOY!\n"; +1; + -- cgit v1.2.1