Test semantics for raw_value

[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 baa2a2a..974879d 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 => 42;
+use Test::More tests => 43;
 use Test::Exception;
 
 
@@ -189,6 +189,15 @@ use Test::Exception;
         'trigger called correctly on second set via meta-API',
     );
     @Foo::calls = ();
+
+    $attr->set_raw_value( $foo, 4 );
+
+    is_deeply(
+        \@Foo::calls,
+        [ ],
+        'trigger not called using set_raw_value method',
+    );
+    @Foo::calls = ();
 }
 
 {