Update podlators to version 4.03
[perl.git] / cpan / podlators / t / man / devise-title.t
1 #!/usr/bin/perl
2 #
3 # Tests for the automatic determination of the manual page title if not
4 # specified via options to pod2man or the Pod::Man constructor.
5
6 use 5.006;
7 use strict;
8 use warnings;
9
10 use File::Spec;
11 use IO::File;
12 use Test::More tests => 3;
13
14 BEGIN {
15     use_ok('Pod::Man');
16 }
17
18 # Create a parser and set it up with an input source.  There isn't a way to do
19 # this in Pod::Simple without actually parsing the document, so send the
20 # output to a string that we'll ignore.
21 my $path = File::Spec->catfile('t', 'data', 'basic.pod');
22 my $handle = IO::File->new($path, 'r');
23 my $parser = Pod::Man->new(errors => 'pod');
24 my $output;
25 $parser->output_string(\$output);
26 $parser->parse_file($handle);
27
28 # Check the results of devise_title for this.  We should get back STDIN, and
29 # we should have reported an error.
30 my ($name, $section) = $parser->devise_title;
31 is($name, 'STDIN', 'devise_title uses STDIN for file handle input');
32 ok($parser->errors_seen, '...and errors were seen');