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);