Docs for things in Class::MOP::Attribute + tests for trigger behaviours

[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 b595177..637d604 100644 (file)
--- a/t/020_attributes/004_attribute_triggers.t
+++ b/t/020_attributes/004_attribute_triggers.t
@@ -5,19 +5,17 @@ use warnings;
 
 use Scalar::Util 'isweak';
 
-use Test::More tests => 27;
+use Test::More tests => 36;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');           
-}
+
 
 {
     package Foo;
     use Moose;
     
     has 'bar' => (is      => 'rw', 
-                  isa     => 'Bar',
+                  isa     => 'Maybe[Bar]',
                   trigger => sub { 
                       my ($self, $bar) = @_;
                       $bar->foo($self) if defined $bar;
@@ -109,15 +107,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';
     
@@ -126,4 +115,46 @@ BEGIN {
     } '... a trigger must be a CODE ref';    
 }
 
+# Triggers do not fire on built values
+
+{
+    package Blarg;
+    use Moose;
+
+    our %trigger_calls;
+    our %trigger_vals;
+    has foo => (is => 'rw', default => sub { 'default foo value' },
+                trigger => sub { my ($self, $val, $attr) = @_;
+                                 $trigger_calls{foo}++;
+                                 $trigger_vals{foo} = $val });
+    has bar => (is => 'rw', lazy_build => 1,
+                trigger => sub { my ($self, $val, $attr) = @_;
+                                 $trigger_calls{bar}++;
+                                 $trigger_vals{bar} = $val });
+    sub _build_bar { return 'default bar value' }
+    has baz => (is => 'rw', builder => '_build_baz',
+                trigger => sub { my ($self, $val, $attr) = @_;
+                                 $trigger_calls{baz}++;
+                                 $trigger_vals{baz} = $val });
+    sub _build_baz { return 'default baz value' }
+}
+
+{
+    my $blarg;
+    lives_ok { $blarg = Blarg->new; } 'Blarg->new() lives';
+    ok($blarg, 'Have a $blarg');
+    foreach my $attr (qw/foo bar baz/) {
+        is($blarg->$attr(), "default $attr value", "$attr has default value");
+    }
+    is_deeply(\%Blarg::trigger_calls, {}, 'No triggers fired');
+    foreach my $attr (qw/foo bar baz/) {
+        $blarg->$attr("Different $attr value");
+    }
+    is_deeply(\%Blarg::trigger_calls, { map { $_ => 1 } qw/foo bar baz/ }, 'All triggers fired once on assign');
+    is_deeply(\%Blarg::trigger_vals, { map { $_ => "Different $_ value" } qw/foo bar baz/ }, 'All triggers given assigned values');
+
+    lives_ok { $blarg => Blarg->new( map { $_ => "Yet another $_ value" } qw/foo bar baz/ ) } '->new() with parameters';
+    is_deeply(\%Blarg::trigger_calls, { map { $_ => 2 } qw/foo bar baz/ }, 'All triggers fired once on construct');
+    is_deeply(\%Blarg::trigger_vals, { map { $_ => "Yet another $_ value" } qw/foo bar baz/ }, 'All triggers given assigned values');
+}