]> sjero.net Git - wget/blobdiff - tests/Test-np.px
NEWS: cite --start-pos
[wget] / tests / Test-np.px
index 28d13eeced2d7d69f58b7362583197d8996c8756..4afc27c6fdc75b1b051fe9e3d560f53a91694b82 100755 (executable)
@@ -1,6 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 
 use strict;
+use warnings;
 
 use HTTPTest;
 
@@ -54,7 +55,7 @@ my $fourthpage = <<EOF;
 <body>
   <p>
     This page is only linked by the higher level page. Therefore, it should not
-    be downloaded. 
+    be downloaded.
   </p>
 </body>
 </html>
@@ -68,7 +69,7 @@ my $higherlevelpage = <<EOF;
 <body>
   <p>
     This page is on a higher level in the URL path hierarchy. Therefore, it
-    should not be downloaded. Wget should not visit the following link to a 
+    should not be downloaded. Wget should not visit the following link to a
     <a href="http://localhost:{{port}}/firstlevel/fourthpage.html">fourth page</a>.
   </p>
 </body>
@@ -138,9 +139,9 @@ my %expected_downloaded_files = (
 ###############################################################################
 
 my $the_test = HTTPTest->new (name => "Test-np",
-                              input => \%urls, 
-                              cmdline => $cmdline, 
-                              errcode => $expected_error_code, 
+                              input => \%urls,
+                              cmdline => $cmdline,
+                              errcode => $expected_error_code,
                               output => \%expected_downloaded_files);
 exit $the_test->run();