use strict;
use warnings;
-use Test::More tests => 6;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
{
is( $foo_moose->moose, 'Foo',
'... got the right value from the Foo::Moose method' );
-lives_ok {
+is( exception {
Old::Bucket::Nose->meta->make_immutable( debug => 0 );
-}
-'Immutability on Moose class extending Class::MOP class ok';
+}, undef, 'Immutability on Moose class extending Class::MOP class ok' );
-lives_ok {
+is( exception {
SubClass2->meta->superclasses('MyBase');
-}
-'Can subclass the same non-Moose class twice with different metaclasses';
+}, undef, 'Can subclass the same non-Moose class twice with different metaclasses' );
+done_testing;