t/none.t

   1 use strict;
   2 use warnings;
   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
  10 use Test::More 0.88;
  11
  12 ok(!eval { require JSON::MaybeXS; 1 }, 'Class failed to load');
  13
  14 like(
  15   $@, qr{Can't locate Cpanel/JSON/XS\.pm.*Can't locate JSON/XS\.pm.*Can't locate JSON/PP\.pm}s,
  16   'All errors reported'
  17 );
  18
  19 done_testing;