1#!/usr/bin/env perl
2
3use strict;
4use warnings;
5
6use HTTPTest;
7
8
9###############################################################################
10
11my $currentversion = <<EOF;
1211111111111111111111111111111111111111111111111111
13222222222222222222222222222222222222222222222222222222222222
143333333333333333333333333333333333333333333333333333333333333333333333
15444444444444444444444444444444444444444444444444444444444444
1655555555555555555555555555555555555555555555555555
17EOF
18
19my $newversion = <<EOF;
2011111111111111111111111111111111111111111111111111
21222222222222222222222222222222222222222222222222222222222222
22EOF
23
24# code, msg, headers, content
25my %urls = (
26    '/somefile.txt' => {
27        code => "200",
28        msg => "Dontcare",
29        headers => {
30            "Content-type" => "text/plain",
31            "Content-Length" => length $newversion,
32            "Last-Modified" => "Sat, 09 Oct 2004 08:30:00 GMT",
33        },
34        content => $newversion,
35    },
36);
37
38my $cmdline = $WgetTest::WGETPATH . " -N http://localhost:{{port}}/somefile.txt";
39
40my $expected_error_code = 0;
41
42my %existing_files = (
43    'somefile.txt' => {
44        content => $currentversion,
45        timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT"
46    },
47);
48
49my %expected_downloaded_files = (
50    'somefile.txt' => {
51        content => $newversion,
52        timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT"
53    },
54);
55
56###############################################################################
57
58my $the_test = HTTPTest->new (input => \%urls,
59                              cmdline => $cmdline,
60                              errcode => $expected_error_code,
61                              existing => \%existing_files,
62                              output => \%expected_downloaded_files);
63exit $the_test->run();
64
65# vim: et ts=4 sw=4
66