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

use strict;
use warnings FATAL => 'all';
use Test::Without::Module 'Cpanel::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/PP.pm did not}s,
  'Both errors reported'
);

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