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
43
44
45
46
47
|
#!/usr/bin/perl -w
# Test our simulation of pod2man
use strict;
use lib 't/lib';
use ExtUtils::Command::MM;
use Test::More tests => 3;
# The argument to perm_rw was optional.
# [rt.cpan.org 35190]
{
my $warnings;
local $SIG{__WARN__} = sub {
$warnings .= join '', @_;
};
pod2man("--perm_rw");
like $warnings, qr/Option perm_rw requires an argument/;
};
# Simulate the failure of Pod::Man loading.
# pod2man() should react gracefully.
{
local @INC = @INC;
unshift @INC, sub {
die "Simulated Pod::Man failure\n" if $_[1] eq 'Pod/Man.pm';
};
local %INC = %INC;
delete $INC{"Pod/Man.pm"};
my $warnings;
local $SIG{__WARN__} = sub {
$warnings .= join '', @_;
};
ok !pod2man();
is $warnings, <<'END'
Pod::Man is not available: Simulated Pod::Man failure
Man pages will not be generated during this install.
END
}
|
