Creating clean testautomation modul with changed structure which will be included into the CWS process.

1 files changed, 135 insertions, 0 deletions

diff --git a/testautomation/framework/optional/includes/extras_labels.inc b/testautomation/framework/optional/includes/extras_labels.inc
new file mode 100755
index 000000000000..bf4c9c139bc9
--- /dev/null
+++ b/testautomation/framework/optional/includes/extras_labels.inc
@@ -0,0 +1,135 @@
+'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: extras_labels.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.co
+'*
+'*  short description : test names of labels
+'*
+'\******************************************************************************
+
+testcase tLabelTypes()
+
+    if ( gIsoLang <> "en-US" ) then
+        printlog( "No testing for non-en_US languages" )
+        goto endsub
+    endif
+
+    '///<h1>Localization test for labels: Branding and types</h1>
+    '///<i>This test opens the labels dialog and compares the list of labels
+    '///+ with their brands and associated types agains a reference list.</i><br>
+    '///<ul>
+    
+    dim iBrandCount as integer
+    dim iCurrentBrand as integer
+    dim cBrandName as string
+    
+    dim iTypeCount as integer
+    dim iCurrentType as integer
+    dim cTypeName as string
+    
+    dim cBrandType as string
+    
+    dim al_UI_Labels( 1600 ) as string
+        al_UI_Labels( 0 ) = "0"
+        
+    dim irc as integer
+    
+    dim sFile as string
+        sFile = Labels_" & gISOLang & ".txt"
+
+    dim sFileIn as string
+        sFileIn = gTesttoolPath & "framework\optional\input\extras_formats\" & sFile
+        sFileIn = convertpath( sFileIn )
+
+    dim sFileOut as string
+        sFileOut = hGetWorkPath() & sFile
+       
+    
+    '///+<li>Open the labels-dialog (suggested way: File->New->Labels)</li>
+    hCreateLabels()
+
+    '///+<li>Switch to the Labels-Tab (which is the default)</li>
+    kontext
+    Active.SetPage TabEtiketten
+    
+    kontext "TabEtiketten"
+
+    '///+<li>Find out how many brands are listed (might be language dependent)</li>
+    iBrandCount = Marke.getItemCount()
+
+    '///+<li>Collect the types for each brand</li>
+    '///<ul>
+    for iCurrentBrand = 1 to iBrandCount
+    
+        '///+<li>Select brand</li>
+        Marke.select( iCurrentBrand )
+        
+        '///+<li>Retrieve brand name</li>
+        cBrandName = Marke.getSelText()
+        
+        '///+<li>Count the number of types for the current brand</li>
+        iTypeCount = Typ.getItemCount()
+        
+        '///+<li>Retrieve the list of types</li>
+        '///<ul>
+        for iCurrentType = 1 to iTypeCount
+        
+            '///+<li>Select the next type</li>
+            Typ.select( iCurrentType )
+        
+            '///+<li>Get the name of the current type</li>
+            cTypeName = Typ.getSelText()
+            
+            '///+<li>Build the list - format is: &quot;Brand:Type&quot;</li>
+            cBrandType = cBrandName & ":" & cTypeName
+            ListAppend( al_UI_Labels() , cBrandType )
+            
+        next iCurrentType
+        '///</ul>
+    
+    next iCurrentBrand
+    '///</ul>
+
+    '///+<li>Close the label dialog</li>    
+    TabEtiketten.Cancel()
+
+    '///+<li>Compare the list against the reference list</li>
+    irc = hManageComparisionList( sFileIn, sFileOut, al_UI_Labels() )
+    if ( irc <> 0 ) then
+        warnlog( "The list of labels (Brand/Types) has changed, please review." )
+    else
+        printlog( "The lists of labels are unchanged. Good." )
+    endif
+    '///</ul>
+    
+endcase