testautomation/writer/optional/includes/formatparagraph/w_formatparagraph2.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_formatparagraph2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:29:26 $
  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 : Test the functionality of Paragraph Formatting - 2
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tParagraphAlignment1       'Test 'Left' alignment
  41 ' #1 tParagraphAlignment2       'Test 'Right' alignment
  42 ' #1 tParagraphAlignment3       'Test 'Center' alignment
  43 ' #1 tParagraphAlignment4       'Test 'Justified' alignment - Default
  44 ' #1 tParagraphAlignment5       'Test 'Justified' alignment - Centered
  45 ' #1 tParagraphAlignment6       'Test 'Justified' alignment - Justified
  46 ' #1 tParagraphAlignment7       'Test 'Expand single word'
  47 ' #1 tParagraphAlignment8       'Test Uncheck 'Snap to text grid(if active)'
  48 ' #1 tParagraphAlignment9       'Test Check 'Snap to text grid(if active)'
  49 ' #1 tParagraphTextFlow1        'Hyphenation must be processed while entering text WITHOUT inquiry
  50 ' #1 tParagraphTextFlow2        'Hyphenation - Characters at line end
  51 ' #1 tParagraphTextFlow3        'Hyphenation - Characters at line begin
  52 ' #1 tParagraphTextFlow4        'Hyphenation - maxinum number of consecutive typhens
  53 ' #1 tParagraphTextFlow5        'Paragraph break before Column
  54 ' #1 tParagraphTextFlow6        'Paragraph break after Column
  55 ' #1 tParagraphTextFlow7        'Paragraph break before Page
  56 ' #1 tParagraphTextFlow8        'Paragraph break after Page
  57 ' #1 tParagraphTextFlow9        'Do not split paragraph
  58 ' #1 tParagraphTextFlow10       'Keep with next paragraph
  59 ' #1 tParagraphTextFlow11       'Orphan control
  60 ' #1 tParagraphTextFlow12       'widow control
  61 ' #1 tParagraphTextFlow13       'Special test for Hyphenation
  62 '*
  63 '\***********************************************************************
  64
  65 testcase tParagraphAlignment1
  66
  67   Dim sTestFile as String
  68   Dim sPositionX as String
  69
  70   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
  71
  72   PrintLog "- Test 'Left' alignment"
  73   '/// Test 'Left' alignment
  74
  75    Call hNewDocument
  76
  77    '/// + Open the test file
  78    '/// + This file includes 1 paragraphs , and a pic is anchored to the character
  79     Call hFileOpen(sTestFile)
  80     Call sMakeReadOnlyDocumentEditable
  81
  82    'Get the original coordinate-X
  83     Call wTypeKeys ( "<Shift F4>" )
  84     Sleep 1
  85     FormatAnchorToPage
  86     Sleep 1
  87     Call fPositionAndSize("TabPositionAndSizeWriter")
  88         sPositionX = Horizontalby.Gettext
  89     TabPositionAndSizeWriter.Cancel
  90     FormatAnchorAsCharacter
  91     Sleep 1
  92     Call wTypeKeys "<ESCAPE>"
  93
  94    '/// + Format/Paragraph / Alignment , choose Left/Top option
  95     Call fFormatParagraph("TabAusrichtungAbsatz")
  96         Links.Check
  97     TabAusrichtungAbsatz.OK
  98
  99    '/// + check if the alignment is moved to left
 100     Call wTypeKeys ( "<Shift F4>" )
 101     Sleep 1
 102     FormatAnchorToPage
 103     Sleep 1
 104     Call fPositionAndSize("TabPositionAndSizeWriter")
 105         if sPositionX <> Horizontalby.Gettext then warnlog "Alignment Left doesn't work !"
 106     TabPositionAndSizeWriter.Cancel
 107
 108    Call hCloseDocument
 109 endcase
 110
 111 '-------------------------------------------------------------------------------------------
 112
 113 testcase tParagraphAlignment2
 114
 115   Dim sTestFile as String
 116   Dim sPositionX as String
 117
 118   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestRight.sxw")
 119   sPositionX = "11" + gSeperator + "00" + gMeasurementUnit
 120
 121   PrintLog "- Test 'Right' alignment"
 122   '/// Test 'Right' alignment
 123
 124    Call hNewDocument
 125
 126    '/// + Open the test file
 127    '/// + This file includes 1 paragraphs , and a pic is anchored to the laste character
 128     Call hFileOpen(sTestFile)
 129     Call sMakeReadOnlyDocumentEditable
 130
 131    '/// + Format/Paragraph / Alignment , choose Right/Bottom option
 132     Call fFormatParagraph("TabAusrichtungAbsatz")
 133         Rechts.Check
 134     TabAusrichtungAbsatz.OK
 135
 136    '/// + check if the alignment is moved to Right
 137     Call wTypeKeys ( "<Shift F4>" )
 138     Sleep 1
 139     FormatAnchorToPage
 140     Sleep 1
 141     Call fPositionAndSize("TabPositionAndSizeWriter")
 142         if fCalculateTolerance(Horizontalby.Gettext , sPositionX) > 0.02 then
 143             warnlog "Alignment Right doesn't work !"
 144         end if
 145     TabPositionAndSizeWriter.Cancel
 146
 147    Call hCloseDocument
 148 endcase
 149
 150 '-------------------------------------------------------------------------------------------
 151
 152 testcase tParagraphAlignment3
 153
 154         Dim sTestFile as String
 155
 156         sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTest.sxw")
 157
 158   PrintLog "- Test 'Center' alignment"
 159   '/// Test 'Center' alignment
 160
 161    Call hNewDocument
 162
 163    '/// + Open the test file
 164    '/// + This file includes 1 paragraphs , and a pic is anchored to the character
 165     Call hFileOpen(sTestFile)
 166     Call sMakeReadOnlyDocumentEditable
 167
 168    '/// + Format/Paragraph / Alignment , choose Center option
 169     Call fFormatParagraph("TabAusrichtungAbsatz")
 170         Zentriert.Check
 171     TabAusrichtungAbsatz.OK
 172
 173    '/// + check if the alignment is moved to Center
 174     Call wTypeKeys ( "<Shift F4>" )
 175     Sleep 1
 176     FormatAnchorToPage
 177     Sleep 1
 178     Call fPositionAndSize("TabPositionAndSizeWriter")
 179         if Int( Left(Horizontalby.Gettext , 1) ) > 7 OR Int( Left(Horizontalby.Gettext , 1) ) < 4 then
 180             warnlog "Alignment Center doesn't work !"
 181         end if
 182     TabPositionAndSizeWriter.Cancel
 183
 184    Call hCloseDocument
 185 endcase
 186
 187 '-------------------------------------------------------------------------------------------
 188
 189 testcase tParagraphAlignment4
 190
 191   Dim sTestFile as String
 192   Dim sPositionX1 as String
 193   Dim sPositionX2 as String
 194
 195   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestJustified.sxw")
 196   sPositionX1 = "12" + gSeperator + "84" + gMeasurementUnit
 197
 198   PrintLog "- Test 'Justified' alignment - Default"
 199   '/// Test 'Justified' alignment - Default
 200
 201    Call hNewDocument
 202
 203    '/// Open the test file
 204    '/// + This file includes 1 paragraphs , and a pic is anchored to the last character
 205     Call hFileOpen(sTestFile)
 206     Call sMakeReadOnlyDocumentEditable
 207
 208     Call wTypeKeys ( "<Shift F4>" )
 209     Sleep 1
 210     FormatAnchorToPage
 211     Sleep 1
 212
 213     Call fPositionAndSize("TabPositionAndSizeWriter")
 214         sPositionX2 = Horizontalby.Gettext
 215     TabPositionAndSizeWriter.Cancel
 216     Call wTypeKeys "<ESCAPE>"
 217
 218    '/// Format/Paragraph / Alignment , choose Justified option , and select default in last line
 219     Call fFormatParagraph("TabAusrichtungAbsatz")
 220         Blocksatz.Check
 221         Sleep 1
 222         LetzteZeile.Select 1
 223     TabAusrichtungAbsatz.OK
 224
 225    '/// check if the alignment is moved as Justified
 226     Call wTypeKeys ( "<Shift F4>" )
 227     Call wTypeKeys "<Tab>"
 228     Sleep 1
 229     FormatAnchorToPage
 230     Sleep 1
 231
 232     Call fPositionAndSize("TabPositionAndSizeWriter")
 233         if fCalculateTolerance(Horizontalby.Gettext , sPositionX1) > 0.02 then
 234             if gPlatGroup = "unx" then
 235                 QaErrorLog "#i94769# - Different font-sizes under Linux/Unix compared with windows."
 236             else
 237                 Warnlog "Alignment Justified doesn't work -1 !"
 238             end if
 239         end if
 240     TabPositionAndSizeWriter.Cancel
 241
 242     Call wTypeKeys "<Tab>"
 243     FormatAnchorToPage
 244     Sleep 1
 245     Call fPositionAndSize("TabPositionAndSizeWriter")
 246         if Horizontalby.Gettext <> sPositionX2 then
 247             if gPlatGroup = "unx" then
 248                 QaErrorLog "#i94769# - Different font-sizes under Linux/Unix compared with windows."
 249             else
 250                 warnlog "Alignment Justified doesn't work -2 !"
 251             end if
 252         end if
 253     TabPositionAndSizeWriter.Cancel
 254
 255    Call hCloseDocument
 256 endcase
 257
 258 '-------------------------------------------------------------------------------------------
 259
 260 testcase tParagraphAlignment5
 261
 262   Dim sTestFile as String
 263
 264   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestJustified.sxw")
 265
 266   PrintLog "- Test 'Justified' alignment - Centered"
 267   '/// Test 'Justified' alignment - Centered
 268
 269    Call hNewDocument
 270
 271    '/// Open the test file
 272    '/// + This file includes 1 paragraphs , and a pic is anchored to the last character
 273     Call hFileOpen(sTestFile)
 274     Call sMakeReadOnlyDocumentEditable
 275
 276    '/// Format/Paragraph / Alignment ,
 277    '/// + choose Justified option , and select centered in last line
 278     Call fFormatParagraph("TabAusrichtungAbsatz")
 279         Blocksatz.Check
 280         Sleep 1
 281         LetzteZeile.Select 2
 282     TabAusrichtungAbsatz.OK
 283
 284    '/// check if the alignment is moved as Justified
 285     Call wTypeKeys ( "<Shift F4>" )
 286     FormatAnchorToPage
 287     Sleep 1
 288     Call fPositionAndSize("TabPositionAndSizeWriter")
 289         if StrToDouble(Horizontalby.Gettext) < 7.5 OR StrToDouble(Horizontalby.Gettext) > 8.8 then
 290             warnlog "Alignment Justified - Centered doesn't work !"
 291         end if
 292     TabPositionAndSizeWriter.Cancel
 293
 294    Call hCloseDocument
 295 endcase
 296
 297 '-------------------------------------------------------------------------------------------
 298
 299 testcase tParagraphAlignment6
 300
 301   Dim sTestFile as String
 302   Dim sPositionX1 as String
 303   Dim sPositionX2 as String
 304
 305   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\alignmentTestJustifiedCentered.sxw")
 306   sPositionX2 = "11" + gSeperator + "15" + gMeasurementUnit
 307
 308   PrintLog "- Test 'Justified' alignment - Justified"
 309   '/// Test 'Justified' alignment - Justified
 310
 311    Call hNewDocument
 312
 313    '/// Open the test file
 314    '/// + This file includes 1 paragraphs,
 315    '/// + and 2 pics are in 2nd line
 316     Call hFileOpen(sTestFile)
 317     Call sMakeReadOnlyDocumentEditable
 318
 319     Call wTypeKeys ( "<Shift F4>" )
 320     Call wTypeKeys "<TAB>"
 321     Sleep 1
 322     FormatAnchorToPage
 323     Sleep 1
 324
 325     Call fPositionAndSize("TabPositionAndSizeWriter")
 326         sPositionX1 = Horizontalby.Gettext
 327     TabPositionAndSizeWriter.Cancel
 328     FormatAnchorAsCharacter
 329     Sleep 1
 330     Call wTypeKeys "<ESCAPE>"
 331
 332    '/// Format/Paragraph / Alignment ,
 333    '/// + choose Justified option , and select Justified in last line
 334     Call fFormatParagraph("TabAusrichtungAbsatz")
 335         Blocksatz.Check
 336         Sleep 1
 337         LetzteZeile.Select 3
 338     TabAusrichtungAbsatz.OK
 339
 340    '/// check if the alignment is moved as Justified
 341     Call wTypeKeys "<MOD1 Home>"
 342     Call wTypeKeys ( "<Shift F4>" )
 343     Sleep 1
 344     FormatAnchorToPage
 345     Sleep 1
 346
 347     Call fPositionAndSize("TabPositionAndSizeWriter")
 348         if Horizontalby.Gettext <> sPositionX1 then
 349             if gPlatGroup = "unx" then
 350                 QaErrorLog "#i94769# - Different font-sizes under Linux/Unix compared with windows."
 351             else
 352                 warnlog "Alignment Justified doesn't work -1 !"
 353             end if
 354         end if
 355     TabPositionAndSizeWriter.Cancel
 356
 357     Call wTypeKeys "<Tab>"
 358     FormatAnchorToPage
 359     Sleep 1
 360     Call fPositionAndSize("TabPositionAndSizeWriter")
 361         if fCalculateTolerance(Horizontalby.Gettext , sPositionX2) > 0.02 then Warnlog "Alignment Justified doesn't work -2 !"
 362     TabPositionAndSizeWriter.Cancel
 363
 364    Call hCloseDocument
 365 endcase
 366
 367 '--------------------------------------------------------------------------
 368
 369 testcase tParagraphAlignment7
 370
 371   Dim sTestFile as String
 372   Dim sPositionX as String
 373
 374   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\testExpand.sxw")
 375
 376   Printlog "- Test 'Expand single word'"
 377   Call hNewDocument
 378
 379     '/// Open the test file
 380     '/// + This file includes 1 paragraphs ,
 381     '/// + there is only 1 word - "That" in last line ,
 382     '/// + and a drawring object is anchored as character after "That"
 383     Call hFileOpen(sTestFile)
 384     Call sMakeReadOnlyDocumentEditable
 385
 386     printlog "Select the object."
 387     Sleep 1
 388     Call wTypeKeys ( "<Shift F4>" )
 389     Sleep 1
 390
 391     printlog "Note the position of the drawing object"
 392     Call fPositionAndSize("TabPositionAndSizeWriter")
 393     sPositionX = Horizontalby.Gettext
 394     TabPositionAndSizeWriter.Cancel
 395
 396     printlog "Deselect the object"
 397     Sleep 1
 398     Call wTypeKeys ( "<ESCAPE>" )
 399
 400     '/// Format/Paragraph / Alignment ,
 401     '/// + choose Justified option , select Justified in 'last line'
 402     '/// + check 'expand single word'
 403     Call fFormatParagraph("TabAusrichtungAbsatz")
 404         Blocksatz.Check
 405         Sleep 1
 406         LetzteZeile.Select 3
 407         Sleep 1
 408         EinzelnesWortAustreiben.Check
 409         Sleep 1
 410     TabAusrichtungAbsatz.OK
 411
 412     printlog "Select the drawing object , Format/Anchor / To page"
 413     Call wTypeKeys ( "<Shift F4>" )
 414
 415     Sleep 1
 416     FormatAnchorToPage
 417     Sleep 1
 418
 419     printlog "Check if the drawing object has moved from where it was before."
 420     Call fPositionAndSize("TabPositionAndSizeWriter")
 421         if Horizontalby.Gettext = sPositionX then QAErrorLog "#114314# Expand single word doesn't work"
 422     TabPositionAndSizeWriter.Cancel
 423
 424     Call hCloseDocument
 425 endcase
 426
 427 '--------------------------------------------------------------------------
 428
 429 testcase tParagraphAlignment8
 430
 431   Dim bAsianLanguage as Boolean
 432   Dim sTestFile as String
 433   Dim sPositionX as String
 434   Dim sPositionY as String
 435
 436   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\testExpand.sxw")
 437   sPositionY  = "2" + gSeperator + "80" + gMeasurementUnit
 438
 439   PrintLog "- Test Uncheck 'Snap to text grid'"
 440   '/// <b> Test Uncheck 'Snap to text grid' </b> ///
 441
 442    Call hNewDocument
 443
 444    '/// Set 'Asian Language support' on ///
 445     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 446
 447    '/// Open the test file
 448    '/// + This file includes 1 paragraphs ,
 449    '/// + and a drawring object is anchored as character after "That"
 450     Call hFileOpen(sTestFile)
 451     Call sMakeReadOnlyDocumentEditable
 452
 453    '/// Get the drawing object original position ///
 454     Call wTypeKeys ( "<Shift F4>" )
 455     Sleep 1
 456     FormatAnchorToPage
 457     Sleep 1
 458     Call fPositionAndSize("TabPositionAndSizeWriter")
 459          sPositionX = Horizontalby.Gettext
 460     TabPositionAndSizeWriter.Cancel
 461     FormatAnchorAsCharacter
 462     Sleep 1
 463     Call wTypeKeys "<ESCAPE>"
 464
 465    '/// Format/Paragraph / Alignment ,
 466    '/// + Uncheck 'Snap to text grid'
 467     Call fFormatParagraph("TabAusrichtungAbsatz")
 468         TextrasterFangen.UnCheck
 469         Sleep 1
 470     TabAusrichtungAbsatz.OK
 471
 472    '/// Format/page / Text Grid
 473    '/// + Check 'Grid (lines only)
 474    '/// + close the dialog
 475     Call fFormatPageWriter("TabGrid")
 476         LinesGrid.Check
 477         Sleep 1
 478     TabGrid.OK
 479
 480    '/// Check if the drawing object is in the same position
 481     Call wTypeKeys ( "<Shift F4>" )
 482     Sleep 1
 483     FormatAnchorToPage
 484     Sleep 1
 485     Call fPositionAndSize("TabPositionAndSizeWriter")
 486         if Horizontalby.Gettext <> sPositionX then warnlog "Uncheck 'Snap to text grid' doesn't work - x position!"
 487         if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.1 then Warnlog "Uncheck 'Snap to text grid' doesn't work - y position!"
 488     TabPositionAndSizeWriter.Cancel
 489
 490    '/// Set the 'Asian Language support' to default
 491     if bAsianLanguage = FALSE then
 492         Call ActiveDeactivateAsianSupport(FALSE)
 493     end if
 494
 495    Call hCloseDocument
 496 endcase
 497
 498 '--------------------------------------------------------------------------
 499
 500 testcase tParagraphAlignment9
 501
 502   Dim bAsianLanguage as Boolean
 503   Dim sTestFile as String
 504   Dim sPositionX as String
 505   Dim sPositionY as String
 506
 507   sTestFile   = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\testExpand.sxw")
 508   sPositionY  = "3" + gSeperator + "61" + gMeasurementUnit
 509
 510   PrintLog "- Test check 'Snap to text grid'"
 511   '/// <b> Test check 'Snap to text grid' </b> ///
 512
 513    Call hNewDocument
 514
 515    '/// Set 'Asian Language support' on ///
 516     bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
 517
 518    '/// Open the test file
 519    '/// + This file includes 1 paragraphs ,
 520    '/// + and a drawring object is anchored as character after "That"
 521     Call hFileOpen(sTestFile)
 522     Call sMakeReadOnlyDocumentEditable
 523
 524    '/// Get the drawing object original position ///
 525     Call wTypeKeys ( "<Shift F4>" )
 526     Sleep 1
 527     FormatAnchorToPage
 528     Sleep 1
 529     Call fPositionAndSize("TabPositionAndSizeWriter")
 530          sPositionX = Horizontalby.Gettext
 531     TabPositionAndSizeWriter.Cancel
 532     FormatAnchorAsCharacter
 533     Sleep 1
 534     Call wTypeKeys "<ESCAPE>"
 535
 536    '/// Format/Paragraph / Alignment ,
 537    '/// + check 'Snap to text grid'
 538     Call fFormatParagraph("TabAusrichtungAbsatz")
 539         TextrasterFangen.Check
 540         Sleep 1
 541     TabAusrichtungAbsatz.OK
 542
 543    '/// Format/page / Text Grid
 544    '/// + Check 'Grid (lines only)
 545    '/// + close the dialog
 546     Call fFormatPageWriter("TabGrid")
 547         LinesGrid.Check
 548         Sleep 1
 549     TabGrid.OK
 550
 551    '/// Check if the drawing object is in the same position
 552     Call wTypeKeys ( "<Shift F4>" )
 553     Sleep 1
 554     FormatAnchorToPage
 555     Sleep 1
 556     Call fPositionAndSize("TabPositionAndSizeWriter")
 557         if Horizontalby.Gettext <> sPositionX then warnlog "check 'Snap to text grid' doesn't work - x position!"
 558         if fCalculateTolerance(Verticalby.Gettext , sPositionY) > 0.1 then Warnlog "check 'Snap to text grid' doesn't work - y position!"
 559     TabPositionAndSizeWriter.Cancel
 560
 561    '/// Set the 'Asian Language support' to default
 562     if bAsianLanguage = FALSE then
 563         Call ActiveDeactivateAsianSupport(FALSE)
 564     end if
 565
 566    Call hCloseDocument
 567 endcase
 568
 569 '--------------------------------------------------------------------------
 570
 571 testcase tParagraphTextFlow1
 572
 573     Dim sTestFile as String
 574     Dim sTestText as String
 575     Dim i as Integer
 576
 577     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenation.sxw")
 578     sTestText = "h"
 579
 580     PrintLog "- Hyphenation must be processed while entering text WITHOUT inquiry"
 581     '/// Hyphenation must be processed while entering text WITHOUT inquiry
 582
 583     Call hNewDocument
 584
 585     '/// Open the test file
 586     '/// + This file includes 2 words : AAA and Kilometerhigh
 587     Call hFileOpen(sTestFile)
 588     Call sMakeReadOnlyDocumentEditable
 589
 590     'the focus is in front of Kilometerhigh
 591     Call wTypeKeys "<Home>"
 592
 593     '/// 1. Test there is no Hyphenation configuratioin
 594     For i = 1 to 10
 595         Call wTypeKeys "M"
 596         Call wTypeKeys "<End>"
 597         Call wTypeKeys "<Shift Left>"
 598         EditCopy
 599         if GetClipboardText <> sTestText then
 600             if GetClipboardText = "A" then
 601                 Goto GoON
 602             else
 603                 warnlog "no Hyphenation configuratioin doesn't work !"
 604             end if
 605         end if
 606         Call wTypeKeys "<Home>"
 607     next i
 608
 609     warnlog "1.Something wrong in Hyphenation test !"
 610
 611     GoON:
 612
 613     Call hCloseDocument
 614
 615     Call hNewDocument
 616     Call hFileOpen(sTestFile)
 617     Call sMakeReadOnlyDocumentEditable
 618
 619     '/// 2. Test there is the Hyphenation configuratioin
 620     '/// + Format/Paragraph / Text Flow ,
 621     '/// + Check Hyphenation 'Automatically'
 622     Call fFormatParagraph("TabTextfluss")
 623     Automatisch.Check
 624     TabTextfluss.OK
 625
 626     Call wTypeKeys "<Home>"
 627
 628     For i = 1 to 10
 629         Call wTypeKeys "M"
 630         Call wTypeKeys "<End>"
 631         Call wTypeKeys "<Shift Left>"
 632         EditCopy
 633         if GetClipboardText <> sTestText then
 634             if GetClipboardText = "t" then
 635                 Goto GoON1
 636             else
 637                 warnlog "Hyphenation configuratioin doesn't work !"
 638             end if
 639         end if
 640         Call wTypeKeys "<Home>"
 641     next i
 642     warnlog "2.Something wrong in Hyphenation test !"
 643
 644     GoON1:
 645     Call hCloseDocument
 646 endcase
 647
 648 '-------------------------------------------------------------------------------------------
 649
 650 testcase tParagraphTextFlow2
 651
 652     Dim sTestFile as String
 653     Dim sTestText as String
 654     Dim i as Integer
 655
 656     sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenation.sxw")
 657     sTestText  = "Kilomet"
 658
 659     PrintLog "- Hyphenation - Characters at line end"
 660     '/// Hyphenation - Characters at line end
 661
 662     Call hNewDocument
 663
 664     '/// Open the test file
 665     '/// + This file includes 2 words : AAA and Kilometerhigh
 666     Call hFileOpen(sTestFile)
 667     Call sMakeReadOnlyDocumentEditable
 668
 669     '/// 1.Test Characters at line end ==> 6
 670     '/// + Format/Paragraph / Text Flow ,
 671     '/// + Check Hyphenation 'Automatically'
 672     '/// + Set 6 in 'Characters at line end'
 673     Call fFormatParagraph("TabTextfluss")
 674     Automatisch.Check
 675     Sleep 1
 676     AbZeichenende.SetText "6"
 677     TabTextfluss.OK
 678
 679     'the focus is in front of Kilometerhigh
 680     Call wTypeKeys "<Home>"
 681
 682     For i = 1 to 10
 683         Call wTypeKeys "M"
 684         Call wTypeKeys "<End>"
 685         Call wTypeKeys "<Shift Left>" , 7
 686
 687         EditCopy
 688         if GetClipboardText = sTestText then Goto GoON1
 689         Call wTypeKeys "<Home>"
 690     next i
 691     warnlog "Something wrong in Characters at line end = > 6"
 692
 693     GoON1:
 694     Call hCloseDocument
 695
 696     Call hNewDocument
 697
 698     Call hFileOpen(sTestFile)
 699     Call sMakeReadOnlyDocumentEditable
 700
 701     '/// 2.Test Characters at line end ==> 8
 702     '/// + Format/Paragraph / Text Flow ,
 703     '/// + Check Hyphenation 'Automatically'
 704     '/// + Set 8 in 'Characters at line end'
 705     Call fFormatParagraph("TabTextfluss")
 706     Automatisch.Check
 707     Sleep 1
 708     AbZeichenende.SetText "8"
 709     TabTextfluss.OK
 710
 711     'the focus is in front of Kilometerhigh
 712     Call wTypeKeys "<Home>"
 713
 714     For i = 1 to 10
 715         Call wTypeKeys "M"
 716         Call wTypeKeys "<End>"
 717         Call wTypeKeys "<Shift Left>" , 6
 718         EditCopy
 719         if GetClipboardText = sTestText then  warnlog "Something wrong in Characters at line end = > 8"
 720         Call wTypeKeys "<Home>"
 721     next i
 722
 723     Call hCloseDocument
 724 endcase
 725
 726 '--------------------------------------------------------------------------
 727
 728 testcase tParagraphTextFlow3
 729
 730     Dim sTestFile      as String
 731     Dim sTestText     as String
 732     Dim i                   as Integer
 733
 734     sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenation.sxw")
 735     sTestText  = "lomet"
 736
 737     PrintLog "- Hyphenation - Characters at line begin"
 738     '/// Hyphenation - Characters at line begin
 739
 740     Call hNewDocument
 741
 742     '/// Open the test file
 743     '/// + This file includes 2 words : AAA and Kilometerhigh
 744     Call hFileOpen(sTestFile)
 745     Call sMakeReadOnlyDocumentEditable
 746
 747     '/// 1.Test Characters at line begin ==> 4
 748     '/// + Format/Paragraph / Text Flow ,
 749     '/// + Check Hyphenation 'Automatically'
 750     '/// + Set 4 in 'Characters at line begin'
 751     Call fFormatParagraph("TabTextfluss")
 752     Automatisch.Check
 753     Sleep 1
 754     AbZeichenAnfang.SetText "4"
 755     TabTextfluss.OK
 756
 757     'the focus is in front of Kilometerhigh
 758     Call wTypeKeys "<Home>"
 759
 760     For i = 1 to 10
 761         Call wTypeKeys "M"
 762         Call wTypeKeys "<End>"
 763         Call wTypeKeys "<Shift Left>" , 5
 764         EditCopy
 765         if GetClipboardText = sTestText then Goto GoON1
 766         Call wTypeKeys "<Home>"
 767     next i
 768     warnlog "Something wrong in Characters at line end = > 4"
 769
 770     GoON1:
 771     Call hCloseDocument
 772
 773     Call hNewDocument
 774
 775     Call hFileOpen(sTestFile)
 776     Call sMakeReadOnlyDocumentEditable
 777
 778     '/// 2.Test Characters at line end ==> 6
 779     '/// + Format/Paragraph / Text Flow ,
 780     '/// + Check Hyphenation 'Automatically'
 781     '/// + Set 8 in 'Characters at line end'
 782     Call fFormatParagraph("TabTextfluss")
 783     Automatisch.Check
 784     Sleep 1
 785     AbZeichenAnfang.SetText "6"
 786     TabTextfluss.OK
 787
 788     'the focus is in front of Kilometerhigh
 789     Call wTypeKeys "<Home>"
 790
 791     For i = 1 to 10
 792         Call wTypeKeys "M"
 793         Call wTypeKeys "<End>"
 794         Call wTypeKeys "<Shift Left>" , 5
 795
 796         EditCopy
 797         if GetClipboardText = sTestText then Goto GoON2
 798         Call wTypeKeys "<Home>"
 799
 800     next i
 801     warnlog "Something wrong in Characters at line end = > 6"
 802
 803     GoON2:
 804     Call hCloseDocument
 805 endcase
 806
 807 '--------------------------------------------------------------------------
 808
 809 testcase tParagraphTextFlow4
 810
 811   Dim sTestFile as String
 812   Dim i as Integer
 813   Dim j as Integer
 814   Dim sTestText()  as Variant
 815
 816   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\hyphenationNew.odt")
 817
 818   PrintLog "- Hyphenation - maxinum number of consecutive typhens"
 819   '/// Hyphenation - maxinum number of consecutive typhens
 820
 821    Call hNewDocument
 822
 823    '/// Open the test file
 824    '/// + This file includes 4 words : KiloAmterhigh1 kiloAmeterhigh2 kiloAmeterhigh3 kiloAmeterhigh4
 825    '/// + the words' length is longer then page length
 826     Call hFileOpen(sTestFile)
 827     Call sMakeReadOnlyDocumentEditable
 828
 829    '/// 1.Test maxinum number of consecutive typhens (default => 0)
 830    '/// + Format/Paragraph / Text Flow ,
 831    '/// + Check Hyphenation 'Automatically'
 832    '/// + Set 0 in 'maxinum number of consecutive typhens'
 833     sTestText = Array( _
 834                       "Amet"    , _
 835                       "1 kilo"    , _
 836                       "erhigh"    , _
 837                       "Amet"    , _
 838                       )
 839
 840     j = UBound(sTestText)
 841
 842     Call fFormatParagraph("TabTextfluss")
 843         Automatisch.Check
 844         Sleep 1
 845         Trennstellen.SetText "0"
 846     TabTextfluss.OK
 847
 848     Call wTypeKeys "<MOD1 Home>"
 849     Call wTypeKeys "<Down>"
 850     For i = 0 to j
 851         Call wTypeKeys "<Down>" , i*2
 852         Call wTypeKeys "<Shift End>"
 853         EditCopy
 854         if GetClipboardText <> sTestText(i) then
 855             warnlog " Something wrong in Consecutive typhens 0 : " &i
 856             exit for
 857         end if
 858         Call wTypeKeys "<MOD1 Home>"
 859         Call wTypeKeys "<Down>"
 860     Next i
 861
 862    '/// 2.Test maxinum number of consecutive typhens = >1
 863    '/// + Format/Paragraph / Text Flow ,
 864    '/// + Check Hyphenation 'Automatically'
 865    '/// + Set 0 in 'maxinum number of consecutive typhens'
 866     sTestText = Array( _
 867                       "Amete"    , _
 868                       "kilo"         , _
 869                       "rhigh2"    , _
 870                       "Amete"    , _
 871                       )
 872
 873     Call fFormatParagraph("TabTextfluss")
 874         Automatisch.Check
 875         Sleep 1
 876         Trennstellen.SetText "1"
 877     TabTextfluss.OK
 878
 879     Call wTypeKeys "<MOD1 Home>"
 880     Call wTypeKeys "<Down>"
 881     For i = 0 to j
 882         Call wTypeKeys "<Down>" , i*2
 883         Call wTypeKeys "<Shift End>"
 884         EditCopy
 885         if GetClipboardText <> sTestText(i) then
 886             warnlog " Something wrong in Consecutive typhens 1 : " &i
 887             exit for
 888         end if
 889         Call wTypeKeys "<MOD1 Home>"
 890         Call wTypeKeys "<Down>"
 891     Next i
 892
 893    '/// 3.Test maxinum number of consecutive typhens = >2
 894    '/// + Format/Paragraph / Text Flow ,
 895    '/// + Check Hyphenation 'Automatically'
 896    '/// + Set 0 in 'maxinum number of consecutive typhens'
 897     sTestText = Array( _
 898                       "Amet"      , _
 899                       "1 kilo"      , _
 900                       "erhigh"     , _
 901                       "Amet"      , _
 902                       )
 903
 904     Call fFormatParagraph("TabTextfluss")
 905         Automatisch.Check
 906         Sleep 1
 907         Trennstellen.SetText "2"
 908     TabTextfluss.OK
 909
 910     Call wTypeKeys "<MOD1 Home>"
 911     Call wTypeKeys "<Down>"
 912     For i = 0 to j
 913         Call wTypeKeys "<Down>" , i*2
 914         Call wTypeKeys "<Shift End>"
 915         EditCopy
 916         if GetClipboardText <> sTestText(i) then
 917             warnlog " Something wrong in Consecutive typhens 2 : " &i
 918             exit for
 919         end if
 920         Call wTypeKeys "<MOD1 Home>"
 921         Call wTypeKeys "<Down>"
 922     Next i
 923
 924    Call hCloseDocument
 925 endcase
 926
 927 '--------------------------------------------------------------------------
 928
 929 testcase tParagraphTextFlow5
 930
 931   Dim sTestFile as String
 932
 933   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\columnBreakParagraphBefore.sxw")
 934
 935   PrintLog "- Paragraph break before Column"
 936   '/// Paragraph break before Column
 937
 938    Call hNewDocument
 939
 940    '/// Open the test file
 941    '/// + There are 2 columns/page ,includes  2 paragraph
 942    '/// + the 1st paragraph is in 1st and 2nd column
 943    '/// + the 2nd paragraph is is 2nd and 3rd column
 944     Call hFileOpen(sTestFile)
 945     Call sMakeReadOnlyDocumentEditable
 946
 947    '/// Set the focus to 2nd paragraph
 948     Kontext
 949     EditSearchAndReplace
 950     Kontext "FindAndReplace"
 951         SearchFor.SetText "She"
 952         Sleep 1
 953         SearchAll.Click
 954         Sleep 1
 955     FindAndReplace.Close
 956
 957    '/// Format/Paragraph / Text Flow
 958    '/// + Set 'Breaks' enable
 959    '/// + Select column in Type' and select Before in 'Position'
 960     Call fFormatParagraph("TabTextfluss")
 961         Umbruch.Check
 962         Sleep 1
 963         UmbruchTyp.Select 2
 964         Sleep 1
 965         UmbruchPosition.Select 1
 966     TabTextfluss.OK
 967
 968    '/// + check if the 2nd paragraph is in 2nd page
 969     Kontext "Navigator"
 970         if Not Navigator.Exists then ViewNavigator
 971         Kontext "NavigatorWriter"
 972         Sleep 1
 973         if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Paragraph break before Column'!"
 974     fCloseNavigator
 975
 976    Call hCloseDocument
 977 endcase
 978
 979 '--------------------------------------------------------------------------
 980
 981 testcase tParagraphTextFlow6
 982
 983   Dim sTestFile as String
 984
 985   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\columnBreakParagraphAfter.sxw")
 986
 987   PrintLog "- Paragraph break after Column"
 988   '/// Paragraph break after Column
 989
 990    Call hNewDocument
 991
 992    '/// Open the test file
 993    '/// + There are 2 columns/page ,includes  1 paragraph
 994    '/// + the paragraph is in 1st and 2nd column
 995    '/// + and it is NOT full of 2nd column
 996     Call hFileOpen(sTestFile)
 997     Call sMakeReadOnlyDocumentEditable
 998
 999    '/// Format/Paragraph / Text Flow
1000    '/// + Set 'Breaks' enable
1001    '/// + Select column in Type' and select After in 'Position'
1002     Call fFormatParagraph("TabTextfluss")
1003         Umbruch.Check
1004         Sleep 1
1005         UmbruchTyp.Select 2
1006         Sleep 1
1007         UmbruchPosition.Select 2
1008     TabTextfluss.OK
1009
1010    '/// Set the focus to the end of the paragraph
1011     Call wTypeKeys "<MOD1 End>"
1012     Call wTypeKeys "<Return>"
1013
1014    '/// + check if the 2nd paragraph is in 2nd page
1015     Kontext "Navigator"
1016         if Not Navigator.Exists then ViewNavigator
1017         Kontext "NavigatorWriter"
1018         Sleep 1
1019         if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Paragraph break after Column'! "
1020     fCloseNavigator
1021
1022    Call hCloseDocument
1023 endcase
1024
1025 '--------------------------------------------------------------------------
1026
1027 testcase tParagraphTextFlow7
1028
1029   Dim sTestFile as String
1030
1031   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\pageBreakBefore.sxw")
1032
1033   PrintLog "- Paragraph break before Page"
1034   '/// Paragraph break before Page
1035
1036    Call hNewDocument
1037
1038    '/// Open the test file
1039    '/// + There are 2 paragraphs in 1 page
1040     Call hFileOpen(sTestFile)
1041     Call sMakeReadOnlyDocumentEditable
1042
1043    '/// Set the focus to 2nd paragraph
1044     Kontext
1045     EditSearchAndReplace
1046     Kontext "FindAndReplace"
1047         SearchFor.SetText "She"
1048         Sleep 1
1049         SearchAll.Click
1050         Sleep 1
1051     FindAndReplace.Close
1052
1053    '/// Format/Paragraph / Text Flow
1054    '/// + Set 'Breaks' enable
1055    '/// + Select page in 'Type' and select Before in 'Position'
1056    '/// + Select 3rd in 'with page style' and set 4 in 'page number'
1057     Call fFormatParagraph("TabTextfluss")
1058         Umbruch.Check
1059         Sleep 1
1060         UmbruchTyp.Select 1
1061         Sleep 1
1062         UmbruchPosition.Select 1
1063         Sleep 1
1064         MitSeitenvorlage.Check
1065         Sleep 1
1066         Vorlage.Select 3
1067         Seitenzahl.SetText "4"
1068     TabTextfluss.OK
1069
1070    '/// + check if the 2nd paragraph is in 4th page
1071     Kontext "Navigator"
1072         if Not Navigator.Exists then ViewNavigator
1073         Kontext "NavigatorWriter"
1074         Sleep 1
1075         if Seitennummer.GetText <> "2" then warnlog "Something wrong in ' Column break after paragraph'! "
1076     fCloseNavigator
1077
1078     Call fFormatParagraph("TabTextfluss")
1079         if Vorlage.GetSelIndex <> 3   then  warnlog "Should select the 3rd in with page style , but get " &Vorlage.GetSelIndex
1080         if Seitenzahl.GetText  <> "4" then  warnlog "Should get 4 in with page number , but get " &Seitenzahl.GetText
1081     TabTextfluss.OK
1082
1083    Call hCloseDocument
1084 endcase
1085
1086 '--------------------------------------------------------------------------
1087
1088 testcase tParagraphTextFlow8
1089
1090   Dim sTestFile as String
1091
1092   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\pageBreakAfter.sxw")
1093
1094   PrintLog "-  Paragraph break after page"
1095   '/// Paragraph break after page
1096
1097    Call hNewDocument
1098
1099    '/// Open the test file
1100    '/// + There is 1 paragraph in the file
1101     Call hFileOpen(sTestFile)
1102     Call sMakeReadOnlyDocumentEditable
1103
1104    '/// Format/Paragraph / Text Flow
1105    '/// + Set 'Breaks' enable
1106    '/// + Select page in Type' and select After in 'Position'
1107     Call fFormatParagraph("TabTextfluss")
1108         Umbruch.Check
1109         Sleep 1
1110         UmbruchTyp.Select 1
1111         Sleep 1
1112         UmbruchPosition.Select 2
1113     TabTextfluss.OK
1114
1115    '/// Set the focus to the end of the paragraph
1116     Call wTypeKeys "<MOD1 End>"
1117     Call wTypeKeys "<Return>"
1118
1119    '/// + check if the 2nd paragraph is in 2nd page
1120     Kontext "Navigator"
1121         if Not Navigator.Exists then ViewNavigator
1122         Kontext "NavigatorWriter"
1123         Sleep 1
1124         if Seitennummer.GetText <> "2" then warnlog "Something wrong in 'Paragraph break after page'! "
1125     fCloseNavigator
1126
1127    Call hCloseDocument
1128 endcase
1129
1130 '--------------------------------------------------------------------------
1131
1132 testcase tParagraphTextFlow9
1133
1134   Dim sTestFile as String
1135   Dim sPage1   as String
1136   Dim sPage2   as String
1137   Dim i              as Integer
1138
1139   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\textFlowOptions.sxw")
1140
1141   PrintLog "-  Don't split paragraph"
1142   '/// Don't split paragraph
1143
1144    Call hNewDocument
1145
1146    '/// Open the test file
1147    '/// + There is 1 paragraph which cross 2 pages
1148     Call hFileOpen(sTestFile)
1149     Call sMakeReadOnlyDocumentEditable
1150     Call wTypeKeys "<MOD1 Home>"
1151
1152     Call fFindWord("She")
1153     Call wTypeKeys "<Home>"
1154
1155     PrintLog "-  Uncheck Don't split paragraph"
1156    '/// 1. Test unchecking "Don't split paragraph"
1157    '/// Format/Paragraph / Text Flow
1158    '/// + UnCheck "Don't split paragraph"
1159     Call fFormatParagraph("TabTextfluss")
1160         AbsatzNichtTrennen.UnCheck
1161     TabTextfluss.OK
1162
1163     Kontext "Navigator"
1164        if Not Navigator.Exists then ViewNavigator
1165        Kontext "NavigatorWriter"
1166        Sleep 1
1167        if Seitennummer.GetText <> "1" then warnlog "The head of the paragraph should be in 1st page !"
1168     fCloseNavigator
1169
1170     Call wTypeKeys "<MOD1 End>"
1171     Kontext "Navigator"
1172         if Not Navigator.Exists then ViewNavigator
1173         Kontext "NavigatorWriter"
1174         Sleep 1
1175         if Seitennummer.GetText <> "2" then warnlog "The end of the paragraph should be in 2nd page !"
1176     fCloseNavigator
1177
1178    Call hCloseDocument
1179
1180    PrintLog "-  Check Don't split paragraph"
1181    Call hNewDocument
1182     Call hFileOpen(sTestFile)
1183     Call sMakeReadOnlyDocumentEditable
1184
1185     Call wTypeKeys "<MOD1 Home>"
1186
1187     Call fFindWord("She")
1188     Call wTypeKeys "<Home>"
1189
1190    '/// 2. Test checking "Don't split paragraph"
1191    '/// Format/Paragraph / Text Flow
1192    '/// + Check "Don't split paragraph"
1193     Call fFormatParagraph("TabTextfluss")
1194         AbsatzNichtTrennen.Check
1195     TabTextfluss.OK
1196
1197     Kontext "Navigator"
1198        if Not Navigator.Exists then ViewNavigator
1199        Kontext "NavigatorWriter"
1200        Sleep 1
1201        if Seitennummer.GetText <> "2" then warnlog "The head of the paragraph should be in 2nd page !"
1202     fCloseNavigator
1203
1204     Call wTypeKeys "<MOD1 End>"
1205     Kontext "Navigator"
1206         if Not Navigator.Exists then ViewNavigator
1207         Kontext "NavigatorWriter"
1208         Sleep 1
1209         if Seitennummer.GetText <> "2" then warnlog "The end of the paragraph should be in 2nd page !"
1210     fCloseNavigator
1211
1212    Call hCloseDocument
1213 endcase
1214
1215 '--------------------------------------------------------------------------
1216
1217 testcase tParagraphTextFlow10
1218
1219   Dim sTestFile as String
1220   Dim sPage1 as String
1221   Dim sPage2 as String
1222   Dim i as Integer
1223
1224   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\textFlowOptions1.sxw")
1225
1226   PrintLog "-  Keep with next paragraph"
1227   '/// Keep with next paragraph
1228
1229    Call hNewDocument
1230
1231    '/// Open the test file
1232    '/// There are 2 paragraphes in the file , 1st one crosses
1233    '/// + 1st and 2nd page , 2nd one is in 2nd page
1234     Call hFileOpen(sTestFile)
1235     Call sMakeReadOnlyDocumentEditable
1236     EditSearchAndReplace
1237     Kontext "FindAndReplace"
1238         SearchFor.SetText "He1"
1239         Sleep 1
1240         SearchAll.Click
1241         Sleep 1
1242     FindAndReplace.Close
1243     Call wTypeKeys "<Home>"
1244
1245     PrintLog "-  Uncheck Keep with next paragraph"
1246    '/// 1. Test unchecking "Keep with next paragraph"
1247    '/// Format/Paragraph / Text Flow
1248    '/// + UnCheck "Keep with next paragraph"
1249     Call fFormatParagraph("TabTextfluss")
1250         AbsaetzeZusammenhalten.UnCheck
1251     TabTextfluss.OK
1252
1253     Kontext "Navigator"
1254         if Not Navigator.Exists then ViewNavigator
1255         Kontext "NavigatorWriter"
1256         Sleep 1
1257         if Seitennummer.GetText <> "1" then warnlog "The head of the 1st paragraph should be in 1st page ! == " &i
1258     fCloseNavigator
1259
1260     EditSearchAndReplace
1261     Kontext "FindAndReplace"
1262         SearchFor.SetText "He2"
1263         Sleep 1
1264         SearchAll.Click
1265         Sleep 1
1266     FindAndReplace.Close
1267     Kontext "Navigator"
1268         if Not Navigator.Exists then ViewNavigator
1269         Kontext "NavigatorWriter"
1270         Sleep 1
1271         if Seitennummer.GetText <> "2" then warnlog "The head of the 2nd paragraph should be in 2nd page !"
1272     fCloseNavigator
1273
1274    Call hCloseDocument
1275
1276    Call hNewDocument
1277
1278     Call hFileOpen(sTestFile)
1279     Call sMakeReadOnlyDocumentEditable
1280
1281     PrintLog "-  Check Keep with next paragraph"
1282    '/// 2. Test checking "Keep with next paragraph"
1283    '/// Set focus to first paragraph ,Format/Paragraph / Text Flow
1284    '/// + Check "Keep with next paragraph"
1285     EditSearchAndReplace
1286     Kontext "FindAndReplace"
1287         SearchFor.SetText "He1"
1288         Sleep 1
1289         SearchAll.Click
1290         Sleep 1
1291     FindAndReplace.Close
1292     Call wTypeKeys "<Home>"
1293     Call fFormatParagraph("TabTextfluss")
1294         AbsaetzeZusammenhalten.Check
1295     TabTextfluss.OK
1296
1297     Kontext "Navigator"
1298         if Not Navigator.Exists then ViewNavigator
1299         Kontext "NavigatorWriter"
1300         Sleep 1
1301         if Seitennummer.GetText <> "2" then warnlog "The head of the 1st paragraph should be in 2nd page !"
1302     fCloseNavigator
1303
1304    'Get the head of 2nd paragarph's location
1305     EditSearchAndReplace
1306     Kontext "FindAndReplace"
1307         SearchFor.SetText "He2"
1308         Sleep 1
1309         SearchAll.Click
1310         Sleep 1
1311     FindAndReplace.Close
1312
1313     Kontext "Navigator"
1314         if Not Navigator.Exists then ViewNavigator
1315         Kontext "NavigatorWriter"
1316         Sleep 1
1317         if Seitennummer.GetText <> "2" then warnlog "The head of the 2nd paragraph should be in 2nd page !"
1318     fCloseNavigator
1319
1320    Call hCloseDocument
1321 endcase
1322
1323 '--------------------------------------------------------------------------
1324
1325 testcase tParagraphTextFlow11
1326
1327   Dim sTestFile as String
1328   Dim sLines as String
1329
1330   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
1331   sLines    = "3"
1332
1333   PrintLog "- Orphan control"
1334   '/// 'Orphan control
1335
1336    Call hNewDocument
1337
1338    '/// Open the test file
1339    '/// + There is 1 paragraph (8 lines) in the file
1340     Call hFileOpen(sTestFile)
1341     Call sMakeReadOnlyDocumentEditable
1342
1343    '/// Format/Paragraph / Text Flow
1344    '/// + Check 'Orphan control' , set 3 in 'Lines'
1345     Call fFormatParagraph("TabTextfluss")
1346         Hurenkinderregelung.Check
1347         Sleep 1
1348         HurenkinderZeilen.SetText sLines
1349     TabTextfluss.OK
1350
1351    '/// Press return 5 times to let only 3 lines are in 1st page
1352     Call wTypeKeys "<MOD1 Home>"
1353     Call wTypeKeys "<Return>" , 5
1354
1355    '/// + check if the 1st line is in 1st page
1356     Kontext "Navigator"
1357         if Not Navigator.Exists then ViewNavigator
1358         Kontext "NavigatorWriter"
1359         Sleep 1
1360         if Seitennummer.GetText <> "1" then warnlog "The 1st line should be in 1st page!"
1361     fCloseNavigator
1362
1363    '/// Press Return again
1364     Call wTypeKeys "<Return>"
1365
1366    '/// + check if the 1st line is in 2nd page
1367     Kontext "Navigator"
1368         if Not Navigator.Exists then ViewNavigator
1369         Kontext "NavigatorWriter"
1370         Sleep 1
1371         if Seitennummer.GetText <> "2" then warnlog "The 1st line should be in 2nd page!"
1372     fCloseNavigator
1373
1374    Call hCloseDocument
1375 endcase
1376
1377 '--------------------------------------------------------------------------
1378
1379 testcase tParagraphTextFlow12
1380
1381   Dim sTestFile as String
1382   Dim sLines as String
1383
1384   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\eightline.sxw")
1385   sLines    = "3"
1386
1387   PrintLog "- Widow control"
1388   '/// 'Widow control
1389
1390    Call hNewDocument
1391
1392    '/// Open the test file
1393    '/// + There is 1 paragraph (8 lines) in the file
1394     Call hFileOpen(sTestFile)
1395     Call sMakeReadOnlyDocumentEditable
1396
1397    '/// Format/Paragraph / Text Flow
1398    '/// + Check 'Widow control' , set 3 in 'Lines'
1399     Call fFormatParagraph("TabTextfluss")
1400         Schusterjungenregelung.Check
1401         Sleep 1
1402         SchusterZeilen.SetText sLines
1403     TabTextfluss.OK
1404
1405    '/// Press return to let the lastest line into 2nd page
1406     Call wTypeKeys "<MOD1 Home><Return>"
1407
1408    '/// + check if the lastest 3rd line(6th line) is in 2nd page
1409     Call wTypeKeys "<Down>"  , 5
1410     Kontext "Navigator"
1411         if Not Navigator.Exists then ViewNavigator
1412         Kontext "NavigatorWriter"
1413         Sleep 1
1414         if Seitennummer.GetText <> "2" then warnlog "The 6th line should be in 2nd page!"
1415     fCloseNavigator
1416
1417    '/// + check if the 5th line is in 1st page
1418     Call wTypeKeys "<Up>"
1419     Kontext "Navigator"
1420         if Not Navigator.Exists then ViewNavigator
1421         Kontext "NavigatorWriter"
1422         Sleep 1
1423         if Seitennummer.GetText <> "1" then warnlog "The 5th line should be in 1st page!"
1424     fCloseNavigator
1425
1426    Call hCloseDocument
1427 endcase
1428
1429 '--------------------------------------------------------------------------
1430
1431 testcase tParagraphTextFlow13
1432
1433   Dim sTestFile as String
1434   Dim i as Integer
1435
1436   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatparagraph\specialHyphenation.sxw")
1437
1438   PrintLog "- Special test for Hyphenation"
1439   '/// <b> 'Widow control </b> ///
1440
1441    Call hNewDocument
1442
1443    '/// Open the test file
1444    '/// + There is 1 word TABC in the end of the first line
1445     Call hFileOpen(sTestFile)
1446     Call sMakeReadOnlyDocumentEditable
1447
1448    '/// Press spaces in the head of the first line , we hope
1449    '/// + the whole word - 'TABC' will go to 2nd line at one time
1450     For i = 1 to 30
1451         Call wTypeKeys "<Home>"
1452         Call wTypeKeys " "
1453         Call wTypeKeys "<End>"
1454         Call wTypeKeys "<Shift Left>"
1455         EditCopy
1456         if GetClipboardText = "B" then
1457             QAErrorLog "#114094#"
1458             Exit for
1459         else
1460             if GetClipboardText <> "C" then
1461                 Exit for
1462             end if
1463         end if
1464     next i
1465
1466    Call hCloseDocument
1467 endcase
1468
1469 '--------------------------------------------------------------------------