use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
{
package SubAB;
use Moose;
- ::lives_ok {
+ ::is( ::exception {
with "SubAA", "RootA";
- } '... role was composed as expected';
+ }, undef, '... role was composed as expected' );
}
ok( SubAB->does("SubAA"), "does SubAA");
can_ok( $i, "foo" );
my $foo_rv;
- lives_ok {
+ is( exception {
$foo_rv = $i->foo;
- } '... called foo successfully';
+ }, undef, '... called foo successfully' );
is($foo_rv, "RootA::foo", "... got the right foo rv");
}
package SubBB;
use Moose;
- ::lives_ok {
+ ::is( ::exception {
with "SubBA";
- } '... composed the role successfully';
+ }, undef, '... composed the role successfully' );
}
ok( SubBB->does("SubBA"), "BB does SubBA" );
can_ok( $i, "foo" );
my $foo_rv;
- lives_ok {
+ is( exception {
$foo_rv = $i->foo
- } '... called foo successfully';
+ }, undef, '... called foo successfully' );
is( $foo_rv, "RootB::foo", "foo rv" );
is( $i->counter, 1, "after hook called" );
- lives_ok { $i->foo } '... called foo successfully (again)';
+ is( exception { $i->foo }, undef, '... called foo successfully (again)' );
is( $i->counter, 2, "after hook called (again)" );
ok(SubBA->meta->has_method('foo'), '... this has the foo method');
with "RootC";
- ::dies_ok {
+ ::isnt( ::exception {
override foo => sub { "overridden" };
- } '... cannot compose an override over a local method';
+ }, undef, '... cannot compose an override over a local method' );
}
}