From 5c94a8213a881a66aa00c059aa29caf8de0808bc Mon Sep 17 00:00:00 2001
From: Joerg Sievers <jsi@openoffice.org>
Date: Mon, 16 Jun 2008 11:19:07 +0000
Subject: Creating clean testautomation modul with changed structure which will
 be included into the CWS process.

---
 .../optional/includes/basic_formcontrols.inc       | 225 +++++++++++++++++++++
 1 file changed, 225 insertions(+)
 create mode 100755 testautomation/framework/optional/includes/basic_formcontrols.inc

(limited to 'testautomation/framework/optional/includes/basic_formcontrols.inc')

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
+
+
-- 
cgit