1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
#!/usr/bin/perl
use strict;
use Test::More tests => 4;
require_ok('Pod::Checker');
my $infile = $0; # self
(my $outfile = $infile) =~ s/\..*?$/.OUT/;
if ($^O eq 'VMS') {
for ($infile, $outfile) {
$_ = VMS::Filespec::unixify($_) unless ref;
}
}
my $checker = Pod::Checker->new();
ok($checker, 'Checker object successfully created');
ok($checker->parse_from_file($infile, $outfile), "$0 successfully parsed");
is($checker->name(), 'podname');
$checker->{'-quiet'} = 1; # we can't write now
$checker->poderror('* HORROR: You better run');
END {
unlink($outfile);
}
__END__
# this lone =cut triggers the call to scream()
=cut
=head1 NAME
podname - check the name() method of Pod::Checker
=cut
|
