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 st...@apache.org on 2003/09/22 21:58:54 UTC
cvs commit: modperl-2.0/t/modperl sameinterp.t
stas 2003/09/22 12:58:54
Modified: t/modperl sameinterp.t
Log:
s/value/expected/ to make the test more read-able
Revision Changes Path
1.5 +8 -8 modperl-2.0/t/modperl/sameinterp.t
Index: sameinterp.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modperl/sameinterp.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -u -r1.4 -r1.5
--- sameinterp.t 22 Aug 2003 00:41:32 -0000 1.4
+++ sameinterp.t 22 Sep 2003 19:58:54 -0000 1.5
@@ -17,16 +17,16 @@
my $same_interp = Apache::TestRequest::same_interp_tie($url);
ok $same_interp;
- my $value = 1;
+ my $expected = 1;
my $skip = 0;
# test GET over the same same_interp
for (1..2) {
- $value++;
+ $expected++;
my $res = req($same_interp, \&GET, $url, foo => 'bar');
$skip++ unless defined $res;
skip_not_same_intrep(
$skip,
- $value,
+ $expected,
defined $res && $res->content,
"GET over the same interp"
);
@@ -38,16 +38,16 @@
my $same_interp = Apache::TestRequest::same_interp_tie($url);
ok $same_interp;
- my $value = 1;
+ my $expected = 1;
my $skip = 0;
for (1..2) {
- $value++;
+ $expected++;
my $content = join ' ', 'ok', $_ + 3;
my $res = req($same_interp, \&POST, $url, content => $content);
$skip++ unless defined $res;
skip_not_same_intrep(
$skip,
- $value,
+ $expected,
defined $res && $res->content,
"POST over the same interp"
);
@@ -59,10 +59,10 @@
my $same_interp = Apache::TestRequest::same_interp_tie($url);
ok $same_interp;
- my $value = 1;
+ my $expected = 1;
my $skip = 0;
for (1..2) {
- $value++;
+ $expected++;
my $res = req($same_interp, \&HEAD, $url);
$skip++ unless defined $res;
skip_not_same_intrep(