X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FWgetTest.pm.in;h=c4c0d4d94dad44ccf3d4756fd5da59faeb397c93;hp=2e124e3c6d96a4c159d2b2414482136418d03376;hb=edc9055768fed952b30629a9e8fa38ef68761882;hpb=d8c11a82ca9e8fab6689b53dc12199da4cc6058d

diff --git a/tests/WgetTest.pm.in b/tests/WgetTest.pm.in
index 2e124e3c..c4c0d4d9 100644
--- a/tests/WgetTest.pm.in
+++ b/tests/WgetTest.pm.in
@@ -88,6 +88,7 @@ sub run {
         ($cmdline =~ m{^/.*})
             ? system ($cmdline)
             : system ("$self->{_workdir}/../src/$cmdline");
+    $errcode >>= 8; # XXX: should handle abnormal error codes.
 
     # Shutdown server
     # if we didn't explicitely kill the server, we would have to call
@@ -153,7 +154,7 @@ sub _cleanup {
     my $self = shift;
 
     chdir ($self->{_workdir});
-    File::Path::rmtree ($self->{_name});
+    File::Path::rmtree ($self->{_name}) unless $ENV{WGET_TEST_NO_CLEANUP};
 }