Commit | Line | Data |
5bdf71cc |
1 | #!/usr/bin/perl -w |
2 | |
3 | # Test our simulation of pod2man |
4 | |
5 | use strict; |
6 | use lib 't/lib'; |
7 | |
8 | use ExtUtils::Command::MM; |
9 | |
10 | use Test::More tests => 3; |
11 | |
12 | # The argument to perm_rw was optional. |
13 | # [rt.cpan.org 35190] |
14 | { |
15 | my $warnings; |
16 | local $SIG{__WARN__} = sub { |
17 | $warnings .= join '', @_; |
18 | }; |
19 | |
20 | pod2man("--perm_rw"); |
21 | |
22 | like $warnings, qr/^Option perm_rw requires an argument/; |
23 | }; |
24 | |
25 | |
26 | # Simulate the failure of Pod::Man loading. |
27 | # pod2man() should react gracefully. |
28 | { |
29 | local @INC = @INC; |
30 | unshift @INC, sub { |
31 | die "Simulated Pod::Man failure\n" if $_[1] eq 'Pod/Man.pm'; |
32 | }; |
33 | local %INC = %INC; |
34 | delete $INC{"Pod/Man.pm"}; |
35 | |
36 | my $warnings; |
37 | local $SIG{__WARN__} = sub { |
38 | $warnings .= join '', @_; |
39 | }; |
40 | |
41 | is pod2man(), undef; |
42 | is $warnings, <<'END' |
43 | Pod::Man is not available: Simulated Pod::Man failure |
44 | Man pages will not be generated during this install. |
45 | END |
46 | |
47 | } |