From 86f043a66c0aee8ab152b5fc5e4ada0ca64052b2 Mon Sep 17 00:00:00 2001
From: Yang Tse <yangsita@gmail.com>
Date: Tue, 12 May 2009 19:18:54 +0000
Subject: [PATCH] temporary debug trace for ftp server satrtup failure on
 testcase #100

---
 tests/runtests.pl | 5 +++++
 1 file changed, 5 insertions(+)

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) {