Kaydet (Commit) c8139c6f authored tarafından Norbert Thiebaud's avatar Norbert Thiebaud

do not even try to do binfilter test in smoketest

Change-Id: I81fa1217feda5b4faf73add5304e8a191bbfbdc3
üst bbd4b99c
......@@ -105,16 +105,10 @@ Global bMakeSaveOpen8Test as boolean, bMakeMacrosTest as boolean
global sExtensionURL as string
global oBinFilterComp as Object
Dim gDlgState as Integer
Sub SetGlobalDoc
gOutputDoc = ThisComponent
REM need to have the binfilter component, and SRC_ROOT set to find sample docs
if Environ("SRC_ROOT") <> "" then
oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" )
End If
end Sub
Sub ClearStatus
......@@ -534,10 +528,8 @@ Sub SetGlobalOptionsDialog ()
REM create dialog control
gOptionsDialog = CreateUnoDialog( oInputStreamProvider )
if isNull(oBinFilterComp) then
oControl = gOptionsDialog.getControl("cbOpen50Test")
oControl.Model.setPropertyValue("Enabled", FALSE)
end If
oControl = gOptionsDialog.getControl("cbOpen50Test")
oControl.Model.setPropertyValue("Enabled", FALSE)
end Sub
......@@ -596,11 +588,7 @@ Sub GetOptions
gOptionsDialog.getControl("cbDatabaseTest").setState( -( GetUserFieldState (cUserFieldTestDatabase, gOutputDoc)))
gOptionsDialog.getControl("cbExtensionTest").setState( -( GetUserFieldState (cUserFieldTestExtension, gOutputDoc)))
gOptionsDialog.getControl("cbSaveOpenXMLTest").setState( -( GetUserFieldState (cUserFieldTestOpenSaveXML, gOutputDoc)))
if not isNull(oBinFilterComp) then
gOptionsDialog.getControl("cbOpen50Test").setState( -( GetUserFieldState (cUserFieldTestOpen50, gOutPutDoc)))
else
gOptionsDialog.getControl("cbOpen50Test").setState(0)
end If
gOptionsDialog.getControl("cbOpen50Test").setState(0)
gOptionsDialog.getControl("cbSaveOpen8Test").setState( -( GetUserFieldState (cUserFieldTestOpenSave8, gOutputDoc)))
gOptionsDialog.getControl("cbMacrosTest").setState( -( GetUserFieldState (cUserFieldTestMacros, gOutputDoc)))
gOptionsDialog.getControl("cbTerminateAfterTest").setState( -( GetUserFieldState (cUserFieldTestTerminateAfterTest, gOutputDoc)))
......@@ -619,11 +607,7 @@ Sub ReadOptions
bMakeDBTest = GetUserFieldState (cUserFieldTestDatabase, gOutputDoc)
bMakeExtensionTest = GetUserFieldState (cUserFieldTestExtension, gOutputDoc)
bMakeSaveOpenXMLTest = GetUserFieldState (cUserFieldTestOpenSaveXML, gOutputDoc)
if not isNull(oBinFilterComp) then
bMakeOpen50Test = GetUserFieldState (cUserFieldTestOpen50, gOutPutDoc)
else
bMakeOpen50Test = false
End If
bMakeOpen50Test = false
bMakeSaveOpen8Test = GetUserFieldState (cUserFieldTestOpenSave8, gOutputDoc)
bMakeMacrosTest = GetUserFieldState (cUserFieldTestMacros, gOutputDoc)
bMakeTerminateAfterTest = GetUserFieldState (cUserFieldTestTerminateAfterTest, gOutputDoc)
......@@ -647,12 +631,7 @@ Sub SetDefaultOptions
bMakeExtensionTest = true
End If
bMakeSaveOpenXMLTest = true
REM Disable StarOffice 5.0 tests in case binfilter has not been included
if not isNull(oBinFilterComp) then
bMakeOpen50Test = true
else
bMakeOpen50Test = false
End If
bMakeOpen50Test = false
bMakeSaveOpen8Test = true
bMakeMacrosTest = true
bMakeTerminateAfterTest = false
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment