testautomation/framework/optional/includes/options_asia.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 : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : functionality test for language/settings
  31 '*
  32 '\*****************************************************************
  33
  34 testcase func_LanguageSettings_Language
  35   Dim bSave as Boolean
  36
  37    ToolsOptions
  38    hToolsOptions ( "LanguageSettings", "Languages" )
  39    bSave = Aktivieren.IsChecked
  40  Printlog "asian support = TRUE"
  41    if Aktivieren.isEnabled then
  42        Aktivieren.unCheck
  43    else
  44        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
  45        printlog Aktivieren.isEnabled
  46    endif
  47
  48    Kontext "ExtrasOptionenDlg"
  49    ExtrasOptionenDlg.OK
  50    Sleep (3)
  51
  52    hTestAsianForWriter    ( TRUE )
  53    hTestAsianForCalc      ( TRUE )
  54    hTestAsianForImpress   ( TRUE )
  55    hTestAsianForDraw      ( TRUE )
  56
  57    ToolsOptions
  58    hToolsOptions ( "LanguageSettings", "Languages" )
  59  Printlog Chr(13) + "asian support = FALSE"
  60    Aktivieren.Uncheck
  61
  62    Kontext "ExtrasOptionenDlg"
  63    ExtrasOptionenDlg.OK
  64    Sleep (3)
  65
  66    hTestAsianForWriter    ( FALSE )
  67    hTestAsianForCalc      ( FALSE )
  68    hTestAsianForImpress   ( FALSE )
  69    hTestAsianForDraw      ( FALSE )
  70
  71    ToolsOptions
  72    hToolsOptions ( "LanguageSettings", "Languages" )
  73  Printlog Chr(13) + "asian support = TRUE"
  74    if Aktivieren.isEnabled then
  75        Aktivieren.unCheck
  76    else
  77        qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'")
  78        printlog Aktivieren.isEnabled
  79    endif
  80
  81    Kontext "ExtrasOptionenDlg"
  82    ExtrasOptionenDlg.OK
  83    Sleep (3)
  84
  85    hTestAsianForWriter    ( TRUE )
  86    hTestAsianForCalc      ( TRUE )
  87    hTestAsianForImpress   ( TRUE )
  88    hTestAsianForDraw      ( TRUE )
  89
  90    ToolsOptions
  91    hToolsOptions ( "LanguageSettings", "Languages" )
  92    if bSave = TRUE then Aktivieren.Check else Aktivieren.UnCheck
  93    Kontext "ExtrasOptionenDlg"
  94    ExtrasOptionenDlg.OK
  95    Sleep (3)
  96 endcase
  97
  98 ' *********************************************
  99 ' **
 100 ' **
 101 sub hTestAsianForWriter ( bAsianTrue as Boolean )
 102   Dim iTabCounter as Integer
 103
 104    gApplication = "WRITER"
 105    hNewDocument
 106  Printlog "- test in writer"
 107
 108    FormatCharacter
 109
 110    if bAsianTrue = TRUE then
 111       Kontext
 112       iTabCounter = active.GetPageCount
 113       if iTabCounter <> 6 then Warnlog "There are not 6 pages on the dialog, there are " + iTabCounter + "!"
 114    else
 115       Kontext
 116       iTabCounter = active.GetPageCount
 117       if iTabCounter <> 5 then Warnlog "There are not 5 pages on the dialog, there are " + iTabCounter + "!"
 118    end if
 119
 120  printlog "  - check tab-dialog for FormatCharacter"
 121    Kontext
 122    active.SetPage TabFont
 123    Kontext "TabFont"
 124    if bAsianTrue = TRUE then
 125       if FontWest.Exists then
 126          if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!"
 127       else
 128          Warnlog "'Western Font' does not exists!"
 129       end if
 130       if StyleWest.Exists then
 131          if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!"
 132       else
 133          Warnlog "'Western Style' does not exists!"
 134       end if
 135       if SizeWest.Exists then
 136          if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!"
 137       else
 138          Warnlog "'Western Size' does not exists!"
 139       end if
 140       if LanguageWest.Exists then
 141          if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!"
 142       else
 143          Warnlog "'Western Language' does not exists=> Bug!"
 144       end if
 145       if FontEast.Exists then
 146          if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!"
 147       else
 148          Warnlog "'Eastern Font' does not exists!"
 149       end if
 150       if StyleEast.Exists then
 151          if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!"
 152       else
 153          Warnlog "'Eastern Style' does not exists!"
 154       end if
 155       if SizeEast.Exists then
 156          if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!"
 157       else
 158          Warnlog "'Eastern Size' does not exists!"
 159       end if
 160       if LanguageEast.Exists then
 161          if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!"
 162       else
 163          Warnlog "'Eastern Language' does not exists!"
 164       end if
 165    else
 166       if FontEast.Exists then
 167          if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!"
 168       end if
 169       if StyleEast.Exists then
 170          if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!"
 171       end if
 172       if SizeEast.Exists then
 173          if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!"
 174       end if
 175       if LanguageEast.Exists then
 176          if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!"
 177       end if
 178       if FontWest.Exists then
 179          if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!"
 180       end if
 181       if StyleWest.Exists then
 182          if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!"
 183       end if
 184       if SizeWest.Exists then
 185          if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!"
 186       end if
 187       if LanguageWest.Exists then
 188          if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!"
 189       end if
 190    end if
 191
 192    Kontext
 193    active.SetPage TabFontEffects
 194    Kontext "TabFontEffects"
 195    if bAsianTrue = TRUE then
 196       if Emphasis.Exists then
 197          if Emphasis.IsVisible = FALSE then
 198             Warnlog "'Emphasis mark' is not visible!"
 199          else
 200             Emphasis.Select 2
 201          end if
 202       else
 203          Warnlog "'Emphasis mark' does not exists!"
 204       end if
 205       if Position.Exists then
 206          if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!"
 207       else
 208          Warnlog "'Position' does not exists!"
 209       end if
 210    else
 211       if Emphasis.Exists then
 212          if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!"
 213       end if
 214       if Position.Exists then
 215          if Position.IsVisible then Warnlog "'Position' is visible!"
 216       end if
 217    end if
 218
 219    Kontext
 220    Active.SetPage TabFontPosition
 221
 222    if bAsianTrue = TRUE then
 223       try
 224          Kontext
 225          Active.SetPage TabAsianLayout
 226       catch
 227          Warnlog "The tabpage 'Asian Layout' does not exists!"
 228       endcatch
 229    else
 230       try
 231          Kontext
 232          Active.SetPage TabAsianLayout
 233          Warnlog "The tabpage 'Asian Layout' exists!"
 234       catch
 235       endcatch
 236    end if
 237
 238    Kontext
 239    active.SetPage TabHyperlinkZeichen
 240
 241    Kontext
 242    active.SetPage TabHintergrund
 243    kontext "TabHintergrund"
 244    TabHintergrund.Close
 245
 246  printlog "  - check ruby-dialog"
 247    if bAsianTrue = TRUE then
 248       try
 249          FormatRuby
 250          Kontext "RubyDialog"
 251          RubyDialog.Close
 252       catch
 253          Warnlog "Ruby-Dialog can't be opened!"
 254       endcatch
 255    else
 256       try
 257          FormatRuby
 258          Kontext "RubyDialog"
 259          RubyDialog.Close
 260          Warnlog "Ruby-Dialog can be opened!"
 261       catch
 262       endcatch
 263    end if
 264
 265  printlog "  - check menu items for format/change case"
 266    if bAsianTrue = TRUE then
 267       try
 268          FormatChangeCaseHalfWidth
 269          Wait 500
 270       catch
 271          Warnlog "Format/Case/Half width is not active!"
 272       endcatch
 273
 274       try
 275          FormatChangeCaseFullWidth
 276          Wait 500
 277       catch
 278          Warnlog "Format/Case/Full width is not active!"
 279       endcatch
 280
 281       try
 282          FormatChangeCaseHiragana
 283          Wait 500
 284       catch
 285          Warnlog "Format/Case/Hiragana is not active!"
 286       endcatch
 287
 288       try
 289          FormatChangeCaseKatagana
 290          Wait 500
 291       catch
 292          Warnlog "Format/Case/Katagana is not active!"
 293       endcatch
 294    else
 295       try
 296          FormatChangeCaseHalfWidth
 297          Wait 500
 298          Warnlog "Format/Case/Half width is active!"
 299       catch
 300       endcatch
 301
 302       try
 303          FormatChangeCaseFullWidth
 304          Wait 500
 305          Warnlog "Format/Case/Full width is active!"
 306       catch
 307       endcatch
 308
 309       try
 310          FormatChangeCaseHiragana
 311          Wait 500
 312          Warnlog "Format/Case/Hiragana is active!"
 313       catch
 314       endcatch
 315
 316       try
 317          FormatChangeCaseKatagana
 318          Wait 500
 319          Warnlog "Format/Case/Katagana is active!"
 320       catch
 321       endcatch
 322    end if
 323
 324  printlog "  - check find&replace-dialog"
 325    EditSearchAndReplace
 326    Kontext "SuchenUndErsetzenWriter"
 327    if bAsianTrue = TRUE then
 328       if HalbNormalbreiteFormen.Exists then
 329          if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!"
 330       else
 331          Warnlog "'Match half-/full-width forms' does not exists!"
 332       end if
 333       if AehnlicheSchreibweise.Exists then
 334          if AehnlicheSchreibweise.IsVisible = FALSE then
 335             Warnlog "'Sounds like (Japanese)' is not visible!"
 336          else
 337             AehnlicheSchreibweise.Check
 338          end if
 339       else
 340          Warnlog "'Sounds like (Japanese)' does not exists!"
 341       end if
 342       if AehnlicheSchreibweiseOptionen.Exists then
 343          if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!"
 344       else
 345          Warnlog "'Options for 'Sounds like' does not exists!"
 346       end if
 347    else
 348       if HalbNormalbreiteFormen.Exists then
 349          if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!"
 350       end if
 351       if AehnlicheSchreibweise.Exists then
 352          if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!"
 353       end if
 354       if AehnlicheSchreibweiseOptionen.Exists then
 355          if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!"
 356       end if
 357    end if
 358    SuchenUndErsetzenWriter.Close
 359
 360    Call hCloseDocument
 361
 362 end sub
 363
 364 ' *********************************************
 365 ' **
 366 ' **
 367 sub hTestAsianForCalc ( bAsianTrue as Boolean )
 368   Dim iTabCounter as Integer
 369
 370  Printlog "- test in calc"
 371    gApplication = "CALC"
 372    hNewDocument
 373
 374    FormatCells
 375
 376    if bAsianTrue = TRUE then
 377       Kontext
 378       iTabCounter = active.GetPageCount
 379       if iTabCounter <> 8 then Warnlog "There are not 8 pages on the dialog, there are " + iTabCounter + "!"
 380    else
 381       Kontext
 382       iTabCounter = active.GetPageCount
 383       if iTabCounter <> 7 then Warnlog "There are not 7 pages on the dialog, there are " + iTabCounter + "!"
 384    end if
 385
 386  printlog "  - check tab-dialog for Format/Cell"
 387    Kontext
 388    active.SetPage TabZahlen
 389
 390    Kontext
 391    active.SetPage TabFont
 392    Kontext "TabFont"
 393    if bAsianTrue = TRUE then
 394       if FontWest.Exists then
 395          if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!"
 396       else
 397          Warnlog "'Western Font' does not exists!"
 398       end if
 399       if StyleWest.Exists then
 400          if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!"
 401       else
 402          Warnlog "'Western Style' does not exists!"
 403       end if
 404       if SizeWest.Exists then
 405          if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!"
 406       else
 407          Warnlog "'Western Size' does not exists!"
 408       end if
 409       if LanguageWest.Exists then
 410          if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!"
 411       else
 412          Warnlog "'Western Language' does not exists=> Bug!"
 413       end if
 414       if FontEast.Exists then
 415          if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!"
 416       else
 417          Warnlog "'Eastern Font' does not exists!"
 418       end if
 419       if StyleEast.Exists then
 420          if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!"
 421       else
 422          Warnlog "'Eastern Style' does not exists!"
 423       end if
 424       if SizeEast.Exists then
 425          if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!"
 426       else
 427          Warnlog "'Eastern Size' does not exists!"
 428       end if
 429       if LanguageEast.Exists then
 430          if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!"
 431       else
 432          Warnlog "'Eastern Language' does not exists!"
 433       end if
 434    else
 435       if FontEast.Exists then
 436          if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!"
 437       end if
 438       if StyleEast.Exists then
 439          if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!"
 440       end if
 441       if SizeEast.Exists then
 442          if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!"
 443       end if
 444       if LanguageEast.Exists then
 445          if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!"
 446       end if
 447       if FontWest.Exists then
 448          if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!"
 449       end if
 450       if StyleWest.Exists then
 451          if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!"
 452       end if
 453       if SizeWest.Exists then
 454          if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!"
 455       end if
 456       if LanguageWest.Exists then
 457          if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!"
 458       end if
 459    end if
 460
 461    Kontext
 462    active.SetPage TabFontEffects
 463    Kontext "TabFontEffects"
 464    if bAsianTrue = TRUE then
 465       if Emphasis.Exists then
 466          if Emphasis.IsVisible = FALSE then
 467             Warnlog "'Emphasis mark' is not visible!"
 468          else
 469             Emphasis.Select 2
 470          end if
 471       else
 472          Warnlog "'Emphasis mark' does not exists!"
 473       end if
 474       if Position.Exists then
 475          if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!"
 476       else
 477          Warnlog "'Position' does not exists!"
 478       end if
 479    else
 480       if Emphasis.Exists then
 481          if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!"
 482       end if
 483       if Position.Exists then
 484          if Position.IsVisible then Warnlog "'Position' is visible!"
 485       end if
 486    end if
 487
 488    if bAsianTrue = TRUE then
 489       try
 490          Kontext
 491          Active.SetPage TabAsianTypography
 492       catch
 493          Warnlog "The tabpage 'Asian Typography' does not exists!"
 494       endcatch
 495    else
 496       try
 497          Kontext
 498          Active.SetPage TabAsianTypography
 499          Warnlog "The tabpage 'Asian Typography' exists!"
 500       catch
 501       endcatch
 502    end if
 503
 504     Kontext
 505     active.SetPage TabAusrichtung
 506
 507     Kontext
 508     active.SetPage TabUmrandung
 509
 510     Kontext
 511     active.SetPage TabHintergrund
 512
 513     Kontext
 514     active.SetPage TabZellschutz
 515     Kontext "TabZellschutz"
 516     TabZellschutz.Cancel
 517
 518  printlog "  - check find&replace-dialog"
 519    EditSearchAndReplace
 520    Kontext "SuchenUndErsetzenCalc"
 521    if bAsianTrue = TRUE then
 522       if HalbNormalbreiteFormen.Exists then
 523          if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!"
 524       else
 525          Warnlog "'Match half-/full-width forms' does not exists!"
 526       end if
 527       if AehnlicheSchreibweise.Exists then
 528          if AehnlicheSchreibweise.IsVisible = FALSE then
 529             Warnlog "'Sounds like (Japanese)' is not visible!"
 530          else
 531             AehnlicheSchreibweise.Check
 532          end if
 533       else
 534          Warnlog "'Sounds like (Japanese)' does not exists!"
 535       end if
 536       if AehnlicheSchreibweiseOptionen.Exists then
 537          if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!"
 538       else
 539          Warnlog "'Options for 'Sounds like' does not exists!"
 540       end if
 541    else
 542       if HalbNormalbreiteFormen.Exists then
 543          if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!"
 544       end if
 545       if AehnlicheSchreibweise.Exists then
 546          if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!"
 547       end if
 548       if AehnlicheSchreibweiseOptionen.Exists then
 549          if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!"
 550       end if
 551    end if
 552    SuchenUndErsetzenCalc.Close
 553
 554    Call hCloseDocument
 555
 556 end sub
 557
 558 ' *********************************************
 559 ' **
 560 ' **
 561 sub hTestAsianForImpress ( bAsianTrue as Boolean )
 562   Dim iTabCounter as Integer
 563
 564  Printlog "- test in impress"
 565    gApplication = "IMPRESS"
 566    hNewDocument
 567
 568  printlog "  - check 'asian typography' at Format/Paragraph"
 569    FormatParagraph
 570    Kontext
 571    active.SetPage TabEinzuegeUndAbstaende
 572
 573    if bAsianTrue = TRUE then
 574       try
 575          Kontext
 576          Active.SetPage TabAsianTypography
 577       catch
 578          Warnlog "The tabpage 'Asian Typography' does not exists!"
 579       endcatch
 580    else
 581       try
 582          Kontext
 583          Active.SetPage TabAsianTypography
 584          Warnlog "The tabpage 'Asian Typography' exists!"
 585       catch
 586       endcatch
 587    end if
 588
 589    Kontext
 590    active.SetPage TabAusrichtungAbsatz
 591
 592    Kontext
 593    active.SetPage TabTabulator
 594    kontext "TabTabulator"
 595    TabTabulator.Cancel
 596
 597    hCloseDocument
 598 end sub
 599
 600 ' *********************************************
 601 ' **
 602 ' **
 603 sub hTestAsianForDraw ( bAsianTrue as Boolean )
 604   Dim iTabCounter as Integer
 605
 606  Printlog "- test in draw"
 607    gApplication = "DRAW"
 608    hNewDocument
 609
 610  printlog "  - check 'asian typography' at Format/Paragraph"
 611    FormatParagraph
 612    Kontext
 613    active.SetPage TabEinzuegeUndAbstaende
 614
 615    if bAsianTrue = TRUE then
 616       try
 617          Kontext
 618          Active.SetPage TabAsianTypography
 619       catch
 620          Warnlog "The tabpage 'Asian Typography' does not exists!"
 621       endcatch
 622    else
 623       try
 624          Kontext
 625          Active.SetPage TabAsianTypography
 626          Warnlog "The tabpage 'Asian Typography' exists!"
 627       catch
 628       endcatch
 629    end if
 630
 631    Kontext
 632    active.SetPage TabAusrichtungAbsatz
 633
 634    Kontext
 635    active.SetPage TabTabulator
 636    kontext "TabTabulator"
 637    TabTabulator.Cancel
 638
 639    hCloseDocument
 640 end sub
 641