Allow trigger on ro (or no-accessor) attributes

[gitmo/Moose.git] / t / 020_attributes / 004_attribute_triggers.t

diff --git a/t/020_attributes/004_attribute_triggers.t b/t/020_attributes/004_attribute_triggers.t
index 0a744a5..b5cf34e 100644 (file)
--- a/t/020_attributes/004_attribute_triggers.t
+++ b/t/020_attributes/004_attribute_triggers.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Scalar::Util 'isweak';
 
-use Test::More tests => 27;
+use Test::More tests => 26;
 use Test::Exception;
 
 BEGIN {
@@ -109,15 +109,6 @@ BEGIN {
     use Moose;
     
     ::dies_ok { 
-        has('bling' => (is => 'ro', trigger => sub { 0 }));
-    } '... cannot create trigger on a read-only attr';
-}
-
-{
-    package Bling::Bling;
-    use Moose;
-    
-    ::dies_ok { 
         has('bling' => (is => 'rw', trigger => 'Fail'));
     } '... a trigger must be a CODE ref';