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 19# The server should serve a slightly different content, but with the 20# same length, so we can test which version was downloaded. 21my $modifiedversion = $currentversion; 22$modifiedversion =~ s/^(.{20}).(.*)$/$1x$2/s; 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 "Last-Modified" => "Sat, 09 Oct 2004 08:30:00 GMT", 32 }, 33 content => $modifiedversion, 34 }, 35); 36 37my $cmdline = $WgetTest::WGETPATH . " -N http://localhost:{{port}}/somefile.txt"; 38 39my $expected_error_code = 0; 40 41my %existing_files = ( 42 'somefile.txt' => { 43 content => $currentversion, 44 timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT" 45 }, 46); 47 48my %expected_downloaded_files = ( 49 'somefile.txt' => { 50 content => $currentversion, 51 timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT" 52 }, 53); 54 55############################################################################### 56 57my $the_test = HTTPTest->new (input => \%urls, 58 cmdline => $cmdline, 59 errcode => $expected_error_code, 60 existing => \%existing_files, 61 output => \%expected_downloaded_files); 62exit $the_test->run(); 63 64# vim: et ts=4 sw=4 65