Test that coerce errors come out for each attr, not just once per package defining...
Dave Rolsky [Wed, 14 Jul 2010 18:40:20 +0000 (13:40 -0500)]
t/020_attributes/034_bad_coerce.t

index b85c171..f520052 100644 (file)
@@ -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;