Apply Hinrik's patch to increase test failure verbosity.

rcaputo · Aug 3, 2010 · 3f5fc1e · 3f5fc1e
1 parent 1d6d7b6
commit 3f5fc1e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/t/90_regression/rt56417-wheel-run.t b/t/90_regression/rt56417-wheel-run.t
@@ -72,9 +72,9 @@ sub _wheel_child {
   my $exitval = $_[ARG2];
 
   if ( $_[HEAP]->{type} eq 'real' ) {
-    ok( $exitval == 0, "Set proper exitval for '" . $_[HEAP]->{type} . "'" );
+    is( $exitval, 0, "Set proper exitval for '" . $_[HEAP]->{type} . "'" );
   } else {
-    ok( $exitval > 0, "Set proper exitval for '" . $_[HEAP]->{type} . "'" );
+    cmp_ok( $exitval, '>', 0, "Set proper exitval for '" . $_[HEAP]->{type} . "'" );
   }
 
 	$poe_kernel->sig_handled();