testautomation/framework/optional/includes/w_grid_layout1.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_grid_layout1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: jsk $ $Date: 2008-06-17 07:50:24 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : Grid Layout for CJK test in Writer
  37 '*
  38 '\***********************************************************************
  39
  40 private const SOURCE_PATH = "framework\optional\input\CJK\"
  41
  42 testcase tTextGridDialog_1
  43
  44 '/// Check if tabpage 'Text Grid' disappears when "Asian Language support" is NOT checked
  45  if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then
  46    Call CheckAsianLanguageSupport("Off")
  47    hNewDocument()
  48    FormatPageWriter
  49    try
  50       Kontext
  51       Active.SetPage TabGrid
  52       Kontext "TabGrid"
  53       TabGrid.Cancel
  54       warnlog "Shouldn't get Tabpage: Grid Text"
  55    catch
  56       Kontext
  57       Active.SetPage TabSeite
  58       Kontext "TabSeite"
  59       TabSeite.Cancel
  60    endcatch
  61  end if
  62
  63 '/// Check if tabpage 'Text Grid' appears when "Asian Language support" is checked
  64    Call CheckAsianLanguageSupport("On")
  65
  66    sleep 5
  67    FormatPageWriter
  68    Kontext
  69    if Active.exists (10) then
  70    try
  71       Kontext
  72       Active.SetPage TabGrid
  73       Kontext "TabGrid"
  74       TabGrid.Cancel
  75    catch
  76       Kontext
  77       Active.SetPage TabSeite
  78       Kontext "TabSeite"
  79       TabSeite.Cancel
  80       warnlog "Couldn't get Tabpage: Grid Text"
  81    endcatch
  82    else
  83       warnlog "FormatPageWriter didn't bring up ndialog"
  84    endif
  85    hCloseDocument()
  86 endcase
  87
  88 '-------------------------------------------------------------------------
  89
  90 testcase tTextGridDialog_2
  91 '/// No grid is active, no changes to existing version
  92    Dim testFile , sCorrectResult as String
  93
  94    testFile       = "gridtest.sxw"
  95    sCorrectResult = "1"
  96
  97    Call hNewDocument
  98
  99   '/// open a test file , and check No Grid checkbox
 100    Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
 101    sMakeReadOnlyDocumentEditable
 102
 103     FormatPageWriter
 104     Kontext
 105     if active.exists(5) then
 106         Active.SetPage TabGrid
 107     endif
 108      Kontext "TabGrid"
 109      NoGrid.Check
 110      Sleep 1
 111     TabGrid.OK
 112     Sleep 1
 113
 114    '/// Active navigator dialogue , set page to '2'  and wait for a while
 115     Kontext
 116     ViewNavigator
 117      Kontext "NavigatorWriter"
 118
 119      Seitennummer.SetText "2"
 120      Sleep 5
 121     fCloseNavigator
 122
 123    '/// In No Grid mode, there should be only 1 page, the focus is before the first line
 124     Kontext "DocumentWriter"
 125     Call DocumentWriter.TypeKeys  "<End>"
 126     Sleep 1
 127     Call DocumentWriter.TypeKeys  "<Shift Left>"
 128     Editcopy
 129
 130     if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing NoGrid option!"
 131
 132    Call hCloseDocument
 133 endcase
 134
 135 '-------------------------------------------------------------------------
 136
 137 testcase tTextGridDialog_3
 138 '/// Grid (lines only): The page is set up with a defined number of lines
 139    Dim testFile  , sCorrectResult , sLinesPerPage as String
 140
 141    testFile       = "gridtest.sxw"
 142    sCorrectResult = "G"
 143    sLinesPerPage  = "10"
 144
 145    Call hNewDocument
 146
 147   '/// open a test file and check Grid(lines onle) checkbox ,
 148   '/// + set 10 line/page
 149    Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
 150    sMakeReadOnlyDocumentEditable
 151     FormatPageWriter
 152     Kontext
 153     if active.exists(5) then
 154         Active.SetPage TabGrid
 155     endif
 156      Kontext "TabGrid"
 157      LinesGrid.Check
 158      LinesPerPage.SetText sLinesPerPage
 159      Sleep 1
 160     TabGrid.OK
 161     Sleep 1
 162
 163    '/// Active navigator dialogue , set page to '2'  and wait for a while
 164     Kontext
 165     ViewNavigator
 166      Kontext "NavigatorWriter"
 167
 168      Seitennummer.SetText "2"
 169      Sleep 5
 170     fCloseNavigator
 171
 172     Kontext "DocumentWriter"
 173     Call DocumentWriter.TypeKeys  "<End>"
 174     Sleep 1
 175     Call DocumentWriter.TypeKeys  "<Shift Left>"
 176     Editcopy
 177
 178     if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing Grid(lines only) option!"
 179
 180    Call hCloseDocument
 181 endcase
 182
 183 '-------------------------------------------------------------------------
 184
 185 testcase tTextGridDialog_4
 186 '/// Grid (lines and characters): The page is set up with a defined number of lines and a defined number of characters in each line
 187    Dim testFile      , sCorrectResult as String
 188    Dim sLinesPerPage , sCharsPerLine  as String
 189
 190    testFile       = "gridtest.sxw"
 191    sCorrectResult = "E"
 192    sLinesPerPage  = "10"
 193    sCharsPerLine  = "9"
 194
 195    Call hNewDocument
 196
 197   '/// open a test file and check Grid(lines and characters) checkbox
 198   '/// + set 10 line/page and 9 characters/line
 199    Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
 200    sMakeReadOnlyDocumentEditable
 201     FormatPageWriter
 202     Kontext
 203     if active.exists(5) then
 204         Active.SetPage TabGrid
 205     endif
 206      Kontext "TabGrid"
 207      CharsGrid.Check
 208      LinesPerPage.SetText sLinesPerPage
 209      CharsPerLine.SetText sCharsPerLine
 210      Sleep 1
 211     TabGrid.OK
 212     Sleep 1
 213
 214    '/// Active navigator dialogue , set page to '2'  and wait for a while
 215     Kontext
 216     ViewNavigator
 217      Kontext "NavigatorWriter"
 218
 219      Seitennummer.SetText "2"
 220      Sleep 5
 221     fCloseNavigator
 222
 223     Kontext "DocumentWriter"
 224     Call DocumentWriter.TypeKeys  "<End>"
 225     Sleep 1
 226     Call DocumentWriter.TypeKeys  "<Shift Left>"
 227     Editcopy
 228
 229     if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing Grid(lines and characters) option!"
 230
 231    Call hCloseDocument
 232 endcase
 233
 234 '-------------------------------------------------------------------------
 235
 236 testcase  tGridDisplay_1
 237 '/// Print grid: The grid lines will be printed. Inactive if "Display grid" is inactive.
 238    Call hNewDocument
 239
 240    '/// format / page  / tabpage Text grid
 241    '/// + check "display grid" and check "print grid"
 242     FormatPageWriter
 243     Kontext
 244     if active.exists(5) then
 245         Active.SetPage TabGrid
 246     endif
 247      Kontext "TabGrid"
 248      CharsGrid.Check
 249      Display.Check
 250      Sleep 1
 251      PrintGrid.Check
 252      Sleep 1
 253     TabGrid.OK
 254     Sleep 1
 255
 256    '/// Print to printer
 257     FilePrint
 258     Kontext "Active"
 259     if Active.Exists(5) then
 260       if Active.GetRT = 304 then
 261         Active.Ok
 262         QAErrorLog "No Default-Printer!"
 263         Kontext "DruckenDlg"
 264         Sleep 1
 265         DruckenDlg.Cancel
 266       end if
 267     else
 268       Kontext "DruckenDlg"
 269       Sleep 1
 270       DruckenDlg.OK
 271       Sleep 5
 272       kontext
 273       if active.exists(5) then
 274           qaErrorLog active.getText
 275           active.ok
 276       end if
 277     end if
 278
 279    '/// format / page  / tabpage Text grid
 280    '/// + check "display grid" and uncheck "print grid"
 281     FormatPageWriter
 282     Kontext
 283     if active.exists(5) then
 284         Active.SetPage TabGrid
 285     endif
 286      Kontext "TabGrid"
 287      CharsGrid.Check
 288      Display.Check
 289      Sleep 1
 290      PrintGrid.UnCheck
 291      Sleep 1
 292     TabGrid.OK
 293     Sleep 1
 294
 295    '/// Print to printer
 296     FilePrint
 297     Kontext "Active"
 298     if Active.Exists(5) then
 299       if Active.GetRT = 304 then
 300         Active.Ok
 301         QAErrorLog "No Default-Printer!"
 302         Kontext "DruckenDlg"
 303         Sleep 1
 304         DruckenDlg.Cancel
 305       end if
 306     else
 307       Kontext "DruckenDlg"
 308       Sleep 1
 309       DruckenDlg.OK
 310       Sleep 5
 311       kontext
 312       if active.exists(5) then
 313           qaErrorLog active.getText
 314           active.ok
 315       end if
 316     end if
 317
 318    Call hCloseDocument
 319 endcase
 320
 321 '-------------------------------------------------------------------------
 322
 323 testcase tUserDefineLayout_1
 324 '/// Decrease characters per line will cause lines per page decrease accordingly
 325    Dim sLinesPerPage       , sCharsPerLine          as String
 326    Dim sExpectLinesPerPage , sExpectLinesPerPage1   as String
 327
 328    sLinesPerPage  = "20"
 329    sCharsPerLine  = "2"
 330    sExpectLinesPerPage   = "2"
 331    sExpectLinesPerPage1  = "3"
 332
 333   Call hNewDocument
 334
 335   '/// Format/page , set lines per page to 20, and set charsets per line to 2
 336   '/// + wait for a moment , then check the the number  of lines per page.
 337    FormatPageWriter
 338    Kontext
 339    if active.exists(5) then
 340        Active.SetPage TabGrid
 341    endif
 342    Kontext "TabGrid"
 343    CharsGrid.Check
 344
 345     LinesPerPage.SetText sLinesPerPage
 346     Sleep 2
 347     CharsPerLine.SetText sCharsPerLine
 348     Sleep 2
 349
 350    'This step is no use, just let the LinesPerPage change the number
 351     CharsGrid.Check
 352
 353     if LinesPerPage.GetText <> sExpectLinesPerPage AND LinesPerPage.GetText <> sExpectLinesPerPage1 then
 354          Warnlog "The lines per page should be"  + sExpectLinesPerPage + " OR " + sExpectLinesPerPage1 +" but get " +LinesPerPage.GetText
 355     end if
 356
 357    TabGrid.Cancel
 358
 359   Call hCloseDocument
 360 endcase
 361
 362 '-------------------------------------------------------------------------
 363
 364 testcase tFontSizeChanges_1
 365 '/// Change the font size to bigger enough will change the layout
 366     Dim testFile      , sCorrectResult as String
 367     Dim sLinesPerPage , sCharsPerLine  as String
 368     dim sTemp as string
 369
 370     testFile       = "FontSizeChanges_1.sxw"
 371     sCorrectResult = "1"
 372     sLinesPerPage  = "2"
 373     sCharsPerLine  = "9"
 374
 375     '/// open a test file
 376     Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
 377     sMakeReadOnlyDocumentEditable
 378     Kontext "DocumentWriter"
 379     Call DocumentWriter.TypeKeys  "<Shift Right>"
 380
 381     '/// set font size to 60
 382     Kontext "FormatObjectbar"
 383         Schriftgroesse.Select   "60"
 384         Schriftgroesse.TypeKeys "<Return>"
 385         Sleep 1
 386
 387     '/// Check if lines per page and charsets per line is still right
 388     Kontext "DocumentWriter"
 389     FormatPageWriter
 390         Kontext
 391         if active.exists(5) then
 392             Active.SetPage TabGrid
 393         endif
 394         Kontext "TabGrid"
 395         if TabGrid.exists(5) then
 396             sTemp = LinesPerPage.GetText
 397             if sTemp <> sLinesPerPage then
 398                 Warnlog "The lines per page should be: '" + sLinesPerPage + "'; but get: '" + sTemp + "'"
 399             endif
 400             sTemp = CharsPerLine.GetText
 401             if sTemp <> sCharsPerLine then
 402                 Warnlog "The chars per line should be: '" + sCharsPerLine + "'; but get: '" +sTemp + "'"
 403             endif
 404             TabGrid.Cancel
 405         else
 406             warnlog "TabGrid is not available."
 407         endif
 408
 409     '/// Active navigator dialogue , set page to '2'  and wait for a while
 410     Kontext
 411     ViewNavigator
 412     Kontext "NavigatorWriter"
 413     if NavigatorWriter.exists(5) then
 414         Seitennummer.SetText "2"
 415         Sleep 5
 416     else
 417         warnlog "Navigator not available"
 418     endif
 419     fCloseNavigator
 420
 421     Kontext "DocumentWriter"
 422     sleep 3
 423     Call DocumentWriter.TypeKeys  "<Shift Right>"
 424     sleep 3
 425     Editcopy
 426     sTemp = GetClipboardText
 427     if sTemp <> sCorrectResult then
 428         Warnlog "Don't get the expected result , hope to be: '" + sCorrectResult + "'; but get: '" + sTemp + "'"
 429     endif
 430
 431     Call hCloseDocument
 432 endcase
 433
 434 '-------------------------------------------------------------------------
 435
 436 testcase tRubyText_1
 437 '/// If Ruby Text is applied and longer than its Base Text it will stretch over more grid cells than the base text itself.
 438    Dim testFile , sRubyText as String
 439
 440    testFile   = "rubytest.sxw"
 441    sRubyText  = "Ruby Test Text ....................."
 442
 443    Call hNewDocument
 444
 445   '/// open a test file , and insert  long ruby test text
 446    Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
 447     sMakeReadOnlyDocumentEditable
 448    Kontext "DocumentWriter"
 449    Call DocumentWriter.TypeKeys  "<Shift Right>"
 450    Sleep 1
 451
 452     FormatRuby
 453     Kontext "RubyDialog"
 454      Sleep 3
 455      RubyText1.setText sRubyText
 456      Sleep 2
 457      RubyDialog.OK
 458      Sleep 2
 459     DialogClose.Click
 460     Sleep 1
 461
 462     Kontext "DocumentWriter"
 463     FormatAutoformatApply
 464     Sleep 2
 465     Call DocumentWriter.TypeKeys  "<End>"
 466     Sleep 2
 467     Call DocumentWriter.TypeKeys  "<Shift Left>"
 468     Editcopy
 469
 470     if NOT(GetClipboardText = "5" OR GetClipboardText = "6") then
 471         Warnlog "Don't get the correct result after inserting ruby text! Get " + GetClipboardText
 472     end if
 473
 474    Call hCloseDocument
 475 endcase
 476
 477 '-------------------------------------------------------------------------
 478
 479 testcase tIndentsTest_1
 480  '/// Indents should work and always indenting as close as possible to their measurements by snapping to the appropriate grid cell. Tabs therefore will be ignored.
 481    Dim testFile , sCorrectPage1 , sCorrectPage2 as String
 482
 483    testFile       = "IndentsTest.sxw"
 484    sCorrectPage1  = "1"
 485    sCorrectPage2  = "2"
 486
 487    Call hNewDocument
 488
 489   '/// open a test file , and press TAB in second line
 490    Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
 491     sMakeReadOnlyDocumentEditable
 492    Kontext "DocumentWriter"
 493    Call DocumentWriter.TypeKeys  "<Down>"
 494    Sleep 1
 495    Call DocumentWriter.TypeKeys  "<Tab>"
 496    Sleep 1
 497    Call DocumentWriter.TypeKeys  "<End>"
 498    Sleep 1
 499
 500    '/// Active navigator dialogue , check if the page number is 1
 501     Kontext
 502     ViewNavigator
 503      Kontext "NavigatorWriter"
 504      if Seitennummer.GetText <> sCorrectPage1 then Warnlog "First test :Something wrong in indents test!"
 505     fCloseNavigator
 506
 507    '/// press TAB in second line again
 508     Kontext "DocumentWriter"
 509     Call DocumentWriter.TypeKeys  "<Home>"
 510     Sleep 1
 511     Call DocumentWriter.TypeKeys  "<Tab>"
 512     Sleep 1
 513     Call DocumentWriter.TypeKeys  "<End>"
 514     Sleep 1
 515
 516    '/// Active navigator dialogue , check if the page number is 2
 517     Kontext
 518     ViewNavigator
 519      Kontext "NavigatorWriter"
 520      if Seitennummer.GetText <> sCorrectPage2 then Warnlog "Second test :Something wrong in indents test!"
 521     fCloseNavigator
 522
 523    Call hCloseDocument
 524 endcase
 525
 526 '-------------------------------------------------------------------------
 527
 528 testcase tObjectsTest_1
 529   '/// If objects are anchored to text they will "wander" with its surrounding text.
 530   '/// If they are anchored as character they will snap to the appropriate grid cell (since they are a character).
 531    Dim testFile , sCorrectPage1 , sCorrectPage2 as String
 532
 533    testFile       = "objectsTest.sxw"
 534    sCorrectPage1  = "1"
 535    sCorrectPage2  = "2"
 536
 537    Call hNewDocument
 538
 539   '/// open a test file , and press TAB in second line
 540    Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile )
 541
 542   '/// If object is anchored as Character , check if it will snap to the appropriate grid cell
 543     fStartupNavigator( "OLEObject" , 1 )
 544     Sleep 1
 545     Auswahlliste.TypeKeys "<Return>"
 546     Sleep 1
 547     fCloseNavigator
 548     Sleep 2
 549
 550     Kontext
 551     FormatAnchorAsCharacter
 552     Sleep 1
 553
 554     ViewNavigator
 555      Kontext "NavigatorWriter"
 556      Seitennummer.SetText   sCorrectPage2
 557      Sleep 5
 558      if Seitennummer.GetText <> sCorrectPage2 then Warnlog "Something wrong when object is anchored as Character!"
 559     fCloseNavigator
 560
 561   '/// If object is anchored to Character , check if it will NOT snap to the appropriate grid cell
 562     fStartupNavigator( "OLEObject" , 1 )
 563     Auswahlliste.TypeKeys "<Return>"
 564     fCloseNavigator
 565
 566     Kontext
 567     FormatAnchorToCharacter
 568
 569     ViewNavigator
 570      Kontext "NavigatorWriter"
 571      Seitennummer.SetText   sCorrectPage2
 572      Sleep 5
 573      if Seitennummer.GetText <> sCorrectPage1 then Warnlog "Something wrong when object is anchored to Character!"
 574     fCloseNavigator
 575    Kontext
 576
 577    Call hCloseDocument
 578 endcase
 579