made trigger.t more reliable

mojolicious · Aug 3, 2011 · 71d2c9d · 71d2c9d
1 parent 52d454f
commit 71d2c9d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 6 deletions.
diff --git a/Changes b/Changes
@@ -3,6 +3,7 @@ This file documents the revision history for Perl extension Mojolicious.
 1.70    2011-08-03 00:00:00
         - Added extended callback support to Mojo::IOLoop::Trigger.
         - Improved documentation.
+        - Improved tests.
 
 1.69    2011-08-03 00:00:00
         - Added EXPERIMENTAL module Mojo::IOLoop::Trigger.

diff --git a/t/mojo/trigger.t b/t/mojo/trigger.t
@@ -31,21 +31,21 @@ is_deeply \@results, [0, 0], 'right results';
 $t = Mojo::IOLoop::Trigger->new;
 my $done;
 $t->on(done => sub { shift; $done = [@_, 'works!'] });
-for my $i (0, 1) {
+for my $i (0, 0) {
   $t->begin;
   Mojo::IOLoop->timer($i => sub { $t->end($i) });
 }
 @results = $t->start;
-is_deeply $done, [0, 1, 'works!'], 'right results';
-is_deeply \@results, [0, 1], 'right results';
+is_deeply $done, [0, 0, 'works!'], 'right results';
+is_deeply \@results, [0, 0], 'right results';
 
 # Mojo::IOLoop
 $done = undef;
 $t = Mojo::IOLoop->trigger(sub { shift; $done = [@_, 'too!'] });
-for my $i (0, 1) {
+for my $i ('0.5', '0.5') {
   my $cb = $t->begin;
   Mojo::IOLoop->timer($i => sub { $t->$cb($i) });
 }
 @results = $t->start;
-is_deeply $done, [0, 1, 'too!'], 'right results';
-is_deeply \@results, [0, 1], 'right results';
+is_deeply $done, ['0.5', '0.5', 'too!'], 'right results';
+is_deeply \@results, ['0.5', '0.5'], 'right results';