bump version to 0.77
[gitmo/Class-MOP.git] / t / 014_attribute_introspection.t
index dc1e18c..c8a4864 100644 (file)
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 62;
+use Test::More tests => 64;
 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
@@ -58,6 +56,8 @@ BEGIN {
         process_accessors
         install_accessors
         remove_accessors
+
+        _new
         );
 
     is_deeply(
@@ -79,6 +79,7 @@ BEGIN {
         'builder',
         'init_arg',
         'initializer',
+        'definition_context',
         'default',
         'associated_class',
         'associated_methods',