X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F014_attribute_introspection.t;h=c8a486476f28f44b7d8ea68bd0ad58ff7d3ad123;hb=860f85abed70a4947fb698784aa94252324d770d;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..c8a4864 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 => 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 @@ -81,6 +79,7 @@ BEGIN { 'builder', 'init_arg', 'initializer', + 'definition_context', 'default', 'associated_class', 'associated_methods',