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 just the timestamp, not length.

Browse Source
This commit is contained in:
Micah Cowan 2008-05-31 12:56:12 -07:00
parent 0273ca4988
commit dafa700868
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/ChangeLog
View File

@ -1,6 +1,8 @@
2008-05-31 Micah Cowan <micah@cowan.name> 2008-05-31 Micah Cowan <micah@cowan.name>
* 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
content length in addition.
2008-05-23 Micah Cowan <micah@cowan.name> 2008-05-23 Micah Cowan <micah@cowan.name>

8
tests/Test-N-old.px
View File

@ -10,16 +10,14 @@ use HTTPTest;
my $oldversion = <<EOF; my $oldversion = <<EOF;
11111111111111111111111111111111111111111111111111 11111111111111111111111111111111111111111111111111
222222222222222222222222222222222222222222222222222222222222 222222222222222222222222222222222222222222222222222222222222
EOF
my $newversion = <<EOF;
11111111111111111111111111111111111111111111111111
222222222222222222222222222222222222222222222222222222222222
3333333333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333333333333333333333
444444444444444444444444444444444444444444444444444444444444 444444444444444444444444444444444444444444444444444444444444
55555555555555555555555555555555555555555555555555 55555555555555555555555555555555555555555555555555
EOF EOF
my $newversion = $oldversion;
$newversion =~ s/^(.{20}).(.*)$/$1x$2/s;
# code, msg, headers, content # code, msg, headers, content
my %urls = ( my %urls = (
'/somefile.txt' => { '/somefile.txt' => {