From: Tokuhiro Matsuno <tokuhirom@gp.ath.cx>
Date: Fri, 29 Aug 2008 03:16:00 +0000 (+0000)
Subject: added new test: t/030_roles/032_roles_alias_methods.t
X-Git-Tag: 0.55_02~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=43f8ff1f6a7ed2aebd25848cbb1ff5d57b34ff9f;p=gitmo%2FMoose.git

added new test: t/030_roles/032_roles_alias_methods.t
this test failes on only perl 5.10(maybe)
---

diff --git a/t/030_roles/032_roles_alias_methods.t b/t/030_roles/032_roles_alias_methods.t
new file mode 100644
index 0000000..8e11e97
--- /dev/null
+++ b/t/030_roles/032_roles_alias_methods.t
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+use Test::Exception;
+use Moose::Meta::Class;
+use Moose::Util;
+
+use lib 't/lib', 'lib';
+
+use Role::Child;
+
+_test('Role::Parent', 'meth1,meth2');
+_test('Role::Child', 'aliased_meth1,meth1,meth2');
+
+sub _test {
+    my ($role, $methods) = @_;
+    is join(',', sort $role->meta->get_method_list), $methods;
+}
+