mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

merged in DEV300_m57

Browse Source
This commit is contained in:
sb 2009-09-04 12:24:40 +02:00
parent e335318f7f
commit 0f4466a299
64 changed files with 3502 additions and 2766 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
testautomation/chart2/optional/ch2_lvl1_wizard.bas
View File

@ -49,11 +49,13 @@ sub main
use "chart2\tools\ch_tools_tab_pages.inc"
use "chart2\tools\ch_tools_select.inc"
use "chart2\optional\includes\wizard\ch2_lvl1_wizard.inc"
use "chart2\optional\includes\wizard\ch2_lvl1_wizard2.inc"
Call hStatusIn ( "Chart2", "ch2_lvl1_wizard.bas" )
Call tCreateNew3DChart
Call tCreateNewLineChart
Call tCreateNewBubbleChart
Call tCreateNewFilledNetChart
Call hStatusOut
end sub

130
testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard2.inc Normal file
View File

@ -0,0 +1,130 @@
'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: ch2_lvl1_wizard2.inc,v $
'*
'* $Revision: 1.2 $
'*
'* last change: $Author: obo $ $Date: 2008-07-22 10:36:56 $
'*
'* 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 : oliver.craemer@sun.com
'*
'* short description : New chart types
'*
'************************************************************************
'*
' #1 tCreateNewFilledNetChart ' Create a new filled netchart and check the preserved values
'*
'\************************************************************************
testcase tCreateNewFilledNetChart
Dim sInputFile as STRING
Dim sOutputFile as STRING
Dim sControlString as STRING
Dim iChartVariant as integer
Dim iChartVariantText as string
sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/randomData.ods" )
sOutputFile = convertpath ( gOfficePath & "user/work/tCreateNewFilledChart.ods" )
printlog "Load test document TesttoolPath/chart2/optional/input/randomData.ods"
call hFileOpen(sInputFile)
sleep(2)
printlog "Save document as OfficePath/user/work/tCreateNewFilledNetChart.ods"
if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then
warnlog "Saving test document localy failed -> Aborting"
call hCloseDocument
goto endsub
endif
printlog "Insert / Chart"
InsertChart
sleep(5)
Kontext "ChartType"
if NOT ChartType.Exists(5) then
warnlog "Chart Wizard was not visible. EXITING!"
goto endsub
else
printlog "Chart Wizard visible."
end if
printlog "Choose the Chart type net (should be the eights in the top-down list)"
if fSetChartType( "net" ) > 0 then
warnlog "Something went wrong setting chart type to BAR."
endif
printlog "Select 4th chart variant from left (filled)"
if fSetChartTypeVariant( 4 ) > 0 then
warnlog "Something went wrong setting chart type VARIANT."
endif
printlog "Create Chart by clicking Finish-button"
Kontext "ChartWizard"
ChartWizard.OK
sleep(2)
printlog "File / Save"
FileSave
Kontext "DocumentCalc"
printlog "Press twice <ESCAPE>-key"
DocumentCalc.TypeKeys "<Escape>" , 2
printlog "File / Close document"
Call hCloseDocument
sleep(2)
printlog "Open saved file again"
call hFileOpen(sOutputFile)
sleep(2)
printlog "Open the Navigator (F5)"
printlog "Select the first OLE object in the Navigator"
call fSelectFirstOLE
printlog "Edit / Object / Edit to enter Inplace Mode"
EditObjectEdit
printlog "Format / Chart Type"
FormatChartType
Kontext "ChartType"
if ChartType.Exists(2) then
printlog "Check if chart type is NET CHART"
if ChooseType.GetSelIndex <> 8 then
warnlog "Selected chart type wasn't preserved after save and reload."
endif
printlog "Check if chart variant is Filled Net CHART (4th variant in non-CTL versions from the left)"
if Variant.GetSelIndex <> 4 then
warnlog "Selected chart type variant wasn't preserved after save and reload."
end if
printlog "Leave Chart Type dialog with Cancel"
Kontext "ChartType"
if ChartType.Exists(2) then
ChartType.Cancel
else
warnlog "ChartType dialog was not visible!?"
end if
else
warnlog "Chart Type dialog was not up!"
end if
printlog "Press ESCAPE button (deselecting the OLE object)"
Kontext "DocumentCalc"
DocumentCalc.TypeKeys "<Escape>"
printlog "Close document"
Call hCloseDocument
endcase

11
testautomation/chart2/required/includes/ch2_insert_ctl.inc
View File

@ -318,8 +318,15 @@ testcase tEquationTextDirection
printlog "Leave the dialog with OK"
InsertTrendlinesDialog.OK
Kontext "DocumentChart"
printlog "Type thrice in the Chart document <TAB> to select the equation"
DocumentChart.TypeKeys "<TAB>" , 3
printlog "Leave Chart by ESC and reenter Chart"
DocumentChart.TypeKeys "<ESC>" , 2
call fSelectFirstOLE
EditObjectEdit
Kontext "DocumentChart"
printlog "Type <TAB> thrice in the Chart document, press F3 and <TAB> to select the equation"
DocumentChart.TypeKeys "<TAB>" , 3
DocumentChart.TypeKeys "<F3>"
DocumentChart.TypeKeys "<TAB>"
printlog "Format / Object properties"
FormatObjectProperties
Kontext

4
testautomation/chart2/tools/ch_tools_chart_type.inc
View File

@ -254,8 +254,8 @@ function fSetChartTypeVariant ( iChartTypeVariant as INTEGER ) as INTEGER
iMaximumVariant = 3
endif
case 7 : iMaximumVariant = 1
case 4, 8 : iMaximumVariant = 3
case 3, 5, 6, 9 : iMaximumVariant = 4
case 4 : iMaximumVariant = 3
case 3, 5, 6, 8 ,9 : iMaximumVariant = 4
case 10 : iMaximumVariant = 2
end select

15
testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc
View File

@ -172,11 +172,20 @@ testcase tOpenNoneDatabaseDocument
Kontext "DocumentCalc"
if (DocumentCalc.exists()) then
printlog "the spreadsheet is loaded"
printlog "close spreadsheet again"
warnlog "the spreadsheet should not appear"
call hCloseDocument()
else
warnlog "the spreadsheet is not loaded"
Kontext "MessageBox"
if(MessageBox.exists(1)) then
printlog "messagebox appear ->> OK"
MessageBox.OK
Kontext "DatabaseWizard"
DatabaseWizard.Cancel
else
warnlog "there should be a message box about the fact that this is no database"
Kontext "DatabaseWizard"
DatabaseWizard.Cancel
endif
endif
endcase

8
testautomation/extensions/optional/includes/fileopen.inc
View File

@ -70,12 +70,16 @@ testcase tExtensionFileOpen
printlog( "Reopen Extension Manager UI, click Add.. and check the directory" )
ToolsPackageManager
kontext "PackageManager"
if ( PackageManager.exists( 3 ) ) then
Add.click()
Kontext "OeffnenDlg"
if ( OeffnenDlg.exists( 2 ) ) then
DateiAuswahl.select( DateiAuswahl.getItemCount() )
printlog( "Select the last item in the list which should be the extension" )
DateiAuswahl.select( Dateiauswahl.getItemCount() )
cString = DateiAuswahl.getSelText()
if ( cString <> EXTENSION_NAME ) then
warnlog( "Incorrect extension listed. Please check path and filename" )
@ -85,11 +89,13 @@ testcase tExtensionFileOpen
else
printlog( "Found correct extension, the dialog remembers the path" )
endif
kontext "OeffnenDlg"
OeffnenDlg.cancel()
else
warnlog( "Could not access Add Extensions Dialog" )
endif
kontext "PackageManager"
PackageManager.close()
else

8
testautomation/framework/optional/includes/basic_eventbinding.inc
View File

@ -234,9 +234,14 @@ endcase
testcase tAssignComponentFunction
dim x,i,a as integer
dim sTemp as string
dim sPath as string
sPath = gTesttoolPath & "framework\optional\input/eventbinding/"
dim sExtension as string
sExtension = "DialogComponent.oxt"
sExtensionCLI("list","")
sExtensionCLI("add","DialogComponent.oxt",convertPath(gTestToolPath + "framework\optional\input/eventbinding/") )
'sExtensionCLI("add","DialogComponent.oxt",convertPath(gTestToolPath + "framework\optional\input/eventbinding/") )
hExtensionAddGUI( sPath & sExtension, "" )
hFileOpen(convertPath(gTestToolPath + "framework\optional\input/eventbinding/DialogComponent.odt"))
kontext "SecurityWarning"
if SecurityWarning.exists(5) then
@ -312,5 +317,6 @@ testcase tAssignComponentFunction
' vnd.sun.star.UNO:copyText
sExtensionCLI("remove","DialogComponent.oxt" )
'hExtension RemoveGUI( sExtension )
hCloseDocument()
endcase

71
testautomation/framework/optional/includes/basic_formcontrols.inc
View File

@ -39,10 +39,7 @@
testcase tAllControlsOnDialog( cMajor as string )
'///<h1>Basic test for macro controls</h1>
'///<i>This test opens the applications and creates a basic dialog.
'///+On this dialog all control are inserted, the document is saved and reloaded
'///+to see if the dialog and the controls still exist.</i><br><br>
printlog( "Insert all available controls into a BASIC dialog and verify that changed settings persist a save/load cycle" )
dim iApplication as Integer ' numeric expression for gApplication
dim cApplication as string ' Name of the current application
@ -64,29 +61,21 @@ testcase tAllControlsOnDialog( cMajor as string )
const CMODULE = "tacod" ' abbreviation for tAllControlsOnDialog
'///<b>save/load-test for controls on a basic-dialog in all applications</b>
'///<ul>
'///+<li>open a new doc (for Writer only)</li>
' If you want to test all applications, make iApplication = 1 to 6
printlog( "Perform the test for one application only: WRITER" )
for iApplication = 1 to 1
' switch documenttype (writer, calc, impress, draw ...)
printlog( "Set document type" )
cApplication = hNumericDoctype( iApplication )
' get the name of the workfile dependent on gApplication
'///+<li>Build a path and a filename (path from UNO, Suffix from global-module)</li>
printlog( "Build the filename" )
sFile = hGetWorkPath() & "basic" & hGetSuffix( cMajor )
sFile = ConvertPath( sFile )
printlog( "Using file: " & sFile )
' delete the file if it exists, the outcome has no influence on the test
' so the returnvalue is ignored
printlog( "Delete the file, if it exists" )
hDeleteFile( sFile )
' open a new document to work with (2 open AFTER this)
'///+<li>Open a new document to work with</li>
printlog( "Open a second document" )
printlog( "" )
printlog( cApplication )
brc = hCreateDocument()
@ -95,9 +84,9 @@ testcase tAllControlsOnDialog( cMajor as string )
goto endsub
endif
'///+<li>Create a new module for the new document</li>
'///+<li>Create a new dialog in BasicIDE</li>
'///+<li>Open the macro controls float</li>
printlog( "Create a new module for the new document" )
printlog( "Create a new dialog in BasicIDE" )
printlog( "Open the macro controls float" )
bOpen = hInitFormControls( CMODULE )
if ( not bOpen ) then
printlog( "Aborting due to previous errors" )
@ -118,7 +107,7 @@ testcase tAllControlsOnDialog( cMajor as string )
Kontext "BASICIDE"
'///+<li>close the BASIC-IDE</li>
printlog( "close the BASIC-IDE" )
hCloseBasicIde()
@ -144,7 +133,7 @@ testcase tAllControlsOnDialog( cMajor as string )
goto endsub
endif
'///+<li>Click 'Edit' to edit the module</li>
printlog( "Click 'Edit' to edit the module" )
printlog( "Edit the module" )
Bearbeiten.Click()
if ( WaitSlot <> WSFinished ) then
@ -152,7 +141,7 @@ testcase tAllControlsOnDialog( cMajor as string )
endif
kontext "BasicIDE"
'///+<li>Find the dialog we created before</li>
printlog( "Find the dialog we created before" )
' try to find our dialog again by stepping through the tabbar
bOpen = hFindFirstDialog()
if ( not bOpen ) then
@ -162,7 +151,7 @@ testcase tAllControlsOnDialog( cMajor as string )
goto endsub
endif
'///+<li>Open the macro controls float</li>
printlog( "Open the macro controls float" )
' if the dialog is open, open the macro controls toolbar as well,
' we need access to the "properties" button
bOpen = hShowMacroControls()
@ -173,7 +162,7 @@ testcase tAllControlsOnDialog( cMajor as string )
goto endsub
endif
'///+<li>Select every control, open its properties and verify its name, close properties</li>
printlog( "Select every control, open its properties and verify its name, close properties" )
for iCurrentControl = 1 to ICONTROLCOUNT
if ( instr( gtSysName, "Solaris" ) > 0 ) then
@ -191,7 +180,7 @@ testcase tAllControlsOnDialog( cMajor as string )
' we need to delete the list-content otherwise we run into index-problems
ListAllDelete( lsControlNames() )
'///+<li>Cleanup: Close the BASIC-IDE</li>
printlog( "Cleanup: Close the BASIC-IDE" )
printlog( "Close the BASIC IDE" )
hCloseBasicIde()
@ -200,25 +189,22 @@ testcase tAllControlsOnDialog( cMajor as string )
endif
printlog "Save the document"
'///+<li>save the document</li>
printlog( "save the document" )
Call hFileSaveAsKill( sFile )
printlog "Close it"
'///+<li>close the document</li>
'///</ul>
printlog( "close the document" )
brc = hDestroyDocument()
printlog( "" )
printlog( "Test case 2: Verify that all items keep their names after close and reload of the document" )
'///<b>check all controls in the saved document</b>
printlog "Open the file again"
'///<ul>
'///+<li>open the document</li>
printlog( "Open the file again" )
printlog( "Open the document" )
hFileOpen( sFile )
printlog "Open tools/macro and select the last module for the current document"
'///+<li>open the basic-IDE of this document, open controls, activate 'Select-mode' and open the properties</li>
printlog( "open the basic-IDE of this document, open controls, activate 'Select-mode' and open the properties" )
ToolsMacro_uno
kontext "Makro"
irc = hSelectNodeByName( MakroAus , CMODULE )
@ -238,7 +224,7 @@ testcase tAllControlsOnDialog( cMajor as string )
goto endsub
endif
'///+<li>Click 'Edit' to edit the module</li>
printlog( "Click 'Edit' to edit the module" )
printlog( "Edit the module" )
Bearbeiten.Click()
if ( WaitSlot <> WSFinished ) then
@ -246,7 +232,7 @@ testcase tAllControlsOnDialog( cMajor as string )
endif
kontext "BasicIDE"
'///+<li>Find the dialog we created before</li>
printlog( "Find the dialog we created before" )
' try to find our dialog again by stepping through the tabbar
bOpen = hFindFirstDialog()
if ( not bOpen ) then
@ -256,7 +242,7 @@ testcase tAllControlsOnDialog( cMajor as string )
goto endsub
endif
'///+<li>Open the macro controls float</li>
printlog( "Open the macro controls float" )
' if the dialog is open, open the macro controls toolbar as well,
' we need access to the "properties" button
bOpen = hShowMacroControls()
@ -267,7 +253,7 @@ testcase tAllControlsOnDialog( cMajor as string )
goto endsub
endif
'///+<li>Select every control, open its properties and verify its name, close properties</li>
printlog( "Select every control, open its properties and verify its name, close properties" )
for iCurrentControl = 1 to ICONTROLCOUNT
if ( instr( gtSysName, "Solaris" ) > 0 ) then
@ -285,19 +271,18 @@ testcase tAllControlsOnDialog( cMajor as string )
' we need to delete the list-content otherwise we run into index-problems
ListAllDelete( lsControlNames() )
'///+<li>Cleanup: Close the BASIC-IDE</li>
printlog( "Cleanup: Close the BASIC-IDE" )
printlog( "Close the BASIC IDE" )
hCloseBasicIde()
'///+<li>Cleanup: Close the document</li>
printlog( "Cleanup: Close the document" )
printlog( "Close the document" )
brc = hDestroyDocument()
'///+<li>Cleanup: Delete the file we created</li>
printlog( "Cleanup: Delete the file we created" )
hDeleteFile( sFile )
'///+<li>Repeat this for every application</li>
'///</ul>
printlog( "Repeat this for every application" )
next iApplication

23
testautomation/framework/optional/includes/basic_library_export.inc
View File

@ -163,15 +163,20 @@ testcase tBasicLibraryExport
printlog( "Close the macro/libraries organizer" )
kontext "TabBibliotheken"
TabBibliotheken.cancel()
printlog( "Cancel macro organizer" )
kontext "Makro"
Makro.cancel()
while( getDocumentCount > 0 )
hDestroyDocument()
wend
if ( TabBibliotheken.exists( 1 ) ) then
TabBibliotheken.cancel()
printlog( "Cancel macro organizer" )
kontext "Makro"
Makro.cancel()
while( getDocumentCount > 0 )
hDestroyDocument()
wend
else
warnlog( "Dialog <TabBibliotheken> could not be accessed" )
call exitRestartTheOffice()
endif
endcase

32
testautomation/framework/optional/includes/options_ooo_view.inc
View File

@ -136,11 +136,27 @@ sub checkPage( sFile as string , bDisabled as boolean, optional iMiddleMouseButt
iTemp = 2 ' Automatic scrolling
endif
if Itemp = iMiddleMouseButton then
printlog " * Middle mouse button: OK"
printlog " * Middle mouse button: ok"
else
warnlog "Middle mouse button: expected: '" + iTemp + "' '" + MausAktion.getItemText(iTemp) + "'; is: '" + iMiddleMouseButton + "' '" + MausAktion.getItemText(iMiddleMouseButton) + "'"
warnlog "Middle mouse button: expected: '" + iTemp + "' '" _
+ MausAktion.getItemText(iTemp) + "'; is: '" _
+ iMiddleMouseButton + "' '" _
+ MausAktion.getItemText(iMiddleMouseButton) + "'"
endif
endif
if ( Transparency.isEnabled() ) then
if ( Transparency.isChecked() ) then
checkCheckBox( sFile , "*" , transparency )
checkEntryField( sFile , "*", selectionopacity )
else
Transparency.check()
checkEntryField( sFile , "*", selectionopacity, "i104150" )
Transparency.unCheck()
endif
else
printlog( "Transparency is not available on this system" )
endif
Kontext "OptionenDLG"
OptionenDLG.OK
@ -205,6 +221,18 @@ sub changePage( sFile as string , bInverted as boolean, optional iMiddleMouseBut
MausAktion.select(2) ' Automatic scrolling
endif
endif
if ( Transparency.isEnabled() ) then
if ( Transparency.isChecked() ) then
setEntryField( sFile , "*", selectionopacity )
setCheckBox( sFile , "*" , transparency )
else
setCheckBox( sFile , "*" , transparency )
setEntryField( sFile , "*", selectionopacity )
endif
else
printlog( "Transparency is not available on this system" )
endif
Kontext "OptionenDLG"
OptionenDLG.OK

2
testautomation/framework/optional/input/options/ooo_view_changed.ref
View File

@ -15,4 +15,6 @@ UseHardwareAcceleration=checked
useantialiasing=unchecked
mousepositioning=2
mausaktion=1
transparency=unchecked
selectionopacity=10%

2
testautomation/framework/optional/input/options/ooo_view_defaults.ref
View File

@ -14,4 +14,6 @@ useantialiasing=checked
usehardwareacceleration=disabled
mousepositioning=3
mausaktion=2
transparency=checked
selectionopacity=75%

2
testautomation/framework/required/f_tools_customize.bas
View File

@ -39,6 +39,8 @@
sub main
GLOBAL_USE_NEW_SLEEP = TRUE
use "framework\required\includes\tools_customize.inc"
dim cApp as string

153
testautomation/framework/required/includes/tools_customize.inc
View File

@ -39,41 +39,24 @@
testcase tUpdtCustomize( cApp as string )
'///<h1>Update test for the Tools/Customize Dialog</h1>
'///<ul>
const CANCEL_BUTTON = 1
dim brc as boolean
'///+<li>Open a new document (abort test on failure)</li>
brc = hCreateDocument()
if ( not brc ) then
warnlog( "Abort: Failed to create requested document: " & gApplication )
goto endsub
printlog( "Tools/Customize dialog" )
const CLOSE_METHOD = 1 ' 1 = Cancel button
if ( hCreateDocument() ) then
if ( hToolsCustomizeOpen() ) then
hUpdtToolsCustomizeKeyboard()
hUpdtToolsCustomizeMenu()
hUpdtToolsCustomizeToolbars()
hUpdtToolsCustomizeEvents()
hToolsCustomizeClose( CLOSE_METHOD )
else
warnlog( "Tools/Customize dialog did not open" )
endif
hDestroyDocument
else
warnlog( "Failed to create initial document" )
endif
'///+<li>Open Tools Customize</li>
brc = hToolsCustomizeOpen()
'///+<li>Look at the Keyboard-Tabpage</li>
hUpdtToolsCustomizeKeyboard()
'///+<li>Look at the Menu-Tabpage</li>
hUpdtToolsCustomizeMenu()
'///+<li>Look at the Toolbars-Tabpage</li>
hUpdtToolsCustomizeToolbars()
'///+<li>Look at the Events-Tabpage</li>
hUpdtToolsCustomizeEvents()
'///+<li>Close Tools Customize</li>
brc = hToolsCustomizeClose( CANCEL_BUTTON )
'///+<li>Close the document</li>
brc = hDestroyDocument
'///</ul>
endcase
'*******************************************************************************
@ -142,7 +125,7 @@ function hUpdtToolsCustomizeMenu()
'///+<li>Click the Menu List-Button</li>
printlog( CFN & "Click the menu listbutton" )
kontext "TabCustomizeMenu"
MenuBtn.click()
hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
'///+<li>Select the first entry (Move...) to open the Menu Organiser</li>
printlog( CFN & "Select Move..." )
@ -165,7 +148,7 @@ function hUpdtToolsCustomizeMenu()
'///+<li>Click the Menu List-Button</li>
printlog( CFN & "Click the menu listbutton" )
kontext "TabCustomizeMenu"
MenuBtn.click()
hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
'///+<li>Select the second entry (Rename...) to open the Rename dialog</li>
printlog( CFN & "Select Rename..." )
@ -179,7 +162,7 @@ function hUpdtToolsCustomizeMenu()
'///+<li>Click the Menu List-Button</li>
printlog( CFN & "Click the menu listbutton" )
kontext "TabCustomizeMenu"
MenuBtn.click()
hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
'///+<li>Select the third entry (Delete) to delete the new menu<br>
'///+Note that there will be no warning as the menu is empty</li>
@ -361,8 +344,9 @@ function hUpdtToolsCustomizeToolbars()
'///+<li>Access the &quot;Toolbar&quot;-Button and rename the toolbar</li>
printlog( CFN & "Rename the toolbar via Toolbar-Button" )
kontext "TabCustomizeToolbars"
MenuBtn.click()
waitslot
hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
printlog( "Select rename" )
hMenuSelectNr( 1 )
'///+<li>Cancel the renaming-dialog</li>
@ -379,8 +363,9 @@ function hUpdtToolsCustomizeToolbars()
'///+Note that there will be no deletion warning</li>
printlog( CFN & "Delete the toolbar via Toolbar-Button" )
kontext "TabCustomizeToolbars"
MenuBtn.click()
waitslot
hOpenMenuButton( MenuBtn ) ' MenuBtn.OpenMenu()
printlog( "Select delete" )
hMenuSelectNr( 2 )
'///+<li>Click the &quot;Add Commands...&quot; button</li>
@ -399,7 +384,6 @@ function hUpdtToolsCustomizeToolbars()
endif
'///+<li>Click &quot;Down&quot;</li>
WaitSlot()
printlog( CFN & "Down..." )
if ( BtnDown.isEnabled() ) then
BtnDown.click()
@ -846,4 +830,91 @@ function hToolsCustomizeTestSaveIn( iItems as integer ) as boolean
end function
'*******************************************************************************
function hOpenMenuButton( oControl as object ) as integer
' This function is very evil.
' It was written to hopefully workaround the infamous menubutton which is a button
' that - when clicked - opens a menu. This feature is shaky and depends on
' a lot of factors. There is a simple working implemantation in t_menu.inc
' which has the drawback of being absolutely slow, costing the tools_customize
' test a lot of time waiting for the control (30% of testtime spent waiting).
' This approach tries to be dynamic: Machines that can do it the fast way
' use it automatically, machines that are too slow get two retries with the
' slower approach.
' The menubutton is one of the last remaining places where none of the
' speed optmizations and enhancements apply, so neither WaitSlot() nor
' synchronous slot execution help here.
dim iClick as integer
dim bUseSlowMethod as boolean : bUseSlowMethod = false
const CFN = "hOpenMenuButton: "
hOpenMenuButton() = -1 ' this is the general failure returnvalue
for iClick = 1 to 3
if ( bUseSlowMethod ) then
wait( 1000 )
oControl.OpenMenu()
wait( 3000 )
else
oControl.click()
endif
try
hOpenMenuButton() = MenuGetItemCount
printlog( CFN & "Success on " & iClick & ". attempt" )
exit function
catch
qaerrorlog( CFN & "#i96753 - Failed to retrieve itemcount from Menu-/Command-button" )
bUseSlowMethod = true
endcatch
next iClick
end function
'*******************************************************************************
function hClickCommandButton( iItemToClick as integer ) as boolean
const CFN = "hClickCommandButton::"
printlog( CFN & "Enter" )
dim brc as boolean 'a multi purpose boolean returnvalue
dim iMenuItems as integer
iMenuItems = hOpenMenuButton( Command )
' exit on error
if ( iMenuItems < 0 ) then
warnlog( CFN & "Menu apparently not open, giving up." )
hClickCommandButton() = false
exit function
endif
hMenuSelectNr( iItemToClick )
wait( 500 )
' check for the rename dialog (menu)
kontext "CustomizeMenuReName"
if ( CustomizeMenuReName.exists() ) then
printlog( CFN & "Opened dialog: Rename Menu" )
hClickCommandButton() = true
exit function
endif
' check for the rename dialog (toolbar)
kontext "CustomizeToolbarsRename"
if ( CustomizeToolbarsRename.exists() ) then
printlog( CFN & "Opened dialog: Rename Toolbar" )
hClickCommandButton() = true
exit function
endif
printlog( CFN & "Exit" )
hClickCommandButton() = true
end function

144
testautomation/framework/required/includes/window_functions.inc
View File

@ -39,180 +39,114 @@
testcase tWindowFunctions
printlog( "Update test for window functions" )
if ( gtSysName = "Mac OS X" ) then
printlog( "No testing for Mac as some Window attributes do not exist" )
goto endsub
endif
'///<h1>Update test for window functionality</h1>
'///<ul>
dim brc as boolean
'///+<li>Verify that we have one initial document open</li>
printlog( "Create initial document" )
gApplication = "WRITER"
hInitSingleDoc()
hInitWriteDocIdentifier( "F_updt_windowfuncs.bas" )
'///+<li>Create a new document</li>
printlog( "New document" )
hCreateDocument()
hNewDocument()
if ( getDocumentCount <> 2 ) then
warnlog( "Two open documents were expected, found " & getDocumentCount )
endif
DocumentWriter.restore()
'///+<li>Use .close()-method to close document</li>
kontext "documentwriter"
kontext "DocumentWriter"
printlog( "Close document" )
DocumentWriter.close()
'///+<li>Verify that the document is closed</li>
if ( getDocumentCount <> 1 ) then
warnlog( "One open document was expected, found " & getDocumentCount )
endif
'///+<li>Create a new document</li>
printlog( "New document" )
hCreateDocument()
hNewDocument()
if ( getDocumentCount <> 2) then
warnlog( "Two open documents were expected, found " & getDocumentCount )
endif
'///+<li>Write some text into the second writer document</li>
'///+<li>Use .close()-method to close document</li>
printlog( "Enter some text into the second writer document" )
kontext "documentwriter"
kontext "DocumentWriter"
DocumentWriter.TypeKeys( "test" )
DocumentWriter.close()
'///+<li>Close the message (Document changed)</li>
kontext "active"
if ( Active.exists() ) then
printlog( "Close messagebox with Cancel (leaves the document open)" )
Active.Cancel()
printlog( "Close messagebox" )
else
warnlog( "No warning that data will be lost on close of this document" )
endif
'///+<li>Verify that exactly two documents are open</li>
kontext "DocumentWriter"
if ( getDocumentCount = 2 ) then
printlog( "One document open. Good." )
printlog( "Two documents open. Good." )
else
warnlog( "Incorrect document count. Expected two, found " & getDocumentCount )
endif
'///+<li>Close the document using FileClose</li>
hDestroyDocument() ' note tha hCloseDoc/hDestroyDocument use FileClose
kontext "DocumentWriter"
printlog( "Close the document" )
FileClose()
'///+<li>Verify that exactly one document is open</li>
kontext "Active"
if ( Active.exists() ) then
printlog( "Do not save the document" )
Active.No()
else
warnlog( "Warning: No data loss warning" )
endif
kontext "DocumentWriter"
if ( getDocumentCount = 1 ) then
printlog( "One document open. Good." )
else
warnlog( "Incorrect document count. Expected one, found " & getDocumentCount )
endif
'///+<li>Create a new document</li>
printlog( "New document" )
brc = hCreateDocument()
if ( not brc ) then
warnlog( "Two open documents were expected, found " & getDocumentCount() )
endif
kontext "documentwriter"
'///+<li>Maximize Window</li>
'///<ul>
printlog( "Maximize window" )
DocumentWriter.Maximize()
sleep( 2 )
'///+<li>Verify state: Maximized (true)</li>
if ( DocumentWriter.IsMax() ) then
printlog( " * Window is maximized" )
else
warnlog( " * Window not maximized" )
endif
'///+<li>Verify state: Minimized (false)</li>
if ( DocumentWriter.IsMin() ) then
warnlog( " * Window is minimized" )
else
printlog( " * Window not minimized" )
endif
'///+<li>Verify state: Restored (false)</li>
if ( DocumentWriter.IsRestore() ) then
warnlog( " * Window is Restored" )
else
printlog( " * Window not Restored" )
endif
'///</ul>
'///<li>Minimize Window</li>
'///<ul>
Kontext "DocumentWriter"
printlog( "Minimize window" )
DocumentWriter.Minimize()
sleep( 2 )
Wait( 2000 )
'///+<li>Verify state: Minimized (true)</li>
kontext "DocumentWriter"
if ( DocumentWriter.IsMin() ) then
printlog( " * Window is minimized" )
printlog( "Window is minimized" )
else
qaerrorlog( "#i32672# Window not minimized" )
endif
'///+<li>Verify state: Maximized (false)</li>
if ( DocumentWriter.IsMax() ) then
warnlog( " * Window is maximized" )
else
printlog( " * Window not maximized" )
endif
'///+<li>Verify state: Restored (false)</li>
if ( DocumentWriter.IsRestore() ) then
qaerrorlog( "#i32672# Window is Restored" )
else
printlog( " * Window not Restored" )
endif
'///</ul>
'///<li>Restore Window</li>
'///<ul>
kontext "DocumentWriter"
printlog( "Restore window" )
DocumentWriter.Restore()
sleep( 2 )
Wait( 2000 )
'///+<li>Verify state: Restored (true)</li>
if ( DocumentWriter.IsRestore() ) then
printlog( " * Window is Restored" )
printlog( "Window is Restored" )
else
warnlog( " * Window not Restored" )
endif
'///+<li>Verify state: Maximized (false)</li>
if ( DocumentWriter.IsMax() ) then
warnlog( " * Window is maximized" )
else
printlog( " * Window not maximized" )
endif
'///+<li>Verify state: Minimized (false)</li>
if ( DocumentWriter.IsMin() ) then
warnlog( " * Window is minimized" )
else
printlog( " * Window not minimized" )
endif
'///</ul>
kontext "DocumentWriter"
printlog( "Maximize window" )
DocumentWriter.Maximize()
Wait( 2000 )
'///+<li>Close the documents</li>
brc = hDestroyDocument()
brc = hDestroyDocument()
kontext "DocumentWriter"
if ( DocumentWriter.IsMax() ) then
printlog( "Window is maximized" )
else
warnlog( " * Window not maximized" )
endif
'///</ul>
hDestroyDocument()
endcase

117
testautomation/framework/tools/includes/customize_tools.inc
View File

@ -316,24 +316,29 @@ function hDeselectSeparator() as integer
const CFN = "hDeselectSeparator::"
kontext "ToolsCustomizeToolbars"
iCurrentItem = ToolbarContents.getSelIndex()
cString = ToolbarContents.getSelText()
if ( ToolbarContents.getItemCount > 0 ) then
'///+<li>Check whether the selected item contains a number of minus-chars (---)</li>
if ( instr( cString , "----" ) ) then
'///+<li>If we are at the beginning of the list: Move up</li>
if ( iCurrentItem = 1 ) then
irc = 2
ToolbarContents.select( irc )
printlog( CFN & " Moved away from separator (up)" )
else
'///+<li>If we are somewhere else in the list, move down</li>
irc = iCurrentItem - 1
ToolbarContents.select( irc )
printlog( CFN & " Moved away from separator (down)" )
endif
iCurrentItem = ToolbarContents.getSelIndex()
cString = ToolbarContents.getSelText()
'///+<li>Check whether the selected item contains a number of minus-chars (---)</li>
if ( instr( cString , "----" ) ) then
'///+<li>If we are at the beginning of the list: Move up</li>
if ( iCurrentItem = 1 ) then
irc = 2
ToolbarContents.select( irc )
printlog( CFN & " Moved away from separator (up)" )
else
'///+<li>If we are somewhere else in the list, move down</li>
irc = iCurrentItem - 1
ToolbarContents.select( irc )
printlog( CFN & " Moved away from separator (down)" )
endif
endif
else
irc = 0
endif
hDeselectSeparator() = irc
@ -341,85 +346,5 @@ function hDeselectSeparator() as integer
end function
'*******************************************************************************
function hClickCommandButton( iItemToClick as integer ) as boolean
'///<h3>Click a given entry on the command button</h3><br>
'///<u>Parameter(s):</u><br>
'///<ol>
'///+<li>Position of the item to click (Integer)</li>
'///<ul>
'///+<li>Only active items are selectable</li>
'///+<li>Position must be &gt; than 0 and &le; number of active items in menu</li>
'///+<li>Set context (kontext) before calling this function</li>
'///</ul>
'///</ol>
'///<u>Returns:</u><br>
'///<ol>
'///+<li>Success or failure (Boolean)</li>
'///<ul>
'///+<li>TRUE on success</li>
'///+<li>FALSE on failure or unknown status</li>
'///</ul>
'///</ol>
const CFN = "hClickCommandButton::"
printlog( CFN & "Enter" )
dim brc as boolean 'a multi purpose boolean returnvalue
dim iMenuItems as integer
'///<u>Description:</u>
'///<ul>
'///+<li>Click the command button</li>
command.click()
'///+<li>Verify that the menu is open</li>
try
iMenuItems = hMenuItemGetCount()
catch
qaerrorlog( CFN & "Menu not open" )
hClickCommandButton() = false
exit function
endcatch
'///+<li>Verify that the selected menuitem is valid</li>
printlog( CFN & "Found items: " & iMenuItems )
if ( iItemToClick > iMenuItems ) then
warnlog( CFN & "#i90134# Selected item is not available: " & iItemToClick )
hClickCommandButton() = false
exit function
endif
'///+<li>Now click on the requested item</li>
hMenuSelectNr( iItemToClick )
'///+<li>Look for the Menu renaming dialog</li>
kontext "CustomizeMenuReName"
if ( CustomizeMenuReName.exists( 1 ) ) then
printlog( CFN & "Opened dialog: Rename Menu" )
hClickCommandButton() = true
exit function
endif
'///+<li>Look for the Toolbar renaming dialog</li>
kontext "CustomizeToolbarsRename"
if ( CustomizeToolbarsRename.exists() ) then
printlog( CFN & "Opened dialog: Rename Toolbar" )
hClickCommandButton() = true
exit function
endif
'///</ul>
printlog( CFN & "Exit" )
hClickCommandButton() = true
end function

51
testautomation/framework/tools/includes/pbrowser_tools.inc
View File

@ -69,28 +69,34 @@ function hOpenPropertyBrowser() as boolean
const CFN = "hOpenPropertyBrowser::"
'///+<li>Open the property browser (call slot)</li>
ContextProperties
'///+<li>Verify that the property browser is open</li>
kontext "ControlPropertiesTabControl"
if ( ControlPropertiesTabControl.exists( 2 ) ) then
try
ContextProperties
'///+<li>Activate General-tabpage</li>
ControlPropertiesTabControl.setPage( TabGeneralControl )
'///+<li>Verify that the General-tabpage is visible</li>
kontext "TabGeneralControl"
if ( TabGeneralControl.isVisible() ) then
printlog( CFN & "ok" )
hOpenPropertyBrowser() = true
'///+<li>Verify that the property browser is open</li>
kontext "ControlPropertiesTabControl"
if ( ControlPropertiesTabControl.exists( 2 ) ) then
'///+<li>Activate General-tabpage</li>
ControlPropertiesTabControl.setPage( TabGeneralControl )
'///+<li>Verify that the General-tabpage is visible</li>
kontext "TabGeneralControl"
if ( TabGeneralControl.isVisible() ) then
printlog( CFN & "ok" )
hOpenPropertyBrowser() = true
else
printlog( CFN & "General-tab is not visible." )
hOpenPropertyBrowser() = false
endif
else
printlog( CFN & "General-tab is not visible." )
hOpenPropertyBrowser() = false
endif
else
printlog( CFN & "Could not open property browser" )
hOpenPropertyBrowser() = false
endif
printlog( CFN & "Could not open property browser" )
hOpenPropertyBrowser() = false
endif
catch
hOpenPropertyBrowser() = false
printlog( CFN & "Slot <ContextProperties> not available" )
endcatch
'///</ul>
end function
@ -127,7 +133,7 @@ function hClosePropertyBrowser() as boolean
'///+<li>Verify that the property browser is open</li>
kontext "ControlPropertiesTabControl"
if ( ControlPropertiesTabControl.exists() ) then
if ( ControlPropertiesTabControl.exists( 1 ) ) then
'///+<li>Execute the ContextProperties slot</li>
ContextProperties
@ -183,9 +189,10 @@ function hPBSetControlName( cControl as string ) as boolean
'///+<li>Set the new name</li>
WaitSlot()
' Name the control and append some Spaces which should be truncated.
printlog( CFN & "Naming control: " & cControl )
NameText.setText( cControl )
TabGeneralControl.typeKeys( "<RETURN>" )
TabGeneralControl.typeKeys( " <RETURN>" )
WaitSlot()
printlog( CFN & "Verifying rename..." )

1
testautomation/global/input/macros.txt
View File

@ -218,3 +218,4 @@ MsgBox ("Value : " & CDbl(v))
End Sub
# ---------------------------------------------------------------------------- #

702
testautomation/global/required/includes/g_option.inc
View File

@ -36,18 +36,15 @@
'* short description : update and resouce test for all option pages (at tools/options)
'*
'\***********************************************************************
global sErrMes as String
global iSectionNumber as Integer
'*******************************************************************************
sub tToolsOptionsTest
dim sPreviousApplication as string
sPreviousApplication = gApplication
' Document- and database related options are placed in the g_option2.inc library
use "global\required\includes\g_option2.inc"
' subs and functions has been placed there
use "global/tools/includes/required/t_option2.inc"
@ -70,33 +67,19 @@ sub tToolsOptionsTest
Call tToolsOptionsImprovementProgram
' these tabpages only exist in the respective application
gApplication = "WRITER"
iSectionNumber = 8
Call tToolsOptionsTextdocument
gApplication = "HTML"
Call tToolsOptionsHTMLDocument
gApplication = "CALC"
iSectionNumber = 7
Call tToolsOptionsSpreadsheet
gApplication = "IMPRESS"
iSectionNumber = 7
Call tToolsOptionsPresentation
gApplication = "DRAW"
iSectionNumber = 7
Call tToolsOptionsDrawing
gApplication = "MATH"
iSectionNumber = 7
Call tToolsOptionsFormula
select case uCase(gApplication)
case "WRITER" : Call tToolsOptionsTextdocument
case "HTML" : Call tToolsOptionsHTMLDocument
case "CALC" : Call tToolsOptionsSpreadsheet
case "IMPRESS" : Call tToolsOptionsPresentation
case "DRAW" : Call tToolsOptionsDrawing
case "MATH" : Call tToolsOptionsFormula
end select
gApplication = sPreviousApplication
end sub
'*******************************************************************************
'-------------------------------------------------------------------------
testcase tToolsOptionsStarOffice
@ -788,4 +771,669 @@ testcase tToolsOptionsImprovementProgram
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsTextdocument
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/Text document ( Extras/Optionen/Textdokument )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Text document</i>
ToolsOptions
Kontext "Active"
if Active.Exists (3) then
if Active.GetText <> sErrMes then Warnlog "A messagebox exists => BUG : " + Active.GetText
Active.OK
end if
ToPosInOptionlist ( 4 )
EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
if EchteAnzahl = 10 AND ( gAsianSup = TRUE OR gCTLSup = TRUE ) then
Warnlog "There are only 10 pages in 'text document'-section, but asian support or CTL support are activated! => a section is missing?"
else
printlog "Asian support and CTL support are not activated ( on languages-page )!"
end if
if bDebugVersion = TRUE then EchteAnzahl = EchteAnzahl - 1
if gAsianSup = FALSE then EchteAnzahl = EchteAnzahl + 1
if gCTLSup = FALSE then EchteAnzahl = EchteAnzahl + 1
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
if gAsianSup = FALSE AND gCTLSup = FALSE AND i=6 then i=i+2
if gAsianSup = FALSE AND gCTLSup = TRUE AND i=6 then i=i+1
if gAsianSup = TRUE AND gCTLSup = FALSE AND i=7 then i=i+1
select case i
case 1 : Kontext "TabLaden"
'///+<ul><li>General</li>
printlog " - General / Allgemein"
if TabLaden.IsVisible then
gefunden = TRUE
Call DialogTest ( TabLaden )
end if
case 2 : Kontext "TabInhalteWriter"
'///+<li>View</li>
printlog " - View / Ansicht"
if TabInhalteWriter.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteWriter )
end if
case 3 : Kontext "TabDirektCursor"
'///+<li>Formating aids</li>
printlog " - Formating aids / Formatierungshilfen"
if TabDirektCursor.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDirektCursor )
end if
case 4 : Kontext "TabRaster"
'///+<li>Grid</li>
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 5 : Kontext "TabGrundschriften"
'///+<li>Default fonts</li>
printlog " - Default Fonts / Grundschriften"
if TabGrundschriften.IsVisible then
gefunden = TRUE
Call DialogTest ( TabGrundschriften )
end if
case 6 : Kontext "TabGrundschriftenAsian"
'///+<li>Default fonts asian</li>
printlog " - Default Fonts Asian / Grundschriften Asiatisch"
if TabGrundschriftenAsian.IsVisible then
gefunden = TRUE
Call DialogTest ( TabGrundschriftenAsian )
end if
case 7 : Kontext "TabGrundschriftenCTL"
'///+<li>Default fonts CTL</li>
printlog " - Default Fonts CTL / Grundschriften CTL"
if TabGrundschriftenCTL.IsVisible then
gefunden = TRUE
Call DialogTest ( TabGrundschriftenCTL )
end if
case 8 : Kontext "TabDruckenWriter"
'///+<li>Print</li>
printlog " - Print / Drucken"
if TabDruckenWriter.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenWriter )
end if
case 9 : Kontext "TabTabelleOptionen"
'///+<li>Table</li>
printlog " - Table / Tabellen"
if TabTabelleOptionen.IsVisible then
gefunden = TRUE
Call DialogTest ( TabTabelleOptionen )
end if
case 10: Kontext "TabAenderungenWriter"
'///+<li>Changes</li>
printlog " - Changes / Aenderungen"
if TabAenderungenWriter.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAenderungenWriter )
end if
case 11: Kontext "TabCompatibility"
'///+<li>Compatibility</li>
printlog " - Compatibility"
if TabCompatibility.IsVisible then
gefunden = TRUE
Call DialogTest ( TabCompatibility )
end if
case 12: Kontext "TabAutoCaption"
'///+<li>AutoCaption</li>
printlog " - AutoCaption"
if TabAutoCaption.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAutoCaption )
end if
case 13: Kontext "TabMailMergeEMail"
'///+<li>Mail Merge E-mail</li></ul>
printlog " - Mail Merge E-mail"
if TabMailMergeEMail.IsVisible then
gefunden = TRUE
Call DialogTest ( TabMailMergeEMail )
ServerAuthentication.click
kontext "ServerAuthentication"
Call DialogTest ( ServerAuthentication )
ServerAuthentication.cancel
Kontext "TabMailMergeEMail"
TestSettings.click
' in case java is not enabled
sleep( 2 )
try
Kontext "Messagebox"
if ( MessageBox.exists()) then
sleep(2)
warnlog(Messagebox.GetText())
try
Messagebox.Cancel()
sleep( 2 )
catch
Messagebox.OK() ' if "OK" works, we are in an undefined state
warnlog( "" )
endcatch
end if
catch
warnlog( "A messagebox was displayed but coul not be closed." )
endcatch
Kontext "TestaccountSettings"
Call DialogTest ( TestaccountSettings )
TestaccountSettings.cancel
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 12 then
i=13
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsHTMLDocument
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/HTML-Document ( Extras/Optionen/HTML-Dokument )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>options</i> / <i>HTML Document</i>
ToolsOptions
ToPosInOptionlist ( 5 )
i = 6
if bDebugVersion = TRUE then i = i + 1 ' here exists the special debug-tabpage, too
EchteAnzahl = OptionTabPageZaehler (i)
if bDebugVersion = TRUE then EchteAnzahl = EchteAnzahl - 1
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabInhalteHTML"
'/// View
printlog " - View / Ansicht"
if TabInhalteHTML.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteHTML )
end if
case 2 : Kontext "TabDirektCursor"
'/// Formating aids
printlog " - Formatting aids / Formatierungshilfen"
if TabDirektCursor.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDirektCursor )
end if
case 3 : Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 4 : Kontext "TabDruckenHTML"
'/// Print
printlog " - Print / Drucken"
if TabDruckenHTML.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenHTML )
end if
case 5 : Kontext "TabTabelleOptionen"
'/// Table
printlog " - Table / Tabelle"
if TabTabelleOptionen.IsVisible then
gefunden = TRUE
Call DialogTest ( TabTabelleOptionen )
end if
case 6 : Kontext "TabHintergrund"
'/// Background
printlog " - Background / Hintergrund"
Sleep 1
if TabHintergrund.IsVisible then
gefunden = TRUE
Call DialogTest ( TabHintergrund )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 6 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsSpreadsheet
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/Spreadsheet ( Extras/Optionen/Tabellendokument )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Spreadsheet</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 7, FALSE )
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabLayoutCalc"
'/// General
printlog " - General / Allgemein"
if TabLayoutCalc.IsVisible then
gefunden = TRUE
Call DialogTest ( TabLayoutCalc )
end if
case 2 : Kontext "TabInhaltCalc"
'/// View
printlog " - View / Ansicht"
if TabInhaltCalc.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhaltCalc )
end if
case 3 : Kontext "TabBerechnen"
'/// Calculate
printlog " - Calculate / Berechnen"
if TabBerechnen.IsVisible then
gefunden = TRUE
Call DialogTest ( TabBerechnen )
end if
case 4 : Kontext "TabSortierlisten"
'/// Sort lists
printlog " - Sort Lists / Sortierliste"
if TabSortierlisten.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSortierlisten )
end if
case 5 : Kontext "TabAenderungenCalc"
'/// Changes
printlog " - Changes / Aenderungen"
if TabAenderungenCalc.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAenderungenCalc )
end if
case 6 : Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 7 : Kontext "TabPrintCalcOptions"
'/// Print
printlog " - Print / Drucken"
if TabPrintCalcOptions.IsVisible then
gefunden = TRUE
Call DialogTest ( TabPrintCalcOptions )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 7 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsPresentation
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
dim iTemp as integer
PrintLog "- Tools/Options/Presentation ( Extras/Optionen/Praesentation )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
kontext "DocumentImpress"
if DocumentImpress.exists(5) then
printlog " - An application of type Presentation is available."
'--- workaround #i48383#
DocumentImpress.MouseDown (10,10)
DocumentImpress.MouseUp (10,10)
else
qaErrorLog " - No application of type Presentation is available"
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Presentation</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabSonstigesDraw"
'/// General
printlog " - General / Allgemein"
if TabSonstigesDraw.exists then
if TabSonstigesDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSonstigesDraw )
end if
else
' Trying to get root cause on some systems it seems the backing window is used. #i48383#
Kontext "OptionenDlg"
OptionenDlg.SnapShot convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
qaErrorLog "#i48383# Trying to get root cause for wrong window; check picture: " + convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
for iTemp = 1 to Optionsliste.getItemCount
qaErrorLog "" + iTemp + ": '" + Optionsliste.getItemText(iTemp) + "'"
next iTemp
gefunden = TRUE
end if
case 2 : Kontext "TabInhalteDraw"
'/// View
printlog " - View / Ansicht"
if TabInhalteDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteDraw )
end if
case 3 : Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 4 : Kontext "TabDruckenDraw"
'/// Print
printlog " - Print / Drucken"
if TabDruckenDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenDraw )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 4 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsDrawing
Dim EchteAnzahl as Integer, i as Integer
Dim gefunden as Boolean
PrintLog "- Tools/Options/Drawing ( Extras/Optionen/Zeichnung )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
end if
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
Kontext "DocumentDraw"
if DocumentDraw.exists(5) then
printlog " - An application of type Draw is available."
'--- workaround #i48383#
DocumentDraw.MouseDown (10,10)
DocumentDraw.MouseUp (10,10)
else
qaErrorLog " - No application of type Draw is available"
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Drawing</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabSonstigesDraw"
'/// General
printlog " - General / Allgemein"
if TabSonstigesDraw.exists then
if TabSonstigesDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSonstigesDraw )
end if
else
' Trying to get root cause on some systems it seems the backing window is used. #i48383#
Kontext "OptionenDlg"
qaErrorLog "#i48383# wrong focus on opening options"
gefunden = TRUE
end if
case 2 : Kontext "TabInhalteDraw"
'/// View
printlog " - View / Ansicht"
if TabInhalteDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteDraw )
end if
case 3 : Kontext "Active"
if Active.Exists then
Warnlog "A messagebox exists => BUG : " + Active.GetText
try
Active.No
catch
Active.OK
endcatch
end if
Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 4 : Kontext "TabDruckenDraw"
'/// Print
printlog " - Print / Drucken"
if TabDruckenDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenDraw )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 4 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsFormula
dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Formula ( Extras/Optionen/Formel )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Formula</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
Kontext "OptionenDlg"
'/// Print
Optionsliste.TypeKeys "<Down>"
printlog " - Print / Drucken"
Kontext "TabDruckenMath"
Call DialogTest ( TabDruckenMath )
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsChart
Dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Chart ( Extras/Optionen/Diagramme )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>
ToolsOptions
ToPosInOptionlist ( iSectionNumber -1 )
EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
'/// Default colors
printlog " - Default Colors / Grundfarben"
Kontext "TabGrundfarben"
Call DialogTest ( TabGrundfarben )
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
if gApplication <> "BACKGROUND" then
'/// Close bthe document
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsDataSources
Dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Data Sources ( Extras/Optionen/Datenbank )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
ToolsOptions
ToPosInOptionlist ( iSectionNumber -2)
EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
printlog " - Connections / Verbindungen"
Kontext "TabConnections"
'/// Connections
Call DialogTest ( TabConnections )
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
printlog " - Databases / Datenbanken"
Kontext "TabRegisteredDatabase"
'/// Databases
Call DialogTest ( TabRegisteredDatabase )
NewBtn.click
Kontext "CreateDatabaseLink"
call DialogTest( CreateDatabaseLink )
Browse.click
Kontext "OeffnenDlg"
OeffnenDlg.cancel
Kontext "CreateDatabaseLink"
CreateDatabaseLink.cancel
Kontext "OptionenDlg"
'/// Close the options dialog
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase

714
testautomation/global/required/includes/g_option2.inc
View File

@ -1,714 +0,0 @@
'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: g_option2.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-13 10:27:04 $
'*
'* 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 : thorsten.bosbach@sun.com
'*
'* short description : update and resouce test for all option pages (at tools/options)
'*
'************************************************************************
'*
' #1 tToolsOptionsTextdocument
' #1 tToolsOptionsHTMLDocument
' #1 tToolsOptionsSpreadsheet
' #1 tToolsOptionsPresentation
' #1 tToolsOptionsDrawing
' #1 tToolsOptionsFormula
' #1 tToolsOptionsChart
' #1 tToolsOptionsDataSources
'*
'\***********************************************************************
testcase tToolsOptionsTextdocument
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/Text document ( Extras/Optionen/Textdokument )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Text document</i>
ToolsOptions
Kontext "Active"
if Active.Exists (3) then
if Active.GetText <> sErrMes then Warnlog "A messagebox exists => BUG : " + Active.GetText
Active.OK
end if
ToPosInOptionlist ( 4 )
EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
if EchteAnzahl = 10 AND ( gAsianSup = TRUE OR gCTLSup = TRUE ) then
Warnlog "There are only 10 pages in 'text document'-section, but asian support or CTL support are activated! => a section is missing?"
else
printlog "Asian support and CTL support are not activated ( on languages-page )!"
end if
if bDebugVersion = TRUE then EchteAnzahl = EchteAnzahl - 1
if gAsianSup = FALSE then EchteAnzahl = EchteAnzahl + 1
if gCTLSup = FALSE then EchteAnzahl = EchteAnzahl + 1
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
if gAsianSup = FALSE AND gCTLSup = FALSE AND i=6 then i=i+2
if gAsianSup = FALSE AND gCTLSup = TRUE AND i=6 then i=i+1
if gAsianSup = TRUE AND gCTLSup = FALSE AND i=7 then i=i+1
select case i
case 1 : Kontext "TabLaden"
'///+<ul><li>General</li>
printlog " - General / Allgemein"
if TabLaden.IsVisible then
gefunden = TRUE
Call DialogTest ( TabLaden )
end if
case 2 : Kontext "TabInhalteWriter"
'///+<li>View</li>
printlog " - View / Ansicht"
if TabInhalteWriter.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteWriter )
end if
case 3 : Kontext "TabDirektCursor"
'///+<li>Formating aids</li>
printlog " - Formating aids / Formatierungshilfen"
if TabDirektCursor.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDirektCursor )
end if
case 4 : Kontext "TabRaster"
'///+<li>Grid</li>
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 5 : Kontext "TabGrundschriften"
'///+<li>Default fonts</li>
printlog " - Default Fonts / Grundschriften"
if TabGrundschriften.IsVisible then
gefunden = TRUE
Call DialogTest ( TabGrundschriften )
end if
case 6 : Kontext "TabGrundschriftenAsian"
'///+<li>Default fonts asian</li>
printlog " - Default Fonts Asian / Grundschriften Asiatisch"
if TabGrundschriftenAsian.IsVisible then
gefunden = TRUE
Call DialogTest ( TabGrundschriftenAsian )
end if
case 7 : Kontext "TabGrundschriftenCTL"
'///+<li>Default fonts CTL</li>
printlog " - Default Fonts CTL / Grundschriften CTL"
if TabGrundschriftenCTL.IsVisible then
gefunden = TRUE
Call DialogTest ( TabGrundschriftenCTL )
end if
case 8 : Kontext "TabDruckenWriter"
'///+<li>Print</li>
printlog " - Print / Drucken"
if TabDruckenWriter.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenWriter )
end if
case 9 : Kontext "TabTabelleOptionen"
'///+<li>Table</li>
printlog " - Table / Tabellen"
if TabTabelleOptionen.IsVisible then
gefunden = TRUE
Call DialogTest ( TabTabelleOptionen )
end if
case 10: Kontext "TabAenderungenWriter"
'///+<li>Changes</li>
printlog " - Changes / Aenderungen"
if TabAenderungenWriter.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAenderungenWriter )
end if
case 11: Kontext "TabCompatibility"
'///+<li>Compatibility</li>
printlog " - Compatibility"
if TabCompatibility.IsVisible then
gefunden = TRUE
Call DialogTest ( TabCompatibility )
end if
case 12: Kontext "TabAutoCaption"
'///+<li>AutoCaption</li>
printlog " - AutoCaption"
if TabAutoCaption.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAutoCaption )
end if
case 13: Kontext "TabMailMergeEMail"
'///+<li>Mail Merge E-mail</li></ul>
printlog " - Mail Merge E-mail"
if TabMailMergeEMail.IsVisible then
gefunden = TRUE
Call DialogTest ( TabMailMergeEMail )
ServerAuthentication.click
kontext "ServerAuthentication"
Call DialogTest ( ServerAuthentication )
ServerAuthentication.cancel
Kontext "TabMailMergeEMail"
TestSettings.click
' in case java is not enabled
sleep( 2 )
try
Kontext "Messagebox"
if ( MessageBox.exists()) then
sleep(2)
warnlog(Messagebox.GetText())
try
Messagebox.Cancel()
sleep( 2 )
catch
Messagebox.OK() ' if "OK" works, we are in an undefined state
warnlog( "" )
endcatch
end if
catch
warnlog( "A messagebox was displayed but coul not be closed." )
endcatch
Kontext "TestaccountSettings"
Call DialogTest ( TestaccountSettings )
TestaccountSettings.cancel
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 12 then
i=13
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsHTMLDocument
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/HTML-Document ( Extras/Optionen/HTML-Dokument )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>options</i> / <i>HTML Document</i>
ToolsOptions
ToPosInOptionlist ( 5 )
i = 6
if bDebugVersion = TRUE then i = i + 1 ' here exists the special debug-tabpage, too
EchteAnzahl = OptionTabPageZaehler (i)
if bDebugVersion = TRUE then EchteAnzahl = EchteAnzahl - 1
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabInhalteHTML"
'/// View
printlog " - View / Ansicht"
if TabInhalteHTML.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteHTML )
end if
case 2 : Kontext "TabDirektCursor"
'/// Formating aids
printlog " - Formatting aids / Formatierungshilfen"
if TabDirektCursor.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDirektCursor )
end if
case 3 : Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 4 : Kontext "TabDruckenHTML"
'/// Print
printlog " - Print / Drucken"
if TabDruckenHTML.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenHTML )
end if
case 5 : Kontext "TabTabelleOptionen"
'/// Table
printlog " - Table / Tabelle"
if TabTabelleOptionen.IsVisible then
gefunden = TRUE
Call DialogTest ( TabTabelleOptionen )
end if
case 6 : Kontext "TabHintergrund"
'/// Background
printlog " - Background / Hintergrund"
Sleep 1
if TabHintergrund.IsVisible then
gefunden = TRUE
Call DialogTest ( TabHintergrund )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 6 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsSpreadsheet
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/Spreadsheet ( Extras/Optionen/Tabellendokument )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Spreadsheet</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 7, FALSE )
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabLayoutCalc"
'/// General
printlog " - General / Allgemein"
if TabLayoutCalc.IsVisible then
gefunden = TRUE
Call DialogTest ( TabLayoutCalc )
end if
case 2 : Kontext "TabInhaltCalc"
'/// View
printlog " - View / Ansicht"
if TabInhaltCalc.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhaltCalc )
end if
case 3 : Kontext "TabBerechnen"
'/// Calculate
printlog " - Calculate / Berechnen"
if TabBerechnen.IsVisible then
gefunden = TRUE
Call DialogTest ( TabBerechnen )
end if
case 4 : Kontext "TabSortierlisten"
'/// Sort lists
printlog " - Sort Lists / Sortierliste"
if TabSortierlisten.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSortierlisten )
end if
case 5 : Kontext "TabAenderungenCalc"
'/// Changes
printlog " - Changes / Aenderungen"
if TabAenderungenCalc.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAenderungenCalc )
end if
case 6 : Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 7 : Kontext "TabPrintCalcOptions"
'/// Print
printlog " - Print / Drucken"
if TabPrintCalcOptions.IsVisible then
gefunden = TRUE
Call DialogTest ( TabPrintCalcOptions )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 7 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsPresentation
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
dim iTemp as integer
PrintLog "- Tools/Options/Presentation ( Extras/Optionen/Praesentation )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
kontext "DocumentImpress"
if DocumentImpress.exists(5) then
printlog " - An application of type Presentation is available."
'--- workaround #i48383#
DocumentImpress.MouseDown (10,10)
DocumentImpress.MouseUp (10,10)
else
qaErrorLog " - No application of type Presentation is available"
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Presentation</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabSonstigesDraw"
'/// General
printlog " - General / Allgemein"
if TabSonstigesDraw.exists then
if TabSonstigesDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSonstigesDraw )
end if
else
' Trying to get root cause on some systems it seems the backing window is used. #i48383#
Kontext "OptionenDlg"
OptionenDlg.SnapShot convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
qaErrorLog "#i48383# Trying to get root cause for wrong window; check picture: " + convertPath(gOfficePath + "user/work/"+gApplication+".bmp")
for iTemp = 1 to Optionsliste.getItemCount
qaErrorLog "" + iTemp + ": '" + Optionsliste.getItemText(iTemp) + "'"
next iTemp
gefunden = TRUE
end if
case 2 : Kontext "TabInhalteDraw"
'/// View
printlog " - View / Ansicht"
if TabInhalteDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteDraw )
end if
case 3 : Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 4 : Kontext "TabDruckenDraw"
'/// Print
printlog " - Print / Drucken"
if TabDruckenDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenDraw )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 4 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsDrawing
Dim EchteAnzahl as Integer, i as Integer
Dim gefunden as Boolean
PrintLog "- Tools/Options/Drawing ( Extras/Optionen/Zeichnung )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
end if
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
Kontext "DocumentDraw"
if DocumentDraw.exists(5) then
printlog " - An application of type Draw is available."
'--- workaround #i48383#
DocumentDraw.MouseDown (10,10)
DocumentDraw.MouseUp (10,10)
else
qaErrorLog " - No application of type Draw is available"
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Drawing</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 4, FALSE )
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
select case i
case 1 : Kontext "TabSonstigesDraw"
'/// General
printlog " - General / Allgemein"
if TabSonstigesDraw.exists then
if TabSonstigesDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSonstigesDraw )
end if
else
' Trying to get root cause on some systems it seems the backing window is used. #i48383#
Kontext "OptionenDlg"
qaErrorLog "#i48383# wrong focus on opening options"
gefunden = TRUE
end if
case 2 : Kontext "TabInhalteDraw"
'/// View
printlog " - View / Ansicht"
if TabInhalteDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabInhalteDraw )
end if
case 3 : Kontext "Active"
if Active.Exists then
Warnlog "A messagebox exists => BUG : " + Active.GetText
try
Active.No
catch
Active.OK
endcatch
end if
Kontext "TabRaster"
'/// Grid
printlog " - Grid / Raster"
if TabRaster.IsVisible then
gefunden = TRUE
Call DialogTest ( TabRaster )
end if
case 4 : Kontext "TabDruckenDraw"
'/// Print
printlog " - Print / Drucken"
if TabDruckenDraw.IsVisible then
gefunden = TRUE
Call DialogTest ( TabDruckenDraw )
end if
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 4 then
i=11
else
i=1-1
end if
end if
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsFormula
dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Formula ( Extras/Optionen/Formel )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Formula</i>
ToolsOptions
ToPosInOptionlist ( 4 )
EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
Kontext "OptionenDlg"
'/// Print
Optionsliste.TypeKeys "<Down>"
printlog " - Print / Drucken"
Kontext "TabDruckenMath"
Call DialogTest ( TabDruckenMath )
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsChart
Dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Chart ( Extras/Optionen/Diagramme )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>
ToolsOptions
ToPosInOptionlist ( iSectionNumber -1 )
EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
'/// Default colors
printlog " - Default Colors / Grundfarben"
Kontext "TabGrundfarben"
Call DialogTest ( TabGrundfarben )
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
if gApplication <> "BACKGROUND" then
'/// Close bthe document
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsDataSources
Dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Data Sources ( Extras/Optionen/Datenbank )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
ToolsOptions
ToPosInOptionlist ( iSectionNumber -2)
EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
printlog " - Connections / Verbindungen"
Kontext "TabConnections"
'/// Connections
Call DialogTest ( TabConnections )
Kontext "OptionenDlg"
Optionsliste.TypeKeys "<Down>"
printlog " - Databases / Datenbanken"
Kontext "TabRegisteredDatabase"
'/// Databases
Call DialogTest ( TabRegisteredDatabase )
NewBtn.click
Kontext "CreateDatabaseLink"
call DialogTest( CreateDatabaseLink )
Browse.click
Kontext "OeffnenDlg"
OeffnenDlg.cancel
Kontext "CreateDatabaseLink"
CreateDatabaseLink.cancel
Kontext "OptionenDlg"
'/// Close the options dialog
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------

28
testautomation/global/tools/includes/required/t_dir.inc
View File

@ -180,23 +180,27 @@ function GetDirList ( sPath$, sMatch$ ,lsFile() as String ) as integer
'/// Get Subdirectories from a directory and append them to a list (<b>with</b> path)
'/// <u>Input</u>: Directory with complete path; Search Pattern, e.g *; List
'/// <u>Return</u>: count of appended entries; updated list
Dim Count%
Dim i as Integer
Dim Verzeichnis as String
Dim iFolderCount as integer
Dim Folder as String
' at the end of the string has to be teh path seperator, else the dir-command doesn't work
if right ( sPath$, 1 ) <> gPathSigne then sPath$ = sPath$ + gPathSigne
Verzeichnis = app.Dir( sPath$ + sMatch$ , 16)
Count% = 0
Folder = app.Dir( sPath$ + sMatch$ , 16)
iFolderCount = 0
do until Len(Verzeichnis) = 0
if Verzeichnis <> "." AND Verzeichnis <> ".." AND Lcase(Verzeichnis) <> ".svn" then
do until Len( Folder ) = 0
select case ( lcase( Folder ) )
case "."
case ".."
case ".svn"
case ".hg"
case else
lsFile(0) = Val(lsFile(0)) + 1
lsFile( lsFile(0) ) = sPath$ + Verzeichnis + gPathSigne
Count% = Count% + 1
end if
Verzeichnis = app.Dir
lsFile( lsFile(0) ) = sPath$ + Folder + gPathSigne
iFolderCount = iFolderCount + 1
end select
Folder = app.Dir
loop
GetDirList = Count%
GetDirList = iFolderCount
end function
'
'-------------------------------------------------------------------------------

8
testautomation/global/tools/includes/required/t_files.inc
View File

@ -442,7 +442,7 @@ function hExportAsPDFmulti (iTypeOfCall as integer, bExecute as boolean, sFileNa
endif
'/// click on the button 'Export...' ///'
if (bExecute) then
Export.Click
speichern.Click
kontext "AlienWarning"
if AlienWarning.exists(5) then
warnlog "#i41983# Alien Warning on export not allowed."
@ -567,8 +567,8 @@ function hExportAsPDFmulti (iTypeOfCall as integer, bExecute as boolean, sFileNa
end if
end if
' only if the type is 1 OR 3 then the File Save dialog appear
kontext "ExportierenDLG"
if (iTypeOfCall = 1 OR iTypeOfCall = 3) then
kontext "ExportierenDLG"
if ExportierenDLG.exists(5) then
try
Dateityp.Select sPDF
@ -610,7 +610,11 @@ function hExportAsPDFmulti (iTypeOfCall as integer, bExecute as boolean, sFileNa
wEnd
endif
else
try
ExportierenDLG.Cancel
catch
printlog "export not there"
endcatch
end if
' if file exists, there is a message...

12
testautomation/global/win/dial_d_h.win
View File

@ -253,14 +253,14 @@ PopuplisteRechts sfx2:ListBox:DLG_ORGANIZE:LB_RIGHT_TYP
AddressBook sfx2:PushButton:DLG_ORGANIZE:BTN_ADDRESSTEMPLATE
*EinfuegenSpalten FN_TABLE_INSERT_COL_DLG
Anzahl sw:NumericField:DLG_INS_ROW_COL:ED_COUNT
Davor sw:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
Dahinter sw:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
Anzahl svx:NumericField:DLG_INS_ROW_COL:ED_COUNT
Davor svx:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
Dahinter svx:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
*EinfuegenZeilen FN_TABLE_INSERT_ROW_DLG
Anzahl sw:NumericField:DLG_INS_ROW_COL:ED_COUNT
Davor sw:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
Dahinter sw:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
Anzahl svx:NumericField:DLG_INS_ROW_COL:ED_COUNT
Davor svx:RadioButton:DLG_INS_ROW_COL:CB_POS_BEFORE
Dahinter svx:RadioButton:DLG_INS_ROW_COL:CB_POS_AFTER
*EbeneEinfuegenDlg SID_INSERTLAYER
EbenenName sd:Edit:DLG_INSERT_LAYER:EDT_NAME

5
testautomation/global/win/edia_i_o.win
View File

@ -303,3 +303,8 @@ OleDatei svx:EDIT:MD_INSERT_OLEOBJECT:ED_FILEPATH
Verknuepfen svx:CHECKBOX:MD_INSERT_OLEOBJECT:CB_FILELINK
Durchsuchen svx:PUSHBUTTON:MD_INSERT_OLEOBJECT:BTN_FILEPATH
*InsertTableImpress svx:ModalDialog:RID_SVX_NEWTABLE_DLG
NumberOfColumns svx:NumericField:RID_SVX_NEWTABLE_DLG:NF_COLUMNS
NumberOfRows svx:NumericField:RID_SVX_NEWTABLE_DLG:NF_ROWS
*TableDesign sd:ModalDialog:DLG_TABLEDESIGNPANE

17
testautomation/global/win/edia_p_s.win
View File

@ -41,7 +41,7 @@ TransitionEffects filter:CheckBox:RID_PDF_TAB_GENER:CB_EXPORTBOOKMARKS
FormsFormat filter:ListBox:RID_PDF_TAB_GENER:LB_FORMSFORMAT
ExportBlankPages filter:CheckBox:RID_PDF_TAB_GENER:CB_EXPORTEMPTYPAGES
*PDFOptionsInitialView PDF1TBO
*PDFOptionsInitialView HID_FILTER_PDF_INITIAL_VIEW
PageOnly filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_OPNMODE_PAGEONLY
BookmarksAndPage filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_OPNMODE_OUTLINE
ThumbnailsAndPage filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_OPNMODE_THUMBS
@ -54,7 +54,7 @@ SinglePage filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_PGLY_SINGPG
Continuous filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_PGLY_CONT
ContinuousFacing filter:RadioButton:RID_PDF_TAB_OPNFTR:RB_PGLY_CONTFAC
*PDFOptionsUserInterface PDF2TBO
*PDFOptionsUserInterface HID_FILTER_PDF_USER_INTERFACE
ResizeWindow filter:CheckBox:RID_PDF_TAB_VPREFER:CB_WNDOPT_RESINIT
CenterWindow filter:CheckBox:RID_PDF_TAB_VPREFER:CB_WNDOPT_CNTRWIN
OpenInFullscreen filter:CheckBox:RID_PDF_TAB_VPREFER:CB_WNDOPT_OPNFULL
@ -71,15 +71,6 @@ Currency HID_DLGDEPOT_LSTMARKETS
OKButton HID_DLGDEPOT_0_CMDGOON_HISTORY
CancelButton HID_DLGDEPOT_0_CMDCANCEL_HISTORY
*PurchaseStarOffice HID_LICENSING_DIALOG
TabPurchase HID_TP_PURCHASE
getSerialNumber tab:PushButton:TP_PURCHASE:PB_PURCHASE_GET
TabUnlockStarOffice HID_TP_UNLOCK
SerialNumberA tab:Edit:TP_UNLOCK:ED_UNLOCK_A
SerialNumberB tab:Edit:TP_UNLOCK:ED_UNLOCK_B
SerialNumberC tab:Edit:TP_UNLOCK:ED_UNLOCK_C
TabSummary HID_TP_SUMMARY
*QueryEditWindow HID_CTL_QRYSQLEDIT
*QueryDesignTable HID_CTL_QRYDGNTAB
@ -393,6 +384,10 @@ SolverSettingsEdit sc:PushButton:RID_SCDLG_SOLVEROPTIONS:BTN_EDIT
*SolverEditSetting HID_SC_SOLVER_INTEGER
SolverNumeric sc:NumericField:RID_SCDLG_SOLVER_INTEGER:NF_VALUE
*SolvingResult HID_SC_SOLVER_SUCCESS
*NoSolution HID_SC_SOLVER_NOSOLUTION
*SortOrder HID_DLG_ORDERCRIT
Fieldname1 dbaccess:ListBox:DLG_ORDERCRIT:LB_ORDERFIELD1
Order1 dbaccess:ListBox:DLG_ORDERCRIT:LB_ORDERVALUE1

2
testautomation/global/win/etab_a_d.win
View File

@ -405,7 +405,7 @@ DataSource HID_PROP_DATASOURCE
ContentType HID_PROP_CURSORSOURCETYPE
Content HID_PROP_CURSORSOURCE
AnalyzeSQLCommand HID_PROP_ESCAPE_PROCESSING
Filter HID_PROP_FILTER_CRITERIA
Filter HID_PROP_FILTER
FilterDLGButton UID_PROP_DLG_FILTER
Sort HID_PROP_SORT_CRITERIA
AllowAdditions HID_PROP_ALLOW_ADDITIONS

2
testautomation/global/win/reportdesigner.win
View File

@ -71,7 +71,7 @@ ContentType HID_PROP_CURSORSOURCETYPE
Content HID_PROP_CURSORSOURCE
OpenQueryDesign UID_PROP_DLG_SQLCOMMAND
AnalyzeSQLCommand HID_PROP_ESCAPE_PROCESSING
Filter HID_PROP_FILTER_CRITERIA
Filter HID_PROP_FILTER
FilterDLGButton UID_PROP_DLG_FILTER
DataField HID_RPT_PROP_DATAFIELD
OpenFormularWizard UID_RPT_PROP_FORMULA

2
testautomation/global/win/tab_a_d.win
View File

@ -58,6 +58,8 @@ IconsInMenueAnzeigen svx:ListBox:OFA_TP_VIEW:LB_MENU_ICONS
MausAktion svx:ListBox:OFA_TP_VIEW:LB_MOUSEMIDDLE
MousePositioning svx:ListBox:OFA_TP_VIEW:LB_MOUSEPOS
UseSystemFont svx:CheckBox:OFA_TP_VIEW:CB_SYSTEM_FONT
Transparency svx:CheckBox:OFA_TP_VIEW:CB_SELECTION
SelectionOpacity svx:MetricField:OFA_TP_VIEW:MF_SELECTION
*TabAusnahmen HID_OFAPAGE_AUTOCORR_EXCEPT
Abkuerzungen svx:Edit:RID_OFAPAGE_AUTOCORR_EXCEPT:ED_ABBREV

2
testautomation/graphics/optional/g_tables.bas
View File

@ -54,7 +54,7 @@ sub main
PrintLog "-------------------------" + gApplication + "-------------------"
call tiInsertTableUsingMenu
call tiInsertTableUsingButton
call tiInsertTableUsingToolbarbutton
call tiTableObjectBar
call hStatusOut

2
testautomation/graphics/optional/gallery.bas
View File

@ -43,7 +43,7 @@ sub main
call hStatusIn ( "Graphics", "gallery.bas")
use "graphics\tools\id_tools_2.inc"
use "graphics\required\includes\global\gallery.inc"
use "graphics\optional\includes\global\gallery.inc"
printlog "------------------------ F u n c t i o n a l i t y ----------------------"
call tGallery_DialogTest ' open gallery, pin - unpin, dock - undock, close gallery

2
testautomation/graphics/optional/gallery2.bas
View File

@ -43,7 +43,7 @@ sub main
use "graphics\tools\id_tools.inc"
use "graphics\tools\id_tools_2.inc"
use "graphics\required\includes\global\gallery2.inc"
use "graphics\optional\includes\global\gallery2.inc"
printlog "------------------------------- T h e m e s -----------------------------"
call tSettingsToCM

316
testautomation/graphics/optional/includes/global/g_export_html.inc
View File

@ -50,7 +50,7 @@ testcase tHtmlExport
dim sTemp as string
dim sFile as string
'/// open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' ///'
printlog "open 'tools->options' and set first/last name and email adress on the page 'StarOffice->UserData' "
ToolsOptions
hToolsOptions ("STAROFFICE","USERDATA")
VorName.SetText "Garfield"
@ -59,7 +59,7 @@ testcase tHtmlExport
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
'/// create directory if not exists and delete the content, if exists user\\work\\html\\ ///'
printlog "create directory if not exists and delete the content, if exists user\\work\\html\\ "
app.mkDir ((ConvertPath (gOfficePath + "user\work\html\"))
Liste(0) = 0
GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
@ -69,43 +69,43 @@ testcase tHtmlExport
next i
endif
'/// open application ///'
printlog "open application "
Call hNewDocument
WaitSlot (3000)
'---------------------------------- simple document -----------------------------------------------
'/// create a rectrangle ///'
'------------------ simple document --------------------
printlog "create a rectrangle "
hTextrahmenErstellen ("This is a test text",10,10,40,20)
WaitSlot (2000)
'/// create another rectrangle ///'
printlog "create another rectrangle "
hRechteckErstellen (50,50,70,70)
WaitSlot (3000)
'###################################################################################################
Printlog "'///<b> test if no file is created, if dialog is canceld </b>///'"
'/// call 'File->Export'///'
'####################################
Printlog "test if no file is created, if dialog is canceld"
printlog "call 'File->Export'"
FileExport
Kontext "ExportierenDlg"
WaitSlot (1000)
gHTMLFilter = Dateityp.GetItemText(1)
Dateityp.Select(gHTMLFilter)
'/// set Filename to 'user\\work\\html\\expo0.html' ///'
printlog "set Filename to 'user\\work\\html\\expo0.html' "
sFile = ConvertPath (gOfficePath + "user\work\html\expo0")
Dateiname.SetText sFile
WaitSlot (2000)
'/// click button 'Save' ///'
printlog "click button 'Save' "
Speichern.Click
WaitSlot (3000)
Kontext "Active"
if Active.Exists Then Active.Yes
'--------------------------------------------------------------------------
'/// now we are on the dialog -1- 'Assign design' ///'
'---------------------------------------------------------
printlog "now we are on the dialog -1- 'Assign design' "
Kontext "HTMLExport1"
'/// click button 'Cancel' ///'
printlog "click button 'Cancel' "
HTMLExport1.Cancel
WaitSlot (5000)
Liste(0) = 0
GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
WaitSlot (1000)
Printlog "used file name: '" + sFile + "'"
Printlog "used file name: " + sFile
if (ListCount (Liste()) > 0) then
warnlog "dialog for export was canceled, but file was created :-("
for i = 1 to ListCount (Liste())
@ -113,88 +113,89 @@ testcase tHtmlExport
next i
KillFileList (Liste())
end if
'###################################################################################################
Printlog "'///<b> test if files are created </b>///'"
'/// call 'File->Export'///'
'####################################
Printlog "'test if files are created"
printlog "call 'File->Export'"
FileExport
Kontext "ExportierenDlg"
WaitSlot (1000)
try
'/// select Filetype 'HTML...' aka 'WebPage' ///'
printlog "select Filetype 'HTML...' aka 'WebPage' "
Dateityp.Select gHTMLFilter
catch
errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
Dateityp.Select 1
printlog "Selects the first entry - which should be html "
endcatch
WaitSlot (1000)
'/// set Filename to 'user\\work\\html\\expo.html' ///'
printlog "set Filename to 'user\\work\\html\\expo.html' "
sFile = ConvertPath (gOfficePath + "user\work\html\expo.html")
Dateiname.SetText sFile
WaitSlot (2000)
'/// click button 'Save' ///'
printlog "click button 'Save' "
Speichern.Click
WaitSlot (3000)
Kontext "Active"
if Active.Exists Then Active.Yes
'--------------------------------------------------------------------------
Printlog "'/// now we are on the dialog -1- 'Assign design' ///'"
'---------------------------------------------------------
Printlog "now we are on the dialog -1- 'Assign design' "
Kontext "HTMLExport1"
'/// 'New design' should be checked ///'
printlog "'New design' should be checked "
if (NeuesDesign.IsEnabled <> TRUE) then
warnlog "NewDesign is not enabled by default :-("
endif
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
WaitSlot (1000)
Printlog "'/// now we are on the dialog -2- 'Publication Type & Options' ///'"
Printlog "now we are on the dialog -2- 'Publication Type & Options' "
Kontext "HTMLExport2"
'/// checkbox 'Standard HTML Format' is checked by default ///'
printlog "checkbox 'Standard HTML Format' is checked by default "
if (Standard.IsChecked <> TRUE) then
warnlog "Standard is not enabled by default :-("
Standard.Check
end if
'/// checkbox 'Title Page' is checked by default ///'
printlog "checkbox 'Title Page' is checked by default "
if Not TitelseiteErzeugen.IsChecked Then
TitelSeiteErzeugen.Check
Warnlog "- 'create Titlepage' should be checked as default :-("
end if
if (gApplication = "IMPRESS") then
'/// if applcation is impress: the checkbox 'Show notes' is enabled by default///'
printlog "if application is impress: the checkbox 'Show notes' is enabled by default"
If (Notizenanzeigen.IsChecked <> TRUE) Then
warnlog "- 'Show notes' checked as default :-("
Notizenanzeigen.Check
end if
end if
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
Printlog "'/// now we are on the dialog -3- 'png/gif/jpeg & resolution & sound' ///'"
Printlog "now we are on the dialog -3- 'png/gif/jpeg & resolution & sound' "
Kontext "HTMLExport3"
'/// checkbox 'PNG' is checked by default ///'
printlog "checkbox 'PNG' is checked by default "
if (PNG.isChecked <> TRUE) then
warnlog "Save Graphic as 'PNG' is not checked as default :-("
PNG.Check
end if
'/// Listbox compression '75%' is selected by default ///'
printlog "Listbox compression '75%' is selected by default "
if (Kompressionswert.GetSelText <> "75%") then
warnlog "'Compression' should be '75%', but is: '" + Kompressionswert.GetSelText + "'"
Kompressionswert.Select "75%"
end if
'/// checkbox 'low monitor resolution' is checked by default ///'
printlog "checkbox 'low monitor resolution' is checked by default "
if (NiedrigeAufloesung.IsChecked <> TRUE)Then
warnlog "Monitor resolution 'low' is not selected as default :-("
NiedrigeAufloesung.Check
end if
'/// checkbox 'export sounds' is checked by default ///'
printlog "checkbox 'export sounds' is checked by default "
if (KlaengeExportieren.IsChecked <> true) then
warnlog "'Export Sounds' is not checked as default :-("
KlaengeExportieren.Check
end if
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
WaitSlot (1000)
Printlog "'/// now we are on the dialog -4- 'Information for the title page' ///'"
Printlog "now we are on the dialog -4- 'Information for the title page' "
Kontext "HTMLExport4"
'/// the names you entered in the options have to appeare here! ///'
printlog "the names you entered in the options have to appeare here! "
sTemp = Autor.GetText
Autor1=Autor.GetText
if (sTemp <> "Garfield Peanuts") then
@ -205,24 +206,24 @@ testcase tHtmlExport
if (sTemp <> "recumbent@sun.com") then
warnlog "Value for 'Email' is other than expected, should be 'recumbent@sun.com', is: '"+sTemp+"'"
end if
'/// set text in field 'your homepage' ///'
printlog "set text in field 'your homepage' "
Homepage.SetText "mahler"
AdditionalInformation.SetText "QualityApprooved"
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
WaitSlot (2000)
Printlog "'/// now we are on the dialog -5- 'select button style' ///'"
Printlog "now we are on the dialog -5- 'select button style' "
Kontext "HTMLExport5"
WaitSlot (5000)
'/// checkbox 'Text only' should be checked by default ///'
printlog "checkbox 'Text only' should be checked by default "
if (NurText.ischecked <> TRUE) then
warnlog "'Text only' is not checked by default :-("
NurText.check
end if
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
WaitSlot (1000)
Printlog "'/// now we are on the dialog -6- 'select color scheme' ///'"
printlog "now we are on the dialog -6- 'select color scheme' "
Kontext "HTMLExport6"
WaitSlot (2000)
' maybe check if colour dialog comes up ?! TBO
@ -231,16 +232,16 @@ testcase tHtmlExport
'AktiverLink
'GesichteterLink
'Hintergrund
'/// 'Apply color schemes from document' should be checked per default :-) ///'
printlog "'Apply color schemes from document' should be checked per default :-) "
if (FarbenAusDok.IsChecked <> TRUE) Then
warnlog "'Apply color schemes from document' should be checked per default :-("
FarbenAusDok.Check
end if
WaitSlot (2000)
'/// click button 'Create' ///'
printlog "click button 'Create' "
HTMLExport6.OK
WaitSlot (5000)
Printlog "'/// now we are on the dialog -7- 'Name HTML Design' ///'"
Printlog "now we are on the dialog -7- 'Name HTML Design' "
Kontext "HTMLDesign"
WaitSlot (1000)
Designname.SetText "Lem's Standard"
@ -248,17 +249,15 @@ testcase tHtmlExport
WaitSlot (3000)
Kontext "active"
if active.exists (5) then
printlog " the name for this design already exists : '" + active.GetText+ "'"
printlog " SAY YES!------------------"
printlog " the name for this design already exists : '" + active.GetText+ "'"
active.yes
end if
'/// check number and names of created files ///'
printlog "check number and names of created files "
Printlog "used file name: '" + sFile + "'"
Liste(0) = 0
GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.*" , Liste() )
WaitSlot (1000)
x = ListCount(Liste())
' Printlog "gApplication is: " + gApplication ' For debugging - FHA
if gApplication = "DRAW" then
if (x <> "3") then
Warnlog "- Number of files is not correct, it should be:3 but it is: '" + x + "' - Draw"
@ -274,7 +273,7 @@ testcase tHtmlExport
next
end if
end if
'/// check if fileextension is common - .htm or .html for all files the same ///'
printlog "check if fileextension is common - .htm or .html for all files the same "
Liste(0) = 0
GetFileList ((ConvertPath (gOfficePath + "user\work\html\")), "*.htm" , Liste() )
WaitSlot (1000)
@ -288,36 +287,36 @@ testcase tHtmlExport
Warnlog " htm : " + x
Warnlog " html: " + i
end if
'------------------------------------------------------------------------------------------------------------------------------
Printlog "'///<b> check if design is created in dialog </b>///'"
'--------------------------------------------------------
Printlog "check if design is created in dialog"
WaitSlot (3000)
'/// File->Export ///'
printlog "File->Export "
FileExport
Kontext "ExportierenDlg"
'/// Set Filename to "user\\work\\html\\expo.html" ///'
printlog "Set Filename to user\\work\\html\\expo.html "
Dateiname.SetText sFile
try
'/// select Filetype 'HTML...' aka 'WebPage' ///'
printlog "select Filetype 'HTML...' aka 'WebPage' "
Dateityp.Select gHTMLFilter
catch
errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
endcatch
WaitSlot (1000)
'/// click button 'save' ///'
printlog "click button 'save' "
Speichern.Click
WaitSlot (1000)
Kontext "Active"
' active about overwriting existing file
if Active.Exists Then Active.Yes
'--------------------------------------------------------------------------
'---------------------------------------------------------
WaitSlot (1000)
Kontext "HTMLExport1"
WaitSlot (1000)
try
'/// now 'existing design' is checkable -> check it ///'
printlog "now 'existing design' is checkable -> check it "
ExistierendesDesign.Check
WaitSlot (3000)
'/// there has to be 1 design in the list, select and delete it ///'
printlog "there has to be 1 design in the list, select and delete it "
x = Designliste.GetItemCount
if (x <> 1) then
warnlog "there is an unexpected count on designs in the list, expected 1, but there are : '" + x + "'"
@ -344,9 +343,11 @@ testcase tHtmlExport
Call hCloseDocument
Printlog "used file name: '" + sFile + "'"
' TBOTODO CHECK files contenet !
endcase 'tHtmlExport
'-------------------------------------------------------------------------------
'---------------------------------------------------------
testcase tHtmlExport_Webcast
Dim iWaitIndex as integer
@ -356,7 +357,7 @@ testcase tHtmlExport_Webcast
dim Liste ( 200 ) as String
dim sFile as string
'/// create directories if not exists and delete the content, if exists user\\work\\html\\[asp|perl]\\ ///'
printlog "create directories if not exists and delete the content, if exists user\\work\\html\\[asp|perl]\\ "
app.mkDir (ConvertPath (gOfficePath + "user\work\html\asp\"))
app.mkDir (ConvertPath (gOfficePath + "user\work\html\perl\"))
Liste(0) = 0
@ -376,8 +377,8 @@ testcase tHtmlExport_Webcast
next i
end if
'/// File->Autopillot->Presentation... ///'----------------------------------
FileAutopilotPresentation
printlog "File->Autopillot->Presentation... " '---------
FileAutopilotPresentation
Kontext "Active"
if Active.Exists(1) then
WarnlogActive.GetText
@ -388,18 +389,18 @@ testcase tHtmlExport_Webcast
endcatch
goto endsub
end if
'/// Page 1 of autopilot///'
printlog "Page 1 of autopilot"
Kontext "AutopilotPraesentation1"
'/// uncheck 'preview' ///'
printlog "uncheck 'preview' "
Preview.Uncheck
'/// click on button 'create' ///'
printlog "click on button 'create' "
AutopilotPraesentation1.OK
WaitSlot (3000)
'************************************************************ Page 1
Printlog "'///<b> create a presentation and save it for further references </b>///'"
'/// start creating the presentation now ///'-------------------------------
'************************************ Page 1
Printlog "create a presentation and save it for further references"
printlog "start creating the presentation now "'------------------------------
Printlog "- Create presentation"
'/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
printlog "select 'click to add title' with [TAB] and press [F2] to edit the placeholder title "
hTypeKeys "<TAB><F2>"
WaitSlot (2000)
Select Case Ucase(gApplication)
@ -407,32 +408,39 @@ testcase tHtmlExport_Webcast
case "IMPRESS" : hMouseClick DocumentImpress,50,50
end select
WaitSlot (3000)
'/// Type 'This is a test text', select it. ///'
printlog "Type 'This is a test text', select it. "
hTextrahmenErstellen ("This is a test text",10,10,40,20)
EditSelectAll
Kontext "TextObjectbar"
'/// click 'bold text' in object toolbar ///'
if TextObjectbar.Exists <> TRUE then
ViewToolbarsTextFormatting
end if
WaitSlot (3000)
Kontext "TextObjectbar"
printlog "click 'bold text' in object toolbar "
Fett.Click
WaitSlot (2000)
'/// press [esacpe][tab] to get out of edit mode and select the next placeholder ///'
printlog "press [esacpe][tab] to get out of edit mode and select the next placeholder "
hTypeKeys "<escape><TAB>"
WaitSlot (1000)
'/// SlideShow->Effects ///'
printlog "SlideShow->Effects "
SlideShowCustomAnimation
WaitSlot (1000)
Kontext "Tasks"
WaitSlot (1000)
EffectAdd.Click
'/// Dialog 'Custom Animation' comes up ///'
printlog "Dialog 'Custom Animation' comes up "
kontext
'/// Switch to TabPage: Entrance ///'
printlog "Switch to TabPage: Entrance "
active.setPage(TabEntrance)
Kontext "TabEntrance"
if TabEntrance.Exists (5) then
WaitSlot (1000)
'/// select effect 'ABC v' :-) ///'
printlog "select effect 'ABC v' :-) "
Effects.Select(5)
'/// select speed 'slow' -> first item in list ///'
printlog "select speed 'slow' -> first item in list "
Speed.Select 1
try
TabEntrance.Ok
@ -447,43 +455,41 @@ testcase tHtmlExport_Webcast
end if
kontext "Tasks"
end if
WaitSlot (3000)
'/// activate grafik insert dialog by typing [return] ///'
'Doesnt work, will work when accessability works better - FHA.
WaitSlot (3000)
printlog "activate grafik insert dialog by typing [return] "
' hTypeKEys "<return>" ' i love accessability feartures .-)))))))))))))))))
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
if GrafikEinfuegenDlg.Exists <> TRUE then
WaitSlot (1000)
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
if GrafikEinfuegenDlg.Exists <> TRUE then
WaitSlot (1000)
end if
'/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
printlog "insert grafik: global\\input\\graf_inp\\borabora.jpg "
Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
WaitSlot (3000)
Oeffnen.Click
WaitSlot (2000)
'/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
printlog "select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder "
hTypeKeys "<TAB><F2>"
'/// insert text and select the words by typing [strg a] ///'
printlog "insert text and select the words by typing [strg a] "
hTypeKeys "Mecury<RETURN>Venus<RETURN>Earth<RETURN>Mars<RETURN>Jupiter<RETURN>Saturn<RETURN>Uranus<RETURN>Neptune<RETURN>Pluto"
EditSelectAll
WaitSlot (1000)
'/// format->character ///'
printlog "format->character "
FormatCharacter
WaitSlot (2000)
Kontext
Active.SetPage TabFont
Kontext "TabFont"
'/// set font size to '18' on tabpage 'font' ///'
printlog "set font size to '18' on tabpage 'font' "
try
SizeWest.SetText "18"
catch
Size.SetText "18"
endcatch
'/// click button OK ///'
printlog "click button OK "
TabFont.OK
WaitSlot (1000)
'/// click 'bold text' in object toolbar ///'
printlog "click 'bold text' in object toolbar "
Kontext "TextObjectbar"
try
usebindings
@ -504,14 +510,14 @@ testcase tHtmlExport_Webcast
endcatch
endcatch
WaitSlot (2000)
'/// SlideShow-> CustomAnimation ///'
printlog "SlideShow-> CustomAnimation "
SlideShowCustomAnimation
WaitSlot (1000)
Kontext "Tasks"
WaitSlot (1000)
EffectChange.Click
kontext
'/// Switch to TabPage: Entrance ///'
printlog "Switch to TabPage: Entrance "
active.setPage(TabEntrance)
kontext "TabEntrance"
Effects.TypeKeys "<DOWN>",8
@ -521,37 +527,37 @@ testcase tHtmlExport_Webcast
catch
warnlog "select another effect, assign is not possible"
endcatch
'************************************************************ Page 2 Merkur
'/// create a 2nd slide with: insert->slide ///'
'******************************** Page 2 Merkur
printlog "create a 2nd slide with: insert->slide "
InsertSlide
WaitSlot (2000)
hTypekeys "<Pagedown>"
WaitSlot (2000)
'/// select 'click to add title' with [TAB] and press [F2] to edit the placeholder title ///'
printlog "select 'click to add title' with [TAB] and press [F2] to edit the placeholder title "
hTypeKeys "<TAB><F2>"
WaitSlot (2000)
'/// Type 'MERKUR', select it via Edit-Select All///'
printlog "Type 'MERKUR', select it via Edit-Select All"
hTextrahmenErstellen ("MERKUR",10,10,60,30)
EditSelectAll
WaitSlot (2000)
'/// click 'bold text' in object toolbar ///'
printlog "click 'bold text' in object toolbar "
Kontext "TextObjectbar"
Fett.Click
WaitSlot (1000)
'/// press [esacpe][tab][return] to get out of edit mode and select the next placeholder and activate grafik insert dialog ///'
printlog "press [esacpe][tab][return] to get out of edit mode and select the next placeholder and activate grafik insert dialog "
' hTypeKeys "<escape><tab><return>"
hTypeKeys "<escape><tab>"
InsertGraphicsFromFile
WaitSlot (4000)
'/// insert grafik: global\\input\\graf_inp\\borabora.jpg ///'
printlog "insert grafik: global\\input\\graf_inp\\borabora.jpg "
Kontext "GrafikEinfuegenDlg"
Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\borabora.jpg")
WaitSlot (3000)
Oeffnen.Click
WaitSlot (2000)
'/// select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder ///'
printlog "select 'click to add an outline' with [TAB] and press [F2] to edit the placeholder "
hTypeKeys "<TAB><F2>"
'/// insert text and select the words by typing [strg a] ///'
printlog "insert text and select the words by typing [strg a] "
WaitSlot (1000)
hTypeKeys "Reciprocal Mass *5972000<SHIFT RETURN>Mass (Erde=1) 0,0558<SHIFT RETURN>Mass in kg 3,30310<SHIFT RETURN>"
hTypeKeys "Equator-radius (km) 2440<SHIFT RETURN>Equator-radius (Erde=1)0,382<SHIFT RETURN>Middle density (kg/m^3) 5400<SHIFT RETURN>"
@ -560,22 +566,22 @@ testcase tHtmlExport_Webcast
hTypeKeys "Temperatur at night -170C<SHIFT RETURN>Diameter (km) 4800"
EditSelectAll
WaitSlot (1000)
'/// format->character ///'
printlog "format->character "
FormatCharacter
WaitSlot (2000)
Kontext
Active.SetPage TabFont
Kontext "TabFont"
'/// set font size to '18' on tabpage 'font' ///'
printlog "set font size to '18' on tabpage 'font' "
try
SizeWest.SetText "16"
catch
Size.SetText "16"
endcatch
'/// click button OK ///'
printlog "click button OK "
TabFont.OK
WaitSlot (2000)
'/// click 'bold text' in object toolbar ///'
printlog "click 'bold text' in object toolbar "
Kontext "TextObjectbar"
try
Fett.Click 'culprint
@ -594,65 +600,66 @@ testcase tHtmlExport_Webcast
endcatch
endcatch
WaitSlot (2000)
'/// save file with impress filter : "user\\work\\webcast.odp" ///'
printlog "save file with impress filter : user\\work\\webcast.odp "
sFile = ConvertPath (gOfficePath + "user\work\webcast")
if (Dir (sFile + ".odp") <> "") then app.kill (sFile + ".odp")
WaitSlot (2000)
hFileSaveAsWithFilterKill ((sFile + ".odp") , "impress8" )
Printlog "saved presentation: '" + sFile + ".odp"
'----------------------------------- Exportieren als ASP Web-Cast
Printlog "'///<b> export as webcast ASP </b>///'"
'/// File->SaveAs ///'
Printlog "saved presentation: " + sFile + ".odp"
'------------------------- Exportieren als ASP Web-Cast
Printlog "'export as webcast ASP"
printlog "File->SaveAs "
FileExport
WaitSlot (2000)
Kontext "ExportierenDlg"
try
'/// select Filetype 'HTML...' aka 'WebPage' ///'
printlog "select Filetype 'HTML...' aka 'WebPage' "
gHTMLFilter = Dateityp.GetItemText(1)
Dateityp.Select(gHTMLFilter)
catch
errorlog " Filter not available :-( : '"+gHTMLFilter+"'"
Dateityp.Select 1 '/// Selects the first entry - which should be html ///'
Dateityp.Select 1
printlog "Selects the first entry - which should be html "
endcatch
'/// Set Filename to "user\\work\\webcst_asp.html" ///'
printlog "Set Filename to user\\work\\webcst_asp.html "
sFile = ConvertPath (gOfficePath + "user\work\html\asp\webcast.html")
Dateiname.SetText sFile
'/// click button 'save' ///'
printlog "click button 'save' "
Speichern.Click
WaitSlot (5000)
Kontext "Active"' ????????? TBO
if Active.Exists (5) Then Active.Yes
WaitSlot (3000)
'/// now we are on the dialog -1- 'Assign design' ///'
printlog "now we are on the dialog -1- 'Assign design' "
Kontext "HTMLExport1"
WaitSlot (2000)
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
WaitSlot (2000)
'/// now we are on the dialog -2- 'Publication Type & Options' ///'
printlog "now we are on the dialog -2- 'Publication Type & Options' "
Kontext "HTMLExport2"
WaitSlot (2000)
Printlog "'/// check 'WebCast' ///"
Printlog "check 'WebCast'"
WebCast.Check
WaitSlot (2000)
Printlog "'/// check 'Active Server Pages (ASP)' ///"
Printlog "check 'Active Server Pages (ASP)'"
ASP.Check
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
'/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
printlog "now we are on the dialog -3- 'gif/jpeg & resolution & sound' "
Kontext "HTMLExport3"
WaitSlot (2000)
'/// check Save graphics as 'GIF' ///'
printlog "check Save graphics as 'GIF' "
Gif.Check
'/// check 'Medium (monitor) Resolution' ///'
printlog "check 'Medium (monitor) Resolution' "
MittlereAufloesung.Check
WaitSlot (1000)
'/// click button 'Create' ///'
printlog "click button 'Create' "
HTMLExport3.OK
WaitSlot (2000)
'/// now we are on the dialog -7- 'Name HTML Design' ///'
printlog "now we are on the dialog -7- 'Name HTML Design' "
Kontext "HTMLDesign"
'/// click button 'Do Not Save' ///'
printlog "click button 'Do Not Save' "
if HTMLDesign.Exists Then HTMLDesign.Cancel
iWaitIndex = 0
do while HTMLDesign.Exists AND iWaitIndex < 30
@ -671,15 +678,15 @@ testcase tHtmlExport_Webcast
printlog "("+i+"/"+x+"): '"+Liste(i)+"'"
next
end if
'----------------------------------- Exportieren als ASP Web-Cast
Printlog "'///<b> export as webcast PERL </b>///'"
'------------------------- Exportieren als ASP Web-Cast
Printlog "export as webcast PERL"
Kontext "DocumentImpress"
WaitSlot (2000)
'/// File->export ///'
printlog "File->export "
FileExport
WaitSlot (2000)
Kontext "ExportierenDlg"
'/// select Filetype 'HTML...' aka 'WebPage' ///'
printlog "select Filetype 'HTML...' aka 'WebPage' "
try
Dateityp.Select gHTMLFilter
catch
@ -688,51 +695,52 @@ testcase tHtmlExport_Webcast
printlog "Selected " + Dateityp.GetSelText + " manually."
endcatch
WaitSlot (1000)
'/// Set Filename to "user\\work\\wbcst_p.html" ///'
printlog "Set Filename to user\\work\\wbcst_p.html "
sFile = ConvertPath (gOfficePath + "user\work\html\perl\webcast")
Dateiname.SetText sFile
'/// click button 'save' ///'
printlog "click button 'save' "
Speichern.Click
WaitSlot (2000)
Kontext "Active" '/// click button 'save' ///'
Kontext "Active"
printlog "click button 'save' "
if Active.Exists Then Active.Yes
WaitSlot (2000)
'/// now we are on the dialog -1- 'Assign design' ///'
printlog "now we are on the dialog -1- 'Assign design' "
Kontext "HTMLExport1"
WaitSlot (2000)
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
WaitSlot (2000)
'/// now we are on the dialog -2- 'Publication Type & Options' ///'
printlog "now we are on the dialog -2- 'Publication Type & Options' "
Kontext "HTMLExport2"
WaitSlot (2000)
Printlog "'/// check 'WebCast' ///"
Printlog "check 'WebCast'"
WebCast.Check
WaitSlot (2000)
Printlog "'/// check 'Perl' ///"
Printlog "check 'Perl'"
PERL.Check
WaitSlot (1000)
'/// 'URL for listeners' ///'
printlog "URL for listeners compare to to TBO: '"+BeamerURL.GetText+"'"
'/// set 'URL for presentation' to 'wbcst_prl.html' ///'
printlog "'URL for listeners' "
printlog "URL for listeners compare to to TBO: "+BeamerURL.GetText
printlog "set 'URL for presentation' to 'wbcst_prl.html' "
PraesentationURL.SetText "wbcst_prl"
WaitSlot (1000)
'/// set 'URL for perl scrips' to '/WebCast/cgi-bin/' ///'
printlog "set 'URL for perl scrips' to '/WebCast/cgi-bin/' "
ScriptURL.SetText "/WebCast/cgi-bin/"
printlog "presentation url? : "+ (gOfficePath + "/WebCast/cgi-bin/wbcst_prl")
WaitSlot (1000)
'/// click button 'Next >>' ///'
printlog "click button 'Next >>' "
Weiter.Click
WaitSlot (1000)
'/// now we are on the dialog -3- 'gif/jpeg & resolution & sound' ///'
printlog "now we are on the dialog -3- 'gif/jpeg & resolution & sound' "
Kontext "HTMLExport3"
WaitSlot (1000)
'/// check Save graphics as 'GIF' ///'
printlog "check Save graphics as 'GIF' "
Gif.Check
'/// check 'Medium (monitor) Resolution' ///'
printlog "check 'Medium (monitor) Resolution' "
MittlereAufloesung.Check
WaitSlot (3000)
'/// click button 'Create' ///'
printlog "click button 'Create' "
HTMLExport3.OK
WaitSlot (3000)
Kontext "HTMLDesign"

7
testautomation/graphics/optional/includes/global/g_line.inc
View File

@ -473,10 +473,15 @@ testcase tLineConnect
'/// Go through the different Corner-styles ///'
hOpenContextMenu
sleep 1
hMenuSelectNr(2) 'Choose "Line"
Kontext "TabLinie"
cfirst = CornerStyle.GetSelIndex
if TabLinie.Exists(2) then
cfirst = CornerStyle.GetSelIndex
else
sleep 1
endif
For i = 1 to CornerStyle.GetItemCount
Kontext "TabLinie"

114
testautomation/graphics/optional/includes/global/g_tables.inc
View File

@ -55,9 +55,17 @@ testcase tiInsertTableUsingMenu
printlog "Inserting table into doc using the menu."
Call hNewDocument
DocumentImpress.UseMenu
hMenuSelectNr(4)
hMenuSelectNr(13)
printlog "Switching between Draw/Impress"
if (UCase(gApplication)) = "IMPRESS" then
DocumentImpress.UseMenu
hMenuSelectNr(4)
hMenuSelectNr(13)
else
DocumentDraw.UseMenu
hMenuSelectNr(4)
hMenuSelectNr(10)
endif
printlog "Checking if insert Table dialog comes up."
Kontext "InsertTableImpress"
@ -208,23 +216,32 @@ endcase 'tiInsertTableUsingToolbarbutton
testcase tiTableObjectBar
printlog "Testing TableObjectBar."
printlog "Inserting table into doc using the menu."
Call hNewDocument
kontext "Standardbar"
printlog "Checking if button is available."
try
Table.Click
catch
warnlog "Table button in standardbar is not available!"
endcatch
printlog "Switching between Draw/Impress"
if (UCase(gApplication)) = "IMPRESS" then
DocumentImpress.UseMenu
hMenuSelectNr(4)
hMenuSelectNr(13)
else
DocumentDraw.UseMenu
hMenuSelectNr(4)
hMenuSelectNr(10)
endif
Kontext "InsertTableImpress"
printlog "Inserting table."
InsertTableImpress.OK
Kontext "DocumentImpress"
printlog "Selecting table for geeting the TableObjectBar."
DocumentImpress.TypeKeys "<MOD1 A>"
printlog "Switching between Draw/Impress"
if (UCase(gApplication)) = "IMPRESS" then
Kontext "DocumentImpress"
DocumentImpress.TypeKeys "<MOD1 A>"
else
Kontext "DocumentDraw"
DocumentDraw.TypeKeys "<MOD1 A>"
endif
printlog " Checking Table button."
Kontext "TableObjectBar"
@ -247,7 +264,11 @@ testcase tiTableObjectBar
Kontext "TableObjectBar"
TableObjectBar.Close
Kontext "DocumentImpress"
if (UCase(gApplication)) = "IMPRESS" then
Kontext "DocumentImpress"
else
Kontext "DocumentDraw"
endif
Call hToolbarSelect ("Table", true)
Kontext "TableObjectBar"
@ -263,7 +284,11 @@ testcase tiTableObjectBar
endif
Kontext "TableObjectBar"
TableObjectBar.Close
Kontext "DocumentImpress"
if (UCase(gApplication)) = "IMPRESS" then
Kontext "DocumentImpress"
else
Kontext "DocumentDraw"
endif
Call hToolbarSelect ("Table", true)
Kontext "TableObjectBar"
@ -276,12 +301,21 @@ testcase tiTableObjectBar
else
warnlog "BordersTB is not up!"
endif
Kontext "DocumentImpress"
if (UCase(gApplication)) = "IMPRESS" then
Kontext "DocumentImpress"
else
Kontext "DocumentDraw"
endif
printlog "Checking merge cells."
printlog "Inserting something into cell and select."
DocumentImpress.TypeKeys ("a")
DocumentImpress.TypeKeys "<SHIFT RIGHT>"
if (UCase(gApplication)) = "IMPRESS" then
DocumentImpress.TypeKeys ("a")
DocumentImpress.TypeKeys "<SHIFT RIGHT>"
else
DocumentDraw.TypeKeys ("a")
DocumentDraw.TypeKeys "<SHIFT RIGHT>"
endif
Kontext "TableObjectBar"
ZellenVerbinden.Click
printlog "Cells merged."
@ -289,23 +323,23 @@ testcase tiTableObjectBar
printlog "Checking split cells."
ZelleTeilen.Click
printlog "Cells split."
Kontext "SplitCells"
Kontext "ZellenTeilen"
WaitSlot(1000)
printlog "SplitCells dialog open."
SplitCellInto.ToMax
printlog "Maximum SplitCellCount is " & SplitCellInto.GetText & "."
SplitCellInto.ToMin
printlog "Minimum SplitCellCount is " & SplitCellInto.GetText & "."
if CellsHorizontally.IsChecked = TRUE then
Anzahl.ToMax
printlog "Maximum SplitCellCount is " & Anzahl.GetText & "."
Anzahl.ToMin
printlog "Minimum SplitCellCount is " & Anzahl.GetText & "."
if Horizontal.IsChecked = TRUE then
printlog "Horizontally is clicked."
else
warnlog "Horizontally should be clicked by default!"
endif
SplitEqual.Check
GleichmaessigTeilen.Check
printlog "Split Equal checked."
CellsVertically.Check
Vertikal.Check
printlog "Cells vertically checked."
SplitCells.OK
ZellenTeilen.OK
printlog " Checking optimize button 'ToDo: button not working"
'Kontext "TableObjectBar"
'Optimieren.TearOff
@ -333,14 +367,26 @@ testcase tiTableObjectBar
printlog "Checking table design button 'ToDo:needs some further examination here!"
tabledesign.Click
kontext "Tasks"
if (NOT Tasks.exists) then
warnlog "Tasks Panel not visible. Opening now."
ViewTaskPane
printlog "Checking for Table Design in Impress TaskBar or for Dialog in Draw."
if (UCase(gApplication)) = "IMPRESS" then
kontext "Tasks"
if (NOT Tasks.exists) then
warnlog "Tasks Panel not visible. Opening now."
ViewTaskPane
else
printlog "Task Pane visible."
endif
else
printlog "Task Pane visible."
endif
kontext "TableDesign"
if TableDesign.exists then
printlog "Table Design Dialog is up."
TableDesign.Close
else
warnlog "TableDesign Dialog for Draw is missing."
endif
endif
printlog "Checking Properties button."
Kontext "TableObjectBar"
TableProperties.Click

2
testautomation/graphics/optional/includes/impress/i_pengine2.inc
View File

@ -592,7 +592,7 @@ Function TestAnimations
Effects.TypeKeys "<HOME>"
For e = 1 to i
If e <> p Then
if AutomaticPreview.isChecked = TRUE then sleep 2
if AutomaticPreview.isChecked = TRUE then sleep 1
Printlog "Effect has position Nr: " + Effects.GetSelIndex + ". Name of effect: " + Effects.GetSelText
'/// Select the next entry ///'
Effects.TypeKeys "<DOWN>"

1
testautomation/graphics/required/i_updt_1.bas
View File

@ -74,7 +74,6 @@ sub LoadIncludeFiles
use "global\system\includes\master.inc"
use "global\system\includes\gvariabl.inc"
use "global\required\includes\g_option.inc"
use "global\required\includes\g_option2.inc"
use "global\required\includes\g_customize.inc"
gApplication = "IMPRESS"
Call GetUseFiles()

35
testautomation/graphics/required/includes/global/id_opt_2.inc
View File

@ -45,35 +45,15 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
dim iCount2 as integer
dim sUnitOptions as string
dim sUnitDialog as string
dim gApplicationTemp as string
gApplicationTemp = gApplication
gApplication = "WRITER"
printlog "Take Measurement Units from Writer "
hNewDocument
ToolsOptions
' Take General Measurement units from writer, there are only 5!
hToolsOptions ("WRITER","General")
iCount2 = Masseinheit.GetItemCount
for i=1 to iCount2
Masseinheit.select i
printlog "(" + i + "/" + iCount2 + "): '" + Masseinheit.getSelText + "' - " + GetMeasUnit(Tabulatorenabstand.getText)
next i
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
hCloseDocument()
gApplication = gApplicationTemp
sleep 1
hNewDocument
sleep 1
ToolsOptions
hToolsOptions (sApplication,"General")
iCount2 = Masseinheit.GetSelIndex
printlog "current measurement unit is: " & iCount2
iCount = Masseinheit.GetItemCount
if (iCount <> iCount2) then
'warnlog "Inconsistence between Writer: '" + iCount2 + "' and " + sApplication + ": '" + iCount + "'"
endif
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
printlog "----------------------"
@ -149,6 +129,13 @@ testcase tToolsOptionsMeasurementUnit (sApplication as string)
TabEinzuegeUndAbstaende.cancel
next i
printlog "Setting back measurement to " & iCount2
ToolsOptions
hToolsOptions (sApplication,"General")
Masseinheit.Select(iCount2)
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
hCloseDocument
endcase 'tToolsOptionsMeasurementUnit

1535
testautomation/graphics/tools/id_tools.inc
View File

File diff suppressed because it is too large Load Diff

1077
testautomation/graphics/tools/id_tools_2.inc
View File

File diff suppressed because it is too large Load Diff

1
testautomation/math/optional/includes/m_105.inc
View File

@ -389,6 +389,7 @@ testcase tToolsCatalog
catch
qaErrorLog "Can not leave object selection"
' somehow not triggerable on macos
call hCloseDocument
goto endsub
endcatch
Kontext "DocumentMath"

68
testautomation/spreadsheet/optional/c_solver.bas Executable file
View File

@ -0,0 +1,68 @@
'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: c_solver.bas,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: oc $ $Date: 2009/08/03 08:05:48 $
'*
'* 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 : oliver.craemer@sun.com
'*
'* short description : Functionality Test - Solver in Spreadsheet
'*
'\***********************************************************************
sub main
use "spreadsheet/optional/includes/solver/c_solver.inc"
use "spreadsheet/tools/includes/c_select_tools.inc"
use "spreadsheet/tools/includes/c_cell_tools.inc"
use "spreadsheet/tools/includes/c_l10n_tools.inc"
Printlog "--------------------------------------------------"
Printlog "--- Test for Solver in calc ---"
Printlog "--------------------------------------------------"
Call hStatusIn("spreadsheet", "c_solver.bas")
Call tExampleCalculation
Call tExampleCalculation2
Call hStatusOut
end sub
'
'-------------------------------------------------------------------------------
'
sub LoadIncludeFiles
use "global/system/includes/master.inc"
use "global/system/includes/gvariabl.inc"
use "global/tools/includes/optional/t_spreadsheet_tools1.inc"
gApplication = "CALC"
call getusefiles
end sub

231
testautomation/spreadsheet/optional/includes/solver/c_solver.inc Normal file
View File

@ -0,0 +1,231 @@
'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: c_solver.inc,v $
'*
'* $Revision: 1.2 $
'*
'* last change: $Author: oc $ $Date: 2008/09/04 09:18:19 $
'*
'* 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 : oliver.craemer@sun.com
'*
'* short description : Functionality Test - Solver
'*
'************************************************************************
'*
' #1 tExampleCalculation
' #1 tExampleCalculation2
'*
'\***********************************************************************
testcase tExampleCalculation
dim sdecimalseperator as string
sDecimalseperator = GetDecimalSeperator
printlog " Open testdocument 'gTesttoolPath + spreadsheet\optional\input\Solver_testdoc01.ods'"
Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\optional\input\Solver_testdoc01.ods" ))
printlog " If the file is not editable, click the edit button on standardbar"
Call sMakeReadOnlyDocumentEditable
printlog " Tools - Solver"
ToolsSolver
Kontext "Solver"
printlog " Set target cell to $E$15"
TargetCell.SetText "$E$15"
printlog " Set Optimize result to Minimum"
OptimizeMinimum.Check
printlog " Set 'By changing cells' to $G$13:$G$14"
ChangingCells.SetText "$G$13:$G$14"
printlog " Set the first cell reference under 'Limiting conditions' to $C$15, the first Operator to '<=' and the first Value to 4"
CellReference1.SetText "$C$15"
Operator1.Select 1
Value1.SetText "4"
printlog " Set the second cell reference under 'Limiting conditions' to $D$15, the second Operator to '>=' and the second Value to 10"
CellReference2.SetText "$D$15"
Operator2.Select 3
Value2.SetText "10"
printlog " Set the third cell reference under 'Limiting conditions' to $G$15, the third Operator to '=' and the third Value to 300."
CellReference3.SetText "$G$15"
Operator3.Select 2
Value3.SetText "300"
printlog " Click on Solve"
Solve.Click
printlog " A new dialog opens informing you that a result was found."
Kontext "SolvingResult"
if not SolvingResult.exists then
warnlog "Normally there should be a Success dialog, but there is none"
Kontext "NoSolution"
if NoSolution.exists then
NoSolution.OK
Kontext "Solver"
Solver.Cancel
Call hCloseDocument
goto endsub
else
Kontext "Solver"
Solver.Cancel
Call hCloseDocument
goto endsub
end if
end if
printlog " Click on the 'Restore Previous' Button. The Solver dialog is shown again."
SolvingResult.Cancel
Kontext "Solver"
printlog " Press ALT+S . The Solved dialog opens again. Press the Enter key."
Solve.Click
Kontext "SolvingResult"
SolvingResult.OK
Kontext "DocumentCalc"
printlog " C15 must show 4.0000 mg, D15 must show 18.0000 mg, E15 must show 22.0000 ct, G13 is set to 120, G14 shows 180 and therefore G15 300."
call fCalcCompareCellValue ("C15","4" & sDecimalseperator & "0000 mg")
call fCalcCompareCellValue ("D15","18" & sDecimalseperator & "0000 mg")
call fCalcCompareCellValue ("E15","22" & sDecimalseperator & "0000 ct")
call fCalcCompareCellValue ("G13","120")
call fCalcCompareCellValue ("G14","180")
call fCalcCompareCellValue ("G15","300")
printlog " Tools - Solver"
ToolsSolver
Kontext "Solver"
printlog " Change limitatation value 3 from 300 to 500"
Value3.SetText "500"
printlog " Press ALT+S to solve the problem and keep the results."
Solve.Click
Kontext "SolvingResult"
SolvingResult.OK
Kontext "DocumentCalc"
printlog " The results should be :C15 must show 4.0000 mg, D15 must show 51.3333 mg, E15 must show 68.6667 ct, G13 is set to 520, G14 shows -20 and therefore G15 500"
call fCalcCompareCellValue ("C15","4" & sDecimalseperator & "0000 mg")
call fCalcCompareCellValue ("D15","51" & sDecimalseperator & "3333 mg")
call fCalcCompareCellValue ("E15","68" & sDecimalseperator & "6667 ct")
call fCalcCompareCellValue ("G13","520")
call fCalcCompareCellValue ("G14","-20")
call fCalcCompareCellValue ("G15","500")
printlog " So the solution found is correct but not usefull. Let's limit the lemonade to positive values by adding a new limitation."
printlog " Tools - Solver"
ToolsSolver
kontext "Solver"
printlog " Set the fourth cell reference under 'Limiting conditions' to $G$14, the fourth Operator to '>=' and the fourth Value to 0."
CellReference4.SetText "$G$14"
Operator4.Select 3
Value4.SetText "0"
printlog " Click on Solve."
Solve.Click
printlog " The No Solution dialog opens, telling you that the model is not solvable with the given limiting conditions."
Kontext "NoSolution"
if not NoSolution.exists then
warnlog "Normally the NoSolution dialog appears, but there is none"
end if
printlog " Click on Ok at this dialog, the Solver dialog should be shown."
NoSolution.OK
Kontext "Solver"
Solver.Close
printlog " Close document"
Call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tExampleCalculation2
printlog " Open testdocument 'gTesttoolPath + spreadsheet\optional\input\stest_large.ods'"
Call hFileOpen (Convertpath (gTesttoolPath + "spreadsheet\optional\input\stest_large.ods" ))
printlog " If the file is not editable, click the edit button on standardbar"
Call sMakeReadOnlyDocumentEditable
printlog " Tools - Solver"
ToolsSolver
Kontext "Solver"
printlog " Target Cell: $Y$2"
TargetCell.SetText "$Y$2"
printlog " Optimize to: Maximum"
OptimizeMaximum.Check
printlog " Changing cells: $B$5:$B$134"
ChangingCells.SetText "$B$5:$B$134"
printlog " Limiting Conditions: Cell reference: $D$2:$W$2 Operator : <= Value: $D$3:$W$3"
CellReference1.SetText "$D$2:$W$2"
Operator1.Select 1
Value1.SetText "$D$3:$W$3"
printlog " Copy the following String to the second cell reference input line: $D$2:$W$2 <= $D$3:$W$3"
CellReference2.SetText "$D$2:$W$2"
Operator1.Select 2
Value2.SetText "$D$3:$W$3"
printlog " Click on Solve"
Solve.Click
printlog " You get a new Warning dialog talking about Invalid condition."
Kontext "NoSolution"
if not NoSolution.exists then
warnlog "Normally there should be a No Solution dialog"
end if
NoSolution.OK
Kontext "Solver"
printlog " Click on the remove Button next to the second Value field to remove the faulty condition."
Remove2.Click
if Value2 = "$D$3:$W$3" then
warnlog "The condition was not removed"
end if
printlog " Click on Options button, the Options dialog opens"
Options.Click
Kontext "SolverOptions"
if not SolverOptions.exists then
warnlog "The Options dialog is not open"
end if
printlog " Tag 'Assume variables as integer'"
SolverSettings.Select (1)
SolverSettings.TypeKeys "<SPACE>"
printlog " Tag 'Assume variables not negative'"
SolverSettings.Select (2)
SolverSettings.TypeKeys "<SPACE>"
printlog " Select SolvingTime"
SolverSettings.Select (5)
printlog " Click on Edit button to open the Editdialog"
SolverSettingsEdit.Click
Kontext "SolverEditSetting"
printlog " Set time to 10 and close editdialog by OK"
SolverNumeric.SetText "10"
SolverEditSetting.OK
Kontext "SolverOptions"
printlog " Click OK on SolverOptionsdialog"
SolverOptions.OK
Kontext "Solver"
printlog " Click on Solve"
Solve.Click
printlog " A new dialog named Solving... opens telling you about the time limit"
sleep (15)
printlog " After that a new dialog pops up saying 'No Solution was found. The time limit was reached.'"
Kontext "NoSolution"
printlog " Click the Ok button to close the No Solution dialog."
NoSolution.OK
printlog " Click close to leave the Solver dialog."
Kontext "Solver"
Solver.Close
printlog " Close document"
Call hCloseDocument
endcase

BIN
testautomation/spreadsheet/optional/input/Solver_testdoc01.ods Normal file
View File

Binary file not shown.

BIN
testautomation/spreadsheet/optional/input/stest_large.ods Normal file
View File

Binary file not shown.

305
testautomation/writer/optional/includes/alternative_text/w_alternative_text.inc Executable file
View File

@ -0,0 +1,305 @@
'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: w_alternative_text.inc,v $
'*
'* $Revision: 1.2 $
'*
'* last change: $Author: hde $ $Date: 2008-08-18 12:30:39 $
'*
'* 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 : Test Alternative Text for objects in writer
'*
'\************************************************************************
sub w_alternative_text
Call tPictureAlternativeText
Call tFrameAlternativeText
Call tOLEAlternativeText
end sub
'-------------------------------------------------------------------------
testcase tPictureAlternativeText
printlog "- New writer document"
Call hNewDocument
printlog "- Insert a picture"
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\alternative_text\jolink.jpg")
Sleep 1
Oeffnen.Click
Sleep 2
printlog "- Context menu on the picture, choose 'Description'"
try
ContextDescriptionObject
catch
Warnlog "Seems picture is not selected => Description Object could not be opened"
endcatch
printlog "- Type 'TitleText' in the Title field"
Kontext "DescriptionObject"
DescriptionTitle.Settext "TitleText"
printlog "- Type 'This Is A Description'"
DescriptionText.Settext "This Is A Description"
printlog "- Close the dialog"
DescriptionObject.Ok
printlog "- Context menu on the picture, choose 'Description'"
try
ContextDescriptionObject
catch
Warnlog "Seems picture is not selected => Description Object could not be opened"
endcatch
printlog "Check that the Title and Description fields have been saved correctly"
Kontext "DescriptionObject"
if DescriptionTitle.Gettext <> "TitleText" then
Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
endif
if DescriptionText.Gettext <> "This Is A Description" then
warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
endif
DescriptionObject.Cancel
printlog "- Format - Picture"
FormatGraphics
printlog "The 'Alternative' field must be filled with the content of the Title field (='TitleText')"
Kontext
Active.Setpage TabZusaetze
Kontext "TabZusaetze"
if Alternativtext.Gettext <> "TitleText" then
Warnlog "Alternatice text in pictures options is not set"
endif
TabZusaetze.Cancel
printlog "- Save the document"
Call hFileSaveAsKill ( gOfficePath + "user\work\tPictureAlternativeText.odt" )
Call hCloseDocument
printlog "- Reload"
Call hFileOpen ( gOfficePath + "user\work\tPictureAlternativeText.odt" )
' select graphic
Call wTypeKeys ("<SHIFT F4>")
printlog "Check that the Title and Description fields have been saved correctly"
try
ContextDescriptionObject
catch
Warnlog "Seems picture is not selected => Description Object could not be opened"
endcatch
Kontext "DescriptionObject"
if DescriptionTitle.Gettext <> "TitleText" then
Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
endif
if DescriptionText.Gettext <> "This Is A Description" then
warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
endif
DescriptionObject.Cancel
printlog "- Format - Picture"
FormatGraphics
Kontext
Active.Setpage TabZusaetze
Kontext "TabZusaetze"
if Alternativtext.Gettext <> "TitleText" then
Warnlog "Alternatice text in pictures options is not set after save and reload"
endif
TabZusaetze.Cancel
printlog "- close document"
Call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tFrameAlternativeText
printlog "- New writer document"
Call hNewDocument
printlog "- Insert a frame"
Call wInsertFrame
printlog "- Context menu on the frame, choose 'Description'"
try
ContextDescriptionObject
catch
Warnlog "Seems Frame is not selected => Description Object could not be opened"
endcatch
printlog "- Type 'TitleText' in the Title field"
Kontext "DescriptionObject"
DescriptionTitle.Settext "TitleText"
printlog "- Type 'This Is A Description'"
DescriptionText.Settext "This Is A Description"
printlog "- Close the dialog"
DescriptionObject.Ok
printlog "- Context menu on the frame, choose 'Description'"
try
ContextDescriptionObject
catch
Warnlog "Seems frame is not selected => Description Object could not be opened"
endcatch
printlog "Check that the Title and Description fields have been saved correctly"
Kontext "DescriptionObject"
if DescriptionTitle.Gettext <> "TitleText" then
Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
endif
if DescriptionText.Gettext <> "This Is A Description" then
warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
endif
DescriptionObject.Cancel
printlog "- Save the document"
Call hFileSaveAsKill ( gOfficePath + "user\work\tFrameAlternativeText.odt" )
Call hCloseDocument
printlog "- Reload"
Call hFileOpen ( gOfficePath + "user\work\tFrameAlternativeText.odt" )
' select frame
Call wTypeKeys ("<SHIFT F4>")
printlog "Check that the Title and Description fields have been saved correctly"
try
ContextDescriptionObject
catch
Warnlog "Seems frame is not selected => Description Object could not be opened"
endcatch
Kontext "DescriptionObject"
if DescriptionTitle.Gettext <> "TitleText" then
Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
endif
if DescriptionText.Gettext <> "This Is A Description" then
warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
endif
DescriptionObject.Cancel
printlog "- close document"
Call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tOLEAlternativeText
printlog "- New writer document"
Call hNewDocument
printlog "- Insert a OLE"
InsertObjectOLEObject
Kontext "OLEObjektEinfuegen"
NeuErstellen.Check
OLEObjektEinfuegen.Ok
Sleep 2
Call gMouseClick (10,10)
Call wTypeKeys "<SHIFT F4>"
printlog "- Context menu on the OLE, choose 'Description'"
try
ContextDescriptionObject
catch
Warnlog "Seems OLE is not selected => Description Object could not be opened"
endcatch
printlog "- Type 'TitleText' in the Title field"
Kontext "DescriptionObject"
DescriptionTitle.Settext "TitleText"
printlog "- Type 'This Is A Description'"
DescriptionText.Settext "This Is A Description"
printlog "- Close the dialog"
DescriptionObject.Ok
printlog "- Context menu on the OLE, choose 'Description'"
try
ContextDescriptionObject
catch
Warnlog "Seems OLE is not selected => Description Object could not be opened"
endcatch
printlog "Check that the Title and Description fields have been saved correctly"
Kontext "DescriptionObject"
if DescriptionTitle.Gettext <> "TitleText" then
Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
endif
if DescriptionText.Gettext <> "This Is A Description" then
warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
endif
DescriptionObject.Cancel
printlog "- Save the document"
Call hFileSaveAsKill ( gOfficePath + "user\work\tOLEAlternativeText.odt" )
Call hCloseDocument
printlog "- Reload"
Call hFileOpen ( gOfficePath + "user\work\tOLEAlternativeText.odt" )
' select OLE
Call wTypeKeys ("<SHIFT F4>")
printlog "Check that the Title and Description fields have been saved correctly"
try
ContextDescriptionObject
catch
Warnlog "Seems OLE is not selected => Description Object could not be opened"
endcatch
Kontext "DescriptionObject"
if DescriptionTitle.Gettext <> "TitleText" then
Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
endif
if DescriptionText.Gettext <> "This Is A Description" then
warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
endif
DescriptionObject.Cancel
printlog "- close document"
Call hCloseDocument
endcase

2
testautomation/writer/optional/includes/chinesetranslate/w_chinesetranslate1.inc
View File

@ -77,7 +77,7 @@ testcase tDefaultSetting_1
printlog " 'Simplified Chinese to Traditional Chinese' should be Checked by default"
if NOT SChineseToTChinese.IsChecked then
Warnlog "#i96768# 'Simplified Chinese to Traditional Chinese' should be Checked by default !"
QAErrorlog "#i96768# 'Simplified Chinese to Traditional Chinese' should be Checked by default !"
end if
ChineseTranslation.Cancel

4
testautomation/writer/optional/includes/fields/w_fields6.inc
View File

@ -788,10 +788,8 @@ endcase
'-----------------------------------------------------------------
testcase tFunctions_13
Warnlog "#i102752# - tFunctions_13 outcommented due to bug."
goto endsub
Dim sCombineCharacter as String
Dim sCombineCharacter as String
Dim sTestFile as String
sCombineCharacter = "ABC"

6
testautomation/writer/optional/includes/formatpage/w_formatpage1.inc
View File

@ -591,8 +591,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tFormatPage_11
Warnlog "#i102752# - tFormatPage_11 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sMarginsLeft as String
@ -652,8 +650,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tFormatPage_12
Warnlog "#i102752# - tFormatPage_12 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sMarginsLeft as String
@ -716,8 +712,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tFormatPage_13
Warnlog "#i102752# - tFormatPage_13 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPage1 as String

8
testautomation/writer/optional/includes/formatparagraph/w_formatparagraph1.inc
View File

@ -896,9 +896,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphIndent13
Warnlog "#i102752# - tParagraphIndent13 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sAtLeast as String
@ -968,8 +965,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphIndent14
Warnlog "#i102752# - tParagraphIndent14 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sAtLeast as String
@ -1104,9 +1099,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphIndent16
Warnlog "#i102752# - tParagraphIndent16 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String

23
testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.inc
View File

@ -63,9 +63,6 @@
'\***********************************************************************
testcase tParagraphAlignment1
Warnlog "#i102752# - tParagraphAlignment1 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String
@ -114,8 +111,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphAlignment2
Warnlog "#i102752# - tParagraphAlignment2 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String
@ -155,12 +150,10 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphAlignment3
Warnlog "#i102752# - tParagraphAlignment3 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sTestFile as String
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
PrintLog "- Test 'Center' alignment"
'/// Test 'Center' alignment
@ -194,8 +187,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphAlignment4
Warnlog "#i102752# - tParagraphAlignment4 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX1 as String
@ -267,8 +258,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphAlignment5
Warnlog "#i102752# - tParagraphAlignment5 outcommented due to bug."
goto endsub
Dim sTestFile as String
@ -308,8 +297,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphAlignment6
Warnlog "#i102752# - tParagraphAlignment6 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX1 as String
@ -380,8 +367,6 @@ endcase
'--------------------------------------------------------------------------
testcase tParagraphAlignment7
Warnlog "#i102752# - tParagraphAlignment7 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String
@ -442,8 +427,6 @@ endcase
'--------------------------------------------------------------------------
testcase tParagraphAlignment8
Warnlog "#i102752# - tParagraphAlignment8 outcommented due to bug."
goto endsub
Dim bAsianLanguage as Boolean
Dim sTestFile as String
@ -515,8 +498,6 @@ endcase
'--------------------------------------------------------------------------
testcase tParagraphAlignment9
Warnlog "#i102752# - tParagraphAlignment9 outcommented due to bug."
goto endsub
Dim bAsianLanguage as Boolean
Dim sTestFile as String

21
testautomation/writer/optional/includes/formatparagraph/w_formatparagraph3.inc
View File

@ -63,8 +63,6 @@
'\***********************************************************************
testcase tParagraphTabs1
Warnlog "#i102752# - tParagraphTabs1 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sTabs as String
@ -111,8 +109,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphTabs2
Warnlog "#i102752# - tParagraphTabs2 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sTabs as String
@ -159,8 +155,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphTabs3
Warnlog "#i102752# - tParagraphTabs3 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sTabs as String
@ -207,9 +201,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphTabs4
Warnlog "#i102752# - tParagraphTabs4 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sTabs as String
@ -350,8 +341,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphDropCaps1
Warnlog "#i102752# - tParagraphDropCaps1 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String
@ -404,8 +393,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphDropCaps2
Warnlog "#i102752# - tParagraphDropCaps2 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String
@ -460,8 +447,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphDropCaps3
Warnlog "#i102752# - tParagraphDropCaps3 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String
@ -516,8 +501,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphDropCaps4
Warnlog "#i102752# - tParagraphDropCaps4 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionX as String
@ -567,8 +550,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphDropCaps5
Warnlog "#i102752# - tParagraphDropCaps5 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sSpace as String
@ -657,8 +638,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tParagraphDropCaps7
Warnlog "#i102752# - tParagraphDropCaps7 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sTestText as String

16
testautomation/writer/optional/includes/insertgraphic/w_insertgraphic3.inc
View File

@ -51,8 +51,6 @@
'\***********************************************************************
testcase tInsertGraphic_21
Warnlog "#i102752# - tInsertGraphic_21 outcommented due to bug."
goto endsub
Dim iLeft as Integer , iRight as Integer , iCenterHorizontal as Integer
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
@ -152,8 +150,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_22
Warnlog "#i102752# - tInsertGraphic_22 outcommented due to bug."
goto endsub
Dim iLeft as Integer , iRight as Integer , iCenterHorizontal as Integer
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
@ -253,8 +249,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_23
Warnlog "#i102752# - tInsertGraphic_23 outcommented due to bug."
goto endsub
Dim iLeft as Integer , iRight as Integer , iCenterHorizontal as Integer
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
@ -354,8 +348,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_24
Warnlog "#i102752# - tInsertGraphic_24 outcommented due to bug."
goto endsub
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
@ -416,8 +408,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_25
Warnlog "#i102752# - tInsertGraphic_25 outcommented due to bug."
goto endsub
Dim iLeft as Integer , iRight as Integer , iCenterHorizontal as Integer
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
@ -538,8 +528,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_26
Warnlog "#i102752# - tInsertGraphic_26 outcommented due to bug."
goto endsub
Dim iLeft as Integer , iRight as Integer , iCenterHorizontal as Integer
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
@ -660,8 +648,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_27
Warnlog "#i102752# - tInsertGraphic_27 outcommented due to bug."
goto endsub
Dim iLeft as Integer , iRight as Integer , iCenterHorizontal as Integer
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer
@ -782,8 +768,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_28
Warnlog "#i102752# - tInsertGraphic_28 outcommented due to bug."
goto endsub
Dim iTop as Integer , iBottom as Integer , iCenterVertical as Integer

8
testautomation/writer/optional/includes/insertgraphic/w_insertgraphic4.inc
View File

@ -53,8 +53,6 @@
'\***********************************************************************
testcase tInsertGraphic_31
Warnlog "#i102752# - tInsertGraphic_31 outcommented due to bug."
goto endsub
Dim iLeft as Integer
Dim iRight as Integer
@ -181,8 +179,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_32
Warnlog "#i102752# - tInsertGraphic_32 outcommented due to bug."
goto endsub
Dim iLeft as Integer
Dim iRight as Integer
@ -299,8 +295,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_33
Warnlog "#i102752# - tInsertGraphic_33 outcommented due to bug."
goto endsub
Dim iLeft as Integer
Dim iRight as Integer
@ -427,8 +421,6 @@ endcase
'-------------------------------------------------------------------------------------------
testcase tInsertGraphic_34
Warnlog "#i102752# - tInsertGraphic_34 outcommented due to bug."
goto endsub
Dim iTop as Integer
Dim iBottom as Integer

2
testautomation/writer/optional/includes/navigator/w_navigator.inc
View File

@ -217,7 +217,7 @@ endcase
' **********************************************************************
testcase tViewNavigator3
QaErrorLog "#i94614 + i102752# - tViewNavigator3 outcommented"
WarnLog "#i94614# - tViewNavigator3 outcommented"
goto endsub
Dim NavigationTearOff as boolean

77
testautomation/writer/optional/includes/regression/issuezilla/w_issuezilla_regression.inc
View File

@ -46,6 +46,7 @@ sub w_issuezilla_regression
Call i75027
Call i76637
Call i88656
Call i103265
end sub
@ -441,3 +442,79 @@ testcase i88656
endcase
'--------------------------------------------------------------------------
testcase i103265
Dim i as integer
printlog "ODF Hyperlinks in TOCs"
Call hNewDocument
printlog "- Open test document"
Call hFileOpen ( gTesttoolPath + "writer\optional\input\regression\issuezilla\i103265.odt" )
printlog "- Update TOC"
ToolsUpdateAllIndexes
printlog "Check that every hyperlink jumps correctly to its target"
For i = 1 to 3
' point cursor to beginning of document
Call wTypeKeys "<MOD1 HOME>"
' point cursor to index entry
Call wTypeKeys "<DOWN>", 4 + i
'execute Hyperlink
ContextOpenHyperlink
' check if it jumps to correct target
Call wTypeKeys "<SHIFT END>"
EditCopy
Select Case i
Case 1:
if GetClipboardText <> "# 1 Test" then
Warnlog "First hyperlink not correctly jumped to. Not '# 1 Test' but " & GetClipboardtext
end if
Case 2:
if GetClipboardText <> "1. Test" then
Warnlog "First hyperlink not correctly jumped to. Not '# 1. Test' but " & GetClipboardtext
end if
Case 3:
if GetClipboardText <> "Test " then
Warnlog "First hyperlink not correctly jumped to. Not 'Test' but " & GetClipboardtext
end if
end select
next i
printlog "- Save as HTML"
gApplication = "HTML"
Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\ODFHyperlinksInTOCs.html", "HTML" )
Call hCloseDocument
printlog "- Reload"
Call hFileOpen ( gOfficePath + "user\work\ODFHyperlinksInTOCs.html" )
printlog "Check that every hyperlink jumps correctly to its target"
For i = 1 to 3
' point cursor to beginning of document
Call wTypeKeys "<MOD1 HOME>"
' point cursor to index entry
Call wTypeKeys "<DOWN>", 5 + i
'execute Hyperlink
ContextOpenHyperlink
' check if it jumps to correct target
Call wTypeKeys "<SHIFT END>"
EditCopy
Select Case i
Case 1:
if GetClipboardText <> "# 1 Test" then
Warnlog "First hyperlink not correctly jumped to. Not '# 1 Test' but " & GetClipboardtext
end if
Case 2:
if GetClipboardText <> "1. Test" then
Warnlog "First hyperlink not correctly jumped to. Not '# 1. Test' but " & GetClipboardtext
end if
Case 3:
if GetClipboardText <> "1Test " then
Warnlog "First hyperlink not correctly jumped to. Not 'Test ' but " & GetClipboardtext
end if
end select
next i
Call hCloseDocument
endcase

30
testautomation/writer/optional/includes/textframes/w_textframes4.inc
View File

@ -364,8 +364,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_57
Warnlog "#i102752# - tTextframes_57 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -445,8 +443,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_58
Warnlog "#i102752# - tTextframes_58 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -525,8 +521,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_59
Warnlog "#i102752# - tTextframes_57 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionY1 as String
@ -613,8 +607,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_60
Warnlog "#i102752# - tTextframes_60 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sPositionY1 as String
@ -707,8 +699,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_61
Warnlog "#i102752# - tTextframes_61 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -787,8 +777,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_62
Warnlog "#i102752# - tTextframes_62 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -867,8 +855,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_63
Warnlog "#i102752# - tTextframes_63 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iHorizontal as Integer
@ -959,8 +945,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_64
Warnlog "#i102752# - tTextframes_64 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iHorizontal as Integer
@ -1051,10 +1035,8 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_65
Warnlog "#i102752# - tTextframes_65 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim sTestFile as String
Dim iHorizontal as Integer
Dim sHorizontalBy as String
Dim sPositionX1 as String
@ -1132,8 +1114,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_66
Warnlog "#i102752# - tTextframes_66 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iHorizontal as Integer
@ -1213,8 +1193,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_67
Warnlog "#i102752# - tTextframes_67 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iHorizontal as Integer
@ -1305,8 +1283,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_68
Warnlog "#i102752# - tTextframes_68 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iHorizontal as Integer
@ -1397,8 +1373,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_69
Warnlog "#i102752# - tTextframes_69 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iHorizontal as Integer
@ -1478,8 +1452,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_70
Warnlog "#i102752# - tTextframes_70 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iHorizontal as Integer

16
testautomation/writer/optional/includes/textframes/w_textframes5.inc
View File

@ -113,8 +113,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_72
Warnlog "#i102752# - tTextframes_72 outcommented due to bug."
goto endsub
printlog "- 'Vertical to' when anchor is inside frame"
'/// 'Vertical to' when anchor is inside frame
@ -153,8 +151,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_73
Warnlog "#i102752# - tTextframes_73 outcommented due to bug."
goto endsub
printlog "- 'Vertical to' when anchor is inside document body"
'/// 'Vertical to' when anchor is inside document body
@ -370,8 +366,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_80
Warnlog "#i102752# - tTextframes_80 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -428,8 +422,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_81
Warnlog "#i102752# - tTextframes_81 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -486,8 +478,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_82
Warnlog "#i102752# - tTextframes_82 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -544,8 +534,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_83
Warnlog "#i102752# - tTextframes_83 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -612,8 +600,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_84
Warnlog "#i102752# - tTextframes_84 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVertical as Integer
@ -680,8 +666,6 @@ endcase
'-----------------------------------------------------------------
testcase tTextframes_85
Warnlog "#i102752# - tTextframes_85 outcommented due to bug."
goto endsub
Dim sTestFile as String
Dim iVerticalTop as Integer

BIN
testautomation/writer/optional/input/alternative_text/jolink.jpg Executable file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
testautomation/writer/optional/input/regression/issuezilla/i103265.odt Normal file
View File

Binary file not shown.

65
testautomation/writer/optional/w_alternative_text.bas Normal file
View File

@ -0,0 +1,65 @@
'**************************************************************************
'* 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: w_alternative_text.bas,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: hde $ $Date: 2008-06-18 09:11:25 $
'*
'* 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 : Alternative Texts For Writer Objects
'*
'\***********************************************************************
sub main
Dim StartTime
StartTime = Now()
use "writer\tools\includes\w_tools.inc"
use "writer\optional\includes\alternative_text\w_alternative_text.inc"
printlog Chr(13) + "Loading of Include - Files takes: " + Wielange ( StartTime )
printlog Chr(13) + "******* Writer - Alternative Text - Test *******"
Call hStatusIn ( "writer", "w_alternative_text.bas" )
Call w_alternative_text
Call hStatusOut
Printlog Chr(13) + "End of Autotest:"
Printlog "Duration: "+ WieLange ( StartTime )
Printlog "Date: " + Date + " Time: " + Time
end sub
sub LoadIncludeFiles
use "global\system\includes\master.inc"
use "global\system\includes\gvariabl.inc"
Call GetUseFiles
gApplication = "WRITER"
end sub

8
testautomation/writer/required/includes/w_005_.inc
View File

@ -760,14 +760,9 @@ endcase
'-----------------------------------------------------------
testcase tFormatAnchor
Warnlog "#i102752# - tFormatAnchor outcommented due to bug."
goto endsub
PrintLog "- Format / Anchor"
Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
goto endsub
printlog " Open new document"
Call hNewDocument
printlog " Insert a graphic from file '..\writer\required\input\graphics\jolink.jpg'"
@ -901,9 +896,6 @@ endcase
testcase tFormatAnchorArea
Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
goto endsub
PrintLog "- Format / Anchor drawing objects"
if gApplication = "HTML" then
printlog "Not in WriterWeb!"

11
testautomation/writer/required/includes/w_005b_.inc
View File

@ -218,8 +218,6 @@ endcase
'-----------------------------------------------------------
testcase tFormatAlignment
Warnlog "#i102752# - tFormatAlignment outcommented due to bug."
goto endsub
PrintLog "- Format / Alignment"
@ -416,8 +414,6 @@ endcase
'-----------------------------------------------------------
testcase tFormatAnchorObject
Warnlog "#i102752# - tFormatAnchorObject outcommented due to bug."
goto endsub
PrintLog "- Format / Anchor Frame"
@ -887,9 +883,6 @@ endcase
testcase tFormatAlignmentArea
Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
goto endsub
PrintLog "- Format / Alignment drawing objects"
if gApplication = "HTML" then
printlog "Not in WriterWeb!"
@ -1418,10 +1411,8 @@ endcase
'-----------------------------------------------------------
testcase tHtmlDocFormatAlignment
Warnlog "#i102752# - tHtmlDocFormatAlignment outcommented due to bug."
goto endsub
gApplication = "HTML"
gApplication = "HTML"
PrintLog "- Format / Alignment"
printlog " Open new document"

2
testautomation/writer/required/includes/w_010_1.inc
View File

@ -628,8 +628,6 @@ endcase
'-----------------------------------------------------------
testcase tGraphicAnchor
Warnlog "#i102752# - tGraphicAnchor outcommented due to bug."
goto endsub
printlog "- Graphic-(Frame)-Objectbar: Anchor"
printlog " Open new document"

3
testautomation/writer/required/includes/w_011_.inc
View File

@ -447,9 +447,6 @@ endcase
testcase tZORest
Warnlog "#i102752#Writer crashes if you change the anchor of a drawing object to page"
goto endsub
printlog "- Draw Functions-Objectbar: Rest"
if gApplication = "HTML" then
printlog "This test does not apply to HTML documents"