add test for anonymous event handler args

preaction · Mar 8, 2015 · 0b3b427 · 0b3b427
1 parent 0fd065d
commit 0b3b427
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/t/14_on_event.t b/t/14_on_event.t
@@ -120,6 +120,9 @@ subtest 'anonymous listeners' => sub {
                     on => {
                         greet => {
                             '$class' => 'My::Listener',
+                            '$args' => {
+                                attribute => 'foo',
+                            },
                             '$sub' => 'on_greet',
                         },
                     },
@@ -133,6 +136,7 @@ subtest 'anonymous listeners' => sub {
 
         $svc->emit( 'greet' );
         is $My::Listener::LAST_CREATED->events_seen, 1;
+        is $My::Listener::LAST_CREATED->attribute, 'foo';
     };
 
     subtest '$extends' => sub {

diff --git a/t/lib/My/Listener.pm b/t/lib/My/Listener.pm
@@ -14,6 +14,10 @@ has events_seen => (
     default => sub { 0 },
 );
 
+has attribute => (
+    is => 'ro',
+);
+
 sub on_greet {
     my ( $self ) = @_;
     $self->events_seen( $self->events_seen + 1 );