view release on metacpan or  search on metacpan

t/rm.t  view on Meta::CPAN

		1;
	}; die $@ unless $@ eq "";
}

# broken module is visibly broken when re-required
eval { require_module("t::Break") };
like $@, qr/\A(?:broken |Attempt to reload )/;
eval { require_module("t::Break") };
like $@, qr/\A(?:broken |Attempt to reload )/;

# no extra eval frame
SKIP: {
	skip "core bug makes this test crash", 2 if "$]" < 5.006001;
	sub eval_test () { require_module("t::Eval") }
	eval_test();
}

1;

t/um.t  view on Meta::CPAN

		1;
	}; die $@ unless $@ eq "";
}

# broken module is visibly broken when re-required
eval { use_module("t::Break") };
like $@, qr/\A(?:broken |Attempt to reload )/;
eval { use_module("t::Break") };
like $@, qr/\A(?:broken |Attempt to reload )/;

# no extra eval frame
SKIP: {
	skip "core bug makes this test crash", 2 if "$]" < 5.006001;
	sub eval_test () { use_module("t::Eval") }
	eval_test();
}

# successful version check
$result = eval { use_module("Module::Runtime", 0.001) };
is($@, "");
is($result, "Module::Runtime");