randyk 2004/07/09 12:09:55
Modified: t/modules cgi.t cgi2.t include_subreq.t proxy.t
Log:
swap args to t_cmp in t/modules tests to use new
($received, $expected, $comment) syntax.
Revision Changes Path
1.13 +5 -5 modperl-2.0/t/modules/cgi.t
Index: cgi.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgi.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- cgi.t 3 Jul 2004 18:45:46 -0000 1.12
+++ cgi.t 9 Jul 2004 19:09:55 -0000 1.13
@@ -25,19 +25,19 @@
my $url = "$location?PARAM=2";
$res = GET $url;
$str = $res->content;
- t_cmp("ok 2", $str, "GET $url");
+ t_cmp($str, "ok 2", "GET $url");
};
sok {
my $content = 'PARAM=%33';
$str = POST_BODY $location, content => $content;
- t_cmp("ok 3", $str, "POST $location\n$content");
+ t_cmp($str, "ok 3", "POST $location\n$content");
};
if (HAVE_LWP) {
sok {
$str = UPLOAD_BODY $location, content => 4;
- t_cmp("ok 4", $str, 'file upload');
+ t_cmp($str, "ok 4", 'file upload');
};
}
@@ -52,7 +52,7 @@
sok {
my $header = 'X-Perl-Module';
$res = GET $location;
- t_cmp($module,
- $res->header($header),
+ t_cmp($res->header($header),
+ $module,
"$header header");
};
1.3 +5 -5 modperl-2.0/t/modules/cgi2.t
Index: cgi2.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgi2.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- cgi2.t 3 Jul 2004 18:45:46 -0000 1.2
+++ cgi2.t 9 Jul 2004 19:09:55 -0000 1.3
@@ -25,19 +25,19 @@
my $url = "$location?PARAM=2";
$res = GET $url;
$str = $res->content;
- t_cmp("ok 2", $str, "GET $url");
+ t_cmp($str, "ok 2", "GET $url");
};
sok {
my $content = 'PARAM=%33';
$str = POST_BODY $location, content => $content;
- t_cmp("ok 3", $str, "POST $location\n$content");
+ t_cmp($str, "ok 3", "POST $location\n$content");
};
if (HAVE_LWP) {
sok {
$str = UPLOAD_BODY $location, content => 4;
- t_cmp("ok 4", $str, 'file upload');
+ t_cmp($str, "ok 4", 'file upload');
};
}
@@ -52,7 +52,7 @@
sok {
my $header = 'X-Perl-Module';
$res = GET $location;
- t_cmp($module,
- $res->header($header),
+ t_cmp($res->header($header),
+ $module,
"$header header");
};
1.2 +1 -1 modperl-2.0/t/modules/include_subreq.t
Index: include_subreq.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/include_subreq.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- include_subreq.t 22 Nov 2003 10:27:41 -0000 1.1
+++ include_subreq.t 9 Jul 2004 19:09:55 -0000 1.2
@@ -14,5 +14,5 @@
my $expected = "subreq is quite ok";
my $received = GET_BODY_ASSERT "$location/one";
-ok t_cmp($expected, $received, "handler => filter => handler");
+ok t_cmp($received, $expected, "handler => filter => handler");
1.3 +1 -1 modperl-2.0/t/modules/proxy.t
Index: proxy.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/proxy.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- proxy.t 28 Oct 2003 18:32:48 -0000 1.2
+++ proxy.t 9 Jul 2004 19:09:55 -0000 1.3
@@ -13,4 +13,4 @@
my $expected = "ok";
my $received = GET_BODY_ASSERT $location;
-ok t_cmp($expected, $received, "internally proxified request");
+ok t_cmp($received, $expected, "internally proxified request");
