X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fhandle_moose.t;h=953b34a7e2623bbcd65048c4ff7bdfa7655e3bd8;hb=6e77b8df0c2c56f2b38212072011147950558848;hp=3f6d39f323d2e1d63b1e752fb725dbf23ec9c82b;hpb=346177bab5c218a8c4a77180e4f9f1317251de55;p=gitmo%2FMoo.git

diff --git a/xt/handle_moose.t b/xt/handle_moose.t
index 3f6d39f..953b34a 100644
--- a/xt/handle_moose.t
+++ b/xt/handle_moose.t
@@ -15,6 +15,11 @@ is($attr->get_read_method_ref->body, Foo->can('one'), 'Right method');
 
 is(Foo->new(one => 1, THREE => 3)->one, 1, 'Accessor still works');
 
+is(
+  Foo->meta->get_attribute('one')->get_read_method, 'one',
+  'Method name via ->meta'
+);
+
 $meta = Moose::Meta::Class->initialize('Spoon');
 
 $meta->superclasses('Moose::Object');