You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2003/09/17 18:58:43 UTC
cvs commit: modperl-2.0/t/apache cookie2.t cookie.t
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);
}