X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F034_bad_coerce.t;h=3d99f89f0051416115106844e99c770d29258b49;hb=ad3882b59692e4e4eab99f9b183c941e6f63d3bd;hp=b85c17162658a248ce19ef1f564615a8a836cced;hpb=f13091557c5d1326b214b03f83772271340485f9;p=gitmo%2FMoose.git

diff --git a/t/020_attributes/034_bad_coerce.t b/t/020_attributes/034_bad_coerce.t
index b85c171..3d99f89 100644
--- a/t/020_attributes/034_bad_coerce.t
+++ b/t/020_attributes/034_bad_coerce.t
@@ -2,10 +2,10 @@ use strict;
 use warnings;
 
 use Test::More;
-BEGIN {
-    eval "use Test::Output;";
-    plan skip_all => "Test::Output is required for this test" if $@;
-}
+
+use Test::Requires {
+    'Test::Output' => '0.01', # skip all if not installed
+};
 
 {
     package Foo;
@@ -20,6 +20,15 @@ BEGIN {
         }
         qr/\QYou cannot coerce an attribute (foo) unless its type (Str) has a coercion/,
         'Cannot coerce unless the type has a coercion';
+
+    ::stderr_like{ has bar => (
+            is     => 'ro',
+            isa    => 'Str',
+            coerce => 1,
+        );
+        }
+        qr/\QYou cannot coerce an attribute (bar) unless its type (Str) has a coercion/,
+        'Cannot coerce unless the type has a coercion - different attribute';
 }
 
 done_testing;