-#!/usr/bin/perl
-
use strict;
use warnings;
use FindBin;
use File::Spec::Functions;
-use Test::More tests => 35;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
use Class::MOP;
# check some errors
-dies_ok {
+isnt( exception {
$foo_meta->clone_object($meta);
-} '... this dies as expected';
+}, undef, '... this dies as expected' );
# test stuff
$attr_clone->associated_class,
'... we successfully did not clone our associated metaclass');
+done_testing;