testautomation/writer/optional/includes/hyphenation/w_hyphenation.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_hyphenation.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:30:28 $
  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 : hyphenation functionality test
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tHyphenation_1
  41 ' #1 tHyphenation_2
  42 ' #1 tHyphenation_3
  43 '*
  44 '\***********************************************************************
  45
  46 testcase tHyphenation_1
  47
  48   Dim testFile as String
  49   Dim testWord as String
  50   Dim firstPartOfTestWord as String
  51   Dim secondPartOfTestWord as String
  52
  53   testFile             =  "tHyphenation.odt"
  54   testWord             =  "following"
  55   firstPartOfTestWord  =  "fol"
  56   secondPartOfTestWord =  "follow"
  57
  58   PrintLog "- Test Hyphenation  using ctrl and -"
  59
  60    printlog "Test Hyphenation  using ctrl and -"
  61
  62    printlog "open a test file"
  63     Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile )
  64     Call sMakeReadOnlyDocumentEditable
  65
  66     Call wTypeKeys "<End><Shift Mod1 Left>"
  67
  68     EditCopy
  69
  70    printlog "add '-' between 'fol' and 'lowing' , then press 3 times 'space bar' (pc). (7 times on linux)"
  71    printlog "+ check if fol in the end of the line"
  72     if GetClipboardText = testWord then
  73          Call wTypeKeys "<Right>" , 3
  74          Call wTypeKeys "<Mod1 SUBTRACT>"
  75          Call wTypeKeys "<Home>"
  76          if gPlatGroup <> "unx" then
  77              Call wTypeKeys "<SPACE>" ,3
  78          else
  79              Call wTypeKeys "<SPACE>" ,7
  80          end if
  81
  82          Call wTypeKeys "<End><Left><Shift Mod1 Left>"
  83          EditCopy
  84
  85          if  GetClipboardText <> firstPartOfTestWord then
  86              Warnlog "The hyphenation does NOT work well in first part!"
  87          end if
  88
  89         printlog "add '-' between 'follow' and 'ing' , then press 6 times 'space bar'"
  90         printlog "+ check if follow in the end of the line ."
  91          Call wTypeKeys "<Mod1 z>",2
  92          Call wTypeKeys "<End>"
  93          Call wTypeKeys "<Left>",3
  94          Call wTypeKeys "<Mod1 SUBTRACT>"
  95          Call wTypeKeys "<Home>"
  96          if gPlatGroup <> "unx" then
  97              Call wTypeKeys "<SPACE>" ,3
  98          else
  99              Call wTypeKeys "<SPACE>" ,6
 100          end if
 101          Call wTypeKeys "<End><Left><Shift Mod1 Left>"
 102          EditCopy
 103
 104          if  GetClipboardText = secondPartOfTestWord then
 105              Call wTypeKeys "<Home>"
 106
 107          printlog "press 5 times 'space bar'"
 108          printlog "check if fol in the end of the line ."
 109              if gPlatGroup <> "unx" then
 110                  Call wTypeKeys "<SPACE>" ,3
 111              else
 112                  Call wTypeKeys "<SPACE>" ,5
 113              end if
 114              Call wTypeKeys "<End><Shift Mod1 Left>"
 115              EditCopy
 116
 117              if  GetClipboardText <> firstPartOfTestWord then
 118                 Warnlog "The hyphenation does NOT work well in first part, but it works fine in second part!"
 119              end if
 120          else
 121              Warnlog "The hyphenation does NOT work well in second part!"
 122          end if
 123
 124     else
 125          Warnlog "The test word is wrong !!"
 126     end if
 127
 128    Call hCloseDocument
 129
 130 endcase
 131
 132 '-------------------------------------------------------------------------
 133
 134 testcase tHyphenation_2
 135
 136 warnlog "#i102304# - outcommenting tHyphenation_2 due to bug."
 137 goto endsub
 138
 139   Dim testFile as String
 140   Dim testWord as String
 141   Dim firstPartOfTestWord as String
 142   Dim secondPartOfTestWord as String
 143   Dim testWordInHyphenationDlg as String
 144
 145   testFile                 =  "tHyphenation.odt"
 146   testWord                 =  "following"
 147   testWordInHyphenationDlg =  "fol=low-ing"
 148   firstPartOfTestWord      =  "fol"
 149   secondPartOfTestWord     =  "follow"
 150
 151   PrintLog "- Test Hyphenation  using Tools/Hyphenation ,test like fol-lowing"
 152
 153    printlog "Test Hyphenation  using Tools/Hyphenation ,test like fol-lowing"
 154
 155    printlog "open a test file"
 156     Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile )
 157     Call sMakeReadOnlyDocumentEditable
 158
 159     Call wTypeKeys "<End><Shift Mod1 Left>"
 160
 161     EditCopy
 162
 163     if GetClipboardText <> testWord then
 164          Warnlog "The test word is wrong !!"
 165          goto endsub
 166     end if
 167
 168    printlog "Press 3 times 'space bar'"
 169     Call wTypeKeys "<Home>"
 170          if gPlatGroup <> "unx" then
 171              Call wTypeKeys "<SPACE>" ,3
 172          else
 173              Call wTypeKeys "<SPACE>" ,6
 174          end if
 175
 176    printlog "Tools/Hyphenation"
 177     ToolsLanguageHyphenate
 178     Kontext "Silbentrennung"
 179
 180     if Not Silbentrennung.Exists then
 181         Kontext "Active"
 182         if Active.Exists then
 183             if Active.GetRT = 304 then
 184                 Active.Yes
 185
 186                 Kontext "Active"
 187                 if Active.Exists then
 188                     if Active.GetRT = 304 then Active.Ok
 189                 end if
 190             end if
 191         end if
 192         Warnlog "Unable to bring up Dialog 'Hyphenation'!"
 193         goto endsub
 194     end if
 195
 196    printlog "check if get 'fol=low-ing'"
 197     if Wort.Gettext <> testWordInHyphenationDlg then
 198         Warnlog "#i40561# The test can NOT be seperated two times , or something wrong!"
 199         Silbentrennung.Cancel
 200         goto NOTest
 201     end if
 202
 203     if NOT Vor.IsEnabled then
 204         Warnlog "the Vor button is Not enabled, or something wrong!"
 205         Silbentrennung.Cancel
 206         goto NOTest
 207     end if
 208
 209    printlog "add '-' between 'fol' and 'lowing' using left arrow key"
 210     Vor.Click
 211     Silbentrennung.OK
 212
 213    printlog "Close all dialogue, and recover the file to default"
 214     Kontext "Active"
 215     if NOT Active.Exists then
 216         Kontext "Silbentrennung"
 217         Silbentrennung.Cancel
 218         Warnlog "The first message box is NOT pop up"
 219         goto NOTest
 220     end if
 221
 222     Active.Yes
 223
 224     Kontext "Active"
 225     if NOT Active.Exists then
 226         Warnlog "The second message box is NOT pop up"
 227         goto endsub
 228     end if
 229
 230     Active.OK
 231
 232    printlog "Press 3 times 'space bar' in front of the line"
 233     Call wTypeKeys "<BACKSPACE>",3
 234     Call wTypeKeys "<SPACE>",3
 235
 236     Call wTypeKeys "<End><Left><Shift Mod1 Left>"
 237     EditCopy
 238
 239    printlog "Check if get 'fol'"
 240     if GetClipboardText <> firstPartOfTestWord then
 241         Warnlog "The hyphenation does NOT work well in first part!"
 242     end if
 243
 244 NOTest:
 245    Call hCloseDocument
 246
 247 endcase
 248
 249 '-------------------------------------------------------------------------
 250
 251 testcase tHyphenation_3
 252
 253 warnlog "#i102304# - outcommenting tHyphenation_3 due to bug."
 254 goto endsub
 255
 256   Dim testFile as String
 257   Dim testWord as String
 258   Dim firstPartOfTestWord
 259   Dim secondPartOfTestWord as String
 260   Dim testWordInHyphenationDlg1 as String
 261   Dim testWordInHyphenationDlg2 as String
 262
 263     testFile                  =  "tHyphenation.odt"
 264     testWord                  =  "following"
 265     firstPartOfTestWord       =  "fol"
 266     secondPartOfTestWord      =  "follow"
 267     testWordInHyphenationDlg1 =  "fol=low-ing"
 268     testWordInHyphenationDlg2 =  "fol-low=ing"
 269
 270     printLog "- Test Hyphenation  using Tools/Hyphenation ,test like follow-ing"
 271     printlog "Test Hyphenation  using Tools/Hyphenation ,test like follow-ing"
 272
 273     printlog "open a test file"
 274     Call hFileOpen ( gTesttoolPath + "writer\optional\input\hyphenation\" + testFile )
 275     Call sMakeReadOnlyDocumentEditable
 276
 277     Call wTypeKeys "<End><Shift Mod1 Left>"
 278
 279     EditCopy
 280
 281     if GetClipboardText <> testWord then
 282         Warnlog "The test word is wrong !!"
 283         goto endsub
 284     end if
 285
 286     printlog "Press 3 times 'space bar'"
 287     Call wTypeKeys "<Home>"
 288     if gPlatGroup <> "unx" then
 289         Call wTypeKeys "<SPACE>" ,3
 290     else
 291         Call wTypeKeys "<SPACE>" ,6
 292     end if
 293
 294     printlog "Tools/Hyphenation"
 295     ToolsLanguageHyphenate
 296     Kontext "Silbentrennung"
 297
 298     if Not Silbentrennung.Exists then
 299         Kontext "Active"
 300         if Active.Exists then
 301             if Active.GetRT = 304 then
 302                 Active.Yes
 303
 304                 Kontext "Active"
 305                 if Active.Exists then
 306                     if Active.GetRT = 304 then Active.Ok
 307                 end if
 308              end if
 309         end if
 310         Warnlog "Unable to bring up Dialog 'Hyphenation'!"
 311         goto endsub
 312     end if
 313
 314    printlog "check if get 'fol=low-ing'"
 315     if Wort.Gettext <> testWordInHyphenationDlg1 then
 316         Warnlog "#i40561# The test can NOT be seperated two times , or something wrong!"
 317         Silbentrennung.Cancel
 318         goto NOTest
 319     end if
 320
 321    printlog "click left arrow key"
 322     if NOT Vor.IsEnabled then
 323         Warnlog "the Vor button is Not enabled, or something wrong!"
 324         Silbentrennung.Cancel
 325         goto NOTest
 326     end if
 327     Vor.Click
 328
 329    printlog "check if get ''fol-low=ing'"
 330     if Wort.Gettext <> testWordInHyphenationDlg2 then
 331         Warnlog "The test  word should be changed after clicking Vor!"
 332         goto endsub
 333     end if
 334
 335    printlog "add '-' between 'follow' and 'ing' pressing right arrow key"
 336     if NOT Zurueck.IsEnabled then
 337         Warnlog "the Zuruech button is Not enabled, or something wrong!"
 338         goto endsub
 339     end if
 340     Zurueck.Click
 341
 342    printlog "check if get 'fol-low=ing'"
 343     if Wort.Gettext <> testWordInHyphenationDlg1 then
 344          Warnlog "The test  word should be changed after clicking Zurueck!"
 345          goto endsub
 346     end if
 347
 348     Sleep 1
 349
 350    printlog "close all dialogue"
 351     Silbentrennung.OK
 352
 353     Kontext "Active"
 354     if NOT Active.Exists then
 355           Warnlog "The first message box is NOT pop up"
 356           goto endsub
 357     end if
 358
 359     Active.Yes
 360
 361     Kontext "Active"
 362     if NOT Active.Exists then
 363           Warnlog "The second message box is NOT pop up"
 364           goto endsub
 365     end if
 366
 367     Active.OK
 368
 369    printlog "recover to the default file and press 3 sparc bar in front of the line"
 370     Call wTypeKeys "<BACKSPACE>",3
 371     Call wTypeKeys "<SPACE>",3
 372
 373     Call wTypeKeys "<End><Left><Shift Mod1 Left>"
 374     EditCopy
 375
 376    printlog "check if get 'follow' in the end of the line"
 377     if GetClipboardText = secondPartOfTestWord then
 378         Call wTypeKeys "<Home>"
 379         Call wTypeKeys "<SPACE>" , 5
 380
 381         Call wTypeKeys "<End><Shift Mod1 Left>"
 382            EditCopy
 383
 384            if GetClipboardText <> firstPartOfTestWord then
 385                Warnlog "The hyphenation does NOT work well in first part, but it works fine in second part!"
 386            end if
 387     else
 388         Warnlog "The hyphenation does NOT work well in second part!"
 389     end if
 390 NOTest:
 391    Call hCloseDocument
 392
 393 endcase