Fix build when libpsl is not available

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

index 86e2dcf62524986e142626d6e34ea99be989378d..99df5b49bf546a2412ec6471cb023fcd6adab2e2 100755 (executable)
--- a/tests/Test-E-k.px
+++ b/tests/Test-E-k.px
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
  
  use strict;
+use warnings;
  
  use HTTPTest;
  
@@ -13,7 +14,7 @@ my $mainpage = <<EOF;
    <title>Main Page Title</title>
  </head>
  <body>
-  <a href="http://localhost:8080/subpage.php">Secondary Page</a>
+  <a href="http://localhost:{{port}}/subpage.php">Secondary Page</a>
  </body>
  </html>
  EOF
@@ -60,7 +61,7 @@ my %urls = (
      },
  );
  
-my $cmdline = "wget -r -nd -E -k http://localhost:8080/index.php";
+my $cmdline = $WgetTest::WGETPATH . " -r -nd -E -k http://localhost:{{port}}/index.php";
  
  my $expected_error_code = 0;
  
@@ -76,11 +77,11 @@ my %expected_downloaded_files = (
  ###############################################################################
  
  my $the_test = HTTPTest->new (name => "Test-E-k",
-                              input => \%urls, 
-                              cmdline => $cmdline, 
-                              errcode => $expected_error_code, 
+                              input => \%urls,
+                              cmdline => $cmdline,
+                              errcode => $expected_error_code,
                                output => \%expected_downloaded_files);
-$the_test->run();
+exit $the_test->run();
  
  # vim: et ts=4 sw=4