1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $urls = <<EOF; 12http://localhost:{{port}}/site1.html 13http://localhost:{{port}}/site2.html 14EOF 15 16my $site1 = <<EOF; 17<html> 18 <head> 19 <title>Site 1</title> 20 </head> 21 <body> 22 <p>In orci diam, iaculis a hendrerit accumsan, mollis a nibh.</p> 23 </body> 24</html> 25EOF 26 27my $site2 = <<EOF; 28<html> 29 <head> 30 <title>Site 2</title> 31 </head> 32 <body> 33 <p>Sed vehicula ultrices orci a congue. Sed convallis semper urna.</p> 34 </body> 35</html> 36EOF 37 38# code, msg, headers, content 39my %urls = ( 40 '/urls.txt' => { 41 code => "200", 42 msg => "Ok", 43 headers => { 44 "Content-type" => "text/plain", 45 }, 46 content => $urls, 47 }, 48 '/site1.html' => { 49 code => "200", 50 msg => "Ok", 51 headers => { 52 "Content-type" => "text/html", 53 }, 54 content => $site1, 55 }, 56 '/site2.html' => { 57 code => "200", 58 msg => "Ok", 59 headers => { 60 "Content-type" => "text/html", 61 }, 62 content => $site2, 63 }, 64); 65 66my $cmdline = $WgetTest::WGETPATH . " -i http://localhost:{{port}}/urls.txt"; 67 68my $expected_error_code = 0; 69 70my %expected_downloaded_files = ( 71 'urls.txt' => { 72 content => $urls, 73 }, 74 'site1.html' => { 75 content => $site1, 76 }, 77 'site2.html' => { 78 content => $site2, 79 }, 80); 81 82############################################################################### 83 84my $the_test = HTTPTest->new (input => \%urls, 85 cmdline => $cmdline, 86 errcode => $expected_error_code, 87 output => \%expected_downloaded_files); 88exit $the_test->run(); 89 90# vim: et ts=4 sw=4 91