diff options
author | Joerg Sievers <jsi@openoffice.org> | 2008-06-16 11:19:07 +0000 |
---|---|---|
committer | Joerg Sievers <jsi@openoffice.org> | 2008-06-16 11:19:07 +0000 |
commit | 5c94a8213a881a66aa00c059aa29caf8de0808bc (patch) | |
tree | 9dabf5fcc79a54c3875c0b4826270ab59d54ecb6 /testautomation/framework/optional/includes/basic_formcontrols.inc | |
parent | 3d9ef5bb71315c27f78e41b3ef7eb2c4507ac978 (diff) |
Creating clean testautomation modul with changed structure which will be included into the CWS process.
Diffstat (limited to 'testautomation/framework/optional/includes/basic_formcontrols.inc')
-rwxr-xr-x | testautomation/framework/optional/includes/basic_formcontrols.inc | 225 |
1 files changed, 225 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/basic_formcontrols.inc b/testautomation/framework/optional/includes/basic_formcontrols.inc new file mode 100755 index 000000000000..5d7ae8b7045c --- /dev/null +++ b/testautomation/framework/optional/includes/basic_formcontrols.inc @@ -0,0 +1,225 @@ +'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: basic_formcontrols.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 12:18:13 $ +'* +'* 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 : joerg.skottke@sun.com +'* +'* short description : Basic form-controls +'* +'\****************************************************************************** + +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> + + dim iApplication as Integer ' numeric expression for gApplication + dim cApplication as string ' Name of the current application + + dim lsControlNames( 30 ) as string ' list containing the names of the controls + + ' number of controls and the name of the current control + dim iCurrentControl as integer + dim sCurrentControl as string + + ' the workfile and the filter (Tested for 569, 645, 680) + dim sFile as string + + ' errorstatus: if false, something went wrong and the test cancels + ' trying to recover somehow + dim bOpen as boolean + dim brc as boolean + dim irc as integer + + 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 + for iApplication = 1 to 1 + + ' switch documenttype (writer, calc, impress, draw ...) + 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> + 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 + hDeleteFile( sFile ) + + ' open a new document to work with (2 open AFTER this) + '///+<li>Open a new document to work with</li> + printlog( "" ) + printlog( cApplication ) + brc = hCreateDocument() + if ( not brc ) then + warnlog( "Failed to create a new document, aborting" ) + 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> + bOpen = hInitFormControls( CMODULE ) + if ( not bOpen ) then + printlog( "Aborting due to previous errors" ) + call hCloseDocument() + goto endsub + endif + + printlog( "Insert all controls into the dialog" ) + for iCurrentControl = 1 to ICONTROLCOUNT + + sCurrentControl = hDrawControlOnDialog( iCurrentControl ) + listappend( lsControlNames() , sCurrentControl ) + hOpenPropertyBrowser() + hPBSetControlName( sCurrentControl ) + hClosePropertyBrowser() + + next iCurrentControl + + + Kontext "BASICIDE" + '///+<li>close the BASIC-IDE</li> + hCloseBasicIde() + + if ( getDocumentCount <> 1 ) then + warnlog( "Number of open documents is incorrect, expected one only" ) + endif + + printlog "Save the document" + '///+<li>save the document</li> + Call hFileSaveAsKill( sFile ) + + printlog "Close it" + '///+<li>close the document</li> + '///</ul> + brc = hDestroyDocument() + + '///<b>check all controls in the saved document</b> + printlog "Open the file again" + '///<ul> + '///+<li>open the document</li> + 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> + ToolsMacro_uno + kontext "Makro" + irc = hSelectNodeByName( MakroAus , CMODULE ) + if ( irc = 0 ) then + qaerrorlog( "Searching node by name failed. Using fallback" ) + hSelectTheLastnode( MakroAus ) + else + printlog( "The node was found. Good." ) + endif + + brc = hIsMacroEditButtonEnabled() + if ( not brc ) then + warnlog( "Edit-Button is not enabled, the test cannot continue" ) + kontext "Makro" + Makro.cancel() + brc = hDestroyDocument() + goto endsub + endif + + '///+<li>Click 'Edit' to edit the module</li> + printlog( "Edit the module" ) + Bearbeiten.Click() + if ( WaitSlot <> WSFinished ) then + warnlog( "Slot not finished after 1 second" ) + endif + + kontext "BasicIDE" + '///+<li>Find the dialog we created before</li> + ' try to find our dialog again by stepping through the tabbar + bOpen = hFindFirstDialog() + if ( not bOpen ) then + warnlog( "Could access dialog, aborting test" ) + hCloseBasicIde() + brc = hDestroyDocument() + goto endsub + endif + + '///+<li>Open the macro controls float</li> + ' if the dialog is open, open the macro controls toolbar as well, + ' we need access to the "properties" button + bOpen = hShowMacroControls() + if ( not bOpen ) then + warnlog( "Could not open macro controls, aborting" ) + hCloseBasicIde() + brc = hDestroyDocument() + goto endsub + endif + + '///+<li>Select every control, open its properties and verify its name, close properties</li> + for iCurrentControl = 1 to ICONTROLCOUNT + + hSelectControl( iCurrentControl ) + hOpenPropertyBrowser() + sCurrentControl = lsControlNames( iCurrentControl ) + hPBGetControlName( sCurrentControl ) + hClosePropertyBrowser() + + next iCurrentControl + + ' we need to delete the list-content otherwise we run into index-problems + ListAllDelete( lsControlNames() ) + + '///+<li>Cleanup: Close the BASIC-IDE</li> + printlog( "Close the BASIC IDE" ) + hCloseBasicIde() + + '///+<li>Cleanup: Close the document</li> + printlog( "Close the document" ) + brc = hDestroyDocument() + + '///+<li>Cleanup: Delete the file we created</li> + hDeleteFile( sFile ) + + '///+<li>Repeat this for every application</li> + '///</ul> + + next iApplication + +endcase + + |