1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $dummyfile = <<EOF; 12Don't care. 13EOF 14 15# code, msg, headers, content 16my %urls = ( 17 '/dummy.txt' => { 18 code => "200", 19 msg => "Dontcare", 20 headers => { 21 "Content-type" => "text/plain", 22 "Content-Disposition" => "attachment; filename=\"filename.txt\"", 23 }, 24 content => $dummyfile 25 }, 26); 27 28my $cmdline = $WgetTest::WGETPATH . " -O out --no-content-disposition http://localhost:{{port}}/dummy.txt"; 29 30my $expected_error_code = 0; 31 32my %expected_downloaded_files = ( 33 'out' => { 34 content => $dummyfile, 35 } 36); 37 38############################################################################### 39 40my $the_test = HTTPTest->new (input => \%urls, 41 cmdline => $cmdline, 42 errcode => $expected_error_code, 43 output => \%expected_downloaded_files); 44exit $the_test->run(); 45 46# vim: et ts=4 sw=4 47