From aa77b7d426f93204e1ec1d7bcd6a6752ccaddc72 Mon Sep 17 00:00:00 2001 From: Stephan Bergmann Date: Wed, 14 Nov 2012 10:35:08 +0100 Subject: Clean up removal of binfilter tests from smoketest Change-Id: Ide1d0b6c5cab56d5c383853d349d70b21401a533 --- smoketest/data/Global.xml | 20 ++++---------- smoketest/data/OptionsDlg.xml | 1 - smoketest/data/Test_10er.xml | 63 +++---------------------------------------- smoketest/data/content.xml | 1 - 4 files changed, 9 insertions(+), 76 deletions(-) (limited to 'smoketest/data') diff --git a/smoketest/data/Global.xml b/smoketest/data/Global.xml index a445283aba2f..64e6a3d1bf4e 100644 --- a/smoketest/data/Global.xml +++ b/smoketest/data/Global.xml @@ -26,7 +26,7 @@ const cParagraphBreak = 0 global const cExtensionFileName = "TestExtension.oxt" -global const cDocNew = 0, cDocSaveOpen8 = 1, cDocSaveOpenXML = 2, cDocOpen50 = 3, cDocClose = 4, cDocMacros = 5 +global const cDocNew = 0, cDocSaveOpen8 = 1, cDocSaveOpenXML = 2, cDocClose = 3, cDocMacros = 4 global const cDBService = 0, cDBOpen = 1, cDBInsert = 2, cDBDelete = 3, cDBSeek = 4, cDBClose = 5 global const cEXTService = 0, cEXTInstall = 1, cEXTUninstall = 2 global const cTestClosureSetupDoc = 0, cTestClosureWriteStatus = 1 @@ -39,7 +39,7 @@ global const cStExtension = 11 global const cStTestGlue = 12 global const cStNone = -1 -global const cFlt8 = 0, cFlt50 = 32, cFltNewDoc = 64, cFltXML = 128 +global const cFlt8 = 0, cFltNewDoc = 64, cFltXML = 128 global const frmWriter = 1, frmCalc = 2, frmImpress = 4 global const frmMath = 5, frmChart = 7, frmHyperText = 8, frmDraw = 9 @@ -81,7 +81,6 @@ Global const cUserFieldTestDraw = "Draw", cUserFieldTestMath = "M Global const cUserFieldTestHTML = "HTML", cUserFieldTestJava = "Java", cUserFieldTestDatabase = "Database" Global const cUserFieldTestExtension = "Extension" Global const cUserFieldTestOpenSaveXML = "SaveOpenXML" -Global const cUserFieldTestOpen50 = "Open50" Global const cUserFieldTestTerminateAfterTest = "Terminate", cUserFieldTestOpenSave8 = "SaveOpen8", cUserFieldTestMacros = "Macros" Global const cOptionsDialogName = "OptionsDlg", cTest10Modul = "Standard" @@ -99,7 +98,7 @@ Global bMakeWriterTest as boolean, bMakeCalcTest as boolean, bMakeImpressTest a 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, bMakeOpen50Test as boolean +Global bMakeSaveOpenXMLTest as boolean Global bMakeTerminateAfterTest as boolean, bShowTable as boolean Global bMakeSaveOpen8Test as boolean, bMakeMacrosTest as boolean @@ -223,11 +222,10 @@ Sub CreateStatusTable tableHeaders(cStHTML) = "HTML" tableHeaders(cStJava) = "Java" - dim tableRows(5) as string + dim tableRows(4) as string tableRows(cDocNew) = "new" tableRows(cDocSaveOpen8) = "V8.0" tableRows(cDocSaveOpenXML) = "XML" - tableRows(cDocOpen50) = "V5.0" tableRows(cDocClose) = "close" tableRows(cDocMacros) = "macros" @@ -528,9 +526,6 @@ Sub SetGlobalOptionsDialog () REM create dialog control gOptionsDialog = CreateUnoDialog( oInputStreamProvider ) - oControl = gOptionsDialog.getControl("cbOpen50Test") - oControl.Model.setPropertyValue("Enabled", FALSE) - end Sub Sub ShowOptionsDlg @@ -569,7 +564,6 @@ Sub SetOptions SetUserFieldState (cUserFieldTestDatabase, -(gOptionsDialog.getControl("cbDatabaseTest").getState), gOutputDoc) SetUserFieldState (cUserFieldTestExtension, -(gOptionsDialog.getControl("cbExtensionTest").getState), gOutputDoc) SetUserFieldState (cUserFieldTestOpenSaveXML, -(gOptionsDialog.getControl("cbSaveOpenXMLTest").getState), gOutputDoc) - SetUserFieldState (cUserFieldTestOpen50, -(gOptionsDialog.getControl("cbOpen50Test").getState), gOutPutDoc) SetUserFieldState (cUserFieldTestOpenSave8, -(gOptionsDialog.getControl("cbSaveOpen8Test").getState), gOutputDoc) SetUserFieldState (cUserFieldTestMacros, -(gOptionsDialog.getControl("cbMacrosTest").getState), gOutputDoc) SetUserFieldState (cUserFieldTestTerminateAfterTest, -(gOptionsDialog.getControl("cbTerminateAfterTest").getState), gOutputDoc) @@ -588,7 +582,6 @@ Sub GetOptions gOptionsDialog.getControl("cbDatabaseTest").setState( -( GetUserFieldState (cUserFieldTestDatabase, gOutputDoc))) gOptionsDialog.getControl("cbExtensionTest").setState( -( GetUserFieldState (cUserFieldTestExtension, gOutputDoc))) gOptionsDialog.getControl("cbSaveOpenXMLTest").setState( -( GetUserFieldState (cUserFieldTestOpenSaveXML, gOutputDoc))) - 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))) @@ -607,7 +600,6 @@ Sub ReadOptions bMakeDBTest = GetUserFieldState (cUserFieldTestDatabase, gOutputDoc) bMakeExtensionTest = GetUserFieldState (cUserFieldTestExtension, gOutputDoc) bMakeSaveOpenXMLTest = GetUserFieldState (cUserFieldTestOpenSaveXML, gOutputDoc) - bMakeOpen50Test = false bMakeSaveOpen8Test = GetUserFieldState (cUserFieldTestOpenSave8, gOutputDoc) bMakeMacrosTest = GetUserFieldState (cUserFieldTestMacros, gOutputDoc) bMakeTerminateAfterTest = GetUserFieldState (cUserFieldTestTerminateAfterTest, gOutputDoc) @@ -631,7 +623,6 @@ Sub SetDefaultOptions bMakeExtensionTest = true End If bMakeSaveOpenXMLTest = true - bMakeOpen50Test = false bMakeSaveOpen8Test = true bMakeMacrosTest = true bMakeTerminateAfterTest = false @@ -667,11 +658,10 @@ Function StartTestWithDefaultOptions component(cStJava) = "Java" component(cStDataBase) = "Base" component(cStExtension) = "Extensions" - dim action(5) as string + dim action(4) as string action(cDocNew) = "new" action(cDocSaveOpen8) = "V8.0" action(cDocSaveOpenXML) = "XML" - action(cDocOpen50) = "V5.0" action(cDocClose) = "close" action(cDocMacros) = "macros" dim baseAction(5) as string diff --git a/smoketest/data/OptionsDlg.xml b/smoketest/data/OptionsDlg.xml index 42dd97f885ee..d3217c75d396 100644 --- a/smoketest/data/OptionsDlg.xml +++ b/smoketest/data/OptionsDlg.xml @@ -38,7 +38,6 @@ - diff --git a/smoketest/data/Test_10er.xml b/smoketest/data/Test_10er.xml index 37e7d6d0c9de..bd774b47b764 100644 --- a/smoketest/data/Test_10er.xml +++ b/smoketest/data/Test_10er.xml @@ -31,7 +31,6 @@ const cTempFileName = "smoketest_file" const cMessageSaveOpen8Doc = "Save/Open open Documents (8.0)" const cMessageSaveOpenXMLDoc = "Save/Open Document XML (6/7)" -const cMessageOpen50Doc = "Open Document 5.0" const cMessageNewDoc = "New Document" const cMessageCloseDoc = "Close Document" const cMessageRunMacros = "Run Macros" @@ -83,22 +82,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() @@ -296,9 +279,6 @@ Sub WriteTestSequence if bMakeSaveOpenXMLTest then sWriteStr = sWriteStr + ", open XML" end if - if bMakeOpen50Test then - sWriteStr = sWriteStr + ", open 5.0" - end if if bMakeMacrosTest then sWriteStr = sWriteStr + ", run macros" end if @@ -335,7 +315,7 @@ end Sub Sub MakeDocTest Dim oDoc as Object - Dim sFileNameXML$, sFileName50$, sFileName8$ + Dim sFileNameXML$, sFileName8$ Dim bSuccess as Boolean On Local Error GoTo DOCTESTERROR @@ -384,21 +364,6 @@ Sub MakeDocTest end If end if - gCurrentTestCase = cDocOpen50 - if bMakeOpen50Test and IsFilterAvailable (gCurrentDocTest or cFlt50) then - SOLARSRC = ConvertToURL(Environ("SRC_ROOT")) - sFileName50 = SOLARSRC+"/qadevOOo/testdocs/ttt."+GetDocEndings(gCurrentDocTest or cFlt50) - oDoc = LoadDoc (sFileName50) - -' oDoc = Documents.open(sFileName) - LogTestResult( GetDocFilter(gCurrentDocTest or cFltNewDoc)+" "+ cMessageOpen50Doc, not IsNull (oDoc) ) - - if not IsNull (oDoc) then - gCurrentTestCase = cDocClose - oDoc.close (true) - end If - end if - gCurrentTestCase = cDocMacros ' Just one calc macro test for now ' To-Do split this into its own per-module/test .xml and add more @@ -539,16 +504,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 @@ -586,18 +543,8 @@ Function GetDocFilter (DocType as Integer) as String case frmMath or cFltXML GetDocFilter = "StarOffice XML (Math)" ' formula - case frmHyperText, frmHyperText or cFlt50, frmHyperText or cFltXML + case frmHyperText, frmHyperText or cFltXML GetDocFilter = "HTML" ' HTML document - 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" ' text document @@ -655,8 +602,6 @@ Function GetErrorMessageOnAction (nAction as Integer) as String GetErrorMessageOnAction = cMessageSaveOpen8Doc case cDocSaveOpenXML GetErrorMessageOnAction = cMessageSaveOpenXMLDoc - case cDocOpen50 - GetErrorMessageOnAction = cMessageOpen50Doc case cDocMacros GetErrorMessageOnAction = cMessageRunMacros case cDocClose @@ -668,7 +613,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 diff --git a/smoketest/data/content.xml b/smoketest/data/content.xml index b56ff68403c0..6be664944e9c 100644 --- a/smoketest/data/content.xml +++ b/smoketest/data/content.xml @@ -89,7 +89,6 @@ - -- cgit