cvs commit: modperl-2.0/t/apache cookie2.t cookie.t

[geoff]

geoff       2003/09/17 09:58:43

  Modified:    t/apache cookie2.t cookie.t
  Log:
  prepend initial slash to uri
  
  Revision  Changes    Path
  1.2       +2 -2      modperl-2.0/t/apache/cookie2.t
  
  Index: cookie2.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/cookie2.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- cookie2.t 23 Aug 2003 02:39:10 -0000      1.1
  +++ cookie2.t 17 Sep 2003 16:58:43 -0000      1.2
  @@ -8,13 +8,13 @@
   plan tests => 2;
   
   my $module = 'TestApache::cookie2';
  -my $location = Apache::TestRequest::module2path($module);
  +my $location = '/' . Apache::TestRequest::module2path($module);
   my $cookie = 'foo=bar';
   
   t_debug("Testing cookie in PerlResponseHandler");
   
   for (qw/header env/) {
  -    t_debug("-- testing cookie from $_");
  +    t_debug("-- testing cookie from $location$_");
       my $res = GET "$location?$_", Cookie => $cookie;
   
       ok t_cmp('bar', $res->content,
  
  
  
  1.3       +2 -1      modperl-2.0/t/apache/cookie.t
  
  Index: cookie.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/apache/cookie.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- cookie.t  12 Sep 2003 02:17:12 -0000      1.2
  +++ cookie.t  17 Sep 2003 16:58:43 -0000      1.3
  @@ -8,7 +8,7 @@
   plan tests => 2;
   
   my $module = 'TestApache::cookie';
  -my $location = Apache::TestRequest::module2path($module);
  +my $location = '/' . Apache::TestRequest::module2path($module);
   my $val = "bar";
   my $cookie = "key=$val";
   
  @@ -19,6 +19,7 @@
   );
   
   for (qw/header env/) {
  +    t_debug("-- testing cookie from $location?$_");
       my $received = GET_BODY_ASSERT "$location?$_", Cookie => $cookie;
       ok t_cmp($expected{$_}, $received);
   }