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 { |
7c484eb9 |
6 | my $m = $_; |
7 | sub { return unless $_[1] eq $m; die "Can't locate $m in \@INC (hidden).\n" }; |
b4d74169 |
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; |