mirror of
https://github.com/moparisthebest/wget
synced 2024-07-03 16:38:41 -04:00
[svn] Minor fixes/updates for the testing suite.
This commit is contained in:
parent
19f0a05e91
commit
ae6b79c855
@ -1,3 +1,18 @@
|
|||||||
|
2007-08-21 Mauro Tortonesi <mauro@ferrara.linux.it>
|
||||||
|
|
||||||
|
* WgetTest.pm.in: Added support for timestamping of pre-existing
|
||||||
|
files.
|
||||||
|
|
||||||
|
* Test-N-current.px: Fixed broken test logic.
|
||||||
|
|
||||||
|
* Makefile.in: Updated list of automatically run tests.
|
||||||
|
|
||||||
|
* Test-HTTP-Content-Disposition.px: Added -e contentdisposition=on
|
||||||
|
option, since now HTTP Content-Disposition header support is turned
|
||||||
|
off by default.
|
||||||
|
|
||||||
|
* Test-HTTP-Content-Disposition-1.px: Ditto.
|
||||||
|
|
||||||
2007-07-25 Micah Cowan <micah@cowan.name>
|
2007-07-25 Micah Cowan <micah@cowan.name>
|
||||||
|
|
||||||
* HTTPServer.pm (run, send_response): Farmed out some logic from
|
* HTTPServer.pm (run, send_response): Farmed out some logic from
|
||||||
|
@ -85,28 +85,29 @@ run-unit-tests: unit-tests$(exeext)
|
|||||||
./unit-tests$(exeext)
|
./unit-tests$(exeext)
|
||||||
|
|
||||||
run-px-tests: WgetTest.pm
|
run-px-tests: WgetTest.pm
|
||||||
|
./Test-auth-basic.px && echo && echo
|
||||||
./Test-c-full.px && echo && echo
|
./Test-c-full.px && echo && echo
|
||||||
./Test-c-partial.px && echo && echo
|
./Test-c-partial.px && echo && echo
|
||||||
./Test-c.px && echo && echo
|
./Test-c.px && echo && echo
|
||||||
# ./Test-E-k-K.px && echo && echo
|
./Test-E-k-K.px && echo && echo
|
||||||
# ./Test-E-k.px && echo && echo
|
./Test-E-k.px && echo && echo
|
||||||
./Test-ftp.px && echo && echo
|
./Test-ftp.px && echo && echo
|
||||||
# ./Test-HTTP-Content-Disposition.px && echo && echo
|
./Test-HTTP-Content-Disposition-1.px && echo && echo
|
||||||
# ./Test-HTTP-Content-Disposition-1.px && echo && echo
|
./Test-HTTP-Content-Disposition-2.px && echo && echo
|
||||||
# ./Test-HTTP-Content-Disposition-2.px && echo && echo
|
./Test-HTTP-Content-Disposition.px && echo && echo
|
||||||
./Test-N-current.px && echo && echo
|
./Test-N-current.px && echo && echo
|
||||||
# ./Test-nonexisting-quiet.px && echo && echo
|
./Test-N-old.px && echo && echo
|
||||||
# ./Test-noop.px && echo && echo
|
./Test-nonexisting-quiet.px && echo && echo
|
||||||
# ./Test-np.px && echo && echo
|
./Test-noop.px && echo && echo
|
||||||
# ./Test-N.px && echo && echo
|
./Test-np.px && echo && echo
|
||||||
|
./Test-N.px && echo && echo
|
||||||
./Test-O-nonexisting.px && echo && echo
|
./Test-O-nonexisting.px && echo && echo
|
||||||
./Test-O.px && echo && echo
|
./Test-O.px && echo && echo
|
||||||
# ./Test-Restrict-Lowercase.px && echo && echo
|
./Test-Restrict-Lowercase.px && echo && echo
|
||||||
# ./Test-Restrict-Uppercase.px && echo && echo
|
./Test-Restrict-Uppercase.px && echo && echo
|
||||||
./Test--spider-fail.px && echo && echo
|
./Test--spider-fail.px && echo && echo
|
||||||
./Test--spider.px && echo && echo
|
./Test--spider.px && echo && echo
|
||||||
./Test--spider-r.px && echo && echo
|
./Test--spider-r.px && echo && echo
|
||||||
./Test-auth-basic.px && echo && echo
|
|
||||||
|
|
||||||
WgetTest.pm: WgetTest.pm.in @top_srcdir@/config.status
|
WgetTest.pm: WgetTest.pm.in @top_srcdir@/config.status
|
||||||
cd @top_srcdir@ && ./config.status
|
cd @top_srcdir@ && ./config.status
|
||||||
|
@ -37,7 +37,7 @@ my %urls = (
|
|||||||
},
|
},
|
||||||
);
|
);
|
||||||
|
|
||||||
my $cmdline = $WgetTest::WGETPATH . " http://localhost:8080/dummy.html";
|
my $cmdline = $WgetTest::WGETPATH . " -e contentdisposition=on http://localhost:8080/dummy.html";
|
||||||
|
|
||||||
my $expected_error_code = 0;
|
my $expected_error_code = 0;
|
||||||
|
|
||||||
|
@ -33,7 +33,7 @@ my %urls = (
|
|||||||
},
|
},
|
||||||
);
|
);
|
||||||
|
|
||||||
my $cmdline = $WgetTest::WGETPATH . " http://localhost:8080/dummy.html";
|
my $cmdline = $WgetTest::WGETPATH . " -e contentdisposition=on http://localhost:8080/dummy.html";
|
||||||
|
|
||||||
my $expected_error_code = 0;
|
my $expected_error_code = 0;
|
||||||
|
|
||||||
|
@ -7,7 +7,7 @@ use HTTPTest;
|
|||||||
|
|
||||||
###############################################################################
|
###############################################################################
|
||||||
|
|
||||||
my $wholefile = <<EOF;
|
my $currentversion = <<EOF;
|
||||||
11111111111111111111111111111111111111111111111111
|
11111111111111111111111111111111111111111111111111
|
||||||
222222222222222222222222222222222222222222222222222222222222
|
222222222222222222222222222222222222222222222222222222222222
|
||||||
3333333333333333333333333333333333333333333333333333333333333333333333
|
3333333333333333333333333333333333333333333333333333333333333333333333
|
||||||
@ -22,24 +22,27 @@ my %urls = (
|
|||||||
msg => "Dontcare",
|
msg => "Dontcare",
|
||||||
headers => {
|
headers => {
|
||||||
"Content-type" => "text/plain",
|
"Content-type" => "text/plain",
|
||||||
|
"Last-Modified" => "Sat, 09 Oct 2004 08:30:00 GMT",
|
||||||
},
|
},
|
||||||
content => $wholefile,
|
content => $currentversion,
|
||||||
},
|
},
|
||||||
);
|
);
|
||||||
|
|
||||||
my $cmdline = $WgetTest::WGETPATH . " -c http://localhost:8080/somefile.txt";
|
my $cmdline = $WgetTest::WGETPATH . " -N http://localhost:8080/somefile.txt";
|
||||||
|
|
||||||
my $expected_error_code = 0;
|
my $expected_error_code = 0;
|
||||||
|
|
||||||
my %existing_files = (
|
my %existing_files = (
|
||||||
'somefile.txt' => {
|
'somefile.txt' => {
|
||||||
content => $wholefile,
|
content => $currentversion,
|
||||||
|
timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT"
|
||||||
},
|
},
|
||||||
);
|
);
|
||||||
|
|
||||||
my %expected_downloaded_files = (
|
my %expected_downloaded_files = (
|
||||||
'somefile.txt' => {
|
'somefile.txt' => {
|
||||||
content => $wholefile,
|
content => $currentversion,
|
||||||
|
timestamp => 1097310600, # "Sat, 09 Oct 2004 08:30:00 GMT"
|
||||||
},
|
},
|
||||||
);
|
);
|
||||||
|
|
||||||
|
@ -125,10 +125,16 @@ sub _setup {
|
|||||||
open (FILE, ">$filename")
|
open (FILE, ">$filename")
|
||||||
or return "Test failed: cannot open pre-existing file $filename\n";
|
or return "Test failed: cannot open pre-existing file $filename\n";
|
||||||
|
|
||||||
print FILE $self->{_existing}->{$filename}->{content}
|
my $file = $self->{_existing}->{$filename};
|
||||||
|
print FILE $file->{content}
|
||||||
or return "Test failed: cannot write pre-existing file $filename\n";
|
or return "Test failed: cannot write pre-existing file $filename\n";
|
||||||
|
|
||||||
close (FILE);
|
close (FILE);
|
||||||
|
|
||||||
|
if (exists($file->{timestamp})) {
|
||||||
|
utime $file->{timestamp}, $file->{timestamp}, $filename
|
||||||
|
or return "Test failed: cannot set timestamp on pre-existing file $filename\n";
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
chdir ("../input");
|
chdir ("../input");
|
||||||
|
Loading…
Reference in New Issue
Block a user