view release on metacpan or  search on metacpan

t/04-errors.t  view on Meta::CPAN

throws_ok {
	Devel::FIXME->new(qw/uneven number of elements in argument list/);
} qr/^Invalid arguments/, "can't construct a fixme with a weird argument list";

lives_ok {
	Devel::FIXME->readfile("t/lib/does_not_exist");
} "readfile on something nonexistent doesn't complain";

SKIP: {
	chmod 0, "t/lib/cant_read";
	skip "Won't generate error, because file is readable", 1 if -r "t/lib/cant_read";
	require Errno;
	Errno->import("EACCES");
	$! = EACCES();
	my $perm = "$!";

	throws_ok {
		Devel::FIXME->readfile("t/lib/cant_read");
	} qr/$perm/o, "readfile on something restricted yields permission denied";

	chmod 0644, "t/lib/cant_read";
}