diff options
| author | Yang Tse <yangsita@gmail.com> | 2009-05-12 19:18:54 +0000 |
|---|---|---|
| committer | Yang Tse <yangsita@gmail.com> | 2009-05-12 19:18:54 +0000 |
| commit | 86f043a66c0aee8ab152b5fc5e4ada0ca64052b2 (patch) | |
| tree | e975b6a6f9c69049d8c97f7796e9c9558afe24c8 | |
| parent | 80d2df7789c904783589a1fc01e3f1be2234741c (diff) | |
temporary debug trace for ftp server satrtup failure on testcase #100
| -rwxr-xr-x | tests/runtests.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/runtests.pl b/tests/runtests.pl index c7bdcb760..3cdadd6e9 100755 --- a/tests/runtests.pl +++ b/tests/runtests.pl @@ -231,6 +231,7 @@ my %doesntrun; # servers that don't work, identified by pidfile my $torture; my $tortnum; my $tortalloc; +my $testnumrequiringthis; # open and close each time to allow removal at any time sub logmsg { @@ -988,6 +989,7 @@ sub runftpserver { # it is NOT alive logmsg "RUN: failed to start the FTP$id$nameext server\n"; stopserver("$pid2"); + displaylogs($testnumrequiringthis) if($testnumrequiringthis == 100); $doesntrun{$pidfile} = 1; return (0,0); } @@ -998,6 +1000,7 @@ sub runftpserver { logmsg "RUN: FTP$id$nameext server failed verification\n"; # failed to talk to it properly. Kill the server and return failure stopserver("$ftppid $pid2"); + displaylogs($testnumrequiringthis) if($testnumrequiringthis == 100); $doesntrun{$pidfile} = 1; return (0,0); } @@ -1740,6 +1743,8 @@ sub singletest { my %feature; my $cmd; + $testnumrequiringthis = $testnum; + # load the test case file definition if(loadtest("${TESTDIR}/test${testnum}")) { if($verbose) { |