moparisthebest/wget
1
0
Fork 0
mirror of https://github.com/moparisthebest/wget synced 2024-07-03 16:38:41 -04:00
Code Issues Releases Wiki Activity

Test-N-smaller.px.

Browse Source
This commit is contained in:
Micah Cowan 2008-05-31 13:22:15 -07:00
parent dafa700868
commit f6acc70442
3 changed files with 69 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/ChangeLog
View File

@ -3,6 +3,8 @@
* Test-N-current.px: Ensure we catch failures. * Test-N-current.px: Ensure we catch failures.
* Test-N-old.px: Make it test only the timestamp, and not the * Test-N-old.px: Make it test only the timestamp, and not the
content length in addition. content length in addition.
* Test-N-smaller.px: added.
* run-px: Added Test-N-smaller.px.
2008-05-23 Micah Cowan <micah@cowan.name> 2008-05-23 Micah Cowan <micah@cowan.name>

66
tests/Test-N-smaller.px Executable file
View File

@ -0,0 +1,66 @@
#!/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-Length" => length $newversion,
"Last-Modified" => "Sat, 09 Oct 2004 08:30:00 GMT",
},
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,
timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT"
},
);
###############################################################################
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

2
tests/run-px
View File

@ -10,7 +10,6 @@ my @tests = (
'Test-proxied-https-auth.px', 'Test-proxied-https-auth.px',
'Test-N-HTTP-Content-Disposition.px', 'Test-N-HTTP-Content-Disposition.px',
'Test--spider.px', 'Test--spider.px',
'Test-c-full.px', 'Test-c-full.px',
'Test-c-partial.px', 'Test-c-partial.px',
'Test-c.px', 'Test-c.px',
@ -21,6 +20,7 @@ my @tests = (
'Test-HTTP-Content-Disposition-2.px', 'Test-HTTP-Content-Disposition-2.px',
'Test-HTTP-Content-Disposition.px', 'Test-HTTP-Content-Disposition.px',
'Test-N-current.px', 'Test-N-current.px',
'Test-N-smaller.px',
'Test-N--no-content-disposition.px', 'Test-N--no-content-disposition.px',
'Test-N--no-content-disposition-trivial.px', 'Test-N--no-content-disposition-trivial.px',
'Test--no-content-disposition.px', 'Test--no-content-disposition.px',