Also remove -d (--debug) from .px tests.

[wget] / tests / Test-iri.px

diff --git a/tests/Test-iri.px b/tests/Test-iri.px
index ca6feddfbedccb455fd031191f3257df8e50dfe1..defb6d300b7cb3847bb9f83c0349b8f275c6423b 100755 (executable)
--- a/tests/Test-iri.px
+++ b/tests/Test-iri.px
@@ -1,7 +1,9 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 use strict;
+use warnings;
 
+use WgetFeature qw(iri);
 use HTTPTest;
 
 # cf. http://en.wikipedia.org/wiki/Latin1
@@ -147,14 +149,9 @@ my %urls = (
     '/p2_%C3%A9%C3%A9n.html' => {      # UTF-8 encoded
         code => "200",
         msg => "Ok",
-        headers => {
-            "Content-type" => "text/html; charset=ISO-8859-1",
+        request_headers => {
+            "Referer" => qr|http://localhost:[0-9]+/p1_fran%E7ais.html|,
         },
-        content => $pageeen,
-    },
-    '/p2_%E9%E9n.html' => {
-        code => "200",
-        msg => "Ok",
         headers => {
             "Content-type" => "text/html; charset=ISO-8859-1",
         },
@@ -179,6 +176,9 @@ my %urls = (
     '/p4_m%C3%A9%C3%A9r.html' => {
         code => "200",
         msg => "Ok",
+        request_headers => {
+            "Referer" => qr|http://localhost:[0-9]+/p2_%C3%A9%C3%A9n.html|,
+        },
         headers => {
             "Content-type" => "text/plain; charset=UTF-8",
         },