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

[stas]

stas        2003/10/02 17:49:31

  Modified:    t/response/TestAPI uri.pm
  Log:
  use t_cmp so it's easier to debug visually
  
  Revision  Changes    Path
  1.12      +3 -1      modperl-2.0/t/response/TestAPI/uri.pm
  
  Index: uri.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/uri.pm,v
  retrieving revision 1.11
  retrieving revision 1.12
  diff -u -u -r1.11 -r1.12
  --- uri.pm    18 Apr 2003 06:18:58 -0000      1.11
  +++ uri.pm    3 Oct 2003 00:49:31 -0000       1.12
  @@ -41,7 +41,9 @@
       ok $up =~ m:^$location:;
   
       my $server = $r->construct_server;
  -    ok $server eq join ':', $r->get_server_name, $r->get_server_port;
  +    ok t_cmp($server,
  +             join(':', $r->get_server_name, $r->get_server_port),
  +             "construct_server/get_server_name/get_server_port");
   
       my $curl = $r->construct_url;
       my $parsed = APR::URI->parse($r->pool, $curl);