Commit | Line | Data |
3be1e192 |
1 | use strict; |
4e1fb2f8 |
2 | use warnings; |
b4d74169 |
3 | |
4 | # hide Cpanel::JSON::XS, JSON::XS, JSON::PP |
5 | use lib map { |
6 | my ( $m, $c ) = ( $_, qq{die "Can't locate $_ (hidden)\n"} ); |
7 | sub { return unless $_[1] eq $m; open my $fh, "<", \$c; return $fh } |
8 | } qw{Cpanel/JSON/XS.pm JSON/XS.pm JSON/PP.pm}; |
9 | |
2c67ae64 |
10 | use Test::More 0.88; |
3be1e192 |
11 | |
12 | ok(!eval { require JSON::MaybeXS; 1 }, 'Class failed to load'); |
13 | |
3be1e192 |
14 | like( |
b4d74169 |
15 | $@, qr{Can't locate Cpanel/JSON/XS\.pm.*Can't locate JSON/XS\.pm.*Can't locate JSON/PP\.pm}s, |
16205c4a |
16 | 'All errors reported' |
3be1e192 |
17 | ); |
18 | |
19 | done_testing; |