perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ran...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestPerl ithreads.pm
Date Fri, 09 Jul 2004 21:25:24 GMT
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;
  
  
  

Mime
View raw message