cvs commit: modperl-2.0/t/response/TestAPI server_util.pm

[stas]

stas        2004/07/03 14:18:27

  Modified:    t/response/TestAPI server_util.pm
  Log:
  test $s->get_handlers
  
  Revision  Changes    Path
  1.17      +11 -2     modperl-2.0/t/response/TestAPI/server_util.pm
  
  Index: server_util.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_util.pm,v
  retrieving revision 1.16
  retrieving revision 1.17
  diff -u -u -r1.16 -r1.17
  --- server_util.pm    3 Jul 2004 18:45:46 -0000       1.16
  +++ server_util.pm    3 Jul 2004 21:18:27 -0000       1.17
  @@ -50,9 +50,18 @@
          400 => '400 Bad Request',
          500 => '500 Internal Server Error',
       );
  +
       plan $r, tests => (scalar keys %pools) +
  -                      (scalar keys %objects) + 
  -                      (scalar keys %status_lines) + 11;
  +                      (scalar keys %objects) +
  +                      (scalar keys %status_lines) + 12;
  +
  +    {
  +        my $s = $r->server;
  +        my @expected = qw(ModPerl::Test::exit_handler);
  +        my @handlers =
  +            @{ $s->get_handlers('PerlChildExitHandler') || []};
  +        ok t_cmp(scalar(@handlers), scalar(@expected), "get_handlers");
  +    }
   
       # syntax - an object or pool is required
       t_debug("Apache::server_root_relative() died");