Permalink
Browse files

add 'working' before test

  • Loading branch information...
1 parent f637aad commit f48ce3da72b78531710ae1c61052fd09ed37f5b4 @apocalypse apocalypse committed May 11, 2011
Showing with 36 additions and 0 deletions.
  1. +36 −0 t/04_with_before_fixed.t
View
@@ -0,0 +1,36 @@
+use strict; use warnings;
+
+use Test::More tests => 3;
+
+{
+
+ package Rollo;
+ use MooseX::POE::Role;
+
+ before foo => sub {
+ ::pass('before foo');
+ };
+}
+
+{
+
+ package App;
+ use MooseX::POE;
+
+ sub START {
+ ::pass('START');
+ $_[KERNEL]->yield('foo');
+ }
+
+ event foo => sub {
+ ::pass('foo');
+ print "BAR\n";
+ };
+
+ # notice how it passes if we place it here
+ # while in 04_with_before.t it fails... :(
+ with 'Rollo';
+}
+
+App->new;
+POE::Kernel->run;

0 comments on commit f48ce3d

Please sign in to comment.