cleanups after fixing some stuff in test::dm

[gitmo/Moose.git] / t / cmop / immutable_metaclass.t

diff --git a/t/cmop/immutable_metaclass.t b/t/cmop/immutable_metaclass.t
index ca3ecf9..e674f34 100644 (file)
--- a/t/cmop/immutable_metaclass.t
+++ b/t/cmop/immutable_metaclass.t
@@ -45,7 +45,10 @@ use Class::MOP;
         'immutable_options is empty before a class is made_immutable'
     );
 
-    $meta->make_immutable;
+    ok( $meta->make_immutable, 'make_immutable returns true' );
+    my $line = __LINE__ - 1;
+
+    ok( $meta->make_immutable, 'make_immutable still returns true' );
 
     my $immutable_metaclass = $meta->_immutable_metaclass->meta;
 
@@ -67,6 +70,8 @@ use Class::MOP;
             constructor_name   => 'new',
             constructor_class  => 'Class::MOP::Method::Constructor',
             destructor_class   => undef,
+            file               => $0,
+            line               => $line,
         },
         'immutable_options is empty before a class is made_immutable'
     );
@@ -142,7 +147,7 @@ use Class::MOP;
         $meta->make_immutable();
     }, undef, '... changed Bar to be immutable' );
 
-    ok( !$meta->make_immutable, '... make immutable now returns nothing' );
+    ok( $meta->make_immutable, '... make immutable returns true' );
 
     ok( !$meta->is_mutable,  '... our class is no longer mutable' );
     ok( $meta->is_immutable, '... our class is now immutable' );
@@ -206,7 +211,7 @@ use Class::MOP;
         $meta->make_immutable();
     }, undef, '... changed Baz to be immutable' );
 
-    ok( !$meta->make_immutable, '... make immutable now returns nothing' );
+    ok( $meta->make_immutable, '... make immutable returns true' );
 
     ok( !$meta->is_mutable,  '... our class is no longer mutable' );
     ok( $meta->is_immutable, '... our class is now immutable' );
@@ -272,6 +277,7 @@ use Class::MOP;
         inline_constructor => 0,
         constructor_name   => 'newer',
     );
+    my $line = __LINE__ - 5;
 
     is_deeply(
         { $meta->immutable_options },
@@ -284,6 +290,8 @@ use Class::MOP;
             constructor_name   => 'newer',
             constructor_class  => 'Class::MOP::Method::Constructor',
             destructor_class   => undef,
+            file               => $0,
+            line               => $line,
         },
         'custom immutable_options are returned by immutable_options accessor'
     );