cvs commit: modperl-2.0/t/api status.t

[stas]

stas        2004/08/01 20:39:43

  Modified:    t/api    status.t
  Log:
  better use GET instead of HEAD
  
  Revision  Changes    Path
  1.2       +4 -4      modperl-2.0/t/api/status.t
  
  Index: status.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/api/status.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- status.t  2 Aug 2004 03:38:15 -0000       1.1
  +++ status.t  2 Aug 2004 03:39:42 -0000       1.2
  @@ -17,9 +17,9 @@
       # lookup the message "See Other" on its own
       my $code = 303; # Apache::HTTP_SEE_OTHER
       my $message = "See Other";
  -    my $res = HEAD "$location?$code=";
  +    my $res = GET "$location?$code=";
       ok t_cmp $res->code, $code, "code";
  -    ok t_cmp $res->message, $message, "message";
  +    ok t_cmp $res->message, $message, "code message";
       ok t_cmp $res->content, "", "content";
   }
   
  @@ -31,9 +31,9 @@
       # override status. the handler also sets a custom code message
       my $code = 499; # not in HTTP/1.1
       my $message = "FooBared";
  -    my $res = HEAD "$location?$code=$message";
  +    my $res = GET "$location?$code=$message";
       ok t_cmp $res->code, $code, "code";
  -    ok t_cmp $res->message, $message, "message";
  +    ok t_cmp $res->message, $message, "code message";
       ok t_cmp $res->content, "", "content";
   }