use strict;
use warnings;
use Test::More tests => 6;
use Pod::Manual;
diag( "Testing Pod::Manual $Pod::Manual::VERSION" );
# first let's test that the methods are there
#can_ok 'Pod::Manual' => qw/ new add_chapter save_as_pdf as_docbook /;
my $manual = Pod::Manual->new( title => 'The Manual Title',
ignore_sections => 'BUGS AND LIMITATIONS' );
$manual->add_chapter( 'Pod::Manual' );
my $docbook = $manual->as_docbook;
like $docbook => qr/The Manual Title/, 'new( title => ... )';
unlike $docbook => qr/BUGS AND LIMITATIONS/, 'new( ignore_sections => ... )';
unlike $docbook => qr/xml-stylesheet.*<docbook>/, 'as_docbook() without css';
my $latex = $manual->as_latex;
ok length($latex), 'as_latex()';
SKIP: {
skip 'requires "pdflatex"', 2 if system 'pdflatex --version';
skip "not running pdflatex as root for security reasons", 2 unless $>;
my $pdf_file = 't/manual.pdf';
ok $manual->save_as_pdf( $pdf_file ), 'save_as_pdf()';
ok -e $pdf_file, 'pdf file exists';
unlink $pdf_file;
}