use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Class::MOP;
is($point->x, 2, '... the x attribute was initialized correctly through the metaobject');
-dies_ok {
+ok exception {
$point->x(42);
-} '... cannot write to a read-only accessor';
+}, '... cannot write to a read-only accessor';
is($point->x, 2, '... the x attribute was not altered');
$point->clear();