'encoding UTF-8 Do not remove or change this line! '************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* '* '* short description : Tools / XML Filter Settings Resource Test '* '\****************************************************************************** testcase tToolsXMLFilterSettings Dim iCountOfXSLTStylesAtBeginning as integer Dim iCountOfXSLTStylesAfterInstallCheck as integer Dim iApplicationEntries as integer Dim ia as integer Dim ib as integer Dim ic as integer Dim iCountMsgBox as integer Dim sErrorPointerTextForResultfile as string Dim sFilterPackagePath as string Dim sDocXMLTestFile as string Dim sWhichFilterToUse as string Dim sTempReadFilterName as string Dim bREMOVEXSLT as boolean Dim bJavaBroken as boolean 'Not being used for Writer/WEB if gApplication = "HTML" then goto endsub endif 'Define the pointer where all warnlogs/QAErrorLogs will come from in this routine. sErrorPointerTextForResultfile = "global::tools::inc::t_xml_filter1,inc::tToolsXMLFilterSettings: " 'Later it will be detected if the JRE is working with the office installation 'Here bJavaBroken will be set to the default behaviour (Java is detected and is working) bJavaBroken = FALSE '/// Opening new document. printlog "- Opening new (application) document." call hNewDocument '/// Calling the menu item Tools -> XML Filter Settings ToolsXMLFilterSettings printlog "- XML Filter Settings" Kontext "XMLFilterSettings" if XMLFilterSettings.Exists(1) then call Dialogtest (XMLFilterSettings) else warnlog sErrorPointerTextForResultfile & "Slot to open the 'XML Filter Settings dialog' failed. Exiting." goto endsub end if 'Counting the existing XSLT stylesheets to verify them after the 'XSLT stylesheet Check. Setting bREMOVEXSLT = FALSE which only will 'be TRUE if the count of before and after the check are different. bREMOVEXSLT = FALSE iCountOfXSLTStylesAtBeginning = FilterList.GetItemCount '/// Closing the XML Filter Settings-dialog. printlog "Closing the 'XML Filter Settings'-dialog." CloseBtn.Click '/// Checking if there are any XSLT stylesheets available (finitialXMLSetting("docbook or word or excel")). printlog " + Checking if there are any XSLT stylesheets available." select case gApplication case "CALC" : sWhichFilterToUse = "excel" case "WRITER" : sWhichFilterToUse = "word" case else : sWhichFilterToUse = "docbook" end select if finitialXMLSetting(sWhichFilterToUse) = FALSE then warnlog "It wasn't possible to use/install external XML filter. Test aborting!" goto endsub end if ToolsXMLFilterSettings printlog "Open XML Filter Settings dialog again." Kontext "XMLFilterSettings" iCountOfXSLTStylesAfterInstallCheck = FilterList.GetItemCount if iCountOfXSLTStylesAfterInstallCheck <> iCountOfXSLTStylesAtBeginning then bREMOVEXSLT = TRUE end if '/// Checking disabling of buttons on this dialog. printlog " + Checking that Edit/Test/Delete/SaveToPackage buttons disabled when no filter is selected." if EditBtn.IsEnabled then FilterList.Typekeys "" sleep(1) end if if EditBtn.IsEnabled then warnlog sErrorPointerTextForResultfile & "Edit button: Enabled when no entry is selected!?" end if if TestXSLTs.IsEnabled then warnlog sErrorPointerTextForResultfile & "TestXSLTs button: Enabled when no entry is selected!?" end if if DeleteBtn.IsEnabled then warnlog sErrorPointerTextForResultfile & "Delete button: Enabled when no entry is selected!?" end if if SaveToPackage.IsEnabled then warnlog sErrorPointerTextForResultfile & "SaveToPackage button: Enabled when no entry is selected!?" end if '/// Checking disabling of buttons on this dialog. printlog " + Checking that Edit/Test/Delete/SaveToPackage buttons enabled when one filter is selected." if NOT EditBtn.IsEnabled then FilterList.Typekeys "" sleep(1) end if if NOT EditBtn.IsEnabled then warnlog sErrorPointerTextForResultfile & "Edit button: Disabled when one entry is selected!?" end if if NOT TestXSLTs.IsEnabled then warnlog sErrorPointerTextForResultfile & "TestXSLTs button: Disabled when one entry is selected!?" end if if NOT DeleteBtn.IsEnabled then warnlog sErrorPointerTextForResultfile & "Delete button: Disabled when one entry is selected!?" end if if NOT SaveToPackage.IsEnabled then warnlog sErrorPointerTextForResultfile & "SaveToPackage button: Disabled when one entry is selected!?" end if '/// [Loop] '///+
  1. Clicking the "New" button
    2. '///+
  2. Clicking the "Edit" button
Kontext "XMLFilterSettings" FilterList.TypeKeys "" for ic = 1 to iCountOfXSLTStylesAfterInstallCheck Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 2 ) ) then 'read the filter names from the dialog. sTempReadFilterName = FilterList.GetItemText(ic) 'lower case comparison! sTempReadFilterName = lcase(sTempReadFilterName) if InStr(sTempReadFilterName , sWhichFilterToUse) <> 0 then FilterList.TypeKeys " " , ic-1 ' printlog "DEBUG: Filtername: " & FilterList.GetItemText(ic) WaitSlot() ' Sort of NOOP endif else warnlog( "XML Filter Settings dialog too slow/not displayed" ) endif next ic for ia = 1 to 2 Kontext "XMLFilterSettings" select case ia case 1 : printlog "+- New" NewBtn.Click case 2 : printlog "+- Edit" EditBtn.Click end select sleep(1) Kontext "XMLFilter" if XMLFilter.Exists(2) then select case ia case 1 : printlog " (XML Filter: New)" case 2 : printlog " (XML Filter: Edit)" end select call Dialogtest (XMLFilter) Tabcontrol.SetPage TabXMLGeneral Kontext "TabXMLGeneral" printlog " +- TabXMLGeneral" if ia = 1 then '/// If the "New"-button has been used: call Dialogtest (TabXMLGeneral) iApplicationEntries = Application.GetItemCount '///+
  • Checking the count of applications. Should be 8.
printlog " Checking the count of applications. Should be 8." if iApplicationEntries <> 8 then warnlog " +- There should be 8 applications listed in the 'Application'-listbox but there are " & iApplicationEntries & " available!" else printlog " +- 8 applications listed in 'Application' listbox." end if end if Kontext "XMLFilter" Tabcontrol.SetPage TabXMLTransformation Kontext "TabXMLTransformation" printlog " +- TabXMLTransformation" call Dialogtest (TabXMLTransformation) '/// On tab page "Transformation" press all "Browse"-buttons. printlog " +- On tab page 'Transformation' press all 'Browse'-buttons." for ib = 1 to 4 Kontext "TabXMLTransformation" select case ib case 1 : printlog " +- Browse button 'DTD'" DTDBrowse.Click case 2 : printlog " +- Browse button 'XSLT for export'" XSLTForExportBrowse.Click case 3 : printlog " +- Browse button 'XSLT for import'" XSLTForImportBrowse.Click case 4 : printlog " +- Browse button 'Template for import'" BrowseTemplateForImport.Click end select Kontext "OeffnenDlg" if OeffnenDlg.Exists(3) then '/// After every click on "Browse"-button an "FileOpen"-dialog shoud be visible. Cancel that dialog. printlog " +- After every click on 'Browse'-button an 'FileOpen'-dialog shoud be visible. Cancel that dialog." call Dialogtest (OeffnenDlg) OeffnenDlg.Cancel else warnlog sErrorPointerTextForResultfile & "File Open dialog did not appeared." end if next ib '/// [Loop end] Kontext "XMLFilter" if ( XMLFilter.exists( 3 ) ) then printlog " +- Closing 'XML Filter: New Filter'-dialog." XMLFilter.Cancel else warnlog( "XML Filter Dialog not available" ) endif '/// Closing "XML Filter: New Filter"-dialog else warnlog "XML Filter dialog did not appeared!" end if next ia Kontext "XMLFilterSettings" '/// Clicking "Test XLSTs"-button. printlog "+- Clicking 'Test XLSTs'-button." TestXSLTs.Click 'If it's an Import filter it makes no sense to test the export. if sWhichFilterToUse = "docbook" then printlog "+- E X P O R T (Writer, Impress)" Kontext "TestXMLFilter" if TestXMLFilter.Exists( 3 ) then call Dialogtest(TestXMLFilter) else warnlog sErrorPointerTextForResultfile & "Testing of the XML filter not possible. Exiting." Kontext "XMLFilterSettings" '/// Closing the "XML Filter Settings"-dialog. printlog "+- Closing the 'XML Filter Settings'-dialog." 'Deinstall the XSLT stylesheet if this routine has 'added one at the beginning. if bREMOVEXSLT = TRUE then call sRemoveXSLTFilter end if Kontext "XMLFilterSettings" CloseBtn.Click '/// Closing the opened application document. printlog "- Closing the opened application document." '/// ...if there is more than 1 document opened. if GetDocumentCount > 1 then call hCloseDocument end if 'Here the routine stops if the test dialog is not opening. goto endsub end if ExportBrowseBtn.Click '/// Press first "Browse"-button on the "Test XML Filter"-dialog. printlog " +-Press first 'Browse'-button on the 'Test XML Filter'-dialog." Kontext "OeffnenDlg" if OeffnenDlg.Exists( 3 ) then call Dialogtest (OeffnenDlg) OeffnenDlg.Cancel '/// Closing 'FileOpen'-Dialog. printlog " +- Closing 'FileOpen'-Dialog." else warnlog sErrorPointerTextForResultfile & "File Open dialog did not occoured?!" end if Kontext "TestXMLFilter" if ( TestXMLFilter.exists( 2 ) ) then '/// If the application is Writer (because the default XSLT stylesheets are only Writer filter). '///+
  • Clicking on "Current Document"-button.
if gApplication = "WRITER" then printlog " +- Clicking on 'Current Document'-button." CurrentDocument.Click '/// If Java is not [correctly] installed a messagebox will be shown and the test of the filter will be canceled! Kontext "Messagebox" if MessageBox.Exists( 5 ) then warnlog Messagebox.GetText try Messagebox.Cancel catch Messagebox.OK endcatch else try Kontext "XMLFilterOutput" if XMLFilterOutput.Exists(1) then '/// "XML Filter Output"-dialog should be visible. printlog " +- 'XML Filter Output'-dialog should be visible." call Dialogtest(XMLFilterOutput) '/// Clicking "Validate"-button. printlog " +- Clicking 'Validate'-button." Validate.Click WaitSlot( 2000 ) '/// Checking that the validate output control is visible inside the window. printlog " +- Checking that the validate output control is visible inside the window." if NOT ValidateOutput.isVisible then warnlog " +- Validate output is not visible!" end if '/// Closing "XML Filter Output"-dialog. printlog " +- Closing 'XML Filter Output'-dialog." XMLFilterOutput.Close else warnlog sErrorPointerTextForResultfile & "XML Filter Ouput dialog did not occoured." end if catch warnlog "Testing of XSLTs does not work." endcatch end if else Kontext "TestXMLFilter" printlog " +- 'Current Document'-button should not be enabled if no !" if CurrentDocument.IsEnabled then Kontext "DocumentWriter" try DocumentWriter.TypeKeys "A writer document exists!" catch QAErrorLog "'Current Document'-button is enabled but a 'Writer' XML filter has been selected! If there's no Writer document (may be in the background) also opened it would be a bug!" endcatch end if end if else warnlog( "FATAL: TestXMLFilter not available" ) end if printlog "+- I M P O R T" endif Kontext "TestXMLFilter" if ( TestXMLFilter.exists( 2 ) ) then '/// Clicking "Browse"-button (Import). printlog " +- Clicking 'Browse'-button (Import)." ImportBrowseBtn.Click Kontext "OeffnenDlg" if OeffnenDlg.Exists( 2 ) then call Dialogtest (OeffnenDlg) '/// Closing "FileOpen"-dialog. printlog " +- Closing 'FileOpen'-dialog." OeffnenDlg.Cancel else warnlog sErrorPointerTextForResultfile & "File Open dialog did not occoured?!" end if else warnlog( "FATAL: Dialog is not available" ) endif Kontext "TestXMLFilter" '/// Checking if 'Display Source'-checkbox is checked (should not be!). printlog " +- Checking if 'Display Source'-checkbox is checked (should not be!)." if NOT DisplaySource.IsChecked then DisplaySource.Check else warnlog " +- Display source should be NOT checked as default!" end if Kontext "TestXMLFilter" select case sWhichFilterToUse case "docbook" : '/// If DocBook XML is being tested use a DocBook XML file. sDocXMLTestFile = ConvertPath(gTestToolPath & "global\input\xml_filter\docbook.xml") case "word" : '/// If Word XML is being tested use a Word XML file. sDocXMLTestFile = ConvertPath(gTestToolPath & "global\input\xml_filter\word.xml") case "excel" : '/// If Excel XML is being tested use a Excel XML file. sDocXMLTestFile = ConvertPath(gTestToolPath & "global\input\xml_filter\excel.xml") case "xhtml" : '/// If XHTML is being tested that use a XHTML file. sDocXMLTestFile = ConvertPath(gTestToolPath & "global\input\xml_filter\xhtml.xhtml") case else : warnlog sErrorPointerTextForResultfile & "Wrong parameter has been used! Exiting" Kontext "TestXMLFilter" '/// Closing the "Test XML Filter"-dialog. printlog " +- Closing the 'Test XML Filter'-dialog" CloseBtn.Click Kontext "XMLFilterSettings" '/// Closing the "XML Filter Settings"-dialog. printlog "+- Closing the 'XML Filter Settings'-dialog." 'Deinstall the XSLT stylesheet if this routine has 'added one at the beginning. if bREMOVEXSLT = TRUE then call sRemoveXSLTFilter end if Kontext "XMLFilterSettings" CloseBtn.Click '/// Closing the opened application document. printlog "- Closing the opened application document." '/// ...if there is more than 1 document opened. if GetDocumentCount > 1 then Call hCloseDocument end if goto endsub end select '/// Clicking "Browse"-button (Import) again to test it with the XML file. printlog " +- Clicking 'Browse'-button (Import) again to test it the XML file." ImportBrowseBtn.Click Kontext "OeffnenDlg" if OeffnenDlg.Exists( 3 ) then call Dialogtest (OeffnenDlg) Dateiname.SetText sDocXMLTestFile Oeffnen.Click try ' If Java is not [correctly] installed a messagebox will be shown and the test of the filter will be canceled! Kontext "Messagebox" if Messagebox.Exists(2) then for iCountMsgBox = 1 to 5 Kontext "Messagebox" if MessageBox.Exists(2) then if MessageBox.GetRT = 304 then if iCountMsgBox = 1 then warnlog sErrorPointerTextForResultfile & "No output window was visible! Exiting routine!" endif QAErrorLog "Dialog (" & iCountMsgBox & "): " & Messagebox.GetText Messagebox.OK bJavaBroken = TRUE if iCountMsgBox > 3 then warnlog "Instead of 3 times the missing Java RT box will be shown " & iCountMsgBox & " times." endif end if else exit for endif next iCountMsgBox endif Kontext "XMLFilterOutput" if XMLFilterOutput.Exists(3) then '/// "XML Filter Output"-dialog should be visible. printlog " +- 'XML Filter Output'-dialog should be visible." call Dialogtest(XMLFilterOutput) '/// Clicking "Validate"-button. printlog " +- Clicking 'Validate'-button." Validate.Click Kontext "Messagebox" if Messagebox.Exists( 2 ) then if bJavaBroken then Messagebox.OK else warnlog Messagebox.GetText Messagebox.OK endif endif '/// Checking that the validate output control is visible inside the window. printlog " +- Checking that the validate output control is visible inside the window." Kontext "XMLFilterOutput" if NOT ValidateOutput.isVisible then warnlog " +- Validate output is not visible!" end if '/// Closing "XML Filter Output"-dialog. printlog " +- Closing 'XML Filter Output'-dialog." Kontext "XMLFilterOutput" XMLFilterOutput.Close else warnlog sErrorPointerTextForResultfile & "No output window was visible! Exiting routine!" Kontext "TestXMLFilter" '/// Closing the "Test XML Filter"-dialog. printlog " +- Closing the 'Test XML Filter'-dialog" CloseBtn.Click Kontext "XMLFilterSettings" '/// Closing the "XML Filter Settings"-dialog. printlog "+- Closing the 'XML Filter Settings'-dialog." 'Deinstall the XSLT stylesheet if this routine has 'added one at the beginning. if bREMOVEXSLT = TRUE then call sRemoveXSLTFilter end if Kontext "XMLFilterSettings" CloseBtn.Click '/// Closing the opened application document. printlog "- Closing the opened application document." '/// ...if there is more than 1 document opened. if GetDocumentCount > 1 then call hCloseDocument end if 'Here the routine stops if there is no Java installed or the output was not visible. goto endsub end if catch '/// If Java is not [correctly] installed a messagebox will be shown and the test of the filter will be canceled! Kontext "Messagebox" if MessageBox.Exists( 2 ) then warnlog Messagebox.GetText Messagebox.OK warnlog sErrorPointerTextForResultfile & "Java is not usable! Exiting routine!" Kontext "TestXMLFilter" '/// Closing the "Test XML Filter"-dialog. printlog " +- Closing the 'Test XML Filter'-dialog" CloseBtn.Click Kontext "XMLFilterSettings" '/// Closing the "XML Filter Settings"-dialog. printlog "+- Closing the 'XML Filter Settings'-dialog." 'Deinstall the XSLT stylesheet if this routine has 'added one at the beginning. if bREMOVEXSLT = TRUE then call sRemoveXSLTFilter end if Kontext "XMLFilterSettings" CloseBtn.Click '/// Closing the opened application document. printlog "- Closing the opened application document." '/// ...if there is more than 1 document opened. if GetDocumentCount > 1 then call hCloseDocument end if goto endsub end if endcatch else warnlog sErrorPointerTextForResultfile & "File Open dialog missing! Not able to load test documents. Exiting routine!" Kontext "TestXMLFilter" '/// Closing the "Test XML Filter"-dialog. printlog " +- Closing the 'Test XML Filter'-dialog" CloseBtn.Click Kontext "XMLFilterSettings" '/// Closing the "XML Filter Settings"-dialog. printlog "+- Closing the 'XML Filter Settings'-dialog." 'Deinstall the XSLT stylesheet if this routine has 'added one at the beginning. if bREMOVEXSLT = TRUE then call sRemoveXSLTFilter end if Kontext "XMLFilterSettings" CloseBtn.Click '/// Closing the opened application document. printlog "- Closing the opened application document." '/// ...if there is more than 1 document opened. if GetDocumentCount > 1 then call hCloseDocument end if goto endsub end if '/// Closing the tested XML document printlog " +- Closing the tested XML document" '/// ...if there is more than 1 document opened. if GetDocumentCount > 1 then call hCloseDocument else QAErrorLog "#i27370# Normaly there should be a second document but there is none!" end if Kontext "TestXMLFilter" if ( TestXMLFilter.exists( 1 ) ) then if bJavaBroken = FALSE then '/// Clicking on "Recent File"-Button. printlog " +- Clicking on 'Recent File'-Button." RecentFile.Click Kontext "XMLFilterOutput" '/// "XML Filter Output"-dialog should be visible. printlog " +- 'XML Filter Output'-dialog should be visible." Kontext "XMLFilterOutput" '/// Closing "XML Filter Output"-dialog. printlog " +- Closing 'XML Filter Output'-dialog." XMLFilterOutput.Close '/// Closing the tested XML document printlog " +- Closing the tested XML document" '/// ...if there is more than 1 document opened. if GetDocumentCount > 1 then call hCloseDocument else QAErrorLog "#i27370# Normaly there should be a second document but there is none!" end if Kontext "TestXMLFilter" '/// Closing the "Test XML Filter"-dialog. printlog " +- Closing the 'Test XML Filter'-dialog" endif else warnlog( "Dialog is not available" ) endif CloseBtn.Click Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 1 ) ) then '/// Clicking "Delete"-button. printlog " +- Clicking 'Delete'-button" DeleteBtn.Click Kontext if Active.Exists(1) then if Active.GetRT = 304 then Active.No end if end if else warnlog( "Dialog is not available" ) endif '/// Clicking 'Save to Package'-button. Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 1 ) ) then printlog " +- Clicking 'Save to Package'-button." SaveToPackage.Click Kontext "SpeichernDlg" if SpeichernDlg.Exists( 3 ) then call Dialogtest(SpeichernDlg) SpeichernDlg.Cancel '/// Closing 'File Save As'-Dialog. printlog " +- Closing 'File Save As'-Dialog." else warnlog sErrorPointerTextForResultfile & "Save As dialog missing!" end if else warnlog( "Dialog is not available" ) endif '/// Clicking 'Open Package'-button. Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 1 ) ) then printlog " +- Clicking 'Open Package'-button." OpenPackage.Click Kontext "OeffnenDlg" if OeffnenDlg.Exists( 3 ) then call Dialogtest(OeffnenDlg) OeffnenDlg.Cancel '/// Closing 'FileOpen'-Dialog. printlog " +- Closing 'FileOpen'-Dialog." else warnlog sErrorPointerTextForResultfile & "File open dialog missing!" end if else warnlog( "Dialog is not available" ) endif '/// Closing the "XML Filter Settings"-dialog. Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 1 ) ) then printlog "+- Closing the 'XML Filter Settings'-dialog." 'Deinstall the XSLT stylesheet if this routine has 'added one at the beginning. if bREMOVEXSLT = TRUE then call sRemoveXSLTFilter end if else warnlog( "Dialog is not available" ) endif Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 1 ) ) then CloseBtn.Click '/// Closing the opened application document. else warnlog( "Dialog is not available" ) endif printlog "- Closing the opened application document." '/// ...if there is more than 1 document opened. if ( hFileCloseAll() <> 2 ) then QAErrorLog "#i27370# Normaly there should be a second document but there is none!" end if endcase '------------------------------------------------------------------------- sub fInitialXMLSetting( sXMLFilterType as string ) as boolean '/// This small function adds the latest and greatest XSLT stylesheet '///+ to the office.
'///+ The result is TRUE if the packages are already available or if they '///+ have been installed successfully in this routine. '/// Input: excel, word, docbook, xhtml '/// Output: TRUE or FALSE Dim iCountOfDefaultXSLTStyles as integer Dim iSecondCountOfDefaultXSLTStyles as integer Dim sFilterPackagePath as string Dim sTempReadFilterName as string Dim ia as integer 'Setting boolean to FALSE fInitialXMLSetting = FALSE '/// Opening new document. printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: Opening new " & gApplication & " document." call hNewDocument '/// Calling the menu item Tools -> XML Filter Settings ToolsXMLFilterSettings printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: Opening the XML Filter Settings dialog." Kontext "XMLFilterSettings" call Dialogtest (XMLFilterSettings) '/// Checking if there are any XSLT stylesheets available. printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: Checking if there are any XSLT stylesheets available." iCountOfDefaultXSLTStyles = FilterList.GetItemCount ' printlog "DEBUG (a): " & iCountOfDefaultXSLTStyles if iCountOfDefaultXSLTStyles <> 0 then '/// Check if the same filter already exists. 'Using lowercased input parameter. sXMLFilterType = lcase(sXMLFilterType) for ia = 1 to iCountOfDefaultXSLTStyles Kontext "XMLFilterSettings" 'read the filter names from the dialog. sTempReadFilterName = FilterList.GetItemText(ia) ' printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: DEBUG: (" & ia & ") " & sTempReadFilterName 'lower case comparison! sTempReadFilterName = lcase(sTempReadFilterName) 'if a _part_ of the filtername matches the readed filter name the criteria is true! if InStr(sTempReadFilterName , sXMLFilterType) <> 0 then fInitialXMLSetting = TRUE Kontext "XMLFilterSettings" CloseBtn.Click Call hCloseDocument exit sub end if next ia 'if no filter name maches the for...next loop will be left 'and the same routine as used for 0 filter installed will 'be used to install a filter package. end if printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: The XML filter is not available: Adding the " & sXMLFilterType & " XML filter." '///+ The packages will be used from "qatesttool/global/input/xslt_stylesheets/*.jar" ' printlog "DEBUG: " & sXMLFilterType select case sXMLFilterType case "excel" : sFilterPackagePath = ConvertPath(gTestToolPath & "global\input\xslt_stylesheets\excel.jar") case "word" : sFilterPackagePath = ConvertPath(gTestToolPath & "global\input\xslt_stylesheets\word.jar") case "docbook" : sFilterPackagePath = ConvertPath(gTestToolPath & "global\input\xslt_stylesheets\docbook.jar") case "xhtml" : sFilterPackagePath = ConvertPath(gTestToolPath & "global\input\xslt_stylesheets\xhtml.jar") end select OpenPackage.Click Kontext "OeffnenDlg" if ( OeffnenDlg.exists( 2 ) ) then call Dialogtest (OeffnenDlg) Dateiname.SetText sFilterPackagePath Oeffnen.Click Kontext if Active.Exists(3) then if Active.GetRT = 304 then printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: " & Active.GetText Active.OK Kontext "XMLFilterSettings" iSecondCountOfDefaultXSLTStyles = FilterList.GetItemCount printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: Checking again the count of installed XSLT stylesheets." if iSecondCountOfDefaultXSLTStyles <> (iCountOfDefaultXSLTStyles+1) then warnlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: It was not possible to add " & sXMLFilterType & "-XML filter!" warnlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: Test aborted!" exit sub else printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: XML filter has been installed!" fInitialXMLSetting = TRUE end if end if end if else warnlog( "Dialog is not available" ) endif Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 1 ) ) then '/// Closing the XML Filter Settings-dialog. printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: Closing the 'XML Filter Settings'-dialog." CloseBtn.Click else warnlog( "Dialog is not available" ) endif '/// Closing the opened application document. printlog "global::tools::inc::t_xml_filter1,inc::fInitialXMLSetting: Closing the opened application document." call hCloseDocument end sub '------------------------------------------------------------------------- sub sRemoveXSLTFilter Dim sXMLFilterType as string Dim iCountOfDefaultXSLTStyles as integer Dim ia as integer Dim sTempReadFilterName as string Kontext "XMLFilterSettings" select case gApplication case "CALC" : sXMLFilterType = "excel" case "WRITER" : sXMLFilterType = "word" case else : sXMLFilterType = "docbook" end select iCountOfDefaultXSLTStyles = FilterList.GetItemCount if iCountOfDefaultXSLTStyles <> 0 then '/// Search for the filter in filter list. 'Using lowercased input parameter. for ia = 1 to iCountOfDefaultXSLTStyles Kontext "XMLFilterSettings" 'read the filter names from the dialog. sTempReadFilterName = FilterList.GetItemText(ia) 'lower case comparison! if InStr(sTempReadFilterName , sXMLFilterType) <> 0 then '/// If the filter has been found delete it. FilterList.TypeKeys "" wait( 100 ) FilterList.TypeKeys "" , (ia-1) wait( 100 ) DeleteBtn.Click Kontext if Active.Exists(1) then if Active.GetRT = 304 then Active.Yes end if end if exit sub end if next ia else warnlog "The count of XML filters has to be >0! Problem?" end if end sub