1#!/usr/bin/env perl 2 3use strict; 4use warnings; 5 6use HTTPTest; 7 8 9############################################################################### 10 11my $existingfile = <<EOF; 12content should be preserved. 13EOF 14 15my $wholefile = "1234"; 16 17# code, msg, headers, content 18my %urls = ( 19 '/somefile.txt' => { 20 code => "206", 21 msg => "Dontcare", 22 headers => { 23 "Content-type" => "text/plain", 24 }, 25 content => $wholefile, 26 }, 27); 28 29my $cmdline = $WgetTest::WGETPATH . " --start-pos=1 --continue --debug http://localhost:{{port}}/somefile.txt"; 30 31my $expected_error_code = 0; 32 33my %existing_files = ( 34 'somefile.txt' => { 35 content => $existingfile, 36 }, 37); 38 39my %expected_downloaded_files = ( 40 'somefile.txt.1' => { 41 content => substr($wholefile, 1), 42 }, 43); 44 45############################################################################### 46 47my $the_test = HTTPTest->new (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