* added t/108_custom_attr_meta_as_role.t
Aankhen [Sat, 28 Apr 2007 02:25:45 +0000 (02:25 +0000)]
t/108_custom_attr_meta_as_role.t [new file with mode: 0644]

diff --git a/t/108_custom_attr_meta_as_role.t b/t/108_custom_attr_meta_as_role.t
new file mode 100644 (file)
index 0000000..e979ea9
--- /dev/null
@@ -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';