1# encoding nonesuch
2use strict;
3use warnings;
4
5use Test::More tests => 5;
6use File::Spec;
7
8#use Pod::Simple::Debug (10);
9
10use Pod::Simple;
11use Pod::Simple::DumpAsXML;
12
13my $thefile;
14
15use File::Spec;
16use Cwd ();
17use File::Basename ();
18
19BEGIN {
20  my $corpusdir = File::Spec->catdir(File::Basename::dirname(Cwd::abs_path(__FILE__)), 'corpus');
21  $thefile = File::Spec->catfile($corpusdir, 'nonesuch.txt');
22}
23
24print "# Testing that $thefile parses right.\n";
25my $outstring;
26{
27  my $p = Pod::Simple::DumpAsXML->new;
28  $p->output_string( \$outstring );
29  $p->parse_file( $thefile );
30  undef $p;
31}
32ok 1 ; # make sure it parsed at all
33ok( $outstring && length($outstring) ); # make sure it parsed to something.
34#print $outstring;
35like( $outstring, qr/Blorp/ );
36like( $outstring, qr/errata/ );
37like( $outstring, qr/unsupported/ );
38