cvs commit: modperl-2.0/t/response/TestPerl api.pm

[stas]

stas        2003/10/18 12:27:24

  Modified:    t/response/TestPerl api.pm
  Log:
  verify that pid != ppid under threads
  
  Revision  Changes    Path
  1.2       +6 -2      modperl-2.0/t/response/TestPerl/api.pm
  
  Index: api.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestPerl/api.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- api.pm    16 Oct 2003 18:23:30 -0000      1.1
  +++ api.pm    18 Oct 2003 19:27:24 -0000      1.2
  @@ -14,7 +14,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 1;
  +    plan $r, tests => 2;
   
       {
           # 5.8.1 w/ ithreads has a bug where it caches ppid in PL_ppid,
  @@ -23,8 +23,12 @@
           # returning 1. A local workaround in the mod_perl source at
           # the child_init phase fixes the problem.
           my $ppid = getppid();
  -        t_debug "ppid $ppid (pid $$)";
  +        t_debug "ppid $ppid";
           ok $ppid > 1;
  +
  +        # verify that $pid != $ppid
  +        t_debug "pid $$";
  +        ok $ppid != $$;
       }
   
       Apache::OK;