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;
}