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 (file)
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");
+