From: Aankhen <aankhen@gmail.com>
Date: Sat, 28 Apr 2007 02:25:45 +0000 (+0000)
Subject: * added t/108_custom_attr_meta_as_role.t
X-Git-Tag: 0_21~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33e2e9dee3d3e1dc490863b2e9c612f05f2e91bc;p=gitmo%2FMoose.git

* added t/108_custom_attr_meta_as_role.t
---

diff --git a/t/108_custom_attr_meta_as_role.t b/t/108_custom_attr_meta_as_role.t
new file mode 100644
index 0000000..e979ea9
--- /dev/null
+++ b/t/108_custom_attr_meta_as_role.t
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+use Test::Exception;
+
+BEGIN {
+    use_ok('Moose');
+};
+
+lives_ok {
+    package MooseX::Attribute::Test;
+    use Moose::Role;
+} 'creating custom attribute "metarole" is okay';
+
+lives_ok {
+    package Moose::Meta::Attribute::Custom::Test;
+    use Moose;
+    
+    extends 'Moose::Meta::Attribute';
+    with 'MooseX::Attribute::Test';
+} 'custom attribute metaclass extending role is okay';