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