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