debuglevels: ensure the test closure log file is mentioned in the main log file as well

1 files changed, 13 insertions, 11 deletions

diff --git a/smoketestdoc/data/Test_10er.xml b/smoketestdoc/data/Test_10er.xml
index a6f46b01eb78..68d69d46991d 100755
--- a/smoketestdoc/data/Test_10er.xml
+++ b/smoketestdoc/data/Test_10er.xml
@@ -34,8 +34,8 @@ const sSChartLogFileName = "schlog.dat"
 const sSHptLogFileName = "shptlog.dat"
 const sSDrawLogFileName = "sdrwlog.dat", sJavaLogFileName = "javalog.dat"
 const sSDBLogFileName = "dblog.dat", sExtLogFileName = "extlog.dat"
-const sTestGlueLogFileName = "testgluelog.dat"
-const sLogFileName = "log.dat"
+const sTestGlueLogFileName = "testclosure.log"
+const sLogFileName = "smoketest.log"
 const cTempFileName = "ttt"
 
 const cMessageSaveOpen8Doc = "Save/Open open Documents (8.0)"
@@ -272,17 +272,19 @@ Sub WriteTestSequence
         WriteDBTests ("Database    : ", MainFileChannel)
     end if
     if bMakeExtensionTest then
-        WriteExtensionTests ("Extension    : ", MainFileChannel)
-    end if
+        WriteExtensionTests ("Extension   : ", MainFileChannel)
+  end if
 
-    Print #MainFileChannel
-end Sub
+  Print #MainFileChannel, "testclosure : setup, write_status"
 
-Sub WriteTests (sText as string, bTestAll as boolean, nFileChannel as integer)
-    Dim sWriteStr as string
+  Print #MainFileChannel
+  end Sub
 
-    sWriteStr = sText
-    sWriteStr = sWriteStr + "new"
+  Sub WriteTests (sText as string, bTestAll as boolean)
+  Dim sWriteStr as string
+
+  sWriteStr = sText
+  sWriteStr = sWriteStr + "new"
     if bTestAll then
     if bMakeSaveOpen8Test then
         sWriteStr = sWriteStr + ", save 8.0"
@@ -300,7 +302,7 @@ Sub WriteTests (sText as string, bTestAll as boolean, nFileChannel as integer)
 
     sWriteStr = sWriteStr + ", close"
 
-    Print #nFileChannel, sWriteStr
+    Print #MainFileChannel, sWriteStr
 end Sub
 
 Sub WriteDBTests (sText as string, nFileChannel as integer)