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 'somefile.txt' => { 37 content => $wholefile, 38 }, 39); 40 41my %expected_downloaded_files = ( 42 'somefile.txt' => { 43 content => $wholefile, 44 }, 45); 46 47############################################################################### 48 49my $the_test = HTTPTest->new (name => "Test-c-full", 50 input => \%urls, 51 cmdline => $cmdline, 52 errcode => $expected_error_code, 53 existing => \%existing_files, 54 output => \%expected_downloaded_files); 55exit $the_test->run(); 56 57# vim: et ts=4 sw=4 58 59