1#!/usr/bin/perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $wholefile = <<EOF; 1211111111111111111111111111111111111111111111111111 13222222222222222222222222222222222222222222222222222222222222 143333333333333333333333333333333333333333333333333333333333333333333333 15444444444444444444444444444444444444444444444444444444444444 1655555555555555555555555555555555555555555555555555 17EOF 18 19# code, msg, headers, content 20my %urls = ( 21 '/somefile.txt' => { 22 code => "200", 23 msg => "Dontcare", 24 headers => { 25 "Content-type" => "text/plain", 26 }, 27 content => $wholefile, 28 }, 29); 30 31my $cmdline = $WgetTest::WGETPATH . " -c http://localhost:{{port}}/somefile.txt"; 32 33my $expected_error_code = 0; 34 35my %existing_files = ( 36); 37 38my %expected_downloaded_files = ( 39 'somefile.txt' => { 40 content => $wholefile, 41 }, 42); 43 44############################################################################### 45 46my $the_test = HTTPTest->new (name => "Test-c", 47 input => \%urls, 48 cmdline => $cmdline, 49 errcode => $expected_error_code, 50 existing => \%existing_files, 51 output => \%expected_downloaded_files); 52exit $the_test->run(); 53 54# vim: et ts=4 sw=4 55 56