INTEGRATION: CWS smoketest11 (1.5.6); FILE MERGED

2006/11/27 19:58:13 kz 1.5.6.2: #i71115# fixes
2006/11/27 16:06:02 kz 1.5.6.1: #i71115# new test for extensions

1 files changed, 39 insertions, 3 deletions

diff --git a/smoketestoo_native/data/scripts/Global.xba b/smoketestoo_native/data/scripts/Global.xba
index 361694d775d7..ed2b4da08ecc 100755
--- a/smoketestoo_native/data/scripts/Global.xba
+++ b/smoketestoo_native/data/scripts/Global.xba
@@ -7,15 +7,19 @@ const cMaxErrorStates = 13
 const cCoGreen = 4057917, cCoRed = 16711680, cCoGrey = 12632256
 const cParagraphBreak = 0
 
+global const cExtensionFileName = "TestExtension.oxt"
+
 global const cDocNew = 0, cDocCut = 1, cDocPaste = 2, cDocSaveOpen8 = 3, cDocSaveOpenXML = 4, cDocSaveOpen50 = 5, cDocClose = 6, cDocWrite = 7
 global const cNewsInit = 0, cNewsSend = 1, cNewsRead = 2
 global const cDBService = 0, cDBOpen = 1, cDBInsert = 2, cDBDelete = 3, cDBSeek = 4, cDBClose = 5
+global const cEXTService = 0, cEXTInstall = 1, cEXTUninstall = 2
 global const cScheduleDateRead = 0
 global const cLogfileFailed = 255
 
 global const cStWriter = 0, cStCalc = 1, cStPraesentation = 2, cStZeichnen = 3
-global const cStMessage = 11, cStHTML = 6, cStChart = 4, cStJava = 7
+global const cStMessage = 12, cStHTML = 6, cStChart = 4, cStJava = 7
 global const cStMath = 5, cStNews = 10, cStSchedule = 8, cStDataBase = 9
+global const cStExtension = 11
 global const cStNone = -1
 
 global const cFlt8 = 0, cFlt50 = 32, cFltNewDoc = 64, cFltXML = 128
@@ -23,6 +27,7 @@ global const cFlt8 = 0, cFlt50 = 32, cFltNewDoc = 64, cFltXML = 128
 global const frmWriter = 1, frmCalc = 2, frmMessage = 3, frmImpress = 4
 global const frmMath = 5, frmImage = 6, frmChart = 7, frmHyperText = 8, frmDraw = 9
 global const frmDataBase = 10, frmSchedule = 11, frmNews = 12, frmJava = 13
+global const frmExtension = 14
 
 global const cLogUnknown = 0, cLogFalse = 1, cLogTrue = 2
 
@@ -45,11 +50,15 @@ Global const cUnoTextGraphi2 = cUnoPrefix + "text.Graphic"
 Global const cUnoJavaLoader = cUnoPrefix + "loader.Java"
 Global const cUnoDatabaseContext = cUnoPrefix + "sdb.DatabaseContext"
 Global const cUnoRowSet = cUnoPrefix + "sdb.RowSet"
+Global const cUnoSmoketestTestExtension = cUnoPrefix + "comp.smoketest.TestExtension"
+Global const cUnoSmoketestCommandEnvironment = cUnoPrefix + "deployment.test.SmoketestCommandEnvironment"
+Global const cUnothePackageManagerFactory = cUnoPrefix + "deployment.thePackageManagerFactory"
 
 'UserFieldNames
 Global const cUserFieldTestWriter = "Writer", cUserFieldTestCalc = "Calc", cUserFieldTestImpress = "Impress"
 Global const cUserFieldTestDraw = "Draw", cUserFieldTestMath = "Math", cUserFieldTestChart = "Chart"
 Global const cUserFieldTestHTML = "HTML", cUserFieldTestJava = "Java", cUserFieldTestDatabase = "Database"
+Global const cUserFieldTestExtension = "Extension"
 Global const cUserFieldTestOpenSaveXML = "SaveOpenXML", cUserFieldTestOpenSave50 = "SaveOpen50", cUserFieldTestCut = "Cut"
 Global const cUserFieldTestPaste = "Paste", cUserFieldTestTerminateAfterTest = "Terminate", cUserFieldTestOpenSave8 = "SaveOpen8"
 
@@ -68,10 +77,13 @@ Dim bTestSchedule as Boolean, bTestAdr as Boolean
 Global bMakeWriterTest as boolean, bMakeCalcTest as  boolean, bMakeImpressTest as boolean
 Global bMakeDrawTest as Boolean, bMakeMathTest as boolean, bMakeChartTest as boolean
 Global bMakeHTMLTest as boolean, bMakeJavaTest as boolean, bMakeDBTest as boolean
+Global bMakeExtensionTest as boolean
 Global bMakeSaveOpenXMLTest as boolean, bMakeSaveOpen50Test as boolean, bMakeCutTest as boolean
 Global bMakePasteTest as boolean, bMakeTerminateAfterTest as boolean, bShowTable as boolean
 Global bMakeSaveOpen8Test as boolean
 
+global sExtensionURL as string
+
 Dim gDlgState as Integer
 
 Sub SetGlobalDoc
@@ -192,7 +204,7 @@ Sub CreateStatusTable2
 	dim tableHeaders(5) as string
 	tableHeaders(cStDataBase-9) = "Database"
 	tableHeaders(1) = ""
-	tableHeaders(2) = ""
+	tableHeaders(cStExtension-9) = "Extension"
 	tableHeaders(3) = ""
 	tableHeaders(4) = ""
 	
@@ -204,6 +216,11 @@ Sub CreateStatusTable2
 	tableColums(cDBSeek ) = "seek"
 	tableColums(cDBClose ) = "close"
 	
+	dim tableColums2(3) as string
+	tableColums2(cEXTService ) = "services"
+	tableColums2(cEXTInstall ) = "install"
+	tableColums2(cEXTUninstall ) = "uninstall"
+	
 	aDoc = gOutPutDoc
 	
 	xText = aDoc.Text
@@ -253,6 +270,19 @@ Sub CreateStatusTable2
 	  	xCell.BackTransparent = False
 	  	xCell.BackColor = cCoGrey
 	next i%
+	
+	tableCursor.gotoStart(FALSE)
+    tableCursor.goRight(2,FALSE)
+	
+	for i% = 0 to 3
+		tableCursor.goDown(1,FALSE)
+	 	cName = tableCursor.getRangeName()
+	  	xCell = table.getCellByName(cName)
+	  	xCell.String=tableColums2(i%)
+	  	
+	  	xCell.BackTransparent = False
+	  	xCell.BackColor = cCoGrey
+	next i%
 end Sub
 
 
@@ -361,6 +391,8 @@ Function GetStatusType (nDocType as Integer) as Integer
 			GetStatusType = cStNews 'News
 		case frmDataBase
 			GetStatusType = cStDataBase	'DataBase
+		case frmExtension
+			GetStatusType = cStExtension 'Extension
 		case else
 			GetStatusType = cStNone
 	end Select		
@@ -455,6 +487,7 @@ Sub SetOptions
 	SetUserFieldState (cUserFieldTestChart, -(gOptionsDialog.getControl("cbChartTest").getState), gOutPutDoc)
 	SetUserFieldState (cUserFieldTestJava, -(gOptionsDialog.getControl("cbJavaTest").getState), gOutPutDoc)	
 	SetUserFieldState (cUserFieldTestDatabase, -(gOptionsDialog.getControl("cbDatabaseTest").getState), gOutPutDoc)	
+	SetUserFieldState (cUserFieldTestExtension, -(gOptionsDialog.getControl("cbExtensionTest").getState), gOutPutDoc)	
 	SetUserFieldState (cUserFieldTestOpenSaveXML, -(gOptionsDialog.getControl("cbSaveOpenXMLTest").getState), gOutPutDoc)
 	SetUserFieldState (cUserFieldTestOpenSave50, -(gOptionsDialog.getControl("cbSaveOpen50Test").getState), gOutPutDoc)
 	SetUserFieldState (cUserFieldTestOpenSave8, -(gOptionsDialog.getControl("cbSaveOpen8Test").getState), gOutPutDoc)
@@ -474,6 +507,7 @@ Sub GetOptions
 	gOptionsDialog.getControl("cbChartTest").setState( -( GetUserFieldState (cUserFieldTestChart, gOutPutDoc)))
 	gOptionsDialog.getControl("cbJavaTest").setState( -( GetUserFieldState (cUserFieldTestJava, gOutPutDoc)))
 	gOptionsDialog.getControl("cbDatabaseTest").setState( -( GetUserFieldState (cUserFieldTestDatabase, gOutPutDoc)))
+	gOptionsDialog.getControl("cbExtensionTest").setState( -( GetUserFieldState (cUserFieldTestExtension, gOutPutDoc)))
 	gOptionsDialog.getControl("cbSaveOpenXMLTest").setState( -( GetUserFieldState (cUserFieldTestOpenSaveXML, gOutPutDoc)))
 	gOptionsDialog.getControl("cbSaveOpen50Test").setState( -( GetUserFieldState (cUserFieldTestOpenSave50, gOutPutDoc)))
 	gOptionsDialog.getControl("cbSaveOpen8Test").setState( -( GetUserFieldState (cUserFieldTestOpenSave8, gOutPutDoc)))
@@ -494,6 +528,7 @@ Sub ReadOptions
 	bMakeChartTest = GetUserFieldState (cUserFieldTestChart, gOutPutDoc)
 	bMakeJavaTest = GetUserFieldState (cUserFieldTestJava, gOutPutDoc)
 	bMakeDBTest = GetUserFieldState (cUserFieldTestDatabase, gOutPutDoc)
+	bMakeExtensionTest = GetUserFieldState (cUserFieldTestExtension, gOutPutDoc)
 	bMakeSaveOpenXMLTest = GetUserFieldState (cUserFieldTestOpenSaveXML, gOutPutDoc)
 	bMakeSaveOpen50Test = GetUserFieldState (cUserFieldTestOpenSave50, gOutPutDoc)
 	bMakeSaveOpen8Test = GetUserFieldState (cUserFieldTestOpenSave8, gOutPutDoc)
@@ -513,6 +548,7 @@ Sub SetDefaultOptions
 	bMakeChartTest = true
 	bMakeJavaTest = true
 	bMakeDBTest = true
+	bMakeExtensionTest = true
 	bMakeSaveOpenXMLTest = true
 	REM Disable StarOffice 5.0 tests in case binfilter has not been included
 	if Environ("WITH_BINFILTER") = "NO" then
@@ -688,4 +724,4 @@ Sub WriteExtUserField(nIndex as Integer, aCursor as Object, aDoc as Object)
 	aCursor.Text.InsertTextContent (aCursor, aUserField, True)
 	aUserField.Fix = True
 End Sub
-</script:module>
\ No newline at end of file
+</script:module>