mirror of
https://github.com/moparisthebest/wget
synced 2024-07-03 16:38:41 -04:00
Test-N-no-info.px
This commit is contained in:
parent
f6acc70442
commit
e17633e99c
@ -4,7 +4,8 @@
|
||||
* Test-N-old.px: Make it test only the timestamp, and not the
|
||||
content length in addition.
|
||||
* Test-N-smaller.px: added.
|
||||
* run-px: Added Test-N-smaller.px.
|
||||
* Test-N-no-info.px: added.
|
||||
* run-px: Added Test-N-smaller.px, Test-N-no-info.px.
|
||||
|
||||
2008-05-23 Micah Cowan <micah@cowan.name>
|
||||
|
||||
|
63
tests/Test-N-no-info.px
Executable file
63
tests/Test-N-no-info.px
Executable file
@ -0,0 +1,63 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
use strict;
|
||||
|
||||
use HTTPTest;
|
||||
|
||||
|
||||
###############################################################################
|
||||
|
||||
my $currentversion = <<EOF;
|
||||
11111111111111111111111111111111111111111111111111
|
||||
222222222222222222222222222222222222222222222222222222222222
|
||||
3333333333333333333333333333333333333333333333333333333333333333333333
|
||||
444444444444444444444444444444444444444444444444444444444444
|
||||
55555555555555555555555555555555555555555555555555
|
||||
EOF
|
||||
|
||||
my $newversion = <<EOF;
|
||||
11111111111111111111111111111111111111111111111111
|
||||
222222222222222222222222222222222222222222222222222222222222
|
||||
EOF
|
||||
|
||||
# code, msg, headers, content
|
||||
my %urls = (
|
||||
'/somefile.txt' => {
|
||||
code => "200",
|
||||
msg => "Dontcare",
|
||||
headers => {
|
||||
"Content-type" => "text/plain",
|
||||
},
|
||||
content => $newversion,
|
||||
},
|
||||
);
|
||||
|
||||
my $cmdline = $WgetTest::WGETPATH . " -N http://localhost:8080/somefile.txt";
|
||||
|
||||
my $expected_error_code = 0;
|
||||
|
||||
my %existing_files = (
|
||||
'somefile.txt' => {
|
||||
content => $currentversion,
|
||||
timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT"
|
||||
},
|
||||
);
|
||||
|
||||
my %expected_downloaded_files = (
|
||||
'somefile.txt' => {
|
||||
content => $newversion,
|
||||
},
|
||||
);
|
||||
|
||||
###############################################################################
|
||||
|
||||
my $the_test = HTTPTest->new (name => "Test-N-current",
|
||||
input => \%urls,
|
||||
cmdline => $cmdline,
|
||||
errcode => $expected_error_code,
|
||||
existing => \%existing_files,
|
||||
output => \%expected_downloaded_files);
|
||||
exit $the_test->run();
|
||||
|
||||
# vim: et ts=4 sw=4
|
||||
|
@ -21,6 +21,7 @@ my @tests = (
|
||||
'Test-HTTP-Content-Disposition.px',
|
||||
'Test-N-current.px',
|
||||
'Test-N-smaller.px',
|
||||
'Test-N-no-info.px',
|
||||
'Test-N--no-content-disposition.px',
|
||||
'Test-N--no-content-disposition-trivial.px',
|
||||
'Test--no-content-disposition.px',
|
||||
|
Loading…
Reference in New Issue
Block a user