X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F014_attribute_introspection.t;h=84fd2fd73a0e409a58492b4ab36202f88fbeddf9;hb=45b4c4236b66597b2f9fc86ea61c4a828d985e09;hp=f9c8bb15446833d77ef0180027a62dece2214c69;hpb=4b698b1a547836fd91575b96ab89767c31351f4e;p=gitmo%2FClass-MOP.git

diff --git a/t/014_attribute_introspection.t b/t/014_attribute_introspection.t
index f9c8bb1..84fd2fd 100644
--- a/t/014_attribute_introspection.t
+++ b/t/014_attribute_introspection.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 63;
+use Test::More tests => 65;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Class::MOP');
-}
+use Class::MOP;
 
 {
     my $attr = Class::MOP::Attribute->new('$test');
@@ -39,6 +35,8 @@ BEGIN {
         has_default       default           is_default_a_coderef
         has_initializer   initializer
 
+        definition_context
+
         slots
         get_value
         set_value
@@ -56,6 +54,7 @@ BEGIN {
         associate_method
 
         process_accessors
+        _process_accessors
         install_accessors
         remove_accessors
 
@@ -81,6 +80,7 @@ BEGIN {
         'builder',
         'init_arg',
         'initializer',
+        'definition_context',
         'default',
         'associated_class',
         'associated_methods',