stas 02/04/05 10:44:39
Modified: ModPerl-Registry/t basic.t
Log:
- s/http_raw_get/GET_BODY/, the former doesn't exist anymore
Revision Changes Path
1.4 +5 -6 modperl-2.0/ModPerl-Registry/t/basic.t
Index: basic.t
===================================================================
RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/t/basic.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- basic.t 19 Oct 2001 07:32:31 -0000 1.3
+++ basic.t 5 Apr 2002 18:44:39 -0000 1.4
@@ -3,7 +3,8 @@
use Apache::Test;
use Apache::TestUtil;
-use Apache::TestRequest;
+use Apache::TestRequest qw(GET_BODY HEAD);
+
my %modules =
(registry => 'ModPerl::Registry',
@@ -16,15 +17,13 @@
plan tests => @aliases * 3;
-my $cfg = Apache::Test::config();
-
# very basic compilation/response test
for my $alias (@aliases) {
my $url = "/$alias/basic.pl";
ok t_cmp(
"ok",
- $cfg->http_raw_get($url),
+ GET_BODY($url),
"$modules{$alias} basic cgi test",
);
}
@@ -46,7 +45,7 @@
ok t_cmp(
"foo=bar",
- $cfg->http_raw_get($url),
+ GET_BODY($url),
"$modules{$alias} mod_cgi-like environment pre-set",
);
}
@@ -59,7 +58,7 @@
# ok t_cmp(
# "it works",
-# $cfg->http_raw_get($url),
+# GET_BODY($url),
# "$modules{$alias} mod_cgi-like environment pre-set",
# );
#}
