Improve is_class_loaded checking

[gitmo/Class-MOP.git] / t / 061_instance_inline.t

diff --git a/t/061_instance_inline.t b/t/061_instance_inline.t
index 075d960..95e986b 100644 (file)
--- 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),