testautomation/framework/optional/includes/extras_labels.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '
   5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : test names of labels
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tLabelTypes()
  35
  36     printlog( "Verify presence of labels and brands" )
  37
  38     ' If you want to use this test for other languages, remove the following
  39     ' if() block and create the reference files by running this test once.
  40     ' Follow the instructions emitted by hManagaComparisionList() from the log.
  41
  42     if ( gIsoLang <> "en-US" ) then
  43         printlog( "No testing for non-en_US languages" )
  44         goto endsub
  45     endif
  46
  47     const NO_DELTA = 0
  48     const MAX_LABEL_COUNT = 1600
  49     const RELATIVE_PATH = "framework\optional\input\extras_formats\"
  50
  51     dim iBrandCount as integer
  52     dim iCurrentBrand as integer
  53     dim cBrandName as string
  54     dim iCurrentType as integer
  55     dim cBrandType as string
  56
  57     dim al_UI_Labels( MAX_LABEL_COUNT ) as string : al_UI_Labels( 0 ) = "0"
  58
  59     dim irc as integer
  60
  61     dim sFile as string    : sFile    = "Labels_" & gISOLang & ".txt"
  62     dim sFileIn as string  : sFileIn  = convertpath( gTesttoolPath & RELATIVE_PATH & sFile )
  63     dim sFileOut as string : sFileOut = hGetWorkPath() & sFile
  64
  65     printlog( "Open labels dialog, retrieve all label names" )
  66     hCreateLabels()
  67
  68     kontext
  69     Active.SetPage TabEtiketten
  70
  71     kontext "TabEtiketten"
  72
  73     iBrandCount = Marke.getItemCount()
  74
  75     for iCurrentBrand = 1 to iBrandCount
  76
  77         Marke.select( iCurrentBrand )
  78         cBrandName = Marke.getSelText()
  79
  80         for iCurrentType = 1 to Typ.getItemCount()
  81
  82             Typ.select( iCurrentType )
  83             cBrandType = cBrandName & ":" & Typ.getSelText()
  84             ListAppend( al_UI_Labels() , cBrandType )
  85
  86         next iCurrentType
  87
  88     next iCurrentBrand
  89
  90     printlog( "Close labels dialog" )
  91     TabEtiketten.Cancel()
  92
  93     printlog( "Compare to reference (or create new reference, if none found)" )
  94     irc = hManageComparisionList( sFileIn, sFileOut, al_UI_Labels() )
  95     hListResultEvaluation( irc , NO_DELTA )
  96
  97 endcase