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