From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 2 Dec 2008 08:56:33 +0000 (+0000)
Subject: Make sure renaming the role block export works
X-Git-Tag: 0.05~56
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9ba16fb4e3ea2e77b3982eaab88f06263002ff1e;p=gitmo%2FMooseX-Role-Parameterized.git

Make sure renaming the role block export works
---

diff --git a/t/012-rename-role.t b/t/012-rename-role.t
new file mode 100644
index 0000000..a59f715
--- /dev/null
+++ b/t/012-rename-role.t
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 1;
+
+do {
+    package MyRole;
+    use MooseX::Role::Parameterized (
+        role => { -as => 'parameterized_role' },
+        'method',
+    );
+
+    parameterized_role {
+        method ok => sub {};
+    };
+};
+
+my $role = MyRole->meta->generate_role;
+ok($role->has_method('ok'), "renaming the role block export works");
+