From 244f6d722e559c43575ed6e5c1a9c8dbc1814f59 Mon Sep 17 00:00:00 2001
From: short <>
Date: Wed, 21 Sep 2005 12:51:08 +0000
Subject: [PATCH] Support downloads-only non-validating tests. Support
 non-empty URL-specific 'QUERY_STRING' specifications. Run the test in two
 passes to test the caching for: --validate Run the tests in simple-download
 LWP mode to be able to test redirects.

---
 HaveJS.pm   | 8 ++++++--
 Redirect.pm | 4 +++-
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/HaveJS.pm b/HaveJS.pm
index 36229e0..a1ac2fa 100644
--- a/HaveJS.pm
+++ b/HaveJS.pm
@@ -26,15 +26,19 @@ use warnings;
 use My::Web;
 
 
-our $HTML_TEST=0;
+our $HTML_TEST="download";
 
 sub handler
 {
 my $W=My::Web->init(
 		"header_only"=>1,
+		# Do not: text/javascript
+		# as it does not look as registered, at least according to: MIME::Types $VERSION 1.15
+		# "application/javascript" so far standardized till 2005-12-08 by:
+		# 	http://www.ietf.org/internet-drafts/draft-hoehrmann-script-types-03.txt
+		"content_type"=>"application/javascript",
 		);
 My::Web->heading();
-$W->{"r"}->content_type("text/javascript");
 
 
 # Prevent redirection of some top (referring) foreign webpage as it
diff --git a/Redirect.pm b/Redirect.pm
index bff6fb9..871f65f 100644
--- a/Redirect.pm
+++ b/Redirect.pm
@@ -27,7 +27,9 @@ use My::Web;
 use Apache2::Const qw(HTTP_MOVED_PERMANENTLY);
 
 
-our $HTML_TEST=0;
+our $HTML_TEST="download";
+our $HTML_TEST_RC=HTTP_MOVED_PERMANENTLY;
+our $HTML_TEST_QUERY_STRING="location=http://localhost/";
 
 sub handler
 {
-- 
1.8.3.1