1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $dummyfile = <<EOF; 12<html> 13<head> 14 <title>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 '/dummy.html' => { 27 code => "200", 28 msg => "Dontcare", 29 headers => { 30 "Content-type" => "text/html", 31 }, 32 content => $dummyfile, 33 }, 34); 35 36my $cmdline = $WgetTest::WGETPATH . " --no-content-disposition http://localhost:{{port}}/dummy.html"; 37 38my $expected_error_code = 0; 39 40my %expected_downloaded_files = ( 41 'dummy.html' => { 42 content => $dummyfile, 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