1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $partiallydownloaded = <<EOF; 1211111111111111111111111111111111111111111111111111 1322222222x222222222222222222222222222222222222222222222222222 14EOF 15 16my $rest = <<EOF; 173333333333333333333333333333333333333333333333333333333333333333333333 18444444444444444444444444444444444444444444444444444444444444 1955555555555555555555555555555555555555555555555555 20EOF 21 22my $wholefile = <<EOF . $rest; 2311111111111111111111111111111111111111111111111111 24222222222222222222222222222222222222222222222222222222222222 25EOF 26 27my $downloadedfile = $partiallydownloaded . $rest; 28 29# code, msg, headers, content 30my %urls = ( 31 '/somefile.txt' => { 32 code => "200", 33 msg => "Dontcare", 34 headers => { 35 "Content-type" => "text/plain", 36 }, 37 content => $wholefile, 38 }, 39); 40 41my $cmdline = $WgetTest::WGETPATH . " -c http://localhost:{{port}}/somefile.txt"; 42 43my $expected_error_code = 0; 44 45my %existing_files = ( 46 'somefile.txt' => { 47 content => $partiallydownloaded, 48 }, 49); 50 51my %expected_downloaded_files = ( 52 'somefile.txt' => { 53 content => $downloadedfile, 54 }, 55); 56 57############################################################################### 58 59my $the_test = HTTPTest->new (input => \%urls, 60 cmdline => $cmdline, 61 errcode => $expected_error_code, 62 existing => \%existing_files, 63 output => \%expected_downloaded_files); 64exit $the_test->run(); 65 66# vim: et ts=4 sw=4 67