More module-scoped warnings.

[wget] / tests / Test-iri.px
diff --git a/tests/Test-iri.px b/tests/Test-iri.px

index 3f4cf3fd4a5c2a1ab2e896854b4eb7e66af9f207..662019e794a3d63ddbe02967ae8c37ba041b93c8 100755 (executable)
--- a/tests/Test-iri.px
+++ b/tests/Test-iri.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
  
  use strict;
+use warnings;
  
  use HTTPTest;
  
@@ -25,7 +26,6 @@ my $eacute_l1 = "\xE9";
  my $eacute_u8 = "\xC3\xA9";
  my $eurosign_l15 = "\xA4";
  my $eurosign_u8 = "\xE2\x82\xAC";
-my $eurosign2_u8 = "\xE2%82\xAC";      # version wget use... sXXXav
  
  my $pageindex = <<EOF;
  <html>
@@ -187,7 +187,7 @@ my %urls = (
      },
  );
  
-my $cmdline = $WgetTest::WGETPATH . " --iri -nH -r http://localhost:{{port}}/";
+my $cmdline = $WgetTest::WGETPATH . " --iri --restrict-file-names=nocontrol -nH -r http://localhost:{{port}}/";
  
  my $expected_error_code = 0;
  
@@ -204,7 +204,7 @@ my %expected_downloaded_files = (
      "p2_${eacute_u8}${eacute_u8}n.html" => {
          content => $pageeen,
      },
-    "p3_${eurosign2_u8}${eurosign2_u8}${eurosign2_u8}.html" => {
+    "p3_${eurosign_u8}${eurosign_u8}${eurosign_u8}.html" => {
          content => $pageeuro,
      },
      "p4_m${eacute_u8}${eacute_u8}r.html" => {