| # encoding nonesuch |
| BEGIN { |
| if($ENV{PERL_CORE}) { |
| chdir 't'; |
| @INC = '../lib'; |
| } |
| } |
| |
| #use Pod::Simple::Debug (10); |
| use Test; |
| use File::Spec; |
| #use utf8; |
| use strict; |
| #use Pod::Simple::Debug (10); |
| |
| BEGIN { plan tests => 6 } |
| |
| use Pod::Simple; |
| use Pod::Simple::DumpAsXML; |
| |
| my $thefile; |
| |
| |
| BEGIN { |
| |
| # Find the path to the test source files. This requires some fiddling when |
| # these tests are run as part of Perl core. |
| sub source_path { |
| my $file = shift; |
| if ($ENV{PERL_CORE}) { |
| require File::Spec; |
| my $updir = File::Spec->updir; |
| my $dir = File::Spec->catdir ($updir, 'lib', 'Pod', 'Simple', 't', 'corpus'); |
| return File::Spec->catfile ($dir, $file); |
| } else { |
| return $file; |
| } |
| } |
| if( -e |
| ($thefile = source_path('nonesuch.txt')) |
| #or (print("# Nope, not $thefile\n"), 0) |
| ) { |
| # okay, |
| |
| } elsif( -e |
| ($thefile = File::Spec::->catfile( File::Spec::->curdir, 'corpus', 'nonesuch.txt' )) |
| #or (print("# Nope, not $thefile\n"), 0) |
| ) { |
| # okay, |
| } elsif (-e |
| ($thefile = File::Spec::->catfile( File::Spec::->curdir, 't', 'corpus', 'nonesuch.txt' )) |
| #or (print("# Nope, not $thefile\n"), 0) |
| ) { |
| # okay, |
| } else { |
| die "Can't find the corpus directory\n Aborting"; |
| } |
| |
| } |
| |
| print "# Testing that $thefile parses right.\n"; |
| my $outstring; |
| { |
| my $p = Pod::Simple::DumpAsXML->new; |
| $p->output_string( \$outstring ); |
| $p->parse_file( $thefile ); |
| undef $p; |
| } |
| ok 1 ; # make sure it parsed at all |
| ok( $outstring && length($outstring) ); # make sure it parsed to something. |
| #print $outstring; |
| ok( $outstring =~ m/Blorp/ ); |
| ok( $outstring =~ m/errata/ ); |
| ok( $outstring =~ m/unsupported/ ); |
| ok 1; |