randyk 2004/07/09 14:25:24
Modified: t/response/TestPerl ithreads.pm
Log:
swap order of args to t_cmp in t/threads test to use new
($received, $expected, $comment) syntax.
Revision Changes Path
1.9 +3 -3 modperl-2.0/t/response/TestPerl/ithreads.pm
Index: ithreads.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestPerl/ithreads.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- ithreads.pm 22 Apr 2004 22:30:56 -0000 1.8
+++ ithreads.pm 9 Jul 2004 21:25:24 -0000 1.9
@@ -42,7 +42,7 @@
debug "2nd TID is $tid" if defined $tid;
return 2;
});
- ok t_cmp(2, $thr->join, "thread callback returned value");
+ ok t_cmp($thr->join, 2, "thread callback returned value");
}
{
@@ -59,8 +59,8 @@
$counter_priv += $counter_priv for 1..10;
$counter_shar += $counter_shar for 1..10;
$thr->join;
- ok t_cmp(2**20, $counter_shar, "shared counter");
- ok t_cmp(2**10, $counter_priv, "private counter");
+ ok t_cmp($counter_shar, 2**20, "shared counter");
+ ok t_cmp($counter_priv, 2**10, "private counter");
}
Apache::OK;
