stas 2003/03/31 20:22:55
Modified: ModPerl-Registry/t 404.t Log: revert the temp change to normal Revision Changes Path 1.4 +9 -13 modperl-2.0/ModPerl-Registry/t/404.t Index: 404.t =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/404.t,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- 404.t 1 Apr 2003 04:18:49 -0000 1.3 +++ 404.t 1 Apr 2003 04:22:55 -0000 1.4 @@ -8,18 +8,14 @@ plan tests => 2; { - t_client_log_error_is_expected(); - my $url = "/error/cannot_be_found"; - my $res = GET($url); - ok t_cmp(404, $res->code, "test 404"); -# t_client_log_error_is_expected(); -# my $url = "/error_document/cannot_be_found"; -# my $response = "Oops, can't find the requested doc"; -# ok t_cmp( -# $response, -# GET_BODY($url), -# "test ErrorDocument" -# ); + t_client_log_error_is_expected(); + my $url = "/error_document/cannot_be_found"; + my $response = "Oops, can't find the requested doc"; + ok t_cmp( + $response, + GET_BODY($url), + "test ErrorDocument" + ); } @@ -30,5 +26,5 @@ 404, $res->code, "the script has changed the status to 404" - ); + ); }