use strict;
use warnings;
-use Test::More tests => 2;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
-BEGIN {
- use_ok('Moose');
-}
{
package My::Meta;
extends 'Moose::Meta::Class';
- has 'meta_size' =>
- ( is => 'rw',
- isa => 'Int',
- );
+ has 'meta_size' => (
+ is => 'rw',
+ isa => 'Int',
+ );
}
-lives_ok { My::Meta->meta()->make_immutable() } 'can make a meta class immutable';
+ok ! exception {
+ My::Meta->meta()->make_immutable(debug => 0)
+}, '... can make a meta class immutable';
+done_testing;