1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $mainpage = <<EOF; 12<html> 13<head> 14 <title>Some Page Title</title> 15</head> 16<body> 17 <p> 18 Some text... 19 </p> 20</body> 21</html> 22EOF 23 24# code, msg, headers, content 25my %urls = ( 26 '/SomePage.html' => { 27 code => "200", 28 msg => "Dontcare", 29 headers => { 30 "Content-type" => "text/html", 31 }, 32 content => $mainpage, 33 }, 34); 35 36my $cmdline = $WgetTest::WGETPATH . " --restrict-file-names=uppercase http://localhost:{{port}}/SomePage.html"; 37 38my $expected_error_code = 0; 39 40my %expected_downloaded_files = ( 41 'SOMEPAGE.HTML' => { 42 content => $mainpage, 43 }, 44); 45 46############################################################################### 47 48my $the_test = HTTPTest->new (input => \%urls, 49 cmdline => $cmdline, 50 errcode => $expected_error_code, 51 output => \%expected_downloaded_files); 52exit $the_test->run(); 53 54# vim: et ts=4 sw=4 55