#i116322# disable binfilter file export: remove test of binary load/save

1 files changed, 4 insertions, 67 deletions

diff --git a/smoketestoo_native/data/Test_10er.xml b/smoketestoo_native/data/Test_10er.xml
index e39a39eae2aa..56a8d130fc13 100644
--- a/smoketestoo_native/data/Test_10er.xml
+++ b/smoketestoo_native/data/Test_10er.xml
@@ -39,7 +39,6 @@ const cTempFileName = "ttt"
 
 const cMessageSaveOpen8Doc = "Save/Open open Documents (8.0)"
 const cMessageSaveOpenXMLDoc = "Save/Open Document XML (6/7)"
-const cMessageSaveOpen50Doc = "Save/Open Document 5.0"
 const cMessageNewDoc = "New Document"
 const cMessageCloseDoc = "Close Document"
 
@@ -90,22 +89,6 @@ Sub DeleteAllSavedFiles()
     If FileExists (sFileName) then
         Kill (sFileName)
     End If
-    sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmWriter or cFlt50)
-    If FileExists (sFileName) then
-        Kill (sFileName)
-    End If
-    sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmCalc or cFlt50)
-    If FileExists (sFileName) then
-        Kill (sFileName)
-    End If
-    sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmImpress or cFlt50)
-    If FileExists (sFileName) then
-        Kill (sFileName)
-    End If
-    sFileName = sWorkPath+cTempFileName+"."+GetDocEndings(frmDraw or cFlt50)
-    If FileExists (sFileName) then
-        Kill (sFileName)
-    End If
 End Sub
 
 Sub DeleteAllLogFiles()
@@ -298,18 +281,12 @@ Sub WriteTests (sText as string, bTestAll as boolean, nFileChannel as integer)
     if bMakeSaveOpenXMLTest then
         sWriteStr = sWriteStr + ", save XML"
     end if
-    if bMakeSaveOpen50Test then
-        sWriteStr = sWriteStr + ", save 5.0"
-    end if
     if bMakeSaveOpen8Test then
         sWriteStr = sWriteStr + ", open 8.0"
     end if
     if bMakeSaveOpenXMLTest then
         sWriteStr = sWriteStr + ", open XML"
     end if
-    if bMakeSaveOpen50Test then
-        sWriteStr = sWriteStr + ", open 5.0"
-    end if
     end if
 
     sWriteStr = sWriteStr + ", close"
@@ -343,7 +320,7 @@ end Sub
 
 Sub MakeDocTest (FilterType as Integer)
     Dim oDoc as Object
-    Dim sFileNameXML$, sFileName50$, sFileName8$
+    Dim sFileNameXML$, sFileName8$
     Dim bError as Boolean
     Dim nCurrentAction as Integer
 
@@ -366,11 +343,6 @@ Sub MakeDocTest (FilterType as Integer)
             sFileNameXML = sWorkPathURL+cTempFileName+"."+GetDocEndings(FilterType or cFltXML)
             SaveDoc (sFileNameXML, oDoc, GetDocFilter(FilterType or cFltXML))
         end if
-        nCurrentAction = cDocSaveOpen50
-        if bMakeSaveOpen50Test and IsFilterAvailable (FilterType or cFlt50) then
-            sFileName50 = sWorkPathURL+cTempFileName+"."+GetDocEndings(FilterType or cFlt50)
-            SaveDoc (sFileName50, oDoc, GetDocFilter(FilterType or cFlt50))
-        end if
 '      oDoc.dispose
         nCurrentAction = cDocClose
         oDoc.close (true)
@@ -410,21 +382,6 @@ Sub MakeDocTest (FilterType as Integer)
             end If
         end if
 
-        nCurrentAction = cDocSaveOpen50
-        if bMakeSaveOpen50Test and IsFilterAvailable (FilterType or cFlt50) then
-            oDoc = LoadDoc (sFileName50)
-
-'          oDoc = Documents.open(sFileName)
-            LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen50Doc, FileChannel)
-            LogState (not IsNull (oDoc),GetDocFilter(FilterType or cFltNewDoc)+" "+ cMessageSaveOpen50Doc, MainFileChannel)
-            SetStatus (FilterType, cDocSaveOpen50, not IsNull (oDoc))
-
-            if not IsNull (oDoc) then
-'              oDoc.dispose
-                nCurrentAction = cDocClose
-                oDoc.close (true)
-            end If
-        end if
     end If
     Print #FileChannel, "---"
     Close #FileChannel%
@@ -545,16 +502,8 @@ Function GetDocEndings (DocType as Integer) as String
             GetDocEndings = "odp" 'PrÕsentation
         case frmDraw or cFlt8
             GetDocEndings = "odg" 'Zeichen
-        case frmHyperText, frmHyperText or cFlt50, frmHyperText or cFltXML
+        case frmHyperText, frmHyperText or cFltXML
             GetDocEndings = "html" 'Hypertext-Dokument
-        case frmWriter or cFlt50
-            GetDocEndings = "sdw" ' Textdokument 5.0
-        case frmCalc or cFlt50
-            GetDocEndings = "sdc" 'Tabellendokument 5.0
-        case frmImpress or cFlt50
-            GetDocEndings = "sdd" 'PrÕsentation 5.0
-        case frmDraw or cFlt50
-            GetDocEndings = "sda" 'Zeichen 5.0
         case frmWriter or cFltXML
             GetDocEndings = "sxw" ' Textdokument
         case frmCalc or cFltXML
@@ -592,18 +541,8 @@ Function GetDocFilter (DocType as Integer) as String
         case frmMath or cFltXML
             GetDocFilter = "StarOffice XML (Math)" 'Formel
 
-        case frmHyperText, frmHyperText or cFlt50, frmHyperText or cFltXML
+        case frmHyperText, frmHyperText or cFltXML
             GetDocFilter = "HTML" 'Hypertext-Dokument
-        case frmWriter or cFlt50
-            GetDocFilter = "StarWriter 5.0" ' Textdokument 5.0
-        case frmCalc or cFlt50
-            GetDocFilter = "StarCalc 5.0" 'Tabellendokument 5.0
-        case frmImpress or cFlt50
-            GetDocFilter = "StarImpress 5.0" 'Präsentation 5.0
-        case frmDraw or cFlt50
-            GetDocFilter = "StarDraw 5.0" 'Zeichen 5.0
-        case frmMath or cFlt50
-            GetDocFilter = "StarMath 5.0" 'Formel 5.0
 
         case frmWriter or cFltNewDoc
             GetDocFilter = "swriter" ' Textdokument
@@ -667,8 +606,6 @@ Function GetErrorMessageOnAction (nAction as Integer) as String
             GetErrorMessageOnAction = cMessageSaveOpen8Doc
         case cDocSaveOpenXML
             GetErrorMessageOnAction = cMessageSaveOpenXMLDoc
-        case cDocSaveOpen50
-            GetErrorMessageOnAction = cMessageSaveOpen50Doc
         case cDocClose
             GetErrorMessageOnAction = cMessageCloseDoc
         case else
@@ -678,7 +615,7 @@ end Function
 
 Function IsFilterAvailable (FilterType as Integer) as boolean
     IsFilterAvailable = true
-    if ((FilterType = (frmHyperText or cFlt50)) or (FilterType = (frmHyperText or cFltXML))) then
+    if ((FilterType = (frmHyperText or cFltXML))) then
         IsFilterAvailable = false
     end if
 End Function