ext/podlators/t/text-utf8.t podlators test
ext/podlators/VERSION podlators custom Makefile.PL
ext/podlators/VERSION podlators distribution version
+ext/Pod-Parser/lib/Pod/Checker.pm Pod-Parser - check POD documents for syntax errors
+ext/Pod-Parser/lib/Pod/Find.pm used by pod/splitpod
+ext/Pod-Parser/lib/Pod/InputObjects.pm Pod-Parser - define objects for input streams
+ext/Pod-Parser/lib/Pod/Parser.pm Pod-Parser - define base class for parsing POD
+ext/Pod-Parser/lib/Pod/ParseUtils.pm Pod-Parser - pod utility functions
+ext/Pod-Parser/lib/Pod/PlainText.pm Convert POD data to formatted ASCII text
+ext/Pod-Parser/lib/Pod/Select.pm Pod-Parser - select portions of POD docs
+ext/Pod-Parser/lib/Pod/Usage.pm Pod-Parser - print usage messages
+ext/Pod-Parser/t/pod/contains_bad_pod.xr Pod-Parser test file
+ext/Pod-Parser/t/pod/contains_pod.t Pod-Parser test
+ext/Pod-Parser/t/pod/contains_pod.xr Pod-Parser test file
+ext/Pod-Parser/t/pod/emptycmd.t Test empty pod directives
+ext/Pod-Parser/t/pod/emptycmd.xr Expected results for emptycmd.t
+ext/Pod-Parser/t/pod/find.t See if Pod::Find works
+ext/Pod-Parser/t/pod/for.t Test =for directive
+ext/Pod-Parser/t/pod/for.xr Expected results for for.t
+ext/Pod-Parser/t/pod/headings.t Test =head directives
+ext/Pod-Parser/t/pod/headings.xr Expected results for headings.t
+ext/Pod-Parser/t/pod/included.t Test =include directive
+ext/Pod-Parser/t/pod/included.xr Expected results for included.t
+ext/Pod-Parser/t/pod/include.t Test =include directive
+ext/Pod-Parser/t/pod/include.xr Expected results for include.t
+ext/Pod-Parser/t/pod/lref.t Test L<...> sequences
+ext/Pod-Parser/t/pod/lref.xr Expected results for lref.t
+ext/Pod-Parser/t/pod/multiline_items.t Test multiline =items
+ext/Pod-Parser/t/pod/multiline_items.xr Expected results for multiline_items.t
+ext/Pod-Parser/t/pod/nested_items.t Test nested =items
+ext/Pod-Parser/t/pod/nested_items.xr Expected results for nested_items.t
+ext/Pod-Parser/t/pod/nested_seqs.t Test nested interior sequences
+ext/Pod-Parser/t/pod/nested_seqs.xr Expected results for nested_seqs.t
+ext/Pod-Parser/t/pod/oneline_cmds.t Test single paragraph ==cmds
+ext/Pod-Parser/t/pod/oneline_cmds.xr Expected results for oneline_cmds.t
+ext/Pod-Parser/t/pod/p2u_data.pl Test Pod::Usage
+ext/Pod-Parser/t/pod/pod2usage2.t Test Pod::Usage
+ext/Pod-Parser/t/pod/pod2usage.t Test Pod::Usage
+ext/Pod-Parser/t/pod/pod2usage.xr Expected results for pod2usage.t
+ext/Pod-Parser/t/pod/podchkenc.t Validate =encoding support
+ext/Pod-Parser/t/pod/podchkenc.xr Expected results for the above
+ext/Pod-Parser/t/pod/poderrs.t Test POD errors
+ext/Pod-Parser/t/pod/poderrs.xr Expected results for poderrs.t
+ext/Pod-Parser/t/pod/podselect.t Test Pod::Select
+ext/Pod-Parser/t/pod/podselect.xr Expected results for podselect.t
+ext/Pod-Parser/t/pod/special_seqs.t Test "special" interior sequences
+ext/Pod-Parser/t/pod/special_seqs.xr Expected results for special_seqs.t
+ext/Pod-Parser/t/pod/testcmp.pl Module to compare output against expected results
+ext/Pod-Parser/t/pod/testp2pt.pl Module to test Pod::PlainText for a given file
+ext/Pod-Parser/t/pod/testpchk.pl Module to test Pod::Checker for a given file
+ext/Pod-Parser/t/pod/testpods/lib/Pod/Stuff.pm Sample data for t/pod/find.t
+ext/Pod-Parser/t/pod/twice.t Test Pod::Parser
+ext/Pod-Parser/t/pod/usage2.pod Test POD for pod2usage tests
+ext/Pod-Parser/t/pod/usage.pod Test POD for pod2usage tests
ext/Pod-Perldoc/lib/Pod/Perldoc/BaseTo.pm utility module for perldoc
ext/Pod-Perldoc/lib/Pod/Perldoc/GetOptsOO.pm options parsing for perldoc
ext/Pod-Perldoc/lib/Pod/Perldoc.pm guts of the 'perldoc' utility
lib/PerlIO.pm PerlIO support module
lib/PerlIO/via/QuotedPrint.pm PerlIO::via::QuotedPrint
lib/PerlIO/via/t/QuotedPrint.t PerlIO::via::QuotedPrint
-lib/Pod/Checker.pm Pod-Parser - check POD documents for syntax errors
-lib/Pod/Find.pm used by pod/splitpod
lib/Pod/Functions.pm used by pod/splitpod
lib/Pod/Html.pm Convert POD data to HTML
-lib/Pod/InputObjects.pm Pod-Parser - define objects for input streams
-lib/Pod/Parser.pm Pod-Parser - define base class for parsing POD
-lib/Pod/ParseUtils.pm Pod-Parser - pod utility functions
-lib/Pod/PlainText.pm Convert POD data to formatted ASCII text
-lib/Pod/Select.pm Pod-Parser - select portions of POD docs
-lib/Pod/t/contains_pod.t Pod-Parser test
lib/Pod/t/eol.t end of line agnosticism
lib/Pod/t/Functions.t See if Pod::Functions works
lib/Pod/t/htmlescp.pod pod2html escape test input data
lib/Pod/t/Select.t See if Pod::Select works
lib/Pod/t/Usage.t See if Pod::Usage works
lib/Pod/t/utils.t Test for Pod::ParseUtils
-lib/Pod/Usage.pm Pod-Parser - print usage messages
lib/pwd.pl Routines to keep track of PWD environment variable
lib/Search/Dict.pm Perform binary search on dictionaries
lib/Search/Dict.t See if Search::Dict works
t/lib/common.pl Helper for lib/{warnings,feature}.t
t/lib/commonsense.t See if configuration meets basic needs
t/lib/compmod.pl Helper for 1_compile.t
-t/lib/contains_bad_pod.xr Pod-Parser test file
-t/lib/contains_pod.xr Pod-Parser test file
t/lib/croak.t Test calls to Perl_croak() in the C source.
t/lib/cygwin.t Builtin cygwin function tests
t/lib/deprecate/Deprecated.pm Deprecated module to test deprecate.pm
t/op/yadayada.t See if ..., !!! and ??? work
t/perl.supp Perl valgrind suppressions
t/pod/diag.t Test completeness of perldiag.pod
-t/pod/emptycmd.t Test empty pod directives
-t/pod/emptycmd.xr Expected results for emptycmd.t
-t/pod/find.t See if Pod::Find works
-t/pod/for.t Test =for directive
-t/pod/for.xr Expected results for for.t
-t/pod/headings.t Test =head directives
-t/pod/headings.xr Expected results for headings.t
-t/pod/included.t Test =include directive
-t/pod/included.xr Expected results for included.t
-t/pod/include.t Test =include directive
-t/pod/include.xr Expected results for include.t
-t/pod/lref.t Test L<...> sequences
-t/pod/lref.xr Expected results for lref.t
-t/pod/multiline_items.t Test multiline =items
-t/pod/multiline_items.xr Expected results for multiline_items.t
-t/pod/nested_items.t Test nested =items
-t/pod/nested_items.xr Expected results for nested_items.t
-t/pod/nested_seqs.t Test nested interior sequences
-t/pod/nested_seqs.xr Expected results for nested_seqs.t
-t/pod/oneline_cmds.t Test single paragraph ==cmds
-t/pod/oneline_cmds.xr Expected results for oneline_cmds.t
-t/pod/p2u_data.pl Test Pod::Usage
-t/pod/pod2usage2.t Test Pod::Usage
-t/pod/pod2usage.t Test Pod::Usage
-t/pod/pod2usage.xr Expected results for pod2usage.t
-t/pod/podchkenc.t Validate =encoding support
-t/pod/podchkenc.xr Expected results for the above
-t/pod/poderrs.t Test POD errors
-t/pod/poderrs.xr Expected results for poderrs.t
-t/pod/podselect.t Test Pod::Select
-t/pod/podselect.xr Expected results for podselect.t
-t/pod/special_seqs.t Test "special" interior sequences
-t/pod/special_seqs.xr Expected results for special_seqs.t
-t/pod/testcmp.pl Module to compare output against expected results
-t/pod/testp2pt.pl Module to test Pod::PlainText for a given file
-t/pod/testpchk.pl Module to test Pod::Checker for a given file
-t/pod/testpods/lib/Pod/Stuff.pm Sample data for t/pod/find.t
-t/pod/twice.t Test Pod::Parser
-t/pod/usage2.pod Test POD for pod2usage tests
-t/pod/usage.pod Test POD for pod2usage tests
t/porting/checkcase.t Check whether we are case-insensitive-fs-friendly
t/README Instructions for regression tests
t/re/pat.t See if esoteric patterns work
# version 1.37!
'DISTRIBUTION' => 'MAREKR/Pod-Parser-1.38.tar.gz',
- 'FILES' => q[lib/Pod/{Checker,Find,InputObjects,Parser,ParseUtils,PlainText,Select,Usage}.pm
- lib/Pod/t/contains_pod.t
+ 'FILES' => q[ext/Pod-Parser
pod/pod{2usage,checker,select}.PL
- t/lib/contains_bad_pod.xr
- t/lib/contains_pod.xr
- t/pod/emptycmd.*
- t/pod/find.t
- t/pod/for.*
- t/pod/headings.*
- t/pod/include.*
- t/pod/included.*
- t/pod/lref.*
- t/pod/multiline_items.*
- t/pod/nested_items.*
- t/pod/nested_seqs.*
- t/pod/oneline_cmds.*
- t/pod/p2u_data.pl
- t/pod/pod2usage.*
- t/pod/pod2usage2.t
- t/pod/podchkenc.*
- t/pod/poderrs.*
- t/pod/podselect.*
- t/pod/special_seqs.*
- t/pod/testcmp.pl
- t/pod/testp2pt.pl
- t/pod/testpchk.pl
- t/pod/testpods/
- t/pod/twice.t
- t/pod/usage*.pod
],
- 'MAP' => { 't/pod/' => 't/pod/',
+ 'MAP' => { '' => 'ext/Pod-Parser/',
'scripts/' => 'pod/',
- 't/pod/contains_pod.t'
- => 'lib/Pod/t/contains_pod.t',
- # XXX these two dislocations have required
- # t/pod/contains_pod.t to be edited to match
-
- 't/pod/contains_pod.xr' => 't/lib/contains_pod.xr',
- 't/pod/contains_bad_pod.xr'
- => 't/lib/contains_bad_pod.xr',
},
'CPAN' => 1,
'UPSTREAM' => undef,
/PerlIO-via/Makefile.PL
/Pod-Escapes/Makefile.PL
/Pod-LaTeX/Makefile.PL
+/Pod-Parser/Makefile.PL
/Pod-Perldoc/Makefile.PL
/Pod-Plainer/Makefile.PL
/Pod-Simple/Makefile.PL
--- /dev/null
+#!/usr/bin/env perl
+
+# Copyright (C) 2005 Joshua Hoblitt
+#
+# $Id$
+
+use strict;
+
+use Test::More tests => 2;
+
+use Pod::Find qw( contains_pod );
+
+{
+ ok(contains_pod('t/pod/contains_pod.xr'), "contains pod");
+}
+
+{
+ ok(contains_pod('t/pod/contains_bad_pod.xr'), "contains bad pod");
+}
# Testing of Pod::Find
# Author: Marek Rouchal <marek@saftsack.fs.uni-bayreuth.de>
-BEGIN {
- if($ENV{PERL_CORE}) {
- chdir 't' if -d 't';
- # The ../../../../../lib is for finding lib/utf8.pm
- # when running under all-utf8 settings (pod/find.t)
- # does not directly require lib/utf8.pm but regular
- # expressions will need that.
- @INC = qw(../lib ../../../../../lib);
- }
-}
-
$| = 1;
use Test::More tests => 4;
require Cwd;
my $THISDIR = Cwd::cwd();
my $VERBOSE = $ENV{PERL_CORE} ? 0 : ($ENV{TEST_VERBOSE} || 0);
-my $lib_dir = $ENV{PERL_CORE} ?
- File::Spec->catdir('pod', 'testpods', 'lib')
- : File::Spec->catdir($THISDIR,'lib');
+my $lib_dir = File::Spec->catdir($THISDIR,'lib');
my $vms_unix_rpt = 0;
my $vms_efs = 0;
my $unix_mode = 1;
if ($^O eq 'VMS') {
- $lib_dir = $ENV{PERL_CORE} ?
- VMS::Filespec::unixify(File::Spec->catdir('pod', 'testpods', 'lib'))
- : VMS::Filespec::unixify(File::Spec->catdir($THISDIR,'-','lib','pod'));
+ $lib_dir = VMS::Filespec::unixify(File::Spec->catdir($THISDIR,'-','lib','pod'));
$Qlib_dir = $lib_dir;
$Qlib_dir =~ s#\/#::#g;
my %pods = pod_find($lib_dir);
my $result = join(',', sort values %pods);
print "### found $result\n";
-my $compare = $ENV{PERL_CORE} ?
- join(',', sort qw(
- Pod::Stuff
-))
- : join(',', sort qw(
+my $compare = join(',', sort qw(
Pod::Checker
Pod::Find
Pod::InputObjects
}
else {
$compare = $ENV{PERL_CORE} ?
- File::Spec->catfile(File::Spec->updir, 'lib','File','Find.pm')
+ File::Spec->catfile(File::Spec->updir, File::Spec->updir, 'lib','File','Find.pm')
: File::Spec->catfile($Config::Config{privlibexp},"File","Find.pm");
my $resfile = _canon($result);
my $cmpfile = _canon($compare);
my $searchpod = 'Stuff';
print "### 4. searching for $searchpod.pod\n";
$result = pod_where(
- { -dirs => [ File::Spec->catdir(
- $ENV{PERL_CORE} ? () : qw(t), 'pod', 'testpods', 'lib', 'Pod') ],
+ { -dirs => [ File::Spec->catdir( qw(t), 'pod', 'testpods', 'lib', 'Pod') ],
-verbose => $VERBOSE }, $searchpod)
|| "undef - $searchpod.pod not found!";
print "### found $result\n";
$compare = File::Spec->catfile(
- $ENV{PERL_CORE} ? () : qw(t),
- 'pod', 'testpods', 'lib', 'Pod' ,'Stuff.pm');
+ qw(t), 'pod', 'testpods', 'lib', 'Pod' ,'Stuff.pm');
is(_canon($result),_canon($compare));
EOT
# does the __DATA__ work ok as input
-my ($blib, $test_script, $pod_file1, , $pod_file2);
-if ($ENV{PERL_CORE}) {
- $blib = '-I../lib';
- $test_script = File::Spec->catfile(qw(pod p2u_data.pl));
- $pod_file1 = File::Spec->catfile(qw(pod usage.pod));
- $pod_file2 = File::Spec->catfile(qw(pod usage2.pod));
-} else {
- $blib = '-Mblib';
- $test_script = File::Spec->catfile(qw(t pod p2u_data.pl));
- $pod_file1 = File::Spec->catfile(qw(t pod usage.pod));
- $pod_file2 = File::Spec->catfile(qw(t pod usage2.pod));
+my (@blib, $test_script, $pod_file1, , $pod_file2);
+if (!$ENV{PERL_CORE}) {
+ @blib = '-Mblib';
}
+$test_script = File::Spec->catfile(qw(t pod p2u_data.pl));
+$pod_file1 = File::Spec->catfile(qw(t pod usage.pod));
+$pod_file2 = File::Spec->catfile(qw(t pod usage2.pod));
-($exit, $text) = getoutput( sub { system($^X, $blib, $test_script); exit($? >> 8); } );
+
+($exit, $text) = getoutput( sub { system($^X, @blib, $test_script); exit($? >> 8); } );
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 17, "Exit status pod2usage (-verbose => 2, -input => \*DATA)");
ok (compare ($text, <<'EOT'), "Output test pod2usage (-verbose => 2, -input => \*DATA)") or diag "Got:\n$text\n";
# test with pod_where
use_ok('Pod::Find', qw(pod_where));
-+# Exclude current dir when testing in CORE; otherwise on case-insensitive
-+# systems, when in t/ we find pod/usage.pod rather than # ../lib/Pod/Usage.pm
-+my @NO_CURDIR = ($ENV{PERL_CORE})
- ? ('-dirs' => [])
- : ();
-($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1, @NO_CURDIR}, 'Pod::Usage'),
+($exit, $text) = getoutput( sub { pod2usage( -input => pod_where({-inc => 1}, 'Pod::Usage'),
-exitval => 0, -verbose => 0) } );
$text =~ s{#Using.*/blib.*\n}{}; # older blib's emit something to STDERR
is ($exit, 0, "Exit status pod2usage with Pod::Find");
my $INSTDIR = abs_path(dirname $0);
$INSTDIR = VMS::Filespec::unixpath($INSTDIR) if $^O eq 'VMS';
$INSTDIR =~ s#/$## if $^O eq 'VMS';
+$INSTDIR =~ s#:$## if $^O eq 'MacOS';
$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 'pod');
+$INSTDIR =~ s#:$## if $^O eq 'MacOS';
$INSTDIR = (dirname $INSTDIR) if (basename($INSTDIR) eq 't');
my @PODINCDIRS = ( catfile($INSTDIR, 'lib', 'Pod'),
catfile($INSTDIR, 'scripts'),
catfile($INSTDIR, 't', 'pod')
);
+# FIXME - we should make the core capable of finding utilities built in
+# locations in ext.
+push @PODINCDIRS, catfile((File::Spec->updir()) x 2, 'pod') if $ENV{PERL_CORE};
+
## Find the path to the file to =include
sub findinclude {
my $self = shift;
/Parse/CPAN/Meta.pm
/POSIX.pm
/POSIX.pod
+/Pod/Checker.pm
/Pod/Escapes.pm
+/Pod/Find.pm
+/Pod/InputObjects.pm
/Pod/LaTeX.pm
/Pod/Man.pm
/Pod/ParseLink.pm
+/Pod/ParseUtils.pm
+/Pod/Parser.pm
/Pod/Perldoc.pm
/Pod/Perldoc
/Pod/Plainer.pm
+/Pod/PlainText.pm
+/Pod/Select.pm
/Pod/Simple.pm
/Pod/Simple.pod
/Pod/Simple
+/Pod/Usage.pm
/PerlIO/encoding.pm
/PerlIO/scalar.pm
/PerlIO/via.pm
+++ /dev/null
-#!/usr/bin/env perl
-
-# Copyright (C) 2005 Joshua Hoblitt
-#
-# $Id$
-
-use strict;
-BEGIN {
- if( $ENV{PERL_CORE} ) {
- chdir 't';
- @INC = '../lib';
- } else {
- use lib qw( ./lib );
- }
-}
-
-use Test::More tests => 2;
-
-use Pod::Find qw( contains_pod );
-
-{
- ok(contains_pod('lib/contains_pod.xr'), "contains pod");
-}
-
-{
- ok(contains_pod('lib/contains_bad_pod.xr'), "contains bad pod");
-}
'../ext/File-Glob/t' => '-I.. -MTestInit', # FIXME - tests assume t/
);
+# I think in the end I'd like "not absolute" to be the default", as it saves
+# some fakery within TestInit which can peturb tests, and takes CPU.
+my %no_abs =
+ ('../ext/Pod-Parser' => 1,
+ );
+
my %temp_no_core =
('../ext/B-Debug' => 1,
'../ext/Compress-Raw-Bzip2' => 1,
$return_dir = '../../t';
$lib = '../../lib';
$perl = '../../t/perl';
- $testswitch = "-I../.. -MTestInit=U2T,A";
+ $testswitch = "-I../.. -MTestInit=U2T";
+ if (!$no_abs{$run_dir}) {
+ $testswitch = $testswitch . ',A';
+ }
if ($temp_no_core{$run_dir}) {
$testswitch = $testswitch . ',NC';
}
projects / p5sagit/p5-mst-13.2.git / commitdiff