better test for this that doesn't depend on env

smoketestdoc/data/Global.xml

@@ -114,6 +114,8 @@ Global bMakeSaveOpen8Test as boolean
 
 global sExtensionURL as string
 
+global oBinFilterComp as Object
+
 Dim gDlgState as Integer
 
 Sub SetGlobalDoc
@@ -145,6 +147,8 @@ Sub Main
     gCurrentDocTest = frmTestClosure
     gCurrentTestCase = cLogfileFailed
 
+    oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" )
+
     DeleteAllSavedFiles()
     DeleteAllLogFiles()
     SetupWorkPath()
@@ -532,10 +536,10 @@ Sub SetGlobalOptionsDialog ()
     REM create dialog control
     gOptionsDialog = CreateUnoDialog( oInputStreamProvider )
 
-    if Environ("WITH_BINFILTER") <> "YES" then
+    if not isNull(oBinFilterComp) then
         oControl = gOptionsDialog.getControl("cbOpen50Test")
         oControl.Model.setPropertyValue("Enabled", FALSE)
-    End If
+    end If
 
 end Sub
 
@@ -593,11 +597,11 @@ Sub GetOptions
     gOptionsDialog.getControl("cbDatabaseTest").setState( -( GetUserFieldState (cUserFieldTestDatabase, gOutputDoc)))
     gOptionsDialog.getControl("cbExtensionTest").setState( -( GetUserFieldState (cUserFieldTestExtension, gOutputDoc)))
     gOptionsDialog.getControl("cbSaveOpenXMLTest").setState( -( GetUserFieldState (cUserFieldTestOpenSaveXML, gOutputDoc)))
-    if Environ("WITH_BINFILTER") = "YES" then
+    if not isNull(oBinFilterComp) then
         gOptionsDialog.getControl("cbOpen50Test").setState( -( GetUserFieldState (cUserFieldTestOpen50, gOutPutDoc)))
     else
         gOptionsDialog.getControl("cbOpen50Test").setState(0)
-    End If
+    end If
     gOptionsDialog.getControl("cbSaveOpen8Test").setState( -( GetUserFieldState (cUserFieldTestOpenSave8, gOutputDoc)))
     gOptionsDialog.getControl("cbTerminateAfterTest").setState( -( GetUserFieldState (cUserFieldTestTerminateAfterTest, gOutputDoc)))
 End Sub
@@ -615,7 +619,7 @@ Sub ReadOptions
     bMakeDBTest = GetUserFieldState (cUserFieldTestDatabase, gOutputDoc)
     bMakeExtensionTest = GetUserFieldState (cUserFieldTestExtension, gOutputDoc)
     bMakeSaveOpenXMLTest = GetUserFieldState (cUserFieldTestOpenSaveXML, gOutputDoc)
-    if Environ("WITH_BINFILTER") = "YES" then
+    if not isNull(oBinFilterComp) then
         bMakeOpen50Test = GetUserFieldState (cUserFieldTestOpen50, gOutPutDoc)
     else
         bMakeOpen50Test = false
@@ -643,7 +647,7 @@ Sub SetDefaultOptions
     End If
     bMakeSaveOpenXMLTest = true
     REM Disable StarOffice 5.0 tests in case binfilter has not been included
-    if Environ("WITH_BINFILTER") = "YES" then
+    if not isNull(oBinFilterComp) then
         bMakeOpen50Test = true
     else
         bMakeOpen50Test = false