From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 24 Apr 2011 17:21:45 +0000 (-0500)
Subject: fix tests
X-Git-Tag: 2.0100~193
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=00b7f2070f89d818ba5c48a9127aadf4cb674ada;p=gitmo%2FMoose.git

fix tests
---

diff --git a/t/cmop/immutable_metaclass.t b/t/cmop/immutable_metaclass.t
index ca3ecf9..5071daa 100644
--- a/t/cmop/immutable_metaclass.t
+++ b/t/cmop/immutable_metaclass.t
@@ -46,6 +46,7 @@ use Class::MOP;
     );
 
     $meta->make_immutable;
+    my $line = __LINE__ - 1;
 
     my $immutable_metaclass = $meta->_immutable_metaclass->meta;
 
@@ -67,6 +68,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'
     );
@@ -272,6 +275,7 @@ use Class::MOP;
         inline_constructor => 0,
         constructor_name   => 'newer',
     );
+    my $line = __LINE__ - 5;
 
     is_deeply(
         { $meta->immutable_options },
@@ -284,6 +288,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'
     );