use warnings;
use Test::More;
-use Test::Fatal;
+use Test::Exception;
use Class::MOP;
is($point->x, 2, '... the x attribute was initialized correctly through the metaobject');
-ok exception {
+dies_ok {
$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();