removing the leftover bits from the get_init_args and get_attirbute_values stuff

diff --git a/Changes b/Changes
index 79a1952..7f1bf05 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,11 +1,7 @@
 Revision history for Perl extension Class-MOP.
 
 0.53
-    ~~~ some misc. doc. fixes ~~~
-    
-    * Class::MOP::Instance
-      - added get_all_slot_values method (Sartak)
-        - added tests for this (Sartak)
+    ~~ several doc. fixes and updates ~~
         
     * Class::MOP::Class
       Class::MOP::Method::Constructor

diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t
index da2f3a8..2c9e9a7 100644 (file)
--- a/t/010_self_introspection.t
+++ b/t/010_self_introspection.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 209;
+use Test::More tests => 205;
 use Test::Exception;
 
 BEGIN {
@@ -59,7 +59,6 @@ my @class_mop_class_methods = qw(
 
     instance_metaclass get_meta_instance
     new_object clone_object
-    get_attribute_values get_init_args
     construct_instance construct_class_instance clone_instance
     rebless_instance
     check_metaclass_compatability

diff --git a/t/023_attribute_get_read_write.t b/t/023_attribute_get_read_write.t
index dc8c2e0..a664727 100644 (file)
--- a/t/023_attribute_get_read_write.t
+++ b/t/023_attribute_get_read_write.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Scalar::Util 'blessed', 'reftype';
 
-use Test::More tests => 38;
+use Test::More tests => 35;
 
 BEGIN {
     use_ok('Class::MOP');
@@ -112,27 +112,3 @@ ok(!$gorch_attr->get_write_method, '... $attr does not have an write method');
     
     is($reader->fully_qualified_name, 'Foo::get_gorch', '... it is the sub we are looking for');
 }
-
-my $foo = bless {}, 'Foo';
-$foo->set_bar(1);
-$foo->baz(10);
-
-is_deeply($foo->meta->get_attribute_values($foo), {
-    bar => 1,
-    baz => 10,
-});
-
-my $bar = bless {}, 'Bar';
-$bar->set_bar(99);
-
-is_deeply($bar->meta->get_attribute_values($bar), {
-    bar => 99,
-});
-
-$bar->quux(1337);
-
-is_deeply($bar->meta->get_attribute_values($bar), {
-    bar  => 99,
-    quux => 1337,
-});
-