From: Guillermo Roditi <groditi@gmail.com>
Date: Mon, 12 Nov 2007 23:21:20 +0000 (+0000)
Subject: change t/060 to not test for the old-style slot initializing
X-Git-Tag: 0_44^0
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2fd2f401dd206999465d1cc97a36330537288f0;p=gitmo%2FClass-MOP.git

change t/060 to not test for the old-style slot initializing
---

diff --git a/t/060_instance.t b/t/060_instance.t
index dafd509..108e0a6 100644
--- a/t/060_instance.t
+++ b/t/060_instance.t
@@ -3,62 +3,62 @@
 use strict;
 use warnings;
 
-use Test::More tests => 47;
+use Test::More tests => 46;
 use Test::Exception;
 
 use Scalar::Util qw/isweak reftype/;
 
 BEGIN {
-    use_ok('Class::MOP::Instance');    
+    use_ok('Class::MOP::Instance');
 }
 
 can_ok( "Class::MOP::Instance", $_ ) for qw/
-    new 
-    
-	create_instance
-	bless_instance_structure
+    new
+
+        create_instance
+        bless_instance_structure
 
     get_all_slots
-    
-	initialize_all_slots    
-	deinitialize_all_slots    
-
-	get_slot_value
-	set_slot_value
-	initialize_slot
-	deinitialize_slot
-	is_slot_initialized	
-	weaken_slot_value
-	strengthen_slot_value	
-	
-	inline_get_slot_value
-	inline_set_slot_value
-	inline_initialize_slot
-	inline_deinitialize_slot
-	inline_is_slot_initialized	
-	inline_weaken_slot_value
-	inline_strengthen_slot_value	
+
+        initialize_all_slots
+        deinitialize_all_slots
+
+        get_slot_value
+        set_slot_value
+        initialize_slot
+        deinitialize_slot
+        is_slot_initialized
+        weaken_slot_value
+        strengthen_slot_value
+
+        inline_get_slot_value
+        inline_set_slot_value
+        inline_initialize_slot
+        inline_deinitialize_slot
+        inline_is_slot_initialized
+        inline_weaken_slot_value
+        inline_strengthen_slot_value
 /;
 
 {
-	package Foo;
-	use metaclass;
-	
-	Foo->meta->add_attribute('moosen');
+        package Foo;
+        use metaclass;
+
+        Foo->meta->add_attribute('moosen');
 
-	package Bar;
-	use metaclass;
-	use base qw/Foo/;
+        package Bar;
+        use metaclass;
+        use base qw/Foo/;
 
-	Bar->meta->add_attribute('elken');
+        Bar->meta->add_attribute('elken');
 }
 
 my $mi_foo = Foo->meta->get_meta_instance;
 isa_ok($mi_foo, "Class::MOP::Instance");
 
 is_deeply(
-    [ $mi_foo->get_all_slots ], 
-    [ "moosen" ], 
+    [ $mi_foo->get_all_slots ],
+    [ "moosen" ],
     '... get all slots for Foo');
 
 my $mi_bar = Bar->meta->get_meta_instance;
@@ -67,8 +67,8 @@ isa_ok($mi_bar, "Class::MOP::Instance");
 isnt($mi_foo, $mi_bar, '... they are not the same instance');
 
 is_deeply(
-    [ sort $mi_bar->get_all_slots ], 
-    [ "elken", "moosen" ], 
+    [ sort $mi_bar->get_all_slots ],
+    [ "elken", "moosen" ],
     '... get all slots for Bar');
 
 my $i_foo = $mi_foo->create_instance;
@@ -76,7 +76,7 @@ isa_ok($i_foo, "Foo");
 
 {
     my $i_foo_2 = $mi_foo->create_instance;
-    isa_ok($i_foo_2, "Foo");    
+    isa_ok($i_foo_2, "Foo");
     isnt($i_foo_2, $i_foo, '... not the same instance');
     is_deeply($i_foo, $i_foo_2, '... but the same structure');
 }
@@ -87,7 +87,8 @@ ok(!defined($mi_foo->get_slot_value( $i_foo, "moosen" )), "... no value for slot
 
 $mi_foo->initialize_slot( $i_foo, "moosen" );
 
-ok($mi_foo->is_slot_initialized( $i_foo, "moosen" ), "slot initialized");
+#Removed becayse slot initialization works differently now (groditi)
+#ok($mi_foo->is_slot_initialized( $i_foo, "moosen" ), "slot initialized");
 
 ok(!defined($mi_foo->get_slot_value( $i_foo, "moosen" )), "... but no value for slot");