Merge branch 'stable'

[gitmo/Class-MOP.git] / t / 060_instance.t

diff --git a/t/060_instance.t b/t/060_instance.t
index 108e0a6..5ab6a55 100644 (file)
--- a/t/060_instance.t
+++ b/t/060_instance.t
@@ -1,24 +1,20 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 46;
-use Test::Exception;
+use Test::More;
+use Test::Fatal;
 
 use Scalar::Util qw/isweak reftype/;
 
-BEGIN {
-    use_ok('Class::MOP::Instance');
-}
+use Class::MOP::Instance;
 
 can_ok( "Class::MOP::Instance", $_ ) for qw/
-    new
+        new
 
         create_instance
         bless_instance_structure
 
-    get_all_slots
+        get_all_slots
 
         initialize_all_slots
         deinitialize_all_slots
@@ -140,3 +136,4 @@ ok(!$mi_foo->is_slot_initialized( $i_foo, "moosen" ), "slot deinitialized");
 
 ok(!defined($mi_foo->get_slot_value( $i_foo, "moosen" )), "... no value for slot");
 
+done_testing;