3 # Test our simulation of pod2man
8 use ExtUtils::Command::MM;
10 use Test::More tests => 3;
12 # The argument to perm_rw was optional.
16 local $SIG{__WARN__} = sub {
17 $warnings .= join '', @_;
22 like $warnings, qr/^Option perm_rw requires an argument/;
26 # Simulate the failure of Pod::Man loading.
27 # pod2man() should react gracefully.
31 die "Simulated Pod::Man failure\n" if $_[1] eq 'Pod/Man.pm';
34 delete $INC{"Pod/Man.pm"};
37 local $SIG{__WARN__} = sub {
38 $warnings .= join '', @_;
43 Pod::Man is not available: Simulated Pod::Man failure
44 Man pages will not be generated during this install.