make sure one_tick semantics are tested

mojolicious · Mar 23, 2012 · 39ac334 · 39ac334
1 parent d328b04
commit 39ac334
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension Mojolicious.
 
+2.67  2012-03-24
+  - Improved tests.
+
 2.66  2012-03-23
   - Reformatted "Changes".
   - Improved Mojo::Reactor::Poll performance.

diff --git a/lib/Mojolicious.pm b/lib/Mojolicious.pm
@@ -33,7 +33,7 @@ has static   => sub { Mojolicious::Static->new };
 has types    => sub { Mojolicious::Types->new };
 
 our $CODENAME = 'Leaf Fluttering In Wind';
-our $VERSION  = '2.66';
+our $VERSION  = '2.67';
 
 # "These old doomsday devices are dangerously unstable.
 #  I'll rest easier not knowing where they are."

diff --git a/t/mojo/reactor_ev.t b/t/mojo/reactor_ev.t
@@ -8,7 +8,7 @@ use Test::More;
 plan skip_all => 'set TEST_EV to enable this test (developer only!)'
   unless $ENV{TEST_EV};
 plan skip_all => 'EV 4.0 required for this test!' unless eval 'use EV 4.0; 1';
-plan tests => 67;
+plan tests => 68;
 
 # "Oh well. At least we'll die doing what we love: inhaling molten rock."
 use IO::Socket::INET;
@@ -25,6 +25,11 @@ $reactor = Mojo::IOLoop->singleton->reactor;
 is ref $reactor, 'Mojo::Reactor::EV', 'right object';
 
 # Make sure it stops automatically when not watching for events
+Mojo::IOLoop->one_tick;
+my $triggered;
+Mojo::IOLoop->timer(0.25 => sub { $triggered++ });
+Mojo::IOLoop->one_tick;
+ok $triggered, 'reactor waited for one event';
 Mojo::IOLoop->start;
 
 # Listen

diff --git a/t/mojo/reactor_poll.t b/t/mojo/reactor_poll.t
@@ -6,7 +6,7 @@ BEGIN {
   $ENV{MOJO_REACTOR} = 'Mojo::Reactor::Poll';
 }
 
-use Test::More tests => 66;
+use Test::More tests => 67;
 
 # "I don't mind being called a liar when I'm lying, or about to lie,
 #  or just finished lying, but NOT WHEN I'M TELLING THE TRUTH."
@@ -24,6 +24,11 @@ $reactor = Mojo::IOLoop->singleton->reactor;
 is ref $reactor, 'Mojo::Reactor::Poll', 'right object';
 
 # Make sure it stops automatically when not watching for events
+Mojo::IOLoop->one_tick;
+my $triggered;
+Mojo::IOLoop->timer(0.25 => sub { $triggered++ });
+Mojo::IOLoop->one_tick;
+ok $triggered, 'reactor waited for one event';
 Mojo::IOLoop->start;
 
 # Listen