use strict;
use warnings;
-use Test::More tests => 5;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
{
sub DEMOLISH { }
}
-lives_ok {
- Foo->meta->make_immutable;
-} 'Foo->meta->make_immutable';
-
-is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
- 'Foo has a DESTROY method in the Foo class (not inherited)' );
-
-lives_ok {
+is( exception {
Bar->new();
-} 'Bar->new()';
+}, undef, 'Bar->new()' );
-lives_ok {
+is( exception {
Bar->meta->make_immutable;
-} 'Bar->meta->make_immutable';
+}, undef, 'Bar->meta->make_immutable' );
is( Bar->meta->get_method('DESTROY')->package_name, 'Bar',
'Bar has a DESTROY method in the Bar class (not inherited)' );
+
+is( exception {
+ Foo->meta->make_immutable;
+}, undef, 'Foo->meta->make_immutable' );
+
+is( Foo->meta->get_method('DESTROY')->package_name, 'Foo',
+ 'Foo has a DESTROY method in the Bar class (not inherited)' );
+
+done_testing;