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

[svn] Minor fixes to test suite.

Browse Source
This commit is contained in:
mtortonesi 2006-12-27 01:00:12 -08:00
parent 3f51773542
commit 92b2323253
10 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/ChangeLog
View File

@ -1,3 +1,7 @@
2006-12-22 Mauro Tortonesi <mauro@ferrara.linux.it>
* HTTPTest.pm: Don't ignore initial '/' character in requested URLs.
2006-11-10 Mauro Tortonesi <mauro@ferrara.linux.it>
* Test-np.px: Added test for -np.

6
tests/HTTPServer.pm
View File

@ -32,9 +32,9 @@ sub run {
if ($url_path =~ m{/$}) { # append 'index.html'
$url_path .= 'index.html';
}
if ($url_path =~ m{^/}) { # remove trailing '/'
$url_path = substr ($url_path, 1);
}
#if ($url_path =~ m{^/}) { # remove trailing '/'
# $url_path = substr ($url_path, 1);
#}
if ($log) {
print STDERR "Method: ", $req->method, "\n";
print STDERR "Path: ", $url_path, "\n";

2
tests/Test-HTTP-Content-Disposition-1.px
View File

@ -64,7 +64,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test6",
my $the_test = HTTPTest->new (name => "Test-HTTP-Content-Disposition-1",
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

2
tests/Test-HTTP-Content-Disposition-2.px
View File

@ -64,7 +64,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test7",
my $the_test = HTTPTest->new (name => "Test-HTTP-Content-Disposition-2",
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

2
tests/Test-HTTP-Content-Disposition.px
View File

@ -45,7 +45,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test5",
my $the_test = HTTPTest->new (name => "Test-HTTP-Content-Disposition",
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

2
tests/Test-O-nonexisting.px
View File

@ -35,7 +35,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test4",
my $the_test = HTTPTest->new (name => "Test-O-nonexisting",
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

2
tests/Test-Restrict-Lowercase.px
View File

@ -44,7 +44,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test9",
my $the_test = HTTPTest->new (name => "Test-Restrict-Lowercase",
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

2
tests/Test-Restrict-Uppercase.px
View File

@ -44,7 +44,7 @@ my %expected_downloaded_files = (
###############################################################################
my $the_test = HTTPTest->new (name => "Test9",
my $the_test = HTTPTest->new (name => "Test-Restrict-Uppercase",
input => \%urls,
cmdline => $cmdline,
errcode => $expected_error_code,

10
tests/Test-np.px
View File

@ -77,7 +77,7 @@ EOF
# code, msg, headers, content
my %urls = (
'firstlevel/index.html' => {
'/firstlevel/index.html' => {
code => "200",
msg => "Dontcare",
headers => {
@ -85,7 +85,7 @@ my %urls = (
},
content => $mainpage,
},
'firstlevel/secondpage.html' => {
'/firstlevel/secondpage.html' => {
code => "200",
msg => "Dontcare",
headers => {
@ -93,7 +93,7 @@ my %urls = (
},
content => $secondpage,
},
'firstlevel/lowerlevel/thirdpage.html' => {
'/firstlevel/lowerlevel/thirdpage.html' => {
code => "200",
msg => "Dontcare",
headers => {
@ -101,7 +101,7 @@ my %urls = (
},
content => $thirdpage,
},
'firstlevel/fourthpage.html' => {
'/firstlevel/fourthpage.html' => {
code => "200",
msg => "Dontcare",
headers => {
@ -109,7 +109,7 @@ my %urls = (
},
content => $fourthpage,
},
'higherlevelpage.html' => {
'/higherlevelpage.html' => {
code => "200",
msg => "Dontcare",
headers => {

18
tests/Test.pm
View File

@ -21,16 +21,16 @@ my @unexpected_downloads = ();
_output => {},
);
sub _default_for
{
my ($self, $attr) = @_;
$_attr_data{$attr};
}
sub _default_for
{
my ($self, $attr) = @_;
$_attr_data{$attr};
}
sub _standard_keys
{
keys %_attr_data;
}
sub _standard_keys
{
keys %_attr_data;
}
}