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