diff options
| -rwxr-xr-x | smoketestoo_native/data/scripts/Test_10er.xba | 50 |
1 files changed, 49 insertions, 1 deletions
diff --git a/smoketestoo_native/data/scripts/Test_10er.xba b/smoketestoo_native/data/scripts/Test_10er.xba index b26ee3387eee..af787af823e1 100755 --- a/smoketestoo_native/data/scripts/Test_10er.xba +++ b/smoketestoo_native/data/scripts/Test_10er.xba @@ -7,7 +7,7 @@ const sSDLogFileName = "sdlog.dat", sSMathLogFileName = "smalog.d const sSImDLogFileName = "simlog.dat", sSChartLogFileName = "schlog.dat" const sSHptLogFileName = "shptlog.dat", sSMessageLogFileName = "smeslog.dat" const sSDrawLogFileName = "sdrwlog.dat", sJavaLogFileName = "javalog.dat" -const sSDBLogFileName = "dblog.dat" +const sSDBLogFileName = "dblog.dat", sExtLogFileName = "extlog.dat" const sLogFileName = "log.dat" const cTempFileName = "ttt" @@ -121,6 +121,9 @@ Sub DeleteAllLogFiles() If FileExists (sWorkPath+sSDBLogFileName) then Kill (sWorkPath+sSDBLogFileName) End If + If FileExists (sWorkPath+sExtLogFileName) then + Kill (sWorkPath+sExtLogFileName) + End If end Sub Function OpenLogDat (sFileName as String) as Integer @@ -167,6 +170,8 @@ Function ConvertPathToWin (sTmpWorkPath as string) as string end Function Sub TestAllDocs() +DIM sDocURL as String, sDocPath as String +DIM nStrPos as Long sWorkPath = GetWorkPath sWorkPathURL = GetWorkURL @@ -174,6 +179,30 @@ Sub TestAllDocs() if GetSystem (sWorkPath) = "windows" then sWorkPath = ConvertPathToWin (sWorkPath) end if + + 'search ExtensionURL + sExtensionURL = sWorkPathURL + If not FileExists (sExtensionURL + cExtensionFileName) then + if bShowTable then + sDocURL = gOutPutDoc.URL + CompatibilityMode(true) + nStrPos = InStrRev (sDocURL, "/" ) + CompatibilityMode(false) + if nStrPos then + sDocURL = Left (sDocURL, nStrPos) + sExtensionURL = sDocURL + If not FileExists (sExtensionURL + cExtensionFileName) then + bMakeExtensionTest = false ' test is not possible then + end if + else + bMakeExtensionTest = false ' test is not possible then + end if + + else + bMakeExtensionTest = false ' test is not possible then + end if + + end if call DeleteAllSavedFiles() call DeleteAllLogFiles() @@ -206,6 +235,9 @@ Sub TestAllDocs() if bMakeDBTest then call Test_DB.TestDB (frmDataBase) end if + if bMakeExtensionTest then + call Test_Ext.TestExtensions (frmExtension) + end if Close #MainFileChannel end Sub @@ -240,6 +272,9 @@ Sub WriteTestSequence (FileChannel as integer) if bMakeDBTest then WriteDBTests ("Database : ", FileChannel) end if + if bMakeExtensionTest then + WriteExtensionTests ("Extension : ", FileChannel) + end if Print #FileChannel end Sub @@ -294,6 +329,17 @@ Sub WriteDBTests (sText as string, nFileChannel as integer) Print #nFileChannel, sWriteStr end Sub +Sub WriteExtensionTests (sText as string, nFileChannel as integer) + Dim sWriteStr as string + + sWriteStr = sText + sWriteStr = sWriteStr + "services" + sWriteStr = sWriteStr + ", install" + sWriteStr = sWriteStr + ", uninstall" + + Print #nFileChannel, sWriteStr +end Sub + Sub MakeDocTest (FilterType as Integer) Dim oDoc as Object Dim sFileNameXML$, sFileName50$, sFileName8$ @@ -608,6 +654,8 @@ Function GetLogFileName (DocType as Integer) as String GetLogFileName = sJavaLogFileName 'Java case frmDataBase GetLogFileName = sSDBLogFileName 'Database + case frmExtension + GetLogFileName = sExtLogFileName 'Extension case else GetLogFileName = "" end Select |