INTEGRATION: CWS smoketest11 (1.3.26); FILE MERGED

2006/11/27 16:06:03 kz 1.3.26.1: #i71115# new test for extensions

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