X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F061_instance_inline.t;h=95e986be39136b22c739033e20fa4039dcde8df0;hb=41fc2d0fd29483cb704e06198bfaabbcd3e09d08;hp=075d9608b5f7664455ac21595bce180113de2259;hpb=230472a7d408d93238875666b1369406e8967de3;p=gitmo%2FClass-MOP.git

diff --git a/t/061_instance_inline.t b/t/061_instance_inline.t
index 075d960..95e986b 100644
--- a/t/061_instance_inline.t
+++ b/t/061_instance_inline.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 16;
+use Test::More tests => 15;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Class::MOP::Instance');
-}
+use Class::MOP::Instance;
 
 my $C = 'Class::MOP::Instance';
 
@@ -26,7 +22,7 @@ my $C = 'Class::MOP::Instance';
       '... got the right code for set_slot_value');
 
     is($C->inline_initialize_slot($instance, $slot_name),
-      '$self->{"foo"} = undef',
+      '',
       '... got the right code for initialize_slot');
 
     is($C->inline_is_slot_initialized($instance, $slot_name),
@@ -56,7 +52,7 @@ my $C = 'Class::MOP::Instance';
       '... got the right code for set_slot_value');
 
     is($C->inline_initialize_slot($instance, $slot_name),
-      '$_[0]->{$attr_name} = undef',
+      '',
       '... got the right code for initialize_slot');
 
     is($C->inline_is_slot_initialized($instance, $slot_name),