testautomation/writer/tools/includes/w_get_locale_strings.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 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: w_get_locale_strings.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:42:49 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : testcase to get Locale Strings used in Writer Optional-Test
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_get_locale_strings
  41
  42     Call wAllFieldNames
  43     Call wUsedInTableTest
  44     Call wUsedInLoadSaveTests
  45
  46 end sub
  47
  48 '------------------------------------------------------------------------------------------------
  49
  50 testcase wAllFieldNames
  51     Dim i as integer
  52     Dim j as integer
  53
  54     printlog " get all field descriptions (used in w_tools.inc)"
  55     Call hNewDocument
  56
  57     InsertFieldsOther
  58     for i = 1 to 5
  59         Kontext
  60         Select Case i
  61         Case 1
  62             printlog "Tabpage Document"
  63             Active.Setpage TabDokumentFeldbefehle
  64             Kontext "TabDokumentFeldbefehle"
  65         Case 2
  66             printlog "Tabpage References"
  67             Active.Setpage TabReferenzen
  68             Kontext "TabReferenzen"
  69         Case 3
  70             printlog "Tabpage Functions"
  71             Active.Setpage TabFunktionen
  72             Kontext "TabFunktionen"
  73         Case 4
  74             printlog "Tabpage DocInformation"
  75             Active.Setpage TabDokumentInfoFeldbefehle
  76             Kontext "TabDokumentInfoFeldbefehle"
  77         Case 5
  78             printlog "Tabpage Variables"
  79             Active.Setpage TabVariablen
  80             Kontext "TabVariablen"
  81         end select
  82
  83         if i = 4 then
  84             for j = 1 to Feldtyp.GetItemCount
  85                 Feldtyp.Select j
  86                 Feldtyp.TypeKeys "+"
  87             next j
  88         end if
  89
  90         for j = 1 to Feldtyp.GetItemCount
  91             Feldtyp.Select j
  92             printlog "- " & Feldtyp.GetSelText
  93         next j
  94     next i
  95     Call hCloseDocument
  96 endcase
  97
  98 '------------------------------------------------------------------------------------------------
  99
 100 testcase wUsedInTableTest
 101
 102     Dim pos as integer
 103     Dim wTableName as string
 104
 105     printlog " gets all strings which are used in '.\\optional\\w_table.bas'"
 106     printlog " add these entries into file : .\\optional\input\\table\\locale.txt"
 107     Call hNewDocument
 108
 109     InsertTableWriter
 110     Kontext "TabelleEinfuegenWriter"
 111     TabelleEinfuegenWriter.Ok
 112     Sleep 1
 113     Kontext "TableObjectbar"
 114     printlog " Table Heading: " & Vorlage2.GetSelText
 115     Kontext "DocumentWriter"
 116     Call wTypeKeys "<Down>"
 117     Sleep 1
 118     Kontext "TableObjectbar"
 119     printlog " Table Contents: " & Vorlage2.GetSelText
 120     Kontext "DocumentWriter"
 121     wait 500
 122     FormatNumberFormat
 123     Kontext "Zahlenformat"
 124     Kategorie.Select 3
 125     printlog "Number: " & Kategorie.GetSelText
 126     Kategorie.Select 11
 127     printlog "Text: " & Kategorie.GetSelText
 128     Kategorie.Select 5
 129     printlog "Currency: " & Kategorie.GetSelText
 130     Kategorie.Select 6
 131     printlog "Date: " & Kategorie.GetSelText
 132     Kategorie.Select 7
 133     printlog "Time: " & Kategorie.GetSelText
 134     Kategorie.Select 4
 135     printlog "Percent: " & Kategorie.GetSelText
 136     Kategorie.Select 8
 137     printlog "Scientific: " & Kategorie.GetSelText
 138     Kategorie.Select 9
 139     printlog "Fraction: " & Kategorie.GetSelText
 140     Kategorie.Select 10
 141     printlog "Boolean Value: " & Kategorie.GetSelText
 142     Zahlenformat.Cancel
 143     InsertTableWriter
 144     Wait 500
 145     Kontext "TabelleEinfuegenWriter"
 146     wTableName = TabellenName.Gettext
 147     pos = Instr(wTableName, "2")
 148     if pos > 0 then
 149         wTableName = Left$(wTableName, pos -1)
 150     end if
 151     printlog "Table: " & wTableName
 152     TabelleEinfuegenWriter.Cancel
 153
 154     Call hCloseDocument
 155 endcase
 156
 157 '------------------------------------------------------------------------------------------------
 158
 159 testcase wUsedInLoadSaveTests
 160     Dim i as integer
 161
 162     Call hNewDocument
 163     printlog "- All filters from open dialog:"
 164     FileOpen
 165     Kontext "OeffnenDlg"
 166     For i = 1 to Dateityp.GetItemCount
 167         Dateityp.Select i
 168         printlog " - " & Dateityp.GetSelText
 169     next i
 170
 171     OeffnenDlg.Cancel
 172
 173     printlog "- All filters from save dialog:"
 174     FileSaveAs
 175     Kontext "SpeichernDlg"
 176     For i = 1 to Dateityp.GetItemCount
 177         Dateityp.Select i
 178         printlog " - " & Dateityp.GetSelText
 179     next i
 180
 181     SpeichernDlg.Cancel
 182
 183     Call hCloseDocument
 184 endcase
 185
 186 '------------------------------------------------------------------------------------------------