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] Test.pm: Added support for pre-existing files.

Browse Source
This commit is contained in:
mtortonesi 2006-04-27 06:27:17 -07:00
parent 2e4bc07697
commit ad445da01c
2 changed files with 27 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/ChangeLog
View File

@ -2,6 +2,8 @@
* HTTPServer.pm: Serve index.html if no filename is given. * HTTPServer.pm: Serve index.html if no filename is given.
* Test.pm: Added support for pre-existing files.
2006-01-24 Mauro Tortonesi <mauro@ferrara.linux.it> 2006-01-24 Mauro Tortonesi <mauro@ferrara.linux.it>
* HTTPServer.pm: Enhanced logging support. * HTTPServer.pm: Enhanced logging support.

37
tests/Test.pm
View File

@ -13,8 +13,9 @@ my @unexpected_downloads = ();
{ {
my %_attr_data = ( # DEFAULT my %_attr_data = ( # DEFAULT
_cmdline => "", _cmdline => "",
_cwd => Cwd::getcwd(), _workdir => Cwd::getcwd(),
_errcode => 0, _errcode => 0,
_existing => {},
_input => {}, _input => {},
_name => "", _name => "",
_output => {}, _output => {},
@ -38,7 +39,7 @@ sub new {
my $caller_is_obj = ref($caller); my $caller_is_obj = ref($caller);
my $class = $caller_is_obj || $caller; my $class = $caller_is_obj || $caller;
#print STDERR "class = ", $class, "\n"; #print STDERR "class = ", $class, "\n";
#print STDERR "_attr_data {cwd} = ", $Test::_attr_data{_cwd}, "\n"; #print STDERR "_attr_data {workdir} = ", $Test::_attr_data{_workdir}, "\n";
my $self = bless {}, $class; my $self = bless {}, $class;
foreach my $attrname ($self->_standard_keys()) { foreach my $attrname ($self->_standard_keys()) {
#print STDERR "attrname = ", $attrname, " value = "; #print STDERR "attrname = ", $attrname, " value = ";
@ -55,7 +56,7 @@ sub new {
} }
#print STDERR $attrname, '=', $self->{$attrname}, "\n"; #print STDERR $attrname, '=', $self->{$attrname}, "\n";
} }
#printf STDERR "_cwd default = ", $self->_default_for("_cwd"); #printf STDERR "_workdir default = ", $self->_default_for("_workdir");
return $self; return $self;
} }
@ -68,7 +69,7 @@ sub run {
# Setup # Setup
$self->_setup(); $self->_setup();
chdir ("$self->{_cwd}/$self->{_name}/input"); chdir ("$self->{_workdir}/$self->{_name}/input");
# Launch server # Launch server
my $pid = fork(); my $pid = fork();
@ -78,9 +79,9 @@ sub run {
# print STDERR "Spawned server with pid: $pid\n"; # print STDERR "Spawned server with pid: $pid\n";
# Call wget # Call wget
chdir ("$self->{_cwd}/$self->{_name}/output"); chdir ("$self->{_workdir}/$self->{_name}/output");
# print "Calling $self->{_cmdline}\n"; # print "Calling $self->{_cmdline}\n";
my $errcode = system ("$self->{_cwd}/../src/$self->{_cmdline}"); my $errcode = system ("$self->{_workdir}/../src/$self->{_cmdline}");
# Shutdown server # Shutdown server
kill ('TERM', $pid); kill ('TERM', $pid);
@ -105,25 +106,37 @@ sub _setup {
my $self = shift; my $self = shift;
#print $self->{_name}, "\n"; #print $self->{_name}, "\n";
chdir ($self->{_cwd}); chdir ($self->{_workdir});
# Create temporary directory # Create temporary directory
mkdir ($self->{_name}); mkdir ($self->{_name});
chdir ($self->{_name}); chdir ($self->{_name});
mkdir ("input"); mkdir ("input");
mkdir ("output"); mkdir ("output");
chdir ("input");
# Setup existing files
chdir ("output");
foreach my $filename (keys %{$self->{_existing}}) {
open (FILE, ">$filename")
or return "Test failed: cannot open pre-existing file $filename\n";
print FILE $self->{_existing}->{$filename}->{content}
or return "Test failed: cannot write pre-existing file $filename\n";
close (FILE);
}
chdir ("input");
$self->_setup_server(); $self->_setup_server();
chdir ($self->{_cwd}); chdir ($self->{_workdir});
} }
sub _cleanup { sub _cleanup {
my $self = shift; my $self = shift;
chdir ($self->{_cwd}); chdir ($self->{_workdir});
File::Path::rmtree ($self->{_name}); File::Path::rmtree ($self->{_name});
} }
@ -131,7 +144,7 @@ sub _cleanup {
sub _verify_download { sub _verify_download {
my $self = shift; my $self = shift;
chdir ("$self->{_cwd}/$self->{_name}/output"); chdir ("$self->{_workdir}/$self->{_name}/output");
# use slurp mode to read file content # use slurp mode to read file content
my $old_input_record_separator = $/; my $old_input_record_separator = $/;
@ -159,7 +172,7 @@ sub _verify_download {
$/ = $old_input_record_separator; $/ = $old_input_record_separator;
# make sure no unexpected files were downloaded # make sure no unexpected files were downloaded
chdir ("$self->{_cwd}/$self->{_name}/output"); chdir ("$self->{_workdir}/$self->{_name}/output");
__dir_walk('.', sub { push @unexpected_downloads, $_[0] unless (exists $self->{_output}{$_[0]}) }, sub { shift; return @_ } ); __dir_walk('.', sub { push @unexpected_downloads, $_[0] unless (exists $self->{_output}{$_[0]}) }, sub { shift; return @_ } );
if (@unexpected_downloads) { if (@unexpected_downloads) {