use strict;
use warnings;
-use Test::More tests => 17;
-use Test::Exception;
-
+use Test::More;
+use Test::Fatal;
=pod
=cut
sub make_class {
- my ($is, $attr, $class) = @_;
+ my ($is, $attr, $class) = @_;
- eval "package $class; use Moose; has 'foo' => ( is => '$is', $attr => '_foo' );";
+ eval "package $class; use Moose; has 'foo' => ( is => '$is', $attr => '_foo' );";
- return $@ ? die $@ : $class;
+ return $@ ? die $@ : $class;
}
my $obj;
$obj = $class->new();
can_ok($obj, qw/foo _foo/);
-lives_ok {$obj->_foo(1)} "$class->_foo is writer";
+ok ! exception {$obj->_foo(1)}, "$class->_foo is writer";
is($obj->foo(), 1, "$class->foo is reader");
-dies_ok {$obj->foo(2)} "$class->foo is not writer"; # this should fail
+ok exception {$obj->foo(2)}, "$class->foo is not writer"; # this should fail
ok(!defined $obj->_foo(), "$class->_foo is not reader");
$class = make_class('ro', 'writer', 'Test::Class::WriterRO');
$obj = $class->new();
can_ok($obj, qw/foo _foo/);
-lives_ok {$obj->_foo(1)} "$class->_foo is writer";
+ok ! exception {$obj->_foo(1)}, "$class->_foo is writer";
is($obj->foo(), 1, "$class->foo is reader");
-dies_ok {$obj->foo(1)} "$class->foo is not writer";
+ok exception {$obj->foo(1)}, "$class->foo is not writer";
isnt($obj->_foo(), 1, "$class->_foo is not reader");
$class = make_class('rw', 'accessor', 'Test::Class::AccessorRW');
$obj = $class->new();
can_ok($obj, qw/_foo/);
-lives_ok {$obj->_foo(1)} "$class->_foo is writer";
+ok ! exception {$obj->_foo(1)}, "$class->_foo is writer";
is($obj->_foo(), 1, "$class->foo is reader");
-dies_ok { make_class('ro', 'accessor', "Test::Class::AccessorRO"); } "Cant define attr with ro + accessor";
+ok exception { make_class('ro', 'accessor', "Test::Class::AccessorRO"); }, "Cant define attr with ro + accessor";
+done_testing;