[p5sagit/JSON-MaybeXS.git] / t / none.t

use strict;
use warnings FATAL => 'all';
use Test::Without::Module 'Cpanel::JSON::XS';
use Test::Without::Module 'JSON::XS';
use Test::Without::Module 'JSON::PP';
use Test::More;

ok(!eval { require JSON::MaybeXS; 1 }, 'Class failed to load');

# Test::Without::Module always causes 'did not return a true value' errors

like(
  $@, qr{Cpanel/JSON/XS.pm did not.*JSON/XS.pm did not.*JSON/PP.pm did not}s,
  'All errors reported'
);

done_testing;
Commit	Line	Data
3be1e192	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::Without::Module 'Cpanel::JSON::XS';
16205c4a	4	use Test::Without::Module 'JSON::XS';
3be1e192	5	use Test::Without::Module 'JSON::PP';
	6	use Test::More;
	7
	8	ok(!eval { require JSON::MaybeXS; 1 }, 'Class failed to load');
	9
	10	# Test::Without::Module always causes 'did not return a true value' errors
	11
	12	like(
16205c4a	13	$@, qr{Cpanel/JSON/XS.pm did not.JSON/XS.pm did not.JSON/PP.pm did not}s,
16205c4a	14	'All errors reported'
3be1e192	15	);
	16
	17	done_testing;