diff options
Diffstat (limited to 'contrib/perl5/t/pod')
32 files changed, 0 insertions, 1671 deletions
diff --git a/contrib/perl5/t/pod/emptycmd.t b/contrib/perl5/t/pod/emptycmd.t deleted file mode 100755 index 815eba2..0000000 --- a/contrib/perl5/t/pod/emptycmd.t +++ /dev/null @@ -1,21 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - -__END__ - -=pod - -= this is a test -of the emergency -broadcast system - -=cut diff --git a/contrib/perl5/t/pod/emptycmd.xr b/contrib/perl5/t/pod/emptycmd.xr deleted file mode 100644 index f06d2db..0000000 --- a/contrib/perl5/t/pod/emptycmd.xr +++ /dev/null @@ -1,2 +0,0 @@ - = this is a test of the emergency broadcast system - diff --git a/contrib/perl5/t/pod/find.t b/contrib/perl5/t/pod/find.t deleted file mode 100755 index db39508..0000000 --- a/contrib/perl5/t/pod/find.t +++ /dev/null @@ -1,119 +0,0 @@ -# Testing of Pod::Find -# Author: Marek Rouchal <marek@saftsack.fs.uni-bayreuth.de> - -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; -} - -$| = 1; - -use Test; - -BEGIN { plan tests => 4 } - -use Pod::Find qw(pod_find pod_where); -use File::Spec; - -# load successful -ok(1); - -require Cwd; -my $THISDIR = Cwd::cwd(); -my $VERBOSE = 0; -my $lib_dir = File::Spec->catdir($THISDIR,'..','lib','Pod'); -if ($^O eq 'VMS') { - $lib_dir = VMS::Filespec::unixify(File::Spec->catdir($THISDIR,'-','lib','pod')); - $Qlib_dir = $lib_dir; - $Qlib_dir =~ s#\/#::#g; -} -print "### searching $lib_dir\n"; -my %pods = pod_find("$lib_dir"); -my $result = join(",", sort values %pods); -print "### found $result\n"; -my $compare = join(',', qw( - Checker - Find - Html - InputObjects - LaTeX - Man - ParseUtils - Parser - Plainer - Select - Text - Text::Color - Text::Overstrike - Text::Termcap - Usage -)); -if ($^O eq 'VMS') { - $compare = lc($compare); - $result = join(',', sort grep(/pod::/, values %pods)); - my $undollared = $Qlib_dir; - $undollared =~ s/\$/\\\$/g; - $undollared =~ s/\-/\\\-/g; - $result =~ s/$undollared/pod::/g; - my $count = 0; - my @result = split(/,/,$result); - my @compare = split(/,/,$compare); - foreach(@compare) { - $count += grep {/$_/} @result; - } - ok($count/($#result+1)-1,$#compare); -} -else { - ok($result,$compare); -} - -# File::Find is located in this place since eons -# and on all platforms, hopefully - -print "### searching for File::Find\n"; -$result = pod_where({ -inc => 1, -verbose => $VERBOSE }, 'File::Find') - || 'undef - pod not found!'; -print "### found $result\n"; - -if ($^O eq 'VMS') { # privlib is perl_root:[lib] OK but not under mms - $compare = "lib.File]Find.pm"; - $result =~ s/perl_root:\[\-?\.?//i; - $result =~ s/\[\-?\.?//i; # needed under `mms test` - ok($result,$compare); -} -else { - $compare = File::Spec->catfile("..","lib","File","Find.pm"); - ok(_canon($result),_canon($compare)); -} - -# Search for a documentation pod rather than a module -print "### searching for perlfunc.pod\n"; -$result = pod_where({ -dirs => ['../pod'], -verbose => $VERBOSE }, 'perlfunc') - || 'undef - perlfunc.pod not found!'; -print "### found $result\n"; - -if ($^O eq 'VMS') { # privlib is perl_root:[lib] unfortunately - $compare = "/lib/pod/perlfunc.pod"; - $result = VMS::Filespec::unixify($result); - $result =~ s/perl_root\///i; - $result =~ s/^\.\.//; # needed under `mms test` - ok($result,$compare); -} -else { - $compare = File::Spec->catfile("..","pod","perlfunc.pod"); - ok(_canon($result),_canon($compare)); -} - -# make the path as generic as possible -sub _canon -{ - my ($path) = @_; - $path = File::Spec->canonpath($path); - my @comp = File::Spec->splitpath($path); - my @dir = File::Spec->splitdir($comp[1]); - $comp[1] = File::Spec->catdir(@dir); - $path = File::Spec->catpath(@dir); - $path = uc($path) if File::Spec->case_tolerant; - $path; -} - diff --git a/contrib/perl5/t/pod/for.t b/contrib/perl5/t/pod/for.t deleted file mode 100755 index 4af528a..0000000 --- a/contrib/perl5/t/pod/for.t +++ /dev/null @@ -1,59 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -=pod - -This is a test - -=for theloveofpete -You shouldn't see this -or this -or this - -=for text -pod2text should see this -and this -and this - -and everything should see this! - -=begin text - -Similarly, this line ... - -and this one ... - -as well this one, - -should all be in pod2text output - -=end text - -Tweedley-deedley-dee, Im as happy as can be! -Tweedley-deedley-dum, cuz youre my honey sugar plum! - -=begin atthebeginning - -But I expect to see neither hide ... - -nor tail ... - -of this text - -=end atthebeginning - -The rest of this should show up in everything. - diff --git a/contrib/perl5/t/pod/for.xr b/contrib/perl5/t/pod/for.xr deleted file mode 100644 index 5f6b8b2..0000000 --- a/contrib/perl5/t/pod/for.xr +++ /dev/null @@ -1,21 +0,0 @@ - This is a test - - pod2text should see this - and this - and this - - and everything should see this! - -Similarly, this line ... - -and this one ... - -as well this one, - -should all be in pod2text output - - Tweedley-deedley-dee, Im as happy as can be! Tweedley-deedley-dum, cuz - youre my honey sugar plum! - - The rest of this should show up in everything. - diff --git a/contrib/perl5/t/pod/headings.t b/contrib/perl5/t/pod/headings.t deleted file mode 100755 index 365aa7d..0000000 --- a/contrib/perl5/t/pod/headings.t +++ /dev/null @@ -1,140 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -################################################################# - use Pod::Usage; - pod2usage( VERBOSE => 2, EXIT => 1 ); - -=pod - -=head1 NAME - -B<rdb2pg> - insert an rdb table into a PostgreSQL database - -=head1 SYNOPSIS - -B<rdb2pg> [I<param>=I<value> ...] - -=head1 PARAMETERS - -B<rdb2pg> uses an IRAF-compatible parameter interface. -A template parameter file is in F</proj/axaf/simul/lib/uparm/rdb2pg.par>. - -=over 4 - -=item B<input> I<file> - -The B<RDB> file to insert into the database. If the given name -is the string C<stdin>, it reads from the UNIX standard input stream. - - -=back - -=head1 DESCRIPTION - -B<rdb2pg> will enter the data from an B<RDB> database into a -PostgreSQL database table, optionally creating the database and the -table if they do not exist. It automatically determines the -PostgreSQL data type from the column definition in the B<RDB> file, -but may be overriden via a series of definition files or directly -via one of its parameters. - -The target database and table are specified by the C<db> and C<table> -parameters. If they do not exist, and the C<createdb> parameter is -set, they will be created. Table field definitions are determined -in the following order: - -=cut - -################################################################# - -results in: - - -################################################################# - - rdb2pg - insert an rdb table into a PostgreSQL database - - rdb2pg [*param*=*value* ...] - - rdb2pg uses an IRAF-compatible parameter interface. A template - parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par. - - The RDB file to insert into the database. If the given name is - the string `stdin', it reads from the UNIX standard input - stream. - - rdb2pg will enter the data from an RDB database into a - PostgreSQL database table, optionally creating the database and - the table if they do not exist. It automatically determines the - PostgreSQL data type from the column definition in the RDB file, - but may be overriden via a series of definition files or - directly via one of its parameters. - - The target database and table are specified by the `db' and - `table' parameters. If they do not exist, and the `createdb' - parameter is set, they will be created. Table field definitions - are determined in the following order: - - -################################################################# - -while the original version of Text (using pod2text) gives - -################################################################# - -NAME - rdb2pg - insert an rdb table into a PostgreSQL database - -SYNOPSIS - rdb2pg [*param*=*value* ...] - -PARAMETERS - rdb2pg uses an IRAF-compatible parameter interface. A template - parameter file is in /proj/axaf/simul/lib/uparm/rdb2pg.par. - - input *file* - The RDB file to insert into the database. If the given name - is the string `stdin', it reads from the UNIX standard input - stream. - -DESCRIPTION - rdb2pg will enter the data from an RDB database into a - PostgreSQL database table, optionally creating the database and - the table if they do not exist. It automatically determines the - PostgreSQL data type from the column definition in the RDB file, - but may be overriden via a series of definition files or - directly via one of its parameters. - - The target database and table are specified by the `db' and - `table' parameters. If they do not exist, and the `createdb' - parameter is set, they will be created. Table field definitions - are determined in the following order: - - -################################################################# - - -Thanks for any help. If, as your email indicates, you've not much -time to look at this, I can work around things by calling pod2text() -directly using the official Text.pm. - -Diab - -------------- -Diab Jerius -djerius@cfa.harvard.edu - diff --git a/contrib/perl5/t/pod/headings.xr b/contrib/perl5/t/pod/headings.xr deleted file mode 100644 index fb37a2b..0000000 --- a/contrib/perl5/t/pod/headings.xr +++ /dev/null @@ -1,26 +0,0 @@ -NAME - rdb2pg - insert an rdb table into a PostgreSQL database - -SYNOPSIS - rdb2pg [*param*=*value* ...] - -PARAMETERS - rdb2pg uses an IRAF-compatible parameter interface. A template parameter - file is in /proj/axaf/simul/lib/uparm/rdb2pg.par. - - input *file* - The RDB file to insert into the database. If the given name is the - string `stdin', it reads from the UNIX standard input stream. - -DESCRIPTION - rdb2pg will enter the data from an RDB database into a PostgreSQL - database table, optionally creating the database and the table if they - do not exist. It automatically determines the PostgreSQL data type from - the column definition in the RDB file, but may be overriden via a series - of definition files or directly via one of its parameters. - - The target database and table are specified by the `db' and `table' - parameters. If they do not exist, and the `createdb' parameter is set, - they will be created. Table field definitions are determined in the - following order: - diff --git a/contrib/perl5/t/pod/include.t b/contrib/perl5/t/pod/include.t deleted file mode 100755 index b6f1e31..0000000 --- a/contrib/perl5/t/pod/include.t +++ /dev/null @@ -1,36 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -=pod - -This file tries to demonstrate a simple =include directive -for pods. It is used as follows: - - =include filename - -where "filename" is expected to be an absolute pathname, or else -reside be relative to the directory in which the current processed -podfile resides, or be relative to the current directory. - -Lets try it out with the file "included.t" shall we. - -***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE*** - -=include included.t - -***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE*** - -So how did we do??? diff --git a/contrib/perl5/t/pod/include.xr b/contrib/perl5/t/pod/include.xr deleted file mode 100644 index 624ee44..0000000 --- a/contrib/perl5/t/pod/include.xr +++ /dev/null @@ -1,22 +0,0 @@ - This file tries to demonstrate a simple =include directive for pods. It - is used as follows: - - =include filename - - where "filename" is expected to be an absolute pathname, or else reside - be relative to the directory in which the current processed podfile - resides, or be relative to the current directory. - - Lets try it out with the file "included.t" shall we. - - ***THIS TEXT IS IMMEDIATELY BEFORE THE INCLUDE*** - -###### begin =include included.t ##### - This is the text of the included file named "included.t". It should - appear in the final pod document from pod2xxx - -###### end =include included.t ##### - ***THIS TEXT IS IMMEDIATELY AFTER THE INCLUDE*** - - So how did we do??? - diff --git a/contrib/perl5/t/pod/included.t b/contrib/perl5/t/pod/included.t deleted file mode 100755 index a25b37b..0000000 --- a/contrib/perl5/t/pod/included.t +++ /dev/null @@ -1,35 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -##------------------------------------------------------------ -# This file is =included by "include.t" -# -# This text should NOT be in the resultant pod document -# because we havent seen an =xxx pod directive in this file! -##------------------------------------------------------------ - -=pod - -This is the text of the included file named "included.t". -It should appear in the final pod document from pod2xxx - -=cut - -##------------------------------------------------------------ -# This text should NOT be in the resultant pod document -# because it is *after* an =cut an no other pod directives -# proceed it! -##------------------------------------------------------------ diff --git a/contrib/perl5/t/pod/included.xr b/contrib/perl5/t/pod/included.xr deleted file mode 100644 index 54142fa..0000000 --- a/contrib/perl5/t/pod/included.xr +++ /dev/null @@ -1,3 +0,0 @@ - This is the text of the included file named "included.t". It should - appear in the final pod document from pod2xxx - diff --git a/contrib/perl5/t/pod/lref.t b/contrib/perl5/t/pod/lref.t deleted file mode 100755 index 1dd8c68..0000000 --- a/contrib/perl5/t/pod/lref.t +++ /dev/null @@ -1,66 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -=pod - -Try out I<LOTS> of different ways of specifying references: - -Reference the L<manpage/section> - -Reference the L<manpage / section> - -Reference the L<manpage/ section> - -Reference the L<manpage /section> - -Reference the L<"manpage/section"> - -Reference the L<"manpage"/section> - -Reference the L<manpage/"section"> - -Reference the L<manpage/ -section> - -Reference the L<manpage -/section> - -Now try it using the new "|" stuff ... - -Reference the L<thistext|manpage/section> - -Reference the L<thistext | manpage / section> - -Reference the L<thistext| manpage/ section> - -Reference the L<thistext |manpage /section> - -Reference the L<thistext| -"manpage/section"> - -Reference the L<thistext -|"manpage"/section> - -Reference the L<thistext|manpage/"section"> - -Reference the L<thistext| -manpage/ -section> - -Reference the L<thistext -|manpage -/section> - diff --git a/contrib/perl5/t/pod/lref.xr b/contrib/perl5/t/pod/lref.xr deleted file mode 100644 index 297053b..0000000 --- a/contrib/perl5/t/pod/lref.xr +++ /dev/null @@ -1,40 +0,0 @@ - Try out *LOTS* of different ways of specifying references: - - Reference the the section entry in the manpage manpage - - Reference the the section entry in the manpage manpage - - Reference the the section entry in the manpage manpage - - Reference the the section entry in the manpage manpage - - Reference the the section on "manpage/section" - - Reference the the section entry in the "manpage" manpage - - Reference the the section on "section" in the manpage manpage - - Reference the the section entry in the manpage manpage - - Reference the the section entry in the manpage manpage - - Now try it using the new "|" stuff ... - - Reference the thistext - - Reference the thistext - - Reference the thistext - - Reference the thistext - - Reference the thistext - - Reference the thistext - - Reference the thistext - - Reference the thistext - - Reference the thistext - diff --git a/contrib/perl5/t/pod/multiline_items.t b/contrib/perl5/t/pod/multiline_items.t deleted file mode 100755 index 334832d..0000000 --- a/contrib/perl5/t/pod/multiline_items.t +++ /dev/null @@ -1,31 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -=head1 Test multiline item lists - -This is a test to ensure that multiline =item paragraphs -get indented appropriately. - -=over 4 - -=item This -is -a -test. - -=back - -=cut diff --git a/contrib/perl5/t/pod/multiline_items.xr b/contrib/perl5/t/pod/multiline_items.xr deleted file mode 100644 index dddf05f..0000000 --- a/contrib/perl5/t/pod/multiline_items.xr +++ /dev/null @@ -1,5 +0,0 @@ -Test multiline item lists - This is a test to ensure that multiline =item paragraphs get indented - appropriately. - - This is a test. diff --git a/contrib/perl5/t/pod/nested_items.t b/contrib/perl5/t/pod/nested_items.t deleted file mode 100755 index 0b86702..0000000 --- a/contrib/perl5/t/pod/nested_items.t +++ /dev/null @@ -1,64 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -=head1 Test nested item lists - -This is a test to ensure the nested =item paragraphs -get indented appropriately. - -=over 2 - -=item 1 - -First section. - -=over 2 - -=item a - -this is item a - -=item b - -this is item b - -=back - -=item 2 - -Second section. - -=over 2 - -=item a - -this is item a - -=item b - -this is item b - -=item c - -=item d - -This is item c & d. - -=back - -=back - -=cut diff --git a/contrib/perl5/t/pod/nested_items.xr b/contrib/perl5/t/pod/nested_items.xr deleted file mode 100644 index dd1adac..0000000 --- a/contrib/perl5/t/pod/nested_items.xr +++ /dev/null @@ -1,19 +0,0 @@ -Test nested item lists - This is a test to ensure the nested =item paragraphs get indented - appropriately. - - 1 First section. - - a this is item a - - b this is item b - - 2 Second section. - - a this is item a - - b this is item b - - c - d This is item c & d. - diff --git a/contrib/perl5/t/pod/nested_seqs.t b/contrib/perl5/t/pod/nested_seqs.t deleted file mode 100755 index 9f30533..0000000 --- a/contrib/perl5/t/pod/nested_seqs.t +++ /dev/null @@ -1,23 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -=pod - -The statement: C<This is dog kind's I<finest> hour!> is a parody of a -quotation from Winston Churchill. - -=cut - diff --git a/contrib/perl5/t/pod/nested_seqs.xr b/contrib/perl5/t/pod/nested_seqs.xr deleted file mode 100644 index f981061..0000000 --- a/contrib/perl5/t/pod/nested_seqs.xr +++ /dev/null @@ -1,3 +0,0 @@ - The statement: `This is dog kind's *finest* hour!' is a parody of a - quotation from Winston Churchill. - diff --git a/contrib/perl5/t/pod/oneline_cmds.t b/contrib/perl5/t/pod/oneline_cmds.t deleted file mode 100755 index bba0e4a..0000000 --- a/contrib/perl5/t/pod/oneline_cmds.t +++ /dev/null @@ -1,46 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -==head1 NAME -B<rdb2pg> - insert an rdb table into a PostgreSQL database - -==head1 SYNOPSIS -B<rdb2pg> [I<param>=I<value> ...] - -==head1 PARAMETERS -B<rdb2pg> uses an IRAF-compatible parameter interface. -A template parameter file is in F</proj/axaf/simul/lib/uparm/rdb2pg.par>. - -==over 4 -==item B<input> I<file> -The B<RDB> file to insert into the database. If the given name -is the string C<stdin>, it reads from the UNIX standard input stream. - -==back - -==head1 DESCRIPTION -B<rdb2pg> will enter the data from an B<RDB> database into a -PostgreSQL database table, optionally creating the database and the -table if they do not exist. It automatically determines the -PostgreSQL data type from the column definition in the B<RDB> file, -but may be overriden via a series of definition files or directly -via one of its parameters. - -The target database and table are specified by the C<db> and C<table> -parameters. If they do not exist, and the C<createdb> parameter is -set, they will be created. Table field definitions are determined -in the following order: - diff --git a/contrib/perl5/t/pod/oneline_cmds.xr b/contrib/perl5/t/pod/oneline_cmds.xr deleted file mode 100644 index fb37a2b..0000000 --- a/contrib/perl5/t/pod/oneline_cmds.xr +++ /dev/null @@ -1,26 +0,0 @@ -NAME - rdb2pg - insert an rdb table into a PostgreSQL database - -SYNOPSIS - rdb2pg [*param*=*value* ...] - -PARAMETERS - rdb2pg uses an IRAF-compatible parameter interface. A template parameter - file is in /proj/axaf/simul/lib/uparm/rdb2pg.par. - - input *file* - The RDB file to insert into the database. If the given name is the - string `stdin', it reads from the UNIX standard input stream. - -DESCRIPTION - rdb2pg will enter the data from an RDB database into a PostgreSQL - database table, optionally creating the database and the table if they - do not exist. It automatically determines the PostgreSQL data type from - the column definition in the RDB file, but may be overriden via a series - of definition files or directly via one of its parameters. - - The target database and table are specified by the `db' and `table' - parameters. If they do not exist, and the `createdb' parameter is set, - they will be created. Table field definitions are determined in the - following order: - diff --git a/contrib/perl5/t/pod/pod2usage.t b/contrib/perl5/t/pod/pod2usage.t deleted file mode 100755 index 70cbacd..0000000 --- a/contrib/perl5/t/pod/pod2usage.t +++ /dev/null @@ -1,18 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - -=include pod2usage.PL - - diff --git a/contrib/perl5/t/pod/pod2usage.xr b/contrib/perl5/t/pod/pod2usage.xr deleted file mode 100644 index 7315d40..0000000 --- a/contrib/perl5/t/pod/pod2usage.xr +++ /dev/null @@ -1,55 +0,0 @@ -###### begin =include pod2usage.PL ##### -NAME - pod2usage - print usage messages from embedded pod docs in files - -SYNOPSIS - pod2usage [-help] [-man] [-exit *exitval*] [-output *outfile*] - [-verbose *level*] [-pathlist *dirlist*] *file* - -OPTIONS AND ARGUMENTS - -help Print a brief help message and exit. - - -man Print this command's manual page and exit. - - -exit *exitval* - The exit status value to return. - - -output *outfile* - The output file to print to. If the special names "-" or ">&1" - or ">&STDOUT" are used then standard output is used. If ">&2" or - ">&STDERR" is used then standard error is used. - - -verbose *level* - The desired level of verbosity to use: - - 1 : print SYNOPSIS only - 2 : print SYNOPSIS sections and any OPTIONS/ARGUMENTS sections - 3 : print the entire manpage (similar to running pod2text) - - -pathlist *dirlist* - Specifies one or more directories to search for the input file - if it was not supplied with an absolute path. Each directory - path in the given list should be separated by a ':' on Unix (';' - on MSWin32 and DOS). - - *file* The pathname of a file containing pod documentation to be output - in usage mesage format (defaults to standard input). - -DESCRIPTION - pod2usage will read the given input file looking for pod documentation - and will print the corresponding usage message. If no input file is - specifed than standard input is read. - - pod2usage invokes the pod2usage() function in the Pod::Usage module. - Please see the pod2usage() entry in the Pod::Usage manpage. - -SEE ALSO - the Pod::Usage manpage, the pod2text(1) manpage - -AUTHOR - Brad Appleton <bradapp@enteract.com> - - Based on code for pod2text(1) written by Tom Christiansen - <tchrist@mox.perl.com> - -###### end =include pod2usage.PL ##### diff --git a/contrib/perl5/t/pod/poderrs.t b/contrib/perl5/t/pod/poderrs.t deleted file mode 100755 index 1b92ede..0000000 --- a/contrib/perl5/t/pod/poderrs.t +++ /dev/null @@ -1,198 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testpchk.pl"; - import TestPodChecker; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodchecker \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - -### Deliberately throw in some blank but non-empty lines - -### The above line should contain spaces - - -__END__ - - -=head1 NAME - -poderrors.t - test Pod::Checker on some pod syntax errors - -=unknown1 this is an unknown command with two N<unknownA> -and D<unknownB> interior sequences. - -This is some paragraph text with some unknown interior sequences, -such as Q<unknown2>, -A<unknown3>, -and Y<unknown4 V<unknown5>>. - -Now try some unterminated sequences like -I<hello mudda! -B<hello fadda! - -Here I am at C<camp granada! - -Camps is very, -entertaining. -And they say we'll have some fun if it stops raining! - -Okay, now use a non-empty blank line to terminate a paragraph and make -sure we get a warning. - -The above blank line contains tabs and spaces only - -=head1 Additional tests - -=head2 item without over - -=item oops - -=head2 back without over - -=back - -=head2 over without back - -=over 4 - -=item aaps - -=head2 end without begin - -=end - -=head2 begin and begin - -=begin html - -=begin text - -=end - -=end - -second one results in end w/o begin - -=head2 begin w/o formatter - -=begin - -=end - -=head2 for w/o formatter - -=for - -something... - -=head2 Nested sequences of the same type - -C<code I<italic C<code again!>>> - -=head2 Garbled entities - -E<alea iacta est> -E<C<auml>> -E<abcI<bla>> -E<0x100> -E<07777> -E<300> - -=head2 Unresolved internal links - -L</"begin or begin"> -L<"end with begin"> -L</OoPs> - -=head2 Some links with problems - -L<abc -def> -L<> -L< aha> -L<oho > -L<"Warnings"> this one is ok -L</unescaped> ok too, this POD has an X of the same name - -=head2 Warnings - -L<passwd(5)> -L<some text with / in it|perlvar/$|> should give warnings as hell - -=over 4 - -=item bla - -=back 200 - -the 200 is evil - -=begin html - -What? - -=end xml - -X<unescaped>see these unescaped < and > in the text? - -=head2 Misc - -Z<ddd> should be empty - -X<> should not be empty - -=over four - -This paragrapgh is misplaced - it ought to be an item. - -=item four should be numeric! - -=item - -=item blah - -=item previous is all empty!!! - -=back - -All empty over/back: - -=over 4 - -=back - -item w/o name - -=cut - -=pod bla - -bla is evil - -=cut blub - -blub is evil - -=head2 reoccurence - -=over 4 - -=item Misc - -we already have a head Misc - -=back - -=head2 some heading - -=head2 another one - -previous section is empty! - -=cut - - diff --git a/contrib/perl5/t/pod/poderrs.xr b/contrib/perl5/t/pod/poderrs.xr deleted file mode 100644 index a21efdb..0000000 --- a/contrib/perl5/t/pod/poderrs.xr +++ /dev/null @@ -1,46 +0,0 @@ -*** ERROR: Unknown command 'unknown1' at line 25 in file t/pod/poderrs.t -*** ERROR: Unknown interior-sequence 'Q' at line 29 in file t/pod/poderrs.t -*** ERROR: Unknown interior-sequence 'A' at line 30 in file t/pod/poderrs.t -*** ERROR: Unknown interior-sequence 'Y' at line 31 in file t/pod/poderrs.t -*** ERROR: Unknown interior-sequence 'V' at line 31 in file t/pod/poderrs.t -*** ERROR: unterminated B<...> at line 35 in file t/pod/poderrs.t -*** ERROR: unterminated I<...> at line 34 in file t/pod/poderrs.t -*** ERROR: unterminated C<...> at line 37 in file t/pod/poderrs.t -*** WARNING: line containing nothing but whitespace in paragraph at line 45 in file t/pod/poderrs.t -*** ERROR: =item without previous =over at line 52 in file t/pod/poderrs.t -*** ERROR: =back without previous =over at line 56 in file t/pod/poderrs.t -*** ERROR: =over on line 60 without closing =back (at head2) at line 64 in file t/pod/poderrs.t -*** ERROR: =end without =begin at line 66 in file t/pod/poderrs.t -*** ERROR: Nested =begin's (first at line 70:html) at line 72 in file t/pod/poderrs.t -*** ERROR: =end without =begin at line 76 in file t/pod/poderrs.t -*** ERROR: No argument for =begin at line 82 in file t/pod/poderrs.t -*** ERROR: =for without formatter specification at line 88 in file t/pod/poderrs.t -*** ERROR: nested commands C<...C<...>...> at line 94 in file t/pod/poderrs.t -*** ERROR: garbled entity E<alea iacta est> at line 98 in file t/pod/poderrs.t -*** ERROR: garbled entity E<C<auml>> at line 99 in file t/pod/poderrs.t -*** ERROR: garbled entity E<abcI<bla>> at line 100 in file t/pod/poderrs.t -*** ERROR: Entity number out of range E<0x100> at line 101 in file t/pod/poderrs.t -*** ERROR: Entity number out of range E<07777> at line 102 in file t/pod/poderrs.t -*** ERROR: Entity number out of range E<300> at line 103 in file t/pod/poderrs.t -*** ERROR: malformed link L<> : empty link at line 115 in file t/pod/poderrs.t -*** WARNING: ignoring leading whitespace in link at line 116 in file t/pod/poderrs.t -*** WARNING: ignoring trailing whitespace in link at line 117 in file t/pod/poderrs.t -*** WARNING: (section) in 'passwd(5)' deprecated at line 123 in file t/pod/poderrs.t -*** WARNING: node '$|' contains non-escaped | or / at line 124 in file t/pod/poderrs.t -*** WARNING: alternative text '$|' contains non-escaped | or / at line 124 in file t/pod/poderrs.t -*** ERROR: Spurious character(s) after =back at line 130 in file t/pod/poderrs.t -*** ERROR: Nonempty Z<> at line 144 in file t/pod/poderrs.t -*** ERROR: Empty X<> at line 146 in file t/pod/poderrs.t -*** WARNING: preceding non-item paragraph(s) at line 152 in file t/pod/poderrs.t -*** WARNING: No argument for =item at line 154 in file t/pod/poderrs.t -*** WARNING: previous =item has no contents at line 156 in file t/pod/poderrs.t -*** WARNING: No items in =over (at line 164) / =back list at line 166 in file t/pod/poderrs.t -*** ERROR: Spurious text after =pod at line 172 in file t/pod/poderrs.t -*** ERROR: Spurious text after =cut at line 176 in file t/pod/poderrs.t -*** WARNING: empty section in previous paragraph at line 192 in file t/pod/poderrs.t -*** ERROR: unresolved internal link 'begin or begin' at line 107 in file t/pod/poderrs.t -*** ERROR: unresolved internal link 'end with begin' at line 108 in file t/pod/poderrs.t -*** ERROR: unresolved internal link 'OoPs' at line 109 in file t/pod/poderrs.t -*** ERROR: unresolved internal link 'abc def' at line 113 in file t/pod/poderrs.t -*** WARNING: multiple occurence of link target 'Misc' at line - in file t/pod/poderrs.t -t/pod/poderrs.t has 33 pod syntax errors. diff --git a/contrib/perl5/t/pod/podselect.t b/contrib/perl5/t/pod/podselect.t deleted file mode 100755 index 5d45cdb..0000000 --- a/contrib/perl5/t/pod/podselect.t +++ /dev/null @@ -1,18 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - -=include podselect.PL - - diff --git a/contrib/perl5/t/pod/podselect.xr b/contrib/perl5/t/pod/podselect.xr deleted file mode 100644 index 7d1188d..0000000 --- a/contrib/perl5/t/pod/podselect.xr +++ /dev/null @@ -1,42 +0,0 @@ -###### begin =include podselect.PL ##### -NAME - podselect - print selected sections of pod documentation on standard - output - -SYNOPSIS - podselect [-help] [-man] [-section *section-spec*] [*file* ...] - -OPTIONS AND ARGUMENTS - -help Print a brief help message and exit. - - -man Print the manual page and exit. - - -section *section-spec* - Specify a section to include in the output. See the section on - "SECTION SPECIFICATIONS" in the Pod::Parser manpage for the - format to use for *section-spec*. This option may be given - multiple times on the command line. - - *file* The pathname of a file from which to select sections of pod - documentation (defaults to standard input). - -DESCRIPTION - podselect will read the given input files looking for pod documentation - and will print out (in raw pod format) all sections that match one ore - more of the given section specifications. If no section specifications - are given than all pod sections encountered are output. - - podselect invokes the podselect() function exported by Pod::Select - Please see the podselect() entry in the Pod::Select manpage for more - details. - -SEE ALSO - the Pod::Parser manpage and the Pod::Select manpage - -AUTHOR - Brad Appleton <bradapp@enteract.com> - - Based on code for Pod::Text::pod2text(1) written by Tom Christiansen - <tchrist@mox.perl.com> - -###### end =include podselect.PL ##### diff --git a/contrib/perl5/t/pod/special_seqs.t b/contrib/perl5/t/pod/special_seqs.t deleted file mode 100755 index c6b2ce1..0000000 --- a/contrib/perl5/t/pod/special_seqs.t +++ /dev/null @@ -1,46 +0,0 @@ -BEGIN { - chdir 't' if -d 't'; - unshift @INC, '../lib'; - unshift @INC, './pod'; - require "testp2pt.pl"; - import TestPodIncPlainText; -} - -my %options = map { $_ => 1 } @ARGV; ## convert cmdline to options-hash -my $passed = testpodplaintext \%options, $0; -exit( ($passed == 1) ? 0 : -1 ) unless $ENV{HARNESS_ACTIVE}; - - -__END__ - - -=pod - -This is a test to see if I can do not only C<$self> and C<method()>, but -also C<< $self->method() >> and C<< $self->{FIELDNAME} >> and -C<< $Foo <=> $Bar >> without resorting to escape sequences. If -I want to refer to the right-shift operator I can do something -like C<<< $x >> 3 >>> or even C<<<< $y >> 5 >>>>. - -Now for the grand finale of C<< $self->method()->{FIELDNAME} = {FOO=>BAR} >>. -And I also want to make sure that newlines work like this -C<<< -$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b] ->>> - -Of course I should still be able to do all this I<with> escape sequences -too: C<$self-E<gt>method()> and C<$self-E<gt>{FIELDNAME}> and C<{FOO=E<gt>BAR}>. - -Dont forget C<$self-E<gt>method()-E<gt>{FIELDNAME} = {FOO=E<gt>BAR}>. - -And make sure that C<0> works too! - -Now, if I use << or >> as my delimiters, then I have to use whitespace. -So things like C<<$self->method()>> and C<<$self->{FIELDNAME}>> wont end -up doing what you might expect since the first > will still terminate -the first < seen. - -Lets make sure these work for empty ones too, like C<< >> and C<< >> >> -(just to be obnoxious) - -=cut diff --git a/contrib/perl5/t/pod/special_seqs.xr b/contrib/perl5/t/pod/special_seqs.xr deleted file mode 100644 index a8c715a..0000000 --- a/contrib/perl5/t/pod/special_seqs.xr +++ /dev/null @@ -1,25 +0,0 @@ - This is a test to see if I can do not only `$self' and `method()', but - also `$self->method()' and `$self->{FIELDNAME}' and `$Foo <=> $Bar' - without resorting to escape sequences. If I want to refer to the - right-shift operator I can do something like `$x >> 3' or even `$y >> - 5'. - - Now for the grand finale of `$self->method()->{FIELDNAME} = {FOO=>BAR}'. - And I also want to make sure that newlines work like this - `$self->{FOOBAR} >> 3 and [$b => $a]->[$a <=> $b]' - - Of course I should still be able to do all this *with* escape sequences - too: `$self->method()' and `$self->{FIELDNAME}' and `{FOO=>BAR}'. - - Dont forget `$self->method()->{FIELDNAME} = {FOO=>BAR}'. - - And make sure that `0' works too! - - Now, if I use << or >> as my delimiters, then I have to use whitespace. - So things like `<$self-'method()>> and `<$self-'{FIELDNAME}>> wont end - up doing what you might expect since the first > will still terminate - the first < seen. - - Lets make sure these work for empty ones too, like and `>>' (just to be - obnoxious) - diff --git a/contrib/perl5/t/pod/testcmp.pl b/contrib/perl5/t/pod/testcmp.pl deleted file mode 100644 index 5f62171..0000000 --- a/contrib/perl5/t/pod/testcmp.pl +++ /dev/null @@ -1,91 +0,0 @@ -package TestCompare; - -use vars qw(@ISA @EXPORT $MYPKG); -#use strict; -#use diagnostics; -use Carp; -use Exporter; -use File::Basename; -use File::Spec; -use FileHandle; - -@ISA = qw(Exporter); -@EXPORT = qw(&testcmp); -$MYPKG = eval { (caller)[0] }; - -##-------------------------------------------------------------------------- - -=head1 NAME - -testcmp -- compare two files line-by-line - -=head1 SYNOPSIS - - $is_diff = testcmp($file1, $file2); - -or - - $is_diff = testcmp({-cmplines => \&mycmp}, $file1, $file2); - -=head2 DESCRIPTION - -Compare two text files line-by-line and return 0 if they are the -same, 1 if they differ. Each of $file1 and $file2 may be a filenames, -or a filehandles (in which case it must already be open for reading). - -If the first argument is a hashref, then the B<-cmplines> key in the -hash may have a subroutine reference as its corresponding value. -The referenced user-defined subroutine should be a line-comparator -function that takes two pre-chomped text-lines as its arguments -(the first is from $file1 and the second is from $file2). It should -return 0 if it considers the two lines equivalent, and non-zero -otherwise. - -=cut - -##-------------------------------------------------------------------------- - -sub testcmp( $ $ ; $) { - my %opts = ref($_[0]) eq 'HASH' ? %{shift()} : (); - my ($file1, $file2) = @_; - my ($fh1, $fh2) = ($file1, $file2); - unless (ref $fh1) { - $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!"; - } - unless (ref $fh2) { - $fh2 = FileHandle->new($file2, "r") or die "Can't open $file2: $!"; - } - - my $cmplines = $opts{'-cmplines'} || undef; - my ($f1text, $f2text) = ("", ""); - my ($line, $diffs) = (0, 0); - - while ( defined($f1text) and defined($f2text) ) { - defined($f1text = <$fh1>) and chomp($f1text); - defined($f2text = <$fh2>) and chomp($f2text); - ++$line; - last unless ( defined($f1text) and defined($f2text) ); - $diffs = (ref $cmplines) ? &$cmplines($f1text, $f2text) - : ($f1text ne $f2text); - last if $diffs; - } - close($fh1) unless (ref $file1); - close($fh2) unless (ref $file2); - - $diffs = 1 if (defined($f1text) or defined($f2text)); - if ( defined($f1text) and defined($f2text) ) { - ## these two lines must be different - warn "$file1 and $file2 differ at line $line\n"; - } - elsif (defined($f1text) and (! defined($f1text))) { - ## file1 must be shorter - warn "$file1 is shorter than $file2\n"; - } - elsif (defined $f2text) { - ## file2 must be longer - warn "$file1 is shorter than $file2\n"; - } - return $diffs; -} - -1; diff --git a/contrib/perl5/t/pod/testp2pt.pl b/contrib/perl5/t/pod/testp2pt.pl deleted file mode 100644 index 8cfdbb9..0000000 --- a/contrib/perl5/t/pod/testp2pt.pl +++ /dev/null @@ -1,196 +0,0 @@ -package TestPodIncPlainText; - -BEGIN { - use File::Basename; - use File::Spec; - use Cwd qw(abs_path); - push @INC, '..'; - my $THISDIR = abs_path(dirname $0); - unshift @INC, $THISDIR; - require "testcmp.pl"; - import TestCompare; - my $PARENTDIR = dirname $THISDIR; - push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR); -} - -#use strict; -#use diagnostics; -use Carp; -use Exporter; -#use File::Compare; -#use Cwd qw(abs_path); - -use vars qw($MYPKG @EXPORT @ISA); -$MYPKG = eval { (caller)[0] }; -@EXPORT = qw(&testpodplaintext); -BEGIN { - if ( $] >= 5.005_58 ) { - require Pod::Text; - @ISA = qw( Pod::Text ); - } - else { - require Pod::PlainText; - @ISA = qw( Pod::PlainText ); - } - require VMS::Filespec if $^O eq 'VMS'; -} - -## Hardcode settings for TERMCAP and COLUMNS so we can try to get -## reproducible results between environments -@ENV{qw(TERMCAP COLUMNS)} = ('co=76:do=^J', 76); - -sub catfile(@) { File::Spec->catfile(@_); } - -my $INSTDIR = abs_path(dirname $0); -if ($^O eq 'VMS') { # clean up directory spec - $INSTDIR = VMS::Filespec::unixpath($INSTDIR); - $INSTDIR =~ s#/$##; - $INSTDIR =~ s#/000000/#/#; -} -$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod'); -$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't'); -my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'), - catfile($INSTDIR, 'scripts'), - catfile($INSTDIR, 'pod'), - catfile($INSTDIR, 't', 'pod') - ); -print "PODINCDIRS = ",join(', ',@PODINCDIRS),"\n"; - -## Find the path to the file to =include -sub findinclude { - my $self = shift; - my $incname = shift; - - ## See if its already found w/out any "searching; - return $incname if (-r $incname); - - ## Need to search for it. Look in the following directories ... - ## 1. the directory containing this pod file - my $thispoddir = dirname $self->input_file; - ## 2. the parent directory of the above - my $parentdir = dirname $thispoddir; - my @podincdirs = ($thispoddir, $parentdir, @PODINCDIRS); - - for (@podincdirs) { - my $incfile = catfile($_, $incname); - return $incfile if (-r $incfile); - } - warn("*** Can't find =include file $incname in @podincdirs\n"); - return ""; -} - -sub command { - my $self = shift; - my ($cmd, $text, $line_num, $pod_para) = @_; - $cmd = '' unless (defined $cmd); - local $_ = $text || ''; - my $out_fh = $self->output_handle; - - ## Defer to the superclass for everything except '=include' - return $self->SUPER::command(@_) unless ($cmd eq "include"); - - ## We have an '=include' command - my $incdebug = 1; ## debugging - my @incargs = split; - if (@incargs == 0) { - warn("*** No filename given for '=include'\n"); - return; - } - my $incfile = $self->findinclude(shift @incargs) or return; - my $incbase = basename $incfile; - print $out_fh "###### begin =include $incbase #####\n" if ($incdebug); - $self->parse_from_file( {-cutting => 1}, $incfile ); - print $out_fh "###### end =include $incbase #####\n" if ($incdebug); -} - -sub begin_input { - $_[0]->{_INFILE} = VMS::Filespec::unixify($_[0]->{_INFILE}) if $^O eq 'VMS'; -} - -sub podinc2plaintext( $ $ ) { - my ($infile, $outfile) = @_; - local $_; - my $text_parser = $MYPKG->new(quotes => "`'"); - $text_parser->parse_from_file($infile, $outfile); -} - -sub testpodinc2plaintext( @ ) { - my %args = @_; - my $infile = $args{'-In'} || croak "No input file given!"; - my $outfile = $args{'-Out'} || croak "No output file given!"; - my $cmpfile = $args{'-Cmp'} || croak "No compare-result file given!"; - - my $different = ''; - my $testname = basename $cmpfile, '.t', '.xr'; - - unless (-e $cmpfile) { - my $msg = "*** Can't find comparison file $cmpfile for testing $infile"; - warn "$msg\n"; - return $msg; - } - - print "# Running testpodinc2plaintext for '$testname'...\n"; - ## Compare the output against the expected result - podinc2plaintext($infile, $outfile); - if ( testcmp($outfile, $cmpfile) ) { - $different = "$outfile is different from $cmpfile"; - } - else { - unlink($outfile); - } - return $different; -} - -sub testpodplaintext( @ ) { - my %opts = (ref $_[0] eq 'HASH') ? %{shift()} : (); - my @testpods = @_; - my ($testname, $testdir) = ("", ""); - my ($podfile, $cmpfile) = ("", ""); - my ($outfile, $errfile) = ("", ""); - my $passes = 0; - my $failed = 0; - local $_; - - print "1..", scalar @testpods, "\n" unless ($opts{'-xrgen'}); - - for $podfile (@testpods) { - ($testname, $_) = fileparse($podfile); - $testdir ||= $_; - $testname =~ s/\.t$//; - $cmpfile = $testdir . $testname . '.xr'; - $outfile = $testdir . $testname . '.OUT'; - - if ($opts{'-xrgen'}) { - if ($opts{'-force'} or ! -e $cmpfile) { - ## Create the comparison file - print "# Creating expected result for \"$testname\"" . - " pod2plaintext test ...\n"; - podinc2plaintext($podfile, $cmpfile); - } - else { - print "# File $cmpfile already exists" . - " (use '-force' to regenerate it).\n"; - } - next; - } - - my $failmsg = testpodinc2plaintext - -In => $podfile, - -Out => $outfile, - -Cmp => $cmpfile; - if ($failmsg) { - ++$failed; - print "#\tFAILED. ($failmsg)\n"; - print "not ok ", $failed+$passes, "\n"; - } - else { - ++$passes; - unlink($outfile); - print "#\tPASSED.\n"; - print "ok ", $failed+$passes, "\n"; - } - } - return $passes; -} - -1; diff --git a/contrib/perl5/t/pod/testpchk.pl b/contrib/perl5/t/pod/testpchk.pl deleted file mode 100644 index 8aa10b9..0000000 --- a/contrib/perl5/t/pod/testpchk.pl +++ /dev/null @@ -1,129 +0,0 @@ -package TestPodChecker; - -BEGIN { - use File::Basename; - use File::Spec; - push @INC, '..'; - my $THISDIR = dirname $0; - unshift @INC, $THISDIR; - require "testcmp.pl"; - import TestCompare; - my $PARENTDIR = dirname $THISDIR; - push @INC, map { File::Spec->catfile($_, 'lib') } ($PARENTDIR, $THISDIR); - require VMS::Filespec if $^O eq 'VMS'; -} - -use Pod::Checker; -use vars qw(@ISA @EXPORT $MYPKG); -#use strict; -#use diagnostics; -use Carp; -use Exporter; -#use File::Compare; - -@ISA = qw(Exporter); -@EXPORT = qw(&testpodchecker); -$MYPKG = eval { (caller)[0] }; - -sub stripname( $ ) { - local $_ = shift; - return /(\w[.\w]*)\s*$/ ? $1 : $_; -} - -sub msgcmp( $ $ ) { - ## filter out platform-dependent aspects of error messages - my ($line1, $line2) = @_; - for ($line1, $line2) { - ## remove filenames from error messages to avoid any - ## filepath naming differences between OS platforms - s/(at line \S+ in file) .*\W(\w+\.[tT])\s*$/$1 \L$2\E/; - s/.*\W(\w+\.[tT]) (has \d+ pod syntax error)/\L$1\E $2/; - } - return ($line1 ne $line2); -} - -sub testpodcheck( @ ) { - my %args = @_; - my $infile = $args{'-In'} || croak "No input file given!"; - my $outfile = $args{'-Out'} || croak "No output file given!"; - my $cmpfile = $args{'-Cmp'} || croak "No compare-result file given!"; - - my $different = ''; - my $testname = basename $cmpfile, '.t', '.xr'; - - unless (-e $cmpfile) { - my $msg = "*** Can't find comparison file $cmpfile for testing $infile"; - warn "$msg\n"; - return $msg; - } - - print "# Running podchecker for '$testname'...\n"; - ## Compare the output against the expected result - if ($^O eq 'VMS') { - for ($infile, $outfile, $cmpfile) { - $_ = VMS::Filespec::unixify($_) unless ref; - } - } - podchecker($infile, $outfile); - if ( testcmp({'-cmplines' => \&msgcmp}, $outfile, $cmpfile) ) { - $different = "$outfile is different from $cmpfile"; - } - else { - unlink($outfile); - } - return $different; -} - -sub testpodchecker( @ ) { - my %opts = (ref $_[0] eq 'HASH') ? %{shift()} : (); - my @testpods = @_; - my ($testname, $testdir) = ("", ""); - my ($podfile, $cmpfile) = ("", ""); - my ($outfile, $errfile) = ("", ""); - my $passes = 0; - my $failed = 0; - local $_; - - print "1..", scalar @testpods, "\n" unless ($opts{'-xrgen'}); - - for $podfile (@testpods) { - ($testname, $_) = fileparse($podfile); - $testdir ||= $_; - $testname =~ s/\.t$//; - $cmpfile = $testdir . $testname . '.xr'; - $outfile = $testdir . $testname . '.OUT'; - - if ($opts{'-xrgen'}) { - if ($opts{'-force'} or ! -e $cmpfile) { - ## Create the comparison file - print "# Creating expected result for \"$testname\"" . - " podchecker test ...\n"; - podchecker($podfile, $cmpfile); - } - else { - print "# File $cmpfile already exists" . - " (use '-force' to regenerate it).\n"; - } - next; - } - - my $failmsg = testpodcheck - -In => $podfile, - -Out => $outfile, - -Cmp => $cmpfile; - if ($failmsg) { - ++$failed; - print "#\tFAILED. ($failmsg)\n"; - print "not ok ", $failed+$passes, "\n"; - } - else { - ++$passes; - unlink($outfile); - print "#\tPASSED.\n"; - print "ok ", $failed+$passes, "\n"; - } - } - return $passes; -} - -1; |
