diff options
Diffstat (limited to 'testautomation/global')
-rwxr-xr-x | testautomation/global/input/filters/native_suffixes.dat | 106 | ||||
-rwxr-xr-x | testautomation/global/input/macros.txt | 54 | ||||
-rwxr-xr-x | testautomation/global/required/includes/g_option.inc | 5 | ||||
-rwxr-xr-x[-rw-r--r--] | testautomation/global/sid/bars.sid | 1 | ||||
-rwxr-xr-x | testautomation/global/tools/includes/optional/t_filetools.inc | 2 | ||||
-rwxr-xr-x | testautomation/global/tools/includes/optional/t_ole.inc | 42 | ||||
-rwxr-xr-x[-rw-r--r--] | testautomation/global/tools/includes/optional/t_xml_filter1.inc | 1522 | ||||
-rwxr-xr-x | testautomation/global/tools/includes/required/t_option.inc | 5 | ||||
-rwxr-xr-x | testautomation/global/win/bars.win | 2 | ||||
-rwxr-xr-x | testautomation/global/win/dial_d_h.win | 24 | ||||
-rwxr-xr-x | testautomation/global/win/dial_i_o.win | 10 | ||||
-rwxr-xr-x | testautomation/global/win/dial_p_s.win | 43 | ||||
-rwxr-xr-x | testautomation/global/win/dial_t_z.win | 12 | ||||
-rwxr-xr-x | testautomation/global/win/etab_p_s.win | 2 |
14 files changed, 908 insertions, 922 deletions
diff --git a/testautomation/global/input/filters/native_suffixes.dat b/testautomation/global/input/filters/native_suffixes.dat index 6c648955fbdb..7072b260ab04 100755 --- a/testautomation/global/input/filters/native_suffixes.dat +++ b/testautomation/global/input/filters/native_suffixes.dat @@ -1,53 +1,53 @@ -[569]
-#StarOffice 5.x
-#Binary File Format
-WRITER=.sdw
-CALC=.sdc
-IMPRESS=.sdd
-DRAW=.sda
-MATH=.smf
-HTML=.htm
-MASTERDOCUMENT=.sgl
-
-[641]
-#StarOffice 6.x
-#XML Format
-WRITER=.sxw
-CALC=.sxc
-IMPRESS=.sxi
-DRAW=.sxd
-MATH=.sxm
-HTML=.htm
-MASTERDOCUMENT=.sxg
-
-[645]
-#OpenOffice.org 1.x / StarOffice 7 / StarSuite 7
-#XML Format
-WRITER=.sxw
-CALC=.sxc
-IMPRESS=.sxi
-DRAW=.sxd
-MATH=.sxm
-HTML=.htm
-MASTERDOCUMENT=.sxg
-
-[680]
-#OpenOffice.org 2.0 / StarOffice 8 / StarSuite 8
-#OASIS Open Office XML File-Format
-WRITER=.odt
-CALC=.ods
-IMPRESS=.odp
-DRAW=.odg
-MATH=.odf
-HTML=.htm
-MASTERDOCUMENT=.odm
-
-[current]
-#the current build is 680
-WRITER=.odt
-CALC=.ods
-IMPRESS=.odp
-DRAW=.odg
-MATH=.odf
-HTML=.htm
-MASTERDOCUMENT=.odm
+[569] +#StarOffice 5.x +#Binary File Format +WRITER=.sdw +CALC=.sdc +IMPRESS=.sdd +DRAW=.sda +MATH=.smf +HTML=.htm +MASTERDOCUMENT=.sgl + +[641] +#StarOffice 6.x +#XML Format +WRITER=.sxw +CALC=.sxc +IMPRESS=.sxi +DRAW=.sxd +MATH=.sxm +HTML=.htm +MASTERDOCUMENT=.sxg + +[645] +#OpenOffice.org 1.x / StarOffice 7 / StarSuite 7 +#XML Format +WRITER=.sxw +CALC=.sxc +IMPRESS=.sxi +DRAW=.sxd +MATH=.sxm +HTML=.htm +MASTERDOCUMENT=.sxg + +[680] +#OpenOffice.org 2.0 / StarOffice 8 / StarSuite 8 +#OASIS Open Office XML File-Format +WRITER=.odt +CALC=.ods +IMPRESS=.odp +DRAW=.odg +MATH=.odf +HTML=.htm +MASTERDOCUMENT=.odm + +[current] +#the current build is 680 +WRITER=.odt +CALC=.ods +IMPRESS=.odp +DRAW=.odg +MATH=.odf +HTML=.htm +MASTERDOCUMENT=.odm diff --git a/testautomation/global/input/macros.txt b/testautomation/global/input/macros.txt index 2210990ec93f..f34e54f607d1 100755 --- a/testautomation/global/input/macros.txt +++ b/testautomation/global/input/macros.txt @@ -220,45 +220,45 @@ End Sub # ---------------------------------------------------------------------------- # [i103691] -option vbasupport 1
-
-Sub Main
- dim a, b
-
+option vbasupport 1 + +Sub Main + dim a, b + if (not a = b) then - msgbox( "not equal" )
- else
- msgbox( "Equal" )
- end if
-End Sub
+ msgbox( "not equal" ) + else + msgbox( "Equal" ) + end if +End Sub # ---------------------------------------------------------------------------- # [i103697] -Private Declare Function FooFunction Lib "foo" ( nVal )
-Public Declare Function FooFunction2 Lib "foo" ( nVal )
-
-sub main
- msgbox( "i103697" )
+Private Declare Function FooFunction Lib "foo" ( nVal ) +Public Declare Function FooFunction2 Lib "foo" ( nVal ) + +sub main + msgbox( "i103697" ) end sub # ---------------------------------------------------------------------------- # [i103990] -type MyType
- a( 3 ) as integer
- b as double
-end type
-
-Sub Main
- dim mt as MyType
- mt.a(0) = 42
- mt.a(1) = 43
- mt.b = 3.14
+type MyType + a( 3 ) as integer + b as double +end type + +Sub Main + dim mt as MyType + mt.a(0) = 42 + mt.a(1) = 43 + mt.b = 3.14 msgbox( mt.a(0) ) msgbox( mt.a(1) ) if ( mt.b = 3.14 ) then msgbox( "Pi" ) else msgbox( "Error" ) - endif
-end sub
+ endif +end sub diff --git a/testautomation/global/required/includes/g_option.inc b/testautomation/global/required/includes/g_option.inc index d590016bc8ba..dcd623dbca04 100755 --- a/testautomation/global/required/includes/g_option.inc +++ b/testautomation/global/required/includes/g_option.inc @@ -614,11 +614,6 @@ testcase tToolsOptionsInternet gefunden = FALSE Kontext "OptionenDlg" Optionsliste.TypeKeys "<Down>" - Kontext "ProxyWarnung" - if ProxyWarnung.Exists(1) then - NichtMehrAnzeigen.Check - ProxyWarnung.OK - endif select case i case 1 : diff --git a/testautomation/global/sid/bars.sid b/testautomation/global/sid/bars.sid index c22ff6975c02..1e3da63fd1ec 100644..100755 --- a/testautomation/global/sid/bars.sid +++ b/testautomation/global/sid/bars.sid @@ -133,7 +133,6 @@ OL_Objekt_SW_Hintergrundfarbe SID_BACKGROUND_COLOR OL_Objekt_SW_GanzNachVorn SID_FRAME_TO_TOP OL_Objekt_SW_GanzNachHinten SID_FRAME_TO_BOTTOM OL_Objekt_SW_Verankerungwechseln FN_TOOL_ANKER -OL_Objekt_SW_GrafikBearbeiten SID_SIM_START OL_Objekt_SW_HorizontalSpiegeln FN_FLIP_HORZ_GRAFIC OL_Objekt_SW_VertikalSpiegeln FN_FLIP_VERT_GRAFIC OL_Objekt_SW_PositionUndGroesse SID_ATTR_TRANSFORM diff --git a/testautomation/global/tools/includes/optional/t_filetools.inc b/testautomation/global/tools/includes/optional/t_filetools.inc index a18319c13dfa..fb4cd43d34e5 100755 --- a/testautomation/global/tools/includes/optional/t_filetools.inc +++ b/testautomation/global/tools/includes/optional/t_filetools.inc @@ -159,7 +159,7 @@ function hHandleActivesOnLoad( iTries as integer , iAdd as integer ) as boolean hHandleActivesOnLoad() = FALSE exit function endif - warnlog( "#105670# - File corruption warning, the template is broken" ) + qaerrorlog( "#105670# - File corruption warning, the template is broken" ) endif endif diff --git a/testautomation/global/tools/includes/optional/t_ole.inc b/testautomation/global/tools/includes/optional/t_ole.inc index 457704f20b13..10a913102a18 100755 --- a/testautomation/global/tools/includes/optional/t_ole.inc +++ b/testautomation/global/tools/includes/optional/t_ole.inc @@ -65,15 +65,15 @@ end function '******************************************************************************* -function hGetOleObjectName( ObjectType as string ) as string
-
- dim oUnoOfficeConnection as object
- dim oUnoConfigurationAccess as object
- dim aPropertyValue(1) as new com.sun.star.beans.PropertyValue
+function hGetOleObjectName( ObjectType as string ) as string + + dim oUnoOfficeConnection as object + dim oUnoConfigurationAccess as object + dim aPropertyValue(1) as new com.sun.star.beans.PropertyValue dim xViewRoot as object dim cConfigString as string - dim cString as string
-
+ dim cString as string + const CFN = "global::tools::includes::optional::t_ole.inc::hGetOleObjectName(): " ' Test function parameters. They are <> gApplication as the API is case sensitive @@ -94,22 +94,22 @@ function hGetOleObjectName( ObjectType as string ) as string if ( VERBOSE ) then printlog( CFN & "Retrieving OLE name for: " & ObjectType ) - ' ...Embedding is physical path, ObjectNames the top node
- aPropertyValue( 0 ).Name = "nodepath"
+ ' ...Embedding is physical path, ObjectNames the top node + aPropertyValue( 0 ).Name = "nodepath" aPropertyValue( 0 ).Value = "/org.openoffice.Office.Embedding/ObjectNames/" & ObjectType - ' Connect to remote UNO
- oUnoOfficeConnection = hGetUnoService( TRUE )
-
- if ( isNull( oUnoOfficeConnection )) then
- warnlog( CFN & "Failed to establish UNO connection, hGetUnoService failed" )
- hGetOleObjectName() = ""
+ ' Connect to remote UNO + oUnoOfficeConnection = hGetUnoService( TRUE ) + + if ( isNull( oUnoOfficeConnection )) then + warnlog( CFN & "Failed to establish UNO connection, hGetUnoService failed" ) + hGetOleObjectName() = "" else - ' Get a configuration provider
+ ' Get a configuration provider oUnoConfigurationAccess = oUnoOfficeConnection.createInstance( "com.sun.star.configuration.ConfigurationProvider" ) ' Get access - xViewRoot = oUnoConfigurationAccess.createInstanceWithArguments( "com.sun.star.configuration.ConfigurationAccess", aPropertyValue() )
+ xViewRoot = oUnoConfigurationAccess.createInstanceWithArguments( "com.sun.star.configuration.ConfigurationAccess", aPropertyValue() ) cConfigString = xViewRoot.getByName( "ObjectUIName" ) ' The string contains placeholders %PRODUCTNAME and %PRODUCTVERSION which have to be replaced @@ -119,11 +119,11 @@ function hGetOleObjectName( ObjectType as string ) as string else cString = gProductName & " " & gOfficeVersion & " " & right( cConfigString, len( cConfigString ) - 29 ) endif -
+ endif - hGetOleObjectName() = cString
-
+ hGetOleObjectName() = cString + end function '******************************************************************************* @@ -139,7 +139,7 @@ function GetOleDefaultNames() gOLEChart = hGetOleObjectName( "Chart" ) gOLEImpress = hGetOleObjectName( "Impress" ) gOLEDraw = hGetOleObjectName( "Draw" ) - gOLEMath = hGetOleObjectName( "Math" )
+ gOLEMath = hGetOleObjectName( "Math" ) end function diff --git a/testautomation/global/tools/includes/optional/t_xml_filter1.inc b/testautomation/global/tools/includes/optional/t_xml_filter1.inc index 96992320558c..226e2fd25e89 100644..100755 --- a/testautomation/global/tools/includes/optional/t_xml_filter1.inc +++ b/testautomation/global/tools/includes/optional/t_xml_filter1.inc @@ -1,828 +1,828 @@ -'encoding UTF-8 Do not remove or change this line!
-'*******************************************************************************
-'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'*
-'* Copyright 2008 by Sun Microsystems, Inc.
-'*
-'* OpenOffice.org - a multi-platform office productivity suite
-'*
-'* $RCSfile: t_xml_filter1.inc,v $
-'*
-'* $Revision: 1.1 $
-'*
-'* last change: $Author: jsi $ $Date: 2008-06-13 10:27:09 $
-'*
-'* This file is part of OpenOffice.org.
-'*
-'* OpenOffice.org is free software: you can redistribute it and/or modify
-'* it under the terms of the GNU Lesser General Public License version 3
-'* only, as published by the Free Software Foundation.
-'*
-'* OpenOffice.org is distributed in the hope that it will be useful,
-'* but WITHOUT ANY WARRANTY; without even the implied warranty of
-'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-'* GNU Lesser General Public License version 3 for more details
-'* (a copy is included in the LICENSE file that accompanied this code).
-'*
-'* You should have received a copy of the GNU Lesser General Public License
-'* version 3 along with OpenOffice.org. If not, see
-'* <http://www.openoffice.org/license.html>
-'* for a copy of the LGPLv3 License.
-'*
-'/******************************************************************************
-'*
-'* owner : helge.delfs@sun.com
-'*
-'* short description : Tools / XML Filter Settings Resource Test
-'*
-'\******************************************************************************
-
+'encoding UTF-8 Do not remove or change this line! +'******************************************************************************* +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: t_xml_filter1.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-13 10:27:09 $ +'* +'* This file is part of OpenOffice.org. +'* +'* OpenOffice.org is free software: you can redistribute it and/or modify +'* it under the terms of the GNU Lesser General Public License version 3 +'* only, as published by the Free Software Foundation. +'* +'* OpenOffice.org is distributed in the hope that it will be useful, +'* but WITHOUT ANY WARRANTY; without even the implied warranty of +'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +'* GNU Lesser General Public License version 3 for more details +'* (a copy is included in the LICENSE file that accompanied this code). +'* +'* You should have received a copy of the GNU Lesser General Public License +'* version 3 along with OpenOffice.org. If not, see +'* <http://www.openoffice.org/license.html> +'* for a copy of the LGPLv3 License. +'* +'/****************************************************************************** +'* +'* owner : helge.delfs@sun.com +'* +'* 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 <i>Tools -> XML Filter Settings</i>
- 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 (<i>finitialXMLSetting("docbook or word or excel")</i>).
- 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 "<MOD1 SPACE>"
- 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 "<SPACE>"
- 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
- '/// <i>[Loop]</i>
- '///+ <ol><li>Clicking the "New" button</li>
- '///+ <li>Clicking the "Edit" button</li></ol>
- Kontext "XMLFilterSettings"
- FilterList.TypeKeys "<HOME>"
- for ic = 1 to iCountOfXSLTStylesAfterInstallCheck
- Kontext "XMLFilterSettings"
+ 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 <i>Tools -> XML Filter Settings</i> + 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 (<i>finitialXMLSetting("docbook or word or excel")</i>). + 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 "<MOD1 SPACE>" + 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 "<SPACE>" + 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 + '/// <i>[Loop]</i> + '///+ <ol><li>Clicking the "New" button</li> + '///+ <li>Clicking the "Edit" button</li></ol> + Kontext "XMLFilterSettings" + FilterList.TypeKeys "<HOME>" + for ic = 1 to iCountOfXSLTStylesAfterInstallCheck + Kontext "XMLFilterSettings" if ( XMLFilterSettings.exists( 2 ) ) then -
- 'read the filter names from the dialog.
+ + '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 "<DOWN> " , ic-1
- ' printlog "DEBUG: Filtername: " & FilterList.GetItemText(ic)
- WaitSlot() ' Sort of NOOP
+ + 'lower case comparison! + sTempReadFilterName = lcase(sTempReadFilterName) + if InStr(sTempReadFilterName , sWhichFilterToUse) <> 0 then + FilterList.TypeKeys "<DOWN> " , 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
- '///+ <ul><li>Checking the count of applications. Should be 8.</li></ul>
- 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]
+ 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 + '///+ <ul><li>Checking the count of applications. Should be 8.</li></ul> + 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" - if ( XMLFilter.exists( 3 ) ) then
- printlog " +- Closing 'XML Filter: New Filter'-dialog."
+ 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?!"
+ 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).
- '///+<ul><li>Clicking on "Current Document"-button.</li></ul>
- 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
+ if ( TestXMLFilter.exists( 2 ) ) then + '/// If the application is Writer (because the default XSLT stylesheets are only Writer filter). + '///+<ul><li>Clicking on "Current Document"-button.</li></ul> + 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
+ end if else warnlog( "FATAL: TestXMLFilter not available" ) - end if
+ 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?!"
+ 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 <TestXMLFilter> 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" + '/// 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"
+ 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 <TestXMLFilter> is not available" ) endif -
- CloseBtn.Click
+ + 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
+ 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 <XMLFilterSettings> 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!"
+ + '/// 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 <XMLFilterSettings> 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
+ + '/// 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 <XMLFilterSettings> 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
+ '/// 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 <XMLFilterSettings> is not available" ) endif - Kontext "XMLFilterSettings"
- if ( XMLFilterSettings.exists( 1 ) ) then
- CloseBtn.Click
+ Kontext "XMLFilterSettings" + if ( XMLFilterSettings.exists( 1 ) ) then + CloseBtn.Click '/// Closing the opened application document. else warnlog( "Dialog <XMLFilterSettings> 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!"
+ + 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.<br>
-'///+ The result is TRUE if the packages are already available or if they
-'///+ have been installed successfully in this routine.
-'/// <u>Input</u>: excel, word, docbook, xhtml
-'/// <u>Output</u>: 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 <i>Tools -> XML Filter Settings</i>
- 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
+endcase + +'------------------------------------------------------------------------- + +sub fInitialXMLSetting( sXMLFilterType as string ) as boolean +'/// This small function adds the latest and greatest XSLT stylesheet +'///+ to the office.<br> +'///+ The result is TRUE if the packages are already available or if they +'///+ have been installed successfully in this routine. +'/// <u>Input</u>: excel, word, docbook, xhtml +'/// <u>Output</u>: 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 <i>Tools -> XML Filter Settings</i> + 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
+ 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
+ + 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 <OeffnenDlg> 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."
+ 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 <XMLFilterSettings> 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 "<HOME>"
- wait( 100 )
- FilterList.TypeKeys "<DOWN>" , (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
-
+ 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 "<HOME>" + wait( 100 ) + FilterList.TypeKeys "<DOWN>" , (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 + diff --git a/testautomation/global/tools/includes/required/t_option.inc b/testautomation/global/tools/includes/required/t_option.inc index 6ba837d79f84..8d79cbda42cf 100755 --- a/testautomation/global/tools/includes/required/t_option.inc +++ b/testautomation/global/tools/includes/required/t_option.inc @@ -279,11 +279,6 @@ function hToolsOptions ( Applicationname as string, Tabpagename as string, OPTIO Kontext "ExtrasOptionenDlg" select case Tabpagename case "PROXY" - Kontext "ProxyWarnung" - if ProxyWarnung.Exists then - NichtMehrAnzeigen.Check - ProxyWarnung.OK - end if Kontext "TabProxyServer" if TabProxyServer.exists(2) then bCorPage = TRUE case "SEARCH" diff --git a/testautomation/global/win/bars.win b/testautomation/global/win/bars.win index 993ce8347d90..75c23a86f2cd 100755 --- a/testautomation/global/win/bars.win +++ b/testautomation/global/win/bars.win @@ -591,7 +591,6 @@ EigenschaftenControls SID_SHOW_BROWSER EigenschaftenObjekt .uno:FrameDialog GanzNachHinten .uno:SendToBack GanzNachVorn .uno:BringToFront -GrafikBearbeiten SID_SIM_START Hintergrundfarbe .uno:BackgroundColor Hintergrundmuster SID_BACKGROUND_PATTERN HorizontalSpiegeln FN_FLIP_HORZ_GRAFIC @@ -671,7 +670,6 @@ Flaechenstil SID_ATTR_FILL_STYLE Gamma .uno:GrafGamma GanzNachHinten SID_FRAME_TO_BOTTOM GanzNachVorn SID_FRAME_TO_TOP -GrafikBearbeiten SID_SIM_START GrafikEigenschaften FN_FORMAT_GRAFIC_DLG Grafikmodus .uno:GrafMode Gruenanteil .uno:GrafGreen diff --git a/testautomation/global/win/dial_d_h.win b/testautomation/global/win/dial_d_h.win index e7af03c506e6..48724c5eaa27 100755 --- a/testautomation/global/win/dial_d_h.win +++ b/testautomation/global/win/dial_d_h.win @@ -286,15 +286,15 @@ Groesse svtools:RadioButton:DLG_EXPORT_VEC:RB_SIZE_VEC Breite svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEX_VEC Hoehe svtools:MetricField:DLG_EXPORT_VEC:MTF_SIZEY_VEC -*EPSOptionen goodies:ModalDialog:DLG_EXPORT_EPS -VorschauTif goodies:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_TIFF -InterchangeEPSI goodies:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_EPSI -Level1 goodies:RadioButton:DLG_EXPORT_EPS:RB_LEVEL1 -Level2 goodies:RadioButton:DLG_EXPORT_EPS:RB_LEVEL2 -Farbe goodies:RadioButton:DLG_EXPORT_EPS:RB_COLOR -Graustufen goodies:RadioButton:DLG_EXPORT_EPS:RB_GRAYSCALE -LZWKodierung goodies:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_LZW -Keine goodies:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_NONE +*EPSOptionen filter:ModalDialog:DLG_EXPORT_EPS +VorschauTif filter:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_TIFF +InterchangeEPSI filter:CheckBox:DLG_EXPORT_EPS:CB_PREVIEW_EPSI +Level1 filter:RadioButton:DLG_EXPORT_EPS:RB_LEVEL1 +Level2 filter:RadioButton:DLG_EXPORT_EPS:RB_LEVEL2 +Farbe filter:RadioButton:DLG_EXPORT_EPS:RB_COLOR +Graustufen filter:RadioButton:DLG_EXPORT_EPS:RB_GRAYSCALE +LZWKodierung filter:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_LZW +Keine filter:RadioButton:DLG_EXPORT_EPS:RB_COMPRESSION_NONE *EtikettenSynchronisieren HID_SYNC_BTN Synchronisieren SW:PUSHBUTTON:DLG_SYNC_BTN:BTN_SYNC @@ -489,9 +489,9 @@ Aktualisieren HID_TEMPLDLG_UPDATEBYEXAMPLE Vorlagenliste HID_TEMPLATE_FMT Gruppenliste HID_TEMPLATE_FILTER -*GifOptionen goodies:ModalDialog:DLG_EXPORT_GIF -Interlace goodies:CheckBox:DLG_EXPORT_GIF:CBX_INTERLACED -TransparentSpeichern goodies:CheckBox:DLG_EXPORT_GIF:CBX_TRANSLUCENT +*GifOptionen filter:ModalDialog:DLG_EXPORT_GIF +Interlace filter:CheckBox:DLG_EXPORT_GIF:CBX_INTERLACED +TransparentSpeichern filter:CheckBox:DLG_EXPORT_GIF:CBX_TRANSLUCENT *GroupingDlg HID_SC_DPDATEGROUP AutoStart sc:RadioButton:RID_SCDLG_DPNUMGROUP:RB_AUTOSTART diff --git a/testautomation/global/win/dial_i_o.win b/testautomation/global/win/dial_i_o.win index 629da180900d..aa965b42f51d 100755 --- a/testautomation/global/win/dial_i_o.win +++ b/testautomation/global/win/dial_i_o.win @@ -259,11 +259,11 @@ Vorgaben1 sc:ImageButton:RID_SCDLG_TABOP:RB_FORMULARANGE Vorgaben2 sc:ImageButton:RID_SCDLG_TABOP:RB_ROWCELL Vorgaben3 sc:ImageButton:RID_SCDLG_TABOP:RB_COLCELL -*MetOptionen GOODIES:MODALDIALOG:DLG_EXPORT_EMET -Original GOODIES:RADIOBUTTON:DLG_EXPORT_EMET:RB_ORIGINAL -Groesse GOODIES:RADIOBUTTON:DLG_EXPORT_EMET:RB_SIZE -Breite GOODIES:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEX -Hoehe GOODIES:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEY +*MetOptionen FILTER:MODALDIALOG:DLG_EXPORT_EMET +Original FILTER:RADIOBUTTON:DLG_EXPORT_EMET:RB_ORIGINAL +Groesse FILTER:RADIOBUTTON:DLG_EXPORT_EMET:RB_SIZE +Breite FILTER:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEX +Hoehe FILTER:METRICFIELD:DLG_EXPORT_EMET:MTF_SIZEY *ModuleBearbeiten HID_EDIT_MODULES Sprache cui:ListBox:RID_SVXDLG_EDIT_MODULES:LB_EDIT_MODULES_LANGUAGE diff --git a/testautomation/global/win/dial_p_s.win b/testautomation/global/win/dial_p_s.win index 30e5ae62e6e4..6f76fe17b2bd 100755 --- a/testautomation/global/win/dial_p_s.win +++ b/testautomation/global/win/dial_p_s.win @@ -15,24 +15,24 @@ SchutzAufheben HID_CHG_PROTECT PasswortEingabe sfx2:Edit:DLG_PASSWD:ED_PASSWD_USER PasswortBestaetigen sfx2:Edit:DLG_PASSWD:ED_PASSWD_CONFIRM -*PBMOptionen goodies:ModalDialog:DLG_EXPORT_EPBM -Binaer goodies:RadioButton:DLG_EXPORT_EPBM:RB_RAW -Ascii goodies:RadioButton:DLG_EXPORT_EPBM:RB_ASCII +*PBMOptionen filter:ModalDialog:DLG_EXPORT_EPBM +Binaer filter:RadioButton:DLG_EXPORT_EPBM:RB_RAW +Ascii filter:RadioButton:DLG_EXPORT_EPBM:RB_ASCII *PfadeAuswaehlen HID_MULTIPATH Pfade HID_OPTIONS_MULTIPATH_LIST Hinzufuegen cui:PUSHBUTTON:RID_SVXDLG_MULTIPATH:BTN_ADD_MULTIPATH Loeschen cui:PUSHBUTTON:RID_SVXDLG_MULTIPATH:BTN_DEL_MULTIPATH -*PGMOptionen goodies:ModalDialog:DLG_EXPORT_EPGM -Binaer goodies:RadioButton:DLG_EXPORT_EPGM:RB_RAW -Ascii goodies:RadioButton:DLG_EXPORT_EPGM:RB_ASCII +*PGMOptionen filter:ModalDialog:DLG_EXPORT_EPGM +Binaer filter:RadioButton:DLG_EXPORT_EPGM:RB_RAW +Ascii filter:RadioButton:DLG_EXPORT_EPGM:RB_ASCII -*PICTOPtionen goodies:ModalDialog:DLG_EXPORT_EPCT -Original goodies:RadioButton:DLG_EXPORT_EPCT:RB_ORIGINAL -Groesse goodies:RadioButton:DLG_EXPORT_EPCT:RB_SIZE -Breite goodies:MetricField:DLG_EXPORT_EPCT:MTF_SIZEX -Hoehe goodies:MetricField:DLG_EXPORT_EPCT:MTF_SIZEY +*PICTOPtionen filter:ModalDialog:DLG_EXPORT_EPCT +Original filter:RadioButton:DLG_EXPORT_EPCT:RB_ORIGINAL +Groesse filter:RadioButton:DLG_EXPORT_EPCT:RB_SIZE +Breite filter:MetricField:DLG_EXPORT_EPCT:MTF_SIZEX +Hoehe filter:MetricField:DLG_EXPORT_EPCT:MTF_SIZEY *Pipette SID_BMPMASK svx:DockingWindow:RID_SVXDLG_BMPMASK PipetteKnopf HID_BMPMASK_TBI_PIPETTE @@ -79,12 +79,9 @@ Optionen cui:MULTILINEEDIT:MD_INSERT_OBJECT_PLUGIN:ED_PLUGINS_OPTIONS Kompression svtools:NumericField:DLG_EXPORT_EPNG:NUM_COMPRESSION Interlaced svtools:CheckBox:DLG_EXPORT_EPNG:CBX_INTERLACED -*PPMOptionen goodies:ModalDialog:DLG_EXPORT_EPPM -Binaer goodies:RadioButton:DLG_EXPORT_EPPM:RB_RAW -Ascii goodies:RadioButton:DLG_EXPORT_EPPM:RB_ASCII - -*ProxyWarnung cui:ModalDialog:RID_OFADLG_OPTIONS_TREE_HINT -NichtMehrAnzeigen cui:CheckBox:RID_OFADLG_OPTIONS_TREE_HINT:CB_DISABLE +*PPMOptionen filter:ModalDialog:DLG_EXPORT_EPPM +Binaer filter:RadioButton:DLG_EXPORT_EPPM:RB_RAW +Ascii filter:RadioButton:DLG_EXPORT_EPPM:RB_ASCII *QuelleAuswaehlen HID_DATAPILOT_TYPE AktuelleSelektion sc:RadioButton:RID_SCDLG_DAPITYPE:BTN_SELECTION @@ -235,11 +232,11 @@ FormatStarWriter sw:CheckBox:DLG_MAILMERGE:CB_FORMAT_SW Datenbankfeldliste sw:ListBox:DLG_MAILMERGE:LB_COLUMN *Silbentrennung HID_HYPHENATE svx:ModalDialog:RID_SVXDLG_HYPHENATE -Wort svx:Edit:RID_SVXDLG_HYPHENATE:ED_WORD -Vor svx:ImageButton:RID_SVXDLG_HYPHENATE:BTN_LEFT -Zurueck svx:ImageButton:RID_SVXDLG_HYPHENATE:BTN_RIGHT -Weiter svx:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_CONTINUE -Entfernen svx:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_DELETE +Wort cui:Edit:RID_SVXDLG_HYPHENATE:ED_WORD +Vor cui:ImageButton:RID_SVXDLG_HYPHENATE:BTN_LEFT +Zurueck cui:ImageButton:RID_SVXDLG_HYPHENATE:BTN_RIGHT +Weiter cui:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_CONTINUE +Entfernen cui:PushButton:RID_SVXDLG_HYPHENATE:BTN_HYPH_DELETE *SilbentrennungOptionen HID_LNGDLG_NUM_PREBREAK ZeichenVorUmbruch cui:NumericField:RID_SVXDLG_LNG_ED_NUM_PREBREAK:ED_PREBREAK @@ -345,7 +342,7 @@ FilterkriterienMin sc:ImageButton:RID_SCDLG_SPEC_FILTER:RB_CRITERIA_AREA FilterergebnisMin sc:ImageButton:RID_SCDLG_SPEC_FILTER:RB_COPY_AREA *SpracheAuswaehlen HID_THES_LANGUAGE -Auswahl svx:ListBox:RID_SVXDLG_THES_LANGUAGE:LB_THES_LANGUAGE +Auswahl cui:ListBox:RID_SVXDLG_THES_LANGUAGE:LB_THES_LANGUAGE *StandardFilter SID_FILTER FeldName1 sc:ListBox:RID_SCDLG_FILTER:LB_FIELD1 diff --git a/testautomation/global/win/dial_t_z.win b/testautomation/global/win/dial_t_z.win index 5c52f92c1de4..e660fdaeaf96 100755 --- a/testautomation/global/win/dial_t_z.win +++ b/testautomation/global/win/dial_t_z.win @@ -142,12 +142,12 @@ Textmarken sw:ComboBox:DLG_INSERT_BOOKMARK:CB_BOOKMARK Loeschen sw:PushButton:DLG_INSERT_BOOKMARK:BT_DELETE *Thesaurus SID_THESAURUS -Wort svx:ListBox:RID_SVXDLG_THESAURUS:LB_WORD -Ersetzen svx:Edit:RID_SVXDLG_THESAURUS:ED_REPL -Bedeutung svx:ListBox:RID_SVXDLG_THESAURUS:LB_MEAN -Synonym svx:ListBox:RID_SVXDLG_THESAURUS:LB_SYNON -Nachschlagen svx:PushButton:RID_SVXDLG_THESAURUS:BTN_LOOKUP -Sprache svx:PushButton:RID_SVXDLG_THESAURUS:BTN_LANGUAGE +Wort cui:ListBox:RID_SVXDLG_THESAURUS:LB_WORD +Ersetzen cui:Edit:RID_SVXDLG_THESAURUS:ED_REPL +Bedeutung cui:ListBox:RID_SVXDLG_THESAURUS:LB_MEAN +Synonym cui:ListBox:RID_SVXDLG_THESAURUS:LB_SYNON +Nachschlagen cui:PushButton:RID_SVXDLG_THESAURUS:BTN_LOOKUP +Sprache cui:PushButton:RID_SVXDLG_THESAURUS:BTN_LANGUAGE *Ueberblenden SID_POLYGON_MORPHING Attributierung sd:CheckBox:DLG_MORPH:CBX_ATTRIBUTES diff --git a/testautomation/global/win/etab_p_s.win b/testautomation/global/win/etab_p_s.win index 49a253bdb128..46f4a46b2f63 100755 --- a/testautomation/global/win/etab_p_s.win +++ b/testautomation/global/win/etab_p_s.win @@ -65,6 +65,8 @@ PrintOnly sc:CheckBox:RID_SCPAGE_PRINT:BTN_SELECTEDSHEETS ProxyServer cui:ListBox:RID_SVXPAGE_INET_PROXY:LB_PROXYMODE HttpProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTP_PROXY HttpPort cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTP_PORT +HttpsProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTPS_PROXY +HttpsPort cui:Edit:RID_SVXPAGE_INET_PROXY:ED_HTTPS_PORT FtpProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_FTP_PROXY FtpPort cui:Edit:RID_SVXPAGE_INET_PROXY:ED_FTP_PORT NoProxy cui:Edit:RID_SVXPAGE_INET_PROXY:ED_NOPROXYFOR |