use strict;
use warnings;
-use Test::More tests => 1;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
=pod
-This was a bug, but it is fixed now. This
+This was a bug, but it is fixed now. This
test makes sure it does not creep back in.
=cut
{
package Foo;
use Moose;
-
- ::lives_ok {
+
+ ::is( ::exception {
has 'bar' => (
- is => 'ro',
+ is => 'ro',
isa => 'Int',
lazy => 1,
default => 10,
);
- } '... this didnt die';
+ }, undef, '... this didnt die' );
}
-
+
+done_testing;