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

[dougm]

dougm       02/05/10 10:01:48

  Modified:    t/response/TestAPI uri.pm
  Log:
  add test for $r->construct_server
  
  Revision  Changes    Path
  1.7       +4 -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.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- uri.pm    10 May 2002 16:49:10 -0000      1.6
  +++ uri.pm    10 May 2002 17:01:48 -0000      1.7
  @@ -17,7 +17,7 @@
   sub handler {
       my $r = shift;
   
  -    plan $r, tests => 13;
  +    plan $r, tests => 14;
   
       $r->args('query');
   
  @@ -29,6 +29,9 @@
   
       my $up = $uri->unparse;
       ok $up =~ m:^$location:;
  +
  +    my $server = $r->construct_server;
  +    ok $server eq join ':', $r->get_server_name, $r->get_server_port;
   
       my $curl = $r->construct_url;
       my $parsed = APR::URI->parse($r, $curl);