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