testautomation/graphics/optional/includes/global/id_006.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: id_006.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-28 11:43:25 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '***********************************************************************************
  39 ' #1 tiToolsSpellchecking
  40 ' #1 tiToolsSpellcheckingAutomatic
  41 ' #1 tiToolsThesaurus
  42 ' #1 tiToolsHyphenation
  43 ' #1 tiToolsAutoCorrect
  44 ' #1 tChineseTranslation
  45 ' #1 tiToolsMacro
  46 ' #1 tiToolsGallery
  47 ' #1 tiToolsEyedropper
  48 ' #1 tiToolsOptions
  49 '\**********************************************************************************
  50
  51
  52 testcase tiToolsSpellchecking
  53
  54     if not gOOO then ' Spellcheck doesn't work in OOo builds.
  55         Call hNewDocument
  56         WaitSlot (2000)    'sleep 2
  57         call hSetSpellHypLanguage
  58         Call hTextrahmenErstellen ("Whaaaat", 10, 10, 30, 40)
  59         sleep 1
  60         ToolsSpellCheck
  61         WaitSlot (1000)    'sleep 1
  62         Kontext "MessageBox"
  63         if MessageBox.exists(2) then
  64             qaerrorlog "Messagebox : " + MessageBox.gettext() + " appear."
  65             qaerrorlog "Maybe no spellchecking for this languages is available."
  66             MessageBox.OK
  67         else
  68             Kontext "Rechtschreibung"
  69             if Rechtschreibung.exists then
  70                 Call DialogTest ( Rechtschreibung )
  71                 Rechtschreibung.Close
  72             else
  73                 warnlog " Spellcheck dialog didn't came up :-("
  74             end if
  75         end if
  76         sleep 1
  77         Kontext "Messagebox"
  78         if Messagebox.exists (5) then
  79             warnlog "Shouldn't be any messagebox after pressing close in spellchecker"
  80             Messagebox.OK
  81             sleep (2)
  82             Kontext
  83         end if
  84         Call hCloseDocument
  85     else goto endsub
  86     endif
  87 endcase
  88
  89 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  90
  91 testcase tiToolsSpellcheckingAutomatic
  92     Call hNewDocument
  93     ToolsSpellcheckAutoSpellcheck
  94     Call hTextrahmenErstellen ("What", 10, 10, 30, 40)
  95     sleep 2
  96     ToolsSpellcheckAutoSpellcheck
  97     Call hCloseDocument
  98 endcase
  99
 100 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 101
 102 testcase tiToolsThesaurus
 103     if not gOOO then ' Thesaurus doesn't work in OOo builds.
 104
 105         dim sFileName as String
 106
 107         call hSetSpellHypLanguage
 108         if (gApplication = "IMPRESS") then
 109             sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odp"))
 110         else
 111             sFileName = (ConvertPath (gTesttoolPath + "graphics\required\input\engtext.odg"))
 112         end if
 113         if hFileExists ( sFileName ) = FALSE then
 114             warnlog "The language-file was not found or accessible! The test ends."
 115             goto endsub
 116         end if
 117         Call hFileOpen (sFileName)
 118         sleep (2)
 119
 120         hTypeKeys "<TAB><RETURN>"
 121         hTypeKeys "<END><SHIFT HOME>"
 122
 123         '   Call hTextrahmenErstellen ("SimpleTest" + "<Mod1 Shift left>", 10, 10, 30, 40)
 124         try
 125             ExtrasThesaurusDraw
 126             Kontext "Thesaurus"
 127             Call DialogTest ( Thesaurus )
 128             Sprache.Click
 129             Kontext "SpracheAuswaehlen"
 130             Call DialogTest ( SpracheAuswaehlen )
 131             SpracheAuswaehlen.cancel
 132             Kontext "Thesaurus"
 133             Nachschlagen.Click
 134             kontext
 135             if Messagebox.exists (5) then
 136                 printlog "Messagebox: word not in thesaurus: '"+Messagebox.gettext+"'"
 137                 Messagebox.ok
 138             end if
 139             sleep 1
 140             Kontext "Thesaurus"
 141             Thesaurus.Cancel
 142         catch
 143             warnlog "Thesaurus didn't work :-("
 144         endcatch
 145         sleep 1
 146         Call hCloseDocument
 147     else goto endsub
 148     endif
 149 endcase
 150
 151 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 152
 153 testcase tiToolsHyphenation
 154     Call hNewDocument
 155     ExtrasSilbentrennungDraw
 156     WaitSlot (2000)    'sleep 2
 157     ExtrasSilbentrennungDraw
 158     Call hCloseDocument
 159 endcase
 160
 161 testcase tiToolsAutoCorrect
 162     dim iLanguage as integer ' for resetting the language
 163     Call hNewDocument
 164     WaitSlot (1000)    'sleep 1
 165     ToolsAutocorrect
 166     WaitSlot (2000)    'sleep 1
 167     Kontext
 168     Messagebox.SetPage TabErsetzung
 169     Kontext "TabErsetzung"
 170     Call DialogTest ( TabErsetzung )
 171     iLanguage = WelcheSprache.GetSelIndex
 172     WelcheSprache.Select 1 ' select language with empty list
 173     Kuerzel.SetText "a"
 174     ErsetzenDurch.SetText "b"
 175     Neu.Click
 176     sleep 1
 177     Loeschen.Click
 178     sleep 1
 179     try
 180         Loeschen.Click
 181     catch
 182         printlog "ok was CRASH before" '#
 183     endcatch
 184     WelcheSprache.select (iLanguage)
 185     Kontext
 186     Messagebox.SetPage TabAusnahmen
 187     Kontext "TabAusnahmen"
 188     Call DialogTest ( TabAusnahmen )
 189     Abkuerzungen.settext "Lala"
 190     AbkuerzungenNeu.click
 191     AbkuerzungenLoeschen.click
 192     Woerter.settext "LALA"
 193     WoerterAutomatisch.Check
 194     WoerterNeu.click
 195     WoerterLoeschen.click
 196     WoerterAutomatisch.UnCheck
 197     Kontext
 198     Messagebox.SetPage TabOptionen
 199     Kontext "TabOptionen"
 200     Call DialogTest ( TabOptionen )
 201     Kontext
 202     Messagebox.SetPage TabTypografisch
 203     Kontext "TabTypografisch"  ' 1a
 204     EinfacheErsetzen.Check
 205     EinfachWortAnfang.Click
 206     Kontext "Sonderzeichen"
 207     Call DialogTest ( Sonderzeichen, 1 )
 208     Sonderzeichen.Cancel
 209     Kontext "TabTypografisch"  ' 1b
 210     EinfachWortEnde.Click
 211     Kontext "Sonderzeichen"
 212     Call DialogTest ( Sonderzeichen, 2 )
 213     Sonderzeichen.Cancel
 214     Kontext "TabTypografisch"  ' 1s
 215     EinfachStandard.Click
 216
 217     Kontext "TabTypografisch"  ' 2a
 218     DoppeltWortAnfang.Click
 219     Kontext "Sonderzeichen"
 220     Call DialogTest ( Sonderzeichen, 3 )
 221     Sonderzeichen.Cancel
 222     Kontext "TabTypografisch"  ' 2b
 223     DoppeltWortEnde.Click
 224     Kontext "Sonderzeichen"
 225     Call DialogTest ( Sonderzeichen, 4 )
 226     Sonderzeichen.Cancel
 227     Kontext "TabTypografisch"  ' 2s
 228     DoppeltStandard.Click
 229     EinfacheErsetzen.UnCheck
 230     TabTypografisch.cancel
 231     Call hCloseDocument
 232 endcase
 233
 234 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 235
 236 testcase tChineseTranslation
 237
 238     qaerrorlog( "#i89634# - Chinese Translation dialog does not close" )
 239     goto endsub
 240
 241     dim sFileName   as string
 242     dim bSavedAsianSupport as boolean
 243
 244     if uCase(gApplication) = "IMPRESS" then
 245         sFileName = "graphics\required\input\tchinese.odp"
 246     else
 247         sFileName = "graphics\required\input\tchinese.odg"
 248     end if
 249
 250     Call hNewDocument
 251     WaitSlot (2000)    'sleep 1
 252     bSavedAsianSupport = ActiveDeactivateAsianSupport(TRUE)
 253     Call hFileOpen ( ConvertPath(gTesttoolPath + sFileName) )
 254     sleep (2)
 255     Kontext "Standardbar"
 256     if Bearbeiten.GetState(2) <> 1 then
 257         Bearbeiten.Click '0 = not pressed. 1 = pressed.
 258         Kontext
 259         if Active.Exists(1) then
 260             Active.Yes
 261         else
 262             warnlog "No messagebox after making document editable? - Test canceled here"
 263             goto endsub
 264         end if
 265     end if
 266     if uCase(gApplication) = "IMPRESS" then
 267         Kontext "DocumentImpress"
 268     else
 269         Kontext "DocumentDraw"
 270     end if
 271     EditSelectAll
 272     hTypeKeys "<RETURN>"
 273     hTypeKeys "<MOD1 HOME><RIGHT><RIGHT><SHIFT RIGHT RIGHT>"
 274     ToolsChineseTranslation
 275     WaitSlot (2000)    'sleep 1
 276     kontext "ChineseTranslation"
 277     Call DialogTest ( ChineseTranslation )
 278     EditTerms.Click
 279     kontext "ChineseDictionary"
 280     Call DialogTest ( ChineseDictionary )
 281     ChineseDictionary.Ok
 282     kontext "ChineseTranslation"
 283     ChineseTranslation.OK
 284     kontext
 285     if Messagebox.exists (5) then
 286         printlog "Messagebox: "+Messagebox.gettext+"'"
 287         Messagebox.ok
 288     end if
 289     ActiveDeactivateAsianSupport(bSavedAsianSupport)
 290     Call hCloseDocument
 291 endcase
 292
 293 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 294
 295 testcase tiToolsMacro
 296     Call hNewDocument
 297     WaitSlot (2000)    'sleep 2
 298     ToolsMacro
 299     Kontext "Makro"
 300     Call DialogTest ( Makro )
 301     Verwalten.Click
 302
 303     Kontext
 304     Messagebox.SetPage TabModule
 305     Kontext "TabModule"
 306     Call DialogTest ( TabModule )
 307
 308     Kontext
 309     Messagebox.SetPage TabBibliotheken
 310     Kontext "TabBibliotheken"
 311     Call DialogTest ( TabBibliotheken )
 312     Hinzufuegen.Click
 313     Kontext "Messagebox"
 314     if Messagebox.Exists (5) then
 315         if Messagebox.GetRT = 304 then
 316             Warnlog Messagebox.Gettext
 317             Messagebox.Ok
 318         end if
 319     end if
 320     Kontext "OeffnenDlg"
 321     OeffnenDlg.Cancel
 322     Kontext "TabBibliotheken"
 323     Neu.Click
 324     kontext "NeueBibliothek"
 325     sleep 1 'Bibliotheksname
 326     NeueBibliothek.cancel
 327     Kontext "TabBibliotheken"
 328     TabBibliotheken.Close
 329
 330     Kontext "Makro"
 331     Makro.Cancel
 332     Call hCloseDocument
 333 endcase
 334
 335 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 336
 337 testcase tiToolsGallery
 338     Call hNewDocument
 339     ToolsGallery
 340     WaitSlot (2000)    'sleep 1
 341     ToolsGallery
 342     Call hCloseDocument
 343 endcase
 344
 345 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 346
 347 testcase tiToolsEyedropper
 348     Call hNewDocument
 349     ToolsEyedropper
 350     Kontext "Pipette"
 351     Call DialogTest (Pipette)
 352     Pipette.Close
 353     sleep 1
 354     Call hCloseDocument
 355 endcase
 356
 357 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 358
 359 testcase tiToolsOptions
 360     Call hNewDocument
 361     ToolsOptions
 362     WaitSlot (2000)    'sleep 1
 363     kontext "OptionenDlg"
 364     OptionenDlg.Close
 365     Call hCloseDocument
 366 endcase
 367
 368 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------