some additional tests for better coverage

[gitmo/Moose.git] / t / 020_attributes / 012_misc_attribute_tests.t

diff --git a/t/020_attributes/012_misc_attribute_tests.t b/t/020_attributes/012_misc_attribute_tests.t
index 2d7e1d0..d25d1c8 100644 (file)
--- a/t/020_attributes/012_misc_attribute_tests.t
+++ b/t/020_attributes/012_misc_attribute_tests.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 41;
+use Test::More tests => 42;
 use Test::Exception;
 
 BEGIN {
@@ -162,6 +162,18 @@ BEGIN {
     is($instance->foo, 'works', "foo builder works");
 }
 
+{    
+    {
+        package Test::Builder::Attribute::Broken;
+        use Moose;
+
+        has 'foo'  => ( required => 1, builder => 'build_foo', is => 'ro');
+    }
+    
+    dies_ok {
+        Test::Builder::Attribute::Broken->new;
+    } '... no builder, wtf';
+}
 
 
 {