testautomation/writer/optional/includes/section/w_section_3.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_section_3.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:35:16 $
  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 : Hide section /Protect section / Display of dialogues
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tBookmarkSection_1
  41 ' #1 tBookmarkSection_2
  42 ' #1 tFootnoteEndnoteSection_1
  43 ' #1 tFootnoteEndnoteSection_2
  44 ' #1 tFootnoteEndnoteSection_3
  45 ' #1 tFootnoteEndnoteSection_4
  46 ' #1 tFootnoteEndnoteSection_5
  47 ' #1 tFootnoteEndnoteSection_6
  48 ' #1 tMultiColumnSection_1
  49 ' #1 tMultiColumnSection_2
  50 ' #1 tMultiColumnSection_3
  51 ' #1 tOperationSection_1
  52 ' #1 tOperationSection_2
  53 ' #1 tOperationSection_3
  54 ' #1 tPasswordProtectSection_1
  55 ' #1 tPasswordProtectSection_2
  56 ' #1 tPasswordProtectSection_3
  57 ' #1 tPasswordProtectSection_4
  58 ' #1 tWrappedSections_1
  59 ' #1 tWrappedSections_2
  60 ' #1 tWrappedSections_3
  61 ' #1 tWrappedSections_4
  62 ' #1 tWrappedSections_5
  63 ' #1 tWrappedSections_6
  64 ' #1 tWrappedSections_7
  65 '*
  66 '\***********************************************************************
  67
  68 sub w_section_3
  69
  70     printLog Chr(13) + "---------   Insert bookmarks into sections   ----------"
  71     Call tBookmarkSection_1          'Insert bookmarks into section, jump to
  72     Call tBookmarkSection_2          'Insert bookmarks into a protect section, jump to
  73
  74     printLog Chr(13) + "---------   Footnotes/Endnotes in sections   ----------"
  75     Call tFootnoteEndnoteSection_1       'select Text, that contains foot-/endnotes, insert section
  76     Call tFootnoteEndnoteSection_2       'insert footnote into text of an existing section
  77     Call tFootnoteEndnoteSection_3       'footnote text must be protected  in a protected section
  78     Call tFootnoteEndnoteSection_4       'linked sections, where source section contains footnotes , footnote text must be also protected
  79     Call tFootnoteEndnoteSection_5       'footnotes in hidden areas 1 footnote text must also be hidden
  80     Call tFootnoteEndnoteSection_6       'ALL footnotes appear before the endnotes
  81
  82     printLog Chr(13) + "---------   Multi-column sections   ----------"
  83     Call tMultiColumnSection_1       'Create multi-column section directly when inserting via dialogue (TabPage "Columns")
  84     Call tMultiColumnSection_2       'Create multi-column section from format/section - options (TabPage "Columns")
  85     Call tMultiColumnSection_3       'Fill columns balanced -- Active
  86
  87     printLog Chr(13) + "---------   Cut/copy/paste/move/delete sections   ----------"
  88     Call tOperationSection_1          'Cut/copy/paste/move/delete sections -- Shortcut
  89     Call tOperationSection_2          'Cut/copy/paste/move/delete sections -- function bar
  90     Call tOperationSection_3          'when inserting from clipboard the sections have to be named automatically with the correct number
  91
  92     printLog Chr(13) + "---------   Password protect sections   ----------"
  93     Call tPasswordProtectSection_1          'Format - Section: check "Password protected" PW-Dialogue has to appear two times
  94     Call tPasswordProtectSection_2          'reload document, Format-section 1 PW-Dialog has to appear
  95     Call tPasswordProtectSection_3          'try wrong password ,Error massage should appear, sections-dialogue not accessible
  96     Call tPasswordProtectSection_4          'Remove password protection by unchecking, reload document, Format-sections 'PW-dialogue' should NOT appear
  97
  98     printLog Chr(13) + "---------   Wrapping and Wrapped sections   ----------"
  99     Call tWrappedSections_1          'select Text inside a section and insert a section
 100     Call tWrappedSections_2          'select text across a section an insert a section
 101     Call tWrappedSections_3          'wrapped sections are following properties of the wrapping section - write protection
 102     Call tWrappedSections_4          'wrapped sections are following properties of the wrapping section - visibility
 103     Call tWrappedSections_5          'wrapped sections are following properties of the wrapping section - Foot-/endnote position
 104     Call tWrappedSections_6          'The formatting of columns of sectionWrapping and sectionWrapped can be configured separately
 105     Call tWrappedSections_7          'The background graphic of sectionWrapping and sectionWrapped can be configured separately
 106
 107 end sub
 108
 109 '***********************************************************************
 110
 111 testcase tBookmarkSection_1
 112
 113     Dim sectionName as String
 114     Dim testText as String
 115     Dim bookmarkName as String
 116
 117     sectionName  = "bookmarkSection"
 118     bookmarkName = "myBookmark"
 119     testText     = "Hello World"
 120
 121     PrintLog "   - Insert bookmarks into a section, jump to"
 122
 123     Call hNewDocument
 124
 125     PrintLog " insert a section , and input Text"
 126     Call wTypeKeys testText
 127     Call wTypeKeys "<Shift Home>"
 128     fInsertSection(sectionName)
 129
 130     PrintLog " insert a bookmark in front of Text"
 131     try
 132         fInsertBookmark(bookmarkName)
 133     catch
 134         Warnlog "   Insert a bookmark into a section failed"
 135     endcatch
 136
 137     printlog "set the focus end of Text, make sure no text is marked."
 138     Call wTypeKeys "<End><SPACE><BACKSPACE>"
 139
 140     PrintLog " active Navigator, double click the bookmark which be inserted,"
 141     PrintLog " + then the focus should be in front of $testText"
 142     Call wNavigatorAuswahl(6,1, true)
 143     Auswahlliste.TypeKeys "<return>"
 144     sleep(1)
 145 '    Call wTypeKeys "<Shift End>"  'Outcommented since the bookmark also selects the text. Just like it was when it got bookmarked.
 146 '    sleep(1)
 147     EditCopy
 148     sleep(1)
 149     if GetClipboardText <> testText then Warnlog "The focus is NOT in front of " +testText
 150
 151     printlog "Close Navigator before close the document"
 152     fCloseNavigator
 153
 154     Call hCloseDocument
 155 endcase
 156
 157 '--------------------------------------------------
 158
 159 testcase tBookmarkSection_2
 160
 161     Dim sectionName as String
 162     Dim testText as String
 163     Dim bookmarkName as String
 164
 165     sectionName  = "bookmarkSection"
 166     bookmarkName = "myBookmark"
 167     testText     = "Hello World"
 168
 169     PrintLog "   - Jump to for bookmarks in a protect section"
 170
 171     Call hNewDocument
 172     sleep(2)
 173     PrintLog " Open options and check 'Direct-Cursor' in options"
 174     Call fCheckDirectCursor
 175     sleep(2)
 176     PrintLog " insert a bookmark in front of Text"
 177     Call fInsertBookmark(bookmarkName)
 178     sleep(2)
 179     PrintLog " insert Text"
 180     Call wTypeKeys testText
 181     Call wTypeKeys "<Shift Home>"
 182     sleep(1)
 183     PrintLog " insert a section with protect option"
 184     InsertSection
 185     sleep(2)
 186     Kontext
 187     Active.Setpage TabBereiche
 188     Kontext "TabBereiche"
 189     Bereichsliste.Settext sectionName
 190     Geschuetzt.Check
 191     TabBereiche.OK
 192     sleep(2)
 193
 194     PrintLog " set the focus end of Text"
 195     Call wTypeKeys "<End>"
 196     sleep(2)
 197     PrintLog " active Navigator, double click the bookmark which be inserted,"
 198     PrintLog " + then the focus should be in front of Text"
 199     Call wNavigatorAuswahl(6,1, true)
 200     sleep(2)
 201     Auswahlliste.TypeKeys "<down><return>"
 202     sleep(2)
 203     Call wTypeKeys "<Shift End>"
 204     sleep(1)
 205     EditCopy
 206     sleep(2)
 207     if GetClipboardText <> testText then Warnlog "The focus is NOT in front of " & testText
 208     printlog "Close Navigator before close the document"
 209     Call fCloseNavigator
 210     sleep(1)
 211     Call hCloseDocument
 212 endcase
 213
 214 '----------------------------------------------------------
 215
 216 testcase tFootnoteEndnoteSection_1
 217
 218     Dim sectionName as String
 219     Dim testText as String
 220     Dim preMessage as String
 221
 222     sectionName  = "FootnoteEndnoteSection"
 223     testText     = "This is footnotes/endnotes test"
 224
 225     PrintLog "   - Insert a section that contains foot-/endnotes"
 226
 227     Call hNewDocument
 228
 229     PrintLog " insert footnote in front of Text"
 230     fInsertFootnote("automatic")
 231     Call wTypeKeys "<PageUp>"
 232
 233     PrintLog " insert some test words"
 234     Call wTypeKeys testText
 235
 236     PrintLog " insert endnote at end of Text"
 237     fInsertEndnote("automatic")
 238     Call wTypeKeys "<PageUp>"
 239
 240     EditSelectAll
 241     sleep(1)
 242     EditCopy
 243     sleep(1)
 244     preMessage = GetClipBoardtext
 245
 246     PrintLog " insert a section which include Text, foot-/endnotes"
 247     try
 248        fInsertSection(sectionName)
 249        EditSelectAll
 250        sleep(1)
 251        EditCopy
 252        sleep(1)
 253        if GetClipboardText <> preMessage then Warnlog "There is something changed aftering inserting the section which include Text, foot-/endnotes"
 254     catch
 255        Warnlog "   Could NOT insert a section which include Text, foot-/endnotes"
 256     endcatch
 257
 258     Call hCloseDocument
 259 endcase
 260
 261 '----------------------------------------------------------
 262
 263 testcase tFootnoteEndnoteSection_2
 264
 265     Dim sectionName as String
 266     Dim testText as String
 267     Dim preMessage as String
 268
 269     sectionName  = "FootnoteEndnoteSection"
 270     testText     = "This is footnotes/endnotes test"
 271
 272     PrintLog "   - insert footnote/endnote into text of an existing section "
 273
 274     Call hNewDocument
 275
 276     PrintLog " insert some test words"
 277     Call wTypeKeys testText
 278     Call wTypeKeys "<Shift Home>"
 279
 280     PrintLog " insert a section which include Text"
 281     fInsertSection(sectionName)
 282
 283     Call wTypeKeys "<Home>"
 284
 285     PrintLog " insert footnote into the section"
 286     try
 287        fInsertFootnote("automatic")
 288     catch
 289        Warnlog "   Could NOT insert a footnote into the section"
 290     endcatch
 291
 292     Call wTypeKeys "<PageUp><End>"
 293
 294     PrintLog " insert endnote into the section"
 295     try
 296        fInsertEndnote("automatic")
 297     catch
 298        Warnlog "   Could NOT insert a endnote into the section"
 299     endcatch
 300
 301     Call hCloseDocument
 302 endcase
 303
 304 '----------------------------------------------------------
 305
 306 testcase tFootnoteEndnoteSection_3
 307
 308     Dim sectionName as String
 309     Dim preMessage as String
 310
 311     sectionName  = "FootnoteEndnoteSection"
 312
 313     PrintLog "   - footnote text must be protected  in a protected section"
 314
 315     Call hNewDocument
 316
 317     PrintLog " Open options and check 'Direct-Cursor' in options"
 318     fCheckDirectCursor
 319
 320     PrintLog " insert a footnote"
 321     fInsertFootnote("automatic")
 322     Call wTypeKeys "<PageUp>"
 323
 324     PrintLog " insert a endnote"
 325     fInsertEndnote("automatic")
 326     Call wTypeKeys "<PageUp>"
 327
 328     EditSelectAll
 329     sleep(1)
 330     EditCopy
 331     sleep(1)
 332
 333     preMessage = GetClipBoardtext
 334
 335     PrintLog " insert a section with protect option"
 336     InsertSection
 337     sleep 1
 338     Kontext
 339     Active.Setpage TabBereiche
 340     Kontext "TabBereiche"
 341     Bereichsliste.Settext sectionName
 342     Geschuetzt.Check
 343     TabBereiche.OK
 344     sleep 2
 345
 346     EditSelectAll
 347     sleep(1)
 348     EditCopy
 349     sleep(1)
 350
 351     if GetClipBoardtext = preMessage then
 352         Call wTypeKeys "<Space>"
 353         Kontext "Active"
 354         if Active.Exists then
 355             Active.ok
 356         else
 357             Warnlog "-  No warning when trying to write in protected area!"
 358         end if
 359     else
 360         Warnlog "Testtool couldn't find the protected area!"
 361     end if
 362
 363     Call hCloseDocument
 364 endcase
 365
 366 '----------------------------------------------------------
 367
 368 testcase tFootnoteEndnoteSection_4
 369
 370     Dim sectionName as String
 371     Dim sourceSectionName as String
 372     Dim testText as String
 373     Dim preMessage as String
 374
 375     sectionName       = "FootnoteEndnoteSection"
 376     sourceSectionName = "NormalSection"
 377     testText          = "The test is in source section"
 378
 379     if Dir (gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt") <> "" then kill (gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt")
 380
 381         PrintLog "   - linked sections, where source section contains footnotes , footnote text must be also protected "
 382
 383     PrintLog " insert a footnote in a section, then save the file"
 384     Call hNewDocument
 385
 386     fInsertFootnote("automatic")
 387     Call wTypeKeys "<PageUp>"
 388
 389     Call wTypeKeys testText
 390
 391     fInsertEndnote("automatic")
 392     Call wTypeKeys "<PageUp>"
 393
 394     Call wTypeKeys "<Shift Home>"
 395     fInsertSection(sourceSectionName)
 396
 397     EditSelectAll
 398     sleep(1)
 399     EditCopy
 400     sleep(1)
 401     preMessage = GetClipBoardtext
 402
 403     Call hFileSaveAsKill (gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt")
 404     Call hCloseDocument
 405
 406     Call hNewDocument
 407
 408     PrintLog " Open options and check 'Direct-Cursor' in options"
 409     fCheckDirectCursor
 410
 411     PrintLog " insert a section with link option"
 412     InsertSection
 413     sleep 1
 414     Kontext
 415     Active.Setpage TabBereiche
 416     Kontext "TabBereiche"
 417     Bereichsliste.Settext sectionName
 418     Verknuepfung.Check
 419
 420     DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\tFootnoteEndnoteSection_4.odt")
 421     TabBereiche.OK
 422     sleep 2
 423
 424     EditSelectAll
 425     sleep(1)
 426     EditCopy
 427     sleep(1)
 428
 429     PrintLog " the footnote should be protected"
 430     if GetClipBoardtext = preMessage then
 431         Call wTypeKeys "<Space>"
 432         Kontext "Active"
 433         if Active.Exists then
 434             Active.ok
 435         else
 436             Warnlog "-  No warning when trying to write in protected area!"
 437         end if
 438     else
 439         Warnlog "Testtool couldn't find the protected area!"
 440     end if
 441
 442     Call hCloseDocument
 443 endcase
 444
 445 '----------------------------------------------------------
 446
 447 testcase tFootnoteEndnoteSection_5
 448     Dim sectionName as String
 449     sectionName  = "FootnoteEndnoteSection"
 450     printlog "   - Footnotes in hidden areas 1 footnote text must also be hidden"
 451     Call hNewDocument
 452
 453     PrintLog " Insert a footnote"
 454     fInsertFootnote("automatic")
 455     Call wTypeKeys "<PAGEUP>"
 456     PrintLog " Insert a endnote"
 457     fInsertEndnote("automatic")
 458     Call wTypeKeys "<PAGEUP>"
 459     Call wTypeKeys "<HOME>"
 460     Call wTypeKeys "<RETURN>"
 461     Call wTypeKeys "<SHIFT END>"
 462     PrintLog " Insert a section with hide option"
 463     InsertSection
 464     sleep(1)
 465     Kontext
 466     Active.Setpage TabBereiche
 467     Kontext "TabBereiche"
 468         Bereichsliste.Settext sectionName
 469         Ausblenden.Check
 470     TabBereiche.OK
 471     sleep(1)
 472     try
 473         EditSelectAll
 474         sleep(1)
 475         EditCopy
 476         sleep(1)
 477         warnlog "'Edit / Copy' is usable but if there is nothing in the document (hidden section in footnote) it should be disabled!"
 478     catch
 479         printlog "Clipboard should be and is empty."
 480     endcatch
 481
 482     Call hCloseDocument
 483 endcase
 484
 485 '----------------------------------------------------------
 486
 487 testcase tFootnoteEndnoteSection_6
 488
 489     Dim sectionName as String
 490
 491     sectionName  = "FootnoteEndnoteSection"
 492
 493     PrintLog "   - ALL footnotes appear before the endnotes "
 494
 495     Call hNewDocument
 496
 497     fInsertSection(sectionName)
 498     Call wTypeKeys "<Up>"
 499
 500     PrintLog " insert the first footnote"
 501     fInsertFootnote("automatic")
 502     Call wNavigatorAuswahl(7,1, true)
 503     if Seitennummer.GetText <> "1" then warnlog "The first footnote should be in the first page"
 504     fCloseNavigator
 505     Call wTypeKeys "<PageUp>"
 506
 507     PrintLog " insert a endnote"
 508     fInsertEndnote("automatic")
 509     Call wNavigatorAuswahl(7,1, true)
 510     if Seitennummer.GetText <> "2" then warnlog "The first endnote should be in the second page"
 511     fCloseNavigator
 512     Call wTypeKeys "<PageUp>"
 513
 514     PrintLog " insert the second footnote"
 515     fInsertFootnote("automatic")
 516     Call wNavigatorAuswahl(7,1, true)
 517     if Seitennummer.GetText <> "1" then warnlog "The second footnote should be in the first page"
 518     fCloseNavigator
 519
 520     Call hCloseDocument
 521 endcase
 522
 523 '----------------------------------------------------------
 524
 525 testcase tMultiColumnSection_1
 526
 527     Dim columnNumber as String
 528
 529     columnNumber  =  "3"
 530
 531     PrintLog "   - Create multi-column section directly when inserting via dialogue (TabPage 'Columns')"
 532
 533     Call hNewDocument
 534
 535     PrintLog " insert a section(insert/section with TabPage 'Columns',"
 536     PrintLog " + set column to $columnNumber"
 537     InsertSection
 538     sleep 1
 539
 540     Kontext
 541     Active.Setpage TabSpalten
 542     Kontext "TabSpalten"
 543     Anzahl.Settext columnNumber
 544     TabSpalten.OK
 545     sleep 1
 546
 547     Kontext
 548     FormatSections
 549     Kontext "BereicheBearbeiten"
 550     Optionen.Click
 551
 552     Kontext
 553     Active.Setpage TabSpalten
 554     Kontext "TabSpalten"
 555
 556     'Check volumn number
 557     if Anzahl.Gettext <> columnNumber then  Warnlog "The volumn we hope is " +columnNumber +" but get " + Anzahl.Gettext
 558
 559     'Check volumn width
 560     if Spaltenbreite1.Gettext <> Spaltenbreite2.Gettext OR Spaltenbreite1.Gettext <> Spaltenbreite3.Gettext then Warnlog "column width is NOT Balance"
 561
 562     TabSpalten.Cancel
 563
 564     Kontext
 565     Kontext "BereicheBearbeiten"
 566     BereicheBearbeiten.Cancel
 567
 568     Call hCloseDocument
 569
 570 endcase
 571
 572 '----------------------------------------------------------
 573
 574 testcase tMultiColumnSection_2
 575
 576     Dim columnNumber , sectionName as String
 577
 578     sectionName   =  "MultiColumnSection"
 579     columnNumber  =  "3"
 580
 581     PrintLog "   - Create multi-column section from format/section - options (TabPage Columns)"
 582
 583     Call hNewDocument
 584
 585     PrintLog " insert a section with only 1 culumn, that means a normal section"
 586     fInsertSection(sectionName)
 587
 588     PrintLog " change the volumn number (format/section) with"
 589     PrintLog " + TabPage 'Columns', set column to $columnNumber"
 590     Kontext
 591     FormatSections
 592     Kontext "BereicheBearbeiten"
 593     Optionen.Click
 594
 595     Kontext
 596     Active.Setpage TabSpalten
 597     Kontext "TabSpalten"
 598
 599     'Set volumn number
 600     Anzahl.Settext columnNumber
 601     TabSpalten.OK
 602
 603     Kontext
 604     Kontext "BereicheBearbeiten"
 605     BereicheBearbeiten.OK
 606
 607     PrintLog " Check the volumn number"
 608     Kontext
 609     FormatSections
 610     Kontext "BereicheBearbeiten"
 611     Optionen.Click
 612
 613     Kontext
 614     Active.Setpage TabSpalten
 615     Kontext "TabSpalten"
 616
 617     'Check volumn number
 618     if Anzahl.Gettext <> columnNumber then  Warnlog "The volumn we hope is " +columnNumber +" but get " + Anzahl.Gettext
 619
 620     TabSpalten.Cancel
 621
 622     Kontext
 623     Kontext "BereicheBearbeiten"
 624     BereicheBearbeiten.Cancel
 625
 626     Call hCloseDocument
 627 endcase
 628
 629 '----------------------------------------------------------
 630
 631 testcase tMultiColumnSection_3
 632
 633     Dim columnNumber as String
 634     Dim testText1 as String
 635     Dim testText2 as String
 636     Dim i as Integer
 637
 638     columnNumber  =  "2"
 639     testText1     =  "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUV"
 640     testText2     =  "-"
 641
 642     PrintLog " fill columns balanced -- Active"
 643
 644     PrintLog " when text inserted into a section, the columns have"
 645     PrintLog " + to be filled equally"
 646
 647     PrintLog "   - fill columns balanced -- Active"
 648
 649     Call hNewDocument
 650
 651     PrintLog " input some text , less 1 line"
 652     Call wTypeKeys testText1
 653     EditSelectAll
 654
 655     PrintLog " insert a section ,set column to $columnNumber"
 656     InsertSection
 657     sleep 1
 658
 659     Kontext
 660     Active.Setpage TabSpalten
 661     Kontext "TabSpalten"
 662     Anzahl.Settext columnNumber
 663     TabSpalten.OK
 664     sleep 1
 665
 666     Call wTypeKeys "<Escape>"
 667
 668     PrintLog " input '-' in the end of the text check if"
 669     PrintLog " + the '-' will appare to second colum"
 670     For i = 0 to 100
 671         Call wTypeKeys testText2
 672         Call wTypeKeys "<Shift Home>"
 673         sleep(1)
 674         EditCopy
 675         sleep(1)
 676         if GetClipboardText = testText2 then goto GoON
 677         Call wTypeKeys "<Escape>"
 678         Call wTypeKeys "<End>"
 679     next i
 680     Warnlog "We can't get " +hopeResult2 +" in second column"
 681
 682 GoON:
 683     Call hCloseDocument
 684 endcase
 685
 686 '----------------------------------------------------------
 687
 688 testcase tOperationSection_1
 689     Dim testText1 as String
 690     Dim testText2 as String
 691     Dim testText3 as String
 692     Dim sectionName as String
 693
 694     sectionName   =  "OperationSection"
 695     testText1     =  "The operation CUT  for Section test"
 696     testText2     =  "The operation COPY for Section test"
 697     testText3     =  "The operation DELETE for Section test"
 698
 699     PrintLog "   - Cut/copy/paste/move/delete sections - Via key shortcuts"
 700
 701     Call hNewDocument
 702
 703     PrintLog " insert a section"
 704     Call wTypeKeys "<Return>"
 705     fInsertSection(sectionName)
 706     Call wTypeKeys "<Up>"
 707     Call wTypeKeys testText1
 708     Call wTypeKeys "<Up>"
 709     EditSelectAll
 710
 711     PrintLog " Cut section"
 712     Call wTypeKeys "<Mod1 x>"
 713
 714     try
 715         FormatSections
 716         Kontext "BereicheBearbeiten"
 717         BereicheBearbeiten.Cancel
 718         Warnlog "Cut section is failed!"
 719     catch
 720    endcatch
 721
 722     PrintLog " Paste section"
 723     Call wTypeKeys "<Mod1 v>"
 724
 725     'start up Navigator
 726     Call wNavigatorAuswahl(7,1, true)
 727     PrintLog " 1)check section name"
 728     if Auswahlliste.GetSelText = sectionName then
 729         PrintLog " 2)check the content in section"
 730         Call wTypeKeys "<home><Shift End>"
 731         sleep(1)
 732         EditCopy
 733         sleep(1)
 734         if GetClipboardText <> testText1 then  Warnlog "The content is the section is NOT right in cut/paste section!"
 735     else
 736         warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
 737     end if
 738
 739     'Close Navigator before close the document
 740     Kontext
 741     Call fCloseNavigator
 742
 743     Call hCloseDocument
 744
 745     Call hNewDocument
 746
 747     PrintLog " insert a section"
 748     Call wTypeKeys "<Return>"
 749     Call fInsertSection(sectionName)
 750     Call wTypeKeys "<Up>"
 751     Call wTypeKeys testText2
 752     Call wTypeKeys "<Up>"
 753     EditSelectAll
 754
 755     PrintLog " Copy section"
 756     Call wTypeKeys "<Mod1 c>"
 757
 758     Call hCloseDocument
 759
 760     Call hNewDocument
 761
 762     'Paste section
 763     Call wTypeKeys "<Mod1 v>"
 764
 765     'start up Navigator
 766     Call wNavigatorAuswahl(7,1, true)
 767
 768     PrintLog " 1)check section name"
 769     if Auswahlliste.GetSelText = sectionName then
 770         PrintLog " 2)check the content in section"
 771         sleep 1
 772         Call wTypeKeys "<home><Shift End>"
 773         sleep(1)
 774         EditCopy
 775         sleep(1)
 776         if GetClipboardText <> testText2 then  Warnlog "The content is the section is NOT right in copy/paste section!"
 777     else
 778         warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
 779     end if
 780
 781     printlog "'Close Navigator before close the document"
 782     Call fCloseNavigator
 783
 784     Call hCloseDocument
 785
 786     Call hNewDocument
 787
 788     PrintLog " insert a section"
 789     Call wTypeKeys "<Return>"
 790     Call fInsertSection(sectionName)
 791     Call wTypeKeys "<Up>"
 792     Call wTypeKeys testText3
 793     Call wTypeKeys "<Up>"
 794     EditSelectAll
 795
 796     PrintLog " delete the section"
 797     Call wTypeKeys "<Delete>"
 798
 799     PrintLog " check if section exists or not"
 800     try
 801         FormatSections
 802         Kontext "BereicheBearbeiten"
 803         BereicheBearbeiten.Cancel
 804         Warnlog "Delete section is failed!"
 805     catch
 806     endcatch
 807
 808     Call hCloseDocument
 809 endcase
 810
 811 '----------------------------------------------------------
 812
 813 testcase tOperationSection_2
 814
 815     Dim testText1 as String
 816     Dim testText2 as String
 817     Dim testText3 as String
 818     Dim sectionName as String
 819
 820     sectionName   =  "OperationSection"
 821     testText1     =  "The operation CUT  for Section test"
 822     testText2     =  "The operation COPY for Section test"
 823     testText3     =  "The operation DELETE for Section test"
 824
 825     PrintLog "   - Cut/copy/paste/move/delete sections - Via function bar"
 826
 827     Call hNewDocument
 828
 829     PrintLog " insert a section"
 830     Call wTypeKeys "<Return>"
 831     Call fInsertSection(sectionName)
 832     Call wTypeKeys "<Up>"
 833     Call wTypeKeys testText1
 834     Call wTypeKeys "<Up>"
 835     EditSelectAll
 836     sleep 1
 837     PrintLog " Cut section"
 838     Kontext "Standardbar"
 839     Ausschneiden.Click
 840
 841     try
 842         FormatSections
 843         Kontext "BereicheBearbeiten"
 844         BereicheBearbeiten.Cancel
 845         Warnlog "Cut section is failed!"
 846     catch
 847     endcatch
 848
 849     PrintLog " Paste section"
 850     Kontext "Standardbar"
 851     Einfuegen.Click
 852
 853     'start up Navigator
 854     Call wNavigatorAuswahl(7,1, true)
 855
 856     PrintLog " 1)check section name"
 857     if Auswahlliste.GetSelText = sectionName then
 858         PrintLog " 2)check the content in section"
 859         Call wTypeKeys "<home><Shift End>"
 860         sleep(1)
 861         EditCopy
 862         sleep(1)
 863         if GetClipboardText <> testText1 then  Warnlog "The content is the section is NOT right in cut/paste section!"
 864     else
 865         warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
 866     end if
 867
 868     printlog "Close Navigator before close the document"
 869     Call fCloseNavigator
 870     Call hCloseDocument
 871     Call hNewDocument
 872
 873     PrintLog " insert a section"
 874     Call wTypeKeys "<Return>"
 875     Call fInsertSection(sectionName)
 876     Call wTypeKeys "<Up>"
 877     Call wTypeKeys testText2
 878     Call wTypeKeys "<Up>"
 879     EditSelectAll
 880     sleep 1
 881
 882     PrintLog " Copy section"
 883     Kontext "Standardbar"
 884     Kopieren.Click
 885
 886     Call hCloseDocument
 887
 888     Call hNewDocument
 889
 890     PrintLog " Paste section"
 891     Kontext "Standardbar"
 892     Einfuegen.Click
 893
 894     'start up Navigator
 895     Call wNavigatorAuswahl(7,1, true)
 896
 897     PrintLog " 1)check section name"
 898     if Auswahlliste.GetSelText = sectionName then
 899         PrintLog " 2)check the content in section"
 900         sleep 1
 901         Call wTypeKeys "<home><Shift End>"
 902         sleep(1)
 903         EditCopy
 904         sleep(1)
 905         if GetClipboardText <> testText2 then  Warnlog "The content is the section is NOT right in copy/paste section!"
 906     else
 907         warnlog "The Section Name is wrong, should be " + sectionName +" but get " +Auswahlliste.GetSelText
 908     end if
 909
 910     Call fCloseNavigator
 911     Call hCloseDocument
 912 endcase
 913
 914 '----------------------------------------------------------
 915
 916 testcase tOperationSection_3
 917
 918     Dim sectionName  as String
 919
 920     PrintLog " when inserting from clipboard the sections have to be named automatically"
 921     PrintLog " + with the correct number, means:"
 922     PrintLog " + when copying 1 section inside a document, the new section must be"
 923     PrintLog " + named 'Section2' automatically, if the copied section is named Section1"
 924
 925     PrintLog "   - when inserting from clipboard the sections have to be named automatically with the correct number"
 926
 927     sectionName = gDefaultSectionName + 2
 928
 929     PrintLog " New document"
 930     Call hNewDocument
 931     Call wTypeKeys "<Return>"
 932
 933     PrintLog " Insert a section with default name"
 934     InsertSection
 935     sleep 1
 936     Kontext
 937     Kontext "TabBereiche"
 938     TabBereiche.OK
 939     sleep 1
 940
 941     PrintLog " Copy and Paste the section into the document"
 942     EditSelectAll
 943     sleep(1)
 944     EditCopy
 945     sleep(1)
 946     Call wTypeKeys "<Escape>"
 947     sleep(1)
 948     EditPaste
 949
 950     Kontext
 951     FormatSections
 952     sleep(1)
 953     Kontext "BereicheBearbeiten"
 954     Bereich.TypeKeys "<Up>",2
 955     Bereich.TypeKeys "<Down>"
 956
 957     if  BereichsName.GetText <> sectionName then warnlog "We hope the section name is " & sectionName & " but get " & BereichsName.GetText
 958     BereicheBearbeiten.Cancel
 959
 960     PrintLog " Close document"
 961     Call hCloseDocument
 962 endcase
 963
 964 '----------------------------------------------------------
 965
 966 testcase tPasswordProtectSection_1
 967
 968     Dim Password as String
 969     Dim newPassword as String
 970
 971     Password    = "protectedarea"
 972     newPassword = "newProtectedArea"
 973
 974     PrintLog "   - Format - Section: check 'Password protected' 1 PW-Dialogue has to appear two times "
 975
 976     Call hNewDocument
 977
 978     PrintLog " Insert a section with password"
 979     InsertSection
 980     sleep 1
 981     Kontext
 982     Active.Setpage TabBereiche
 983     Kontext "TabBereiche"
 984     Geschuetzt.Check
 985     sleep 1
 986     Passwort.Check
 987
 988     Kontext "BereicheSchuetzen"
 989      PasswortName.Settext Password
 990      PasswortBestaetigen.Settext Password
 991     BereicheSchuetzen.Ok
 992
 993     Kontext
 994     Kontext "TabBereiche"
 995     TabBereiche.OK
 996
 997     FormatSections
 998     Kontext "BereicheBearbeiten"
 999
1000     EnterPasswort.Click
1001
1002     Kontext
1003     Kontext "BereicheSchuetzen"
1004
1005     PrintLog " PassWord-Dialogue should  appear first time"
1006     if BereicheSchuetzen.NotExists then
1007         Warnlog "Unable to enter passwort for section, because dialog is not up!"
1008     else
1009         PasswortName.Settext Password
1010         BereicheSchuetzen.Ok
1011         sleep 1
1012
1013        PrintLog " + PW-Dialogue should  appear second time"
1014         if BereicheSchuetzen.NotExists then
1015              Warnlog "Unable to enter passwort for section, because dialog is not up!"
1016         else
1017              PasswortName.Settext newPassword
1018              PasswortBestaetigen.Settext newPassword
1019              BereicheSchuetzen.Ok
1020
1021              Kontext
1022              Kontext "BereicheBearbeiten"
1023              PrintLog " + 'Password protected' checkbox must be checked after inputing new password"
1024              if Passwort.IsChecked <> TRUE then Warnlog "The 'password protected' checkbox should be checked"
1025         end if
1026     end if
1027
1028     Kontext
1029     Kontext "BereicheBearbeiten"
1030     BereicheBearbeiten.OK
1031
1032     Call hCloseDocument
1033 endcase
1034
1035 '----------------------------------------------------------
1036
1037 testcase tPasswordProtectSection_2
1038
1039     Dim Password as String
1040
1041     Password = "protectedarea"
1042
1043     if Dir (gOfficePath + "user\work\tPasswordProtectSection_2.odt") <> "" then
1044         kill (gOfficePath + "user\work\tPasswordProtectSection_2.odt")
1045     end if
1046     PrintLog "   - reload document, Format-section 1 PW-Dialog has to appear "
1047
1048     Call hNewDocument
1049
1050     PrintLog " Insert a section with password , and save the file"
1051     InsertSection
1052     sleep 1
1053     Kontext
1054     Active.Setpage TabBereiche
1055     Kontext "TabBereiche"
1056     Geschuetzt.Check
1057     sleep 1
1058     Passwort.Check
1059
1060     Kontext "BereicheSchuetzen"
1061     PasswortName.Settext Password
1062     PasswortBestaetigen.Settext Password
1063     BereicheSchuetzen.Ok
1064
1065     Kontext "TabBereiche"
1066     TabBereiche.OK
1067
1068     Call hFileSaveAsKill (gOfficePath + "user\work\tPasswordProtectSection_2.odt")
1069
1070     Call hCloseDocument
1071
1072     PrintLog " Reload the file"
1073     Call hFileOpen (gOfficePath + "user\work\tPasswordProtectSection_2.odt")
1074
1075     FormatSections
1076     Kontext "BereicheBearbeiten"
1077
1078     Optionen.Click
1079
1080     Kontext "BereicheSchuetzen"
1081     PrintLog " PassWord-Dialogue should appear when clicking 'option' button"
1082     if BereicheSchuetzen.NotExists then
1083         Warnlog "Unable to enter passwort for section, because dialog is not up!"
1084     else
1085         BereicheSchuetzen.Cancel
1086     end if
1087
1088     Kontext "BereicheBearbeiten"
1089     BereicheBearbeiten.Cancel
1090
1091     Call hCloseDocument
1092 endcase
1093
1094 '----------------------------------------------------------
1095
1096 testcase tPasswordProtectSection_3
1097
1098     Dim Password as String
1099     Dim wrongPassword as String
1100
1101     Password       = "protectedarea"
1102     wrongPassword  = "wrongPW"
1103
1104     PrintLog "   - Input wrong password ,Error massage should appear, sections-dialogue not accessible "
1105
1106     Call hNewDocument
1107
1108     PrintLog " Insert a section with password"
1109     InsertSection
1110     sleep 1
1111     Kontext
1112     Active.Setpage TabBereiche
1113     Kontext "TabBereiche"
1114     Geschuetzt.Check
1115     sleep 1
1116     Passwort.Check
1117
1118     Kontext "BereicheSchuetzen"
1119      PasswortName.Settext Password
1120      PasswortBestaetigen.Settext Password
1121     BereicheSchuetzen.Ok
1122
1123     Kontext "TabBereiche"
1124     TabBereiche.OK
1125
1126     FormatSections
1127     Kontext "BereicheBearbeiten"
1128
1129     EnterPasswort.Click
1130
1131     Kontext "BereicheSchuetzen"
1132
1133     PasswortName.Settext wrongPassword
1134
1135     BereicheSchuetzen.Ok
1136     sleep 1
1137
1138     Kontext
1139     Kontext "Active"
1140     if Active.Exists then
1141         if Active.GetRT <> 304 then  warnlog "Error message box is NOT up! The active box is " +Active.GetRT
1142         Active.OK
1143     else
1144         Warnlog "Error message box is NOT up!"
1145     end if
1146
1147     Kontext
1148     Kontext "BereicheBearbeiten"
1149     BereicheBearbeiten.Cancel
1150     Call hCloseDocument
1151 endcase
1152
1153 '----------------------------------------------------------
1154
1155 testcase tPasswordProtectSection_4
1156
1157     Dim Password as String
1158
1159     Password = "protectedarea"
1160
1161     if Dir (gOfficePath + "user\work\tPasswordProtectSection_4.odt") <> "" then
1162         kill (gOfficePath + "user\work\tPasswordProtectSection_4.odt")
1163     end if
1164
1165     PrintLog "   - Remove password protection by unchecking, reload document, Format-sections 'PW-dialogue' may not appear"
1166
1167     Call hNewDocument
1168
1169     PrintLog " Insert a section with password"
1170     InsertSection
1171     sleep 1
1172     Kontext
1173     Active.Setpage TabBereiche
1174     Kontext "TabBereiche"
1175     Geschuetzt.Check
1176     sleep 1
1177     Passwort.Check
1178
1179     Kontext "BereicheSchuetzen"
1180     PasswortName.Settext Password
1181     PasswortBestaetigen.Settext Password
1182     BereicheSchuetzen.Ok
1183
1184     Kontext "TabBereiche"
1185     TabBereiche.OK
1186
1187     PrintLog " Remove the password protection and save the file"
1188     FormatSections
1189     Kontext "BereicheBearbeiten"
1190
1191     Passwort.Uncheck
1192     Kontext "BereicheSchuetzen"
1193     PrintLog " PassWord-Dialogue should appear when clicking 'option' button"
1194     if BereicheSchuetzen.NotExists then
1195         Warnlog "Unable to uncheck password for section, because dialog is not up!"
1196     else
1197         PasswortName.Settext Password
1198         BereicheSchuetzen.OK
1199     end if
1200
1201     Kontext "BereicheBearbeiten"
1202     BereicheBearbeiten.OK
1203
1204     Call hFileSaveAsKill (gOfficePath + "user\work\tPasswordProtectSection_4.odt")
1205
1206     Call hCloseDocument
1207
1208     PrintLog " Reload the file"
1209     Call hFileOpen (gOfficePath + "user\work\tPasswordProtectSection_4.odt")
1210
1211     PrintLog " In format/section, PW-Dialogue should appear when clicking 'option' button"
1212     FormatSections
1213     Kontext "BereicheBearbeiten"
1214
1215     Optionen.Click
1216
1217     Kontext "BereicheSchuetzen"
1218
1219     if BereicheSchuetzen.Exists then
1220         Warnlog "Unable to enter passwort for section, because dialog is not up!"
1221         PasswortName.Settext Password
1222         BereicheSchuetzen.OK
1223     end if
1224
1225     Kontext
1226     Active.Setpage TabSpalten
1227     Kontext "TabSpalten"
1228     TabSpalten.Cancel
1229
1230     Kontext "BereicheBearbeiten"
1231     BereicheBearbeiten.Cancel
1232
1233     Call hCloseDocument
1234
1235 endcase
1236
1237
1238 '****************************************************************************
1239 '** After the Wrapping section and Wrapped section are generated, the display
1240 '** is like
1241 '**
1242 '** This is                          <----|--------------------
1243 '** wrapped   <---- Wrapped section  <----| Wrapping section
1244 '** sections test                    <----|--------------------
1245 '*****************************************************************************
1246 testcase tWrappedSections_1
1247
1248     Dim wrappingSection as String
1249     Dim wrappedSection as String
1250     Dim testText as String
1251
1252     wrappingSection =  "wrappingSection"
1253     wrappedSection  =  "wrappedSection"
1254     testText        =  "This is wrapped section test"
1255
1256     PrintLog "   - select Text inside a section and insert a section "
1257
1258     Call hNewDocument
1259
1260     PrintLog " insert wrapping section"
1261     Call wTypeKeys testText
1262     EditSelectAll
1263     fInsertSection(wrappingSection)
1264
1265     Call wTypeKeys "<Home>"
1266     Call wTypeKeys "<Mod1 Right>",2
1267     Call wTypeKeys "<Mod1 Shift Right>"
1268
1269     try
1270         PrintLog " insert wrapped section"
1271         fInsertSection(wrappedSection)
1272
1273         Kontext
1274         FormatSections
1275         Kontext "BereicheBearbeiten"
1276         Bereich.TypeKeys "<Up>"
1277
1278         if  BereichsName.GetText <> wrappingSection then Warnlog "The wrapping section names is wrong : " +BereichsName.GetText
1279         Bereich.TypeKeys "<Down>"
1280         if  BereichsName.GetText <> wrappedSection then Warnlog "The wrapped section names is wrong : " +BereichsName.GetText
1281
1282         BereicheBearbeiten.Cancel
1283     catch
1284         Warnlog "Can't generate wrapped section"
1285     endcatch
1286
1287     Call hCloseDocument
1288
1289 endcase
1290
1291 '----------------------------------------------------------
1292
1293 testcase tWrappedSections_2
1294
1295     Dim wrappingSection as String
1296     Dim wrappedSection as String
1297     Dim testTextInFirstline as String
1298     Dim testTextInSecondline as String
1299
1300     wrappingSection      =  "wrappingSection"
1301     wrappedSection       =  "wrappedSection"
1302     testTextInFirstline  =  "This is wrapped section test in first line"
1303     testTextInSecondline =  "This is wrapped section test in second line"
1304
1305     printlog "   - select text across a section an insert a section "
1306     Call hNewDocument
1307
1308     PrintLog " Insert wrapped section"
1309     Call wTypeKeys "<Return>"
1310     Call wTypeKeys(testTextInFirstline)
1311     Call wTypeKeys "<Return>"
1312     Call wTypeKeys(testTextInSecondline)
1313     Call wTypeKeys "<MOD1 HOME><SHIFT END>"
1314     Call fInsertSection(wrappedSection)
1315
1316     EditSelectAll
1317     try
1318         PrintLog " Insert wrapping section"
1319         Call fInsertSection(wrappingSection)
1320         Kontext
1321         FormatSections
1322         Kontext "BereicheBearbeiten"
1323         Bereich.TypeKeys "<UP>"
1324         if BereichsName.GetText <> wrappingSection then
1325             QAErrorLog "#102552# - The wrapping section names is wrong."
1326         end if
1327         Bereich.TypeKeys "<Down>"
1328         if BereichsName.GetText <> wrappedSection then
1329             QAErrorLog "#102552# - The wrapped section names is wrong."
1330         end if
1331         BereicheBearbeiten.Cancel
1332      catch
1333          Warnlog "Can't generate wrapping section"
1334      endcatch
1335
1336     Call hCloseDocument
1337 endcase
1338
1339 '----------------------------------------------------------
1340
1341 testcase tWrappedSections_3
1342
1343     Dim wrappingSection as String
1344     Dim wrappedSection as String
1345     Dim testText as String
1346     Dim contentInWrappedSection as String
1347
1348     wrappingSection =  "wrappingSection"
1349     wrappedSection  =  "wrappedSection"
1350     testText        =  "This is wrapped section test"
1351     contentInWrappedSection = "wrapped "
1352
1353     PrintLog "   - wrapped sections are following properties of the wrapping section - write protection"
1354
1355     Call hNewDocument
1356
1357     PrintLog " Open options and check 'Direct-Cursor' in options"
1358     fCheckDirectCursor
1359
1360     PrintLog " insert wrapping section"
1361     Call wTypeKeys testText
1362     EditSelectAll
1363     fInsertSection(wrappingSection)
1364
1365     Call wTypeKeys "<Home>"
1366     Call wTypeKeys "<Mod1 Right>",2
1367     Call wTypeKeys "<Mod1 Shift Right>"
1368
1369     PrintLog " insert wrapped section"
1370     fInsertSection(wrappedSection)
1371
1372     PrintLog " format/section, choose protect in wrappingSection"
1373     Kontext
1374     FormatSections
1375     Kontext "BereicheBearbeiten"
1376     Bereich.TypeKeys "<Up>"
1377     Geschuetzt.Check
1378     BereicheBearbeiten.OK
1379
1380     Call wTypeKeys "<Home><Shift End>"
1381     sleep(1)
1382     EditCopy
1383     sleep(1)
1384     if GetClipBoardtext = contentInWrappedSection then
1385         Call wTypeKeys "<Space>"
1386         Kontext "Active"
1387         if Active.Exists then
1388             Active.ok
1389         else
1390             Warnlog "-  No warning when trying to write in protected area!"
1391         end if
1392     else
1393         Warnlog "The focus is NOT in the wrapped section!"
1394     end if
1395     Call hCloseDocument
1396 endcase
1397
1398 '----------------------------------------------------------
1399
1400 testcase tWrappedSections_4
1401
1402     Dim wrappingSection as String
1403     Dim wrappedSection as String
1404     Dim testText as String
1405
1406     wrappingSection =  "wrappingSection"
1407     wrappedSection  =  "wrappedSection"
1408     testText        =  "This is wrapped section test"
1409
1410     printlog "   - wrapped sections are following properties of the wrapping section - visibility"
1411
1412     Call hNewDocument
1413
1414     PrintLog " insert wrapping section"
1415     Call wTypeKeys "<RETURN>"
1416     Call wTypeKeys testText
1417     Call wTypeKeys "<SHIFT HOME>"
1418     Call fInsertSection(wrappingSection)
1419     Call wTypeKeys "<HOME>"
1420     Call wTypeKeys "<MOD1 RIGHT>" , 2
1421     Call wTypeKeys "<MOD1 SHIFT RIGHT>"
1422     PrintLog " insert wrapped section"
1423     Call fInsertSection(wrappedSection)
1424     PrintLog " format/section, choose hide checkbox in wrappingSection"
1425     Kontext
1426     FormatSections
1427     Kontext "BereicheBearbeiten"
1428     Bereich.TypeKeys "<UP>"
1429     Ausblenden.check
1430     BereicheBearbeiten.OK
1431
1432     try
1433         EditSelectAll
1434         sleep(1)
1435         EditCopy
1436         sleep(1)
1437         warnlog "There should be nothing visible in the document but 'Edit / Copy' is available!"
1438         warnlog "Clipboard: " & GetClipBoardtext
1439     catch
1440         printlog "All sections are invisible."
1441     endcatch
1442
1443     Call hCloseDocument
1444 endcase
1445
1446 '----------------------------------------------------------
1447
1448 testcase tWrappedSections_5
1449
1450     Dim wrappingSection as String
1451     Dim wrappedSection as String
1452     Dim testText as String
1453
1454     wrappingSection =  "wrappingSection"
1455     wrappedSection  =  "wrappedSection"
1456     testText        =  "This is wrapped section test"
1457
1458     PrintLog "   - wrapped sections are following properties of the wrapping section - Foot-/endnote position"
1459
1460     Call hNewDocument
1461     PrintLog " insert wrapping section"
1462     Call wTypeKeys testText
1463     EditSelectAll
1464     Call fInsertSection(wrappingSection)
1465
1466     Call wTypeKeys "<Home>"
1467     Call wTypeKeys "<Mod1 Right>",2
1468     Call wTypeKeys "<Mod1 Shift Right>"
1469
1470     PrintLog " insert wrapped section"
1471     fInsertSection(wrappedSection)
1472
1473     PrintLog " format/section, choose wrappingSection , then press options button,"
1474     PrintLog " + then tabpage footnotes/endnotes ,"
1475     PrintLog " + check collect at end of text in footnotes area and"
1476     PrintLog " + check collect at end of text in endnotes area"
1477     Kontext
1478     FormatSections
1479     Kontext "BereicheBearbeiten"
1480     Bereich.TypeKeys "<Up>"
1481     'press options button
1482     Optionen.Click
1483
1484     'tabpage footnotes/endnotes
1485     Kontext
1486     Active.Setpage TabFussEndnoten
1487     Kontext "TabFussEndnoten"
1488
1489     'check collect at end of text in footnotes area and
1490     'check collect at end of text in endnotes area
1491     FussnotenAmTextendeSammeln.Check
1492     EndnotenAmBereichsendeSammeln.Check
1493
1494     TabFussEndnoten.OK
1495     Kontext "BereicheBearbeiten"
1496     BereicheBearbeiten.OK
1497
1498     PrintLog " format/section again, choose wrappedSection , then press options button,"
1499     PrintLog " + then tabpage footnotes/endnotes ,"
1500     PrintLog " + check if collect at end of text in footnotes area and"
1501     PrintLog " + collect at end of text in endnotes area are checked"
1502     FormatSections
1503     Kontext "BereicheBearbeiten"
1504     Bereich.TypeKeys "<Down>"
1505     'press options button
1506     Optionen.Click
1507
1508     'tabpage footnotes/endnotes
1509     Kontext
1510     Active.Setpage TabFussEndnoten
1511     Kontext "TabFussEndnoten"
1512
1513     PrintLog " check if collect at end of text in footnotes area is checked"
1514     if FussnotenAmTextendeSammeln.IsChecked <> TRUE then
1515         Warnlog "The footnotes check option is NOT checked in wrappedSection"
1516     end if
1517
1518     PrintLog " check if collect at end of text in endnotes area  is checked"
1519     if EndnotenAmBereichsendeSammeln.IsChecked  <> TRUE then
1520         Warnlog "The endnotes check option is NOT checked in wrappedSection"
1521     end if
1522
1523     TabFussEndnoten.Cancel
1524
1525     Kontext "BereicheBearbeiten"
1526     BereicheBearbeiten.Cancel
1527
1528     Call hCloseDocument
1529 endcase
1530
1531 '----------------------------------------------------------
1532
1533 testcase tWrappedSections_6
1534
1535     Dim wrappingSection as String
1536     Dim wrappedSection as String
1537     Dim testText as String
1538     Dim columnInwrappingSection as String
1539     Dim columnInwrappedSection as String
1540
1541     wrappingSection         =  "wrappingSection"
1542     wrappedSection          =  "wrappedSection"
1543     testText                =  "This is wrapped section test"
1544     columnInwrappingSection =  "2"
1545     columnInwrappedSection  =  "3"
1546
1547     PrintLog "   - The formatting of columns of sectionWrapping and sectionWrapped can be configured separately"
1548
1549     Call hNewDocument
1550
1551     PrintLog " insert wrapping section"
1552     Call wTypeKeys testText
1553     EditSelectAll
1554     fInsertSection(wrappingSection)
1555
1556     Call wTypeKeys "<Home>"
1557     Call wTypeKeys "<Mod1 Right>",2
1558     Call wTypeKeys "<Mod1 Shift Right>"
1559
1560     PrintLog " insert wrapped section"
1561     fInsertSection(wrappedSection)
1562
1563     PrintLog " format/section, choose wrappingSection , then press options button,"
1564     PrintLog " + then tabpage columns, set columns to $columnInwrappingSection"
1565     FormatSections
1566     Kontext "BereicheBearbeiten"
1567     Bereich.TypeKeys "<Up>"
1568     'press options button
1569     Optionen.Click
1570
1571     Kontext
1572     Active.Setpage TabSpalten
1573     Kontext "TabSpalten"
1574
1575     'Set column to $columnInwrappingSection
1576     Anzahl.Settext columnInwrappingSection
1577     TabSpalten.OK
1578
1579     PrintLog " format/section, choose wrappedSection , then press options button,"
1580     PrintLog " + then tabpage columns, set columns to $columnInwrappedSection"
1581     Kontext "BereicheBearbeiten"
1582     Bereich.TypeKeys "<Down>"
1583     'press options button
1584     Optionen.Click
1585
1586     Kontext
1587     Active.Setpage TabSpalten
1588     Kontext "TabSpalten"
1589
1590     'Set column to $columnInwrappedSection
1591     Anzahl.Settext columnInwrappedSection
1592     TabSpalten.OK
1593
1594     Kontext "BereicheBearbeiten"
1595     BereicheBearbeiten.OK
1596
1597     PrintLog " format/section again, then check if columns is configured separately"
1598     'check columns in wrappingSection
1599     Kontext
1600     FormatSections
1601     Kontext "BereicheBearbeiten"
1602     Bereich.TypeKeys "<Up>"
1603     Optionen.Click
1604
1605     Kontext
1606     Active.Setpage TabSpalten
1607     Kontext "TabSpalten"
1608     if Anzahl.Gettext <> columnInwrappingSection then
1609         Warnlog "The volumn in wrappingSection should be " +columnInwrappingSection +" but get " + Anzahl.Gettext
1610     end if
1611     TabSpalten.Cancel
1612
1613     'check columns in wrappedSection
1614     Kontext "BereicheBearbeiten"
1615     Bereich.TypeKeys "<Down>"
1616     Optionen.Click
1617
1618     Kontext
1619     Active.Setpage TabSpalten
1620     Kontext "TabSpalten"
1621     if Anzahl.Gettext <> columnInwrappedSection then
1622         Warnlog "The volumn in wrappedSection should be " +columnInwrappedSection +" but get " + Anzahl.Gettext
1623     end if
1624     TabSpalten.Cancel
1625
1626     Kontext "BereicheBearbeiten"
1627     BereicheBearbeiten.Cancel
1628     Call hCloseDocument
1629 endcase
1630
1631 '----------------------------------------------------------
1632
1633 testcase tWrappedSections_7
1634
1635     Dim wrappingSection as String
1636     Dim wrappedSection as String
1637     Dim testText as String
1638     Dim testFileWrapping , testFileWrapped    as String
1639
1640     wrappingSection  =  "wrappingSection"
1641     wrappedSection   =  "wrappedSection"
1642     testText         =  "This is wrapped section test"
1643     testFileWrapping =   ConvertPath ( gTesttoolPath + "writer\optional\input\graphics\jolink.jpg")
1644     testFileWrapped  =   ConvertPath ( gTesttoolPath + "writer\optional\input\graphics\bild.jpg")
1645
1646     PrintLog "   - The background graphic of sectionWrapping and sectionWrapped can be configured separately"
1647
1648     Call hNewDocument
1649     PrintLog " insert wrapping section"
1650     Call wTypeKeys testText
1651     EditSelectAll
1652     Call fInsertSection(wrappingSection)
1653
1654     Call wTypeKeys "<Home>"
1655     Call wTypeKeys "<Mod1 Right>",2
1656     Call wTypeKeys "<Mod1 Shift Right>"
1657
1658     PrintLog " insert wrapped section"
1659     Call fInsertSection(wrappedSection)
1660
1661     PrintLog " format/section,"
1662     PrintLog " + choose wrappingSection , then press options button ,"
1663     PrintLog " + then tabpage backgroud / graphic, browse a picture ,"
1664     PrintLog " + choose 'Position' in type ."
1665     FormatSections
1666     Kontext "BereicheBearbeiten"
1667     Bereich.TypeKeys "<Up>"
1668     'press options button
1669     Optionen.Click
1670
1671     Kontext
1672     Active.SetPage TabHintergrund
1673     sleep 1
1674     Kontext "TabHintergrund"
1675
1676     Als.Select (2)
1677     sleep 1
1678     Durchsuchen.click
1679
1680     Kontext "GrafikEinfuegenDlg"
1681     Dateiname.SetText testFileWrapping
1682     sleep 1
1683     Oeffnen.Click
1684     sleep 2
1685
1686     Kontext "TabHintergrund"
1687     Position.Check
1688
1689     TabHintergrund.OK
1690     PrintLog " choose wrappingSection , then press options button ,"
1691     PrintLog " + then tabpage backgroud / graphic, browse a picture ,"
1692     PrintLog " + choose 'area' in type ."
1693     Kontext "BereicheBearbeiten"
1694     Bereich.TypeKeys "<Down>"
1695     'press options button
1696     Optionen.Click
1697
1698     Kontext
1699     Active.SetPage TabHintergrund
1700     sleep 1
1701     Kontext "TabHintergrund"
1702
1703     Als.Select (2)
1704     sleep 1
1705     Durchsuchen.click
1706
1707     Kontext "GrafikEinfuegenDlg"
1708     Dateiname.SetText testFileWrapped
1709     sleep 1
1710     Oeffnen.Click
1711     sleep 2
1712
1713     Kontext "TabHintergrund"
1714     Flaeche.Check
1715     TabHintergrund.OK
1716
1717     Kontext "BereicheBearbeiten"
1718     BereicheBearbeiten.OK
1719
1720     PrintLog " format/section again,"
1721     PrintLog " + choose wrappingSection , then press options button,"
1722     PrintLog " + then tabpage background / graphic,"
1723     PrintLog " + check if 'Position' is checked in type"
1724     FormatSections
1725     Kontext "BereicheBearbeiten"
1726     Bereich.TypeKeys "<Up>"
1727     'press options button
1728     Optionen.Click
1729
1730     Kontext
1731     Active.SetPage TabHintergrund
1732     sleep 1
1733     Kontext "TabHintergrund"
1734     Als.Select (2)
1735     sleep 1
1736
1737     if Position.IsChecked <> TRUE then
1738         Warnlog "'Position' is NOT checked in type"
1739     end if
1740
1741     TabHintergrund.Cancel
1742
1743     PrintLog " choose wrappedSection , then press options button,"
1744     PrintLog " + then tabpage backgroud / graphic,"
1745     PrintLog " + check if 'Area' is checked in type ."
1746     Kontext "BereicheBearbeiten"
1747     Bereich.TypeKeys "<Down>"
1748     'press options button
1749     Optionen.Click
1750
1751     Kontext
1752     Active.SetPage TabHintergrund
1753     sleep 1
1754     Kontext "TabHintergrund"
1755     Als.Select (2)
1756     sleep 1
1757
1758     if Flaeche.IsChecked <> TRUE then
1759         Warnlog "'Area' is NOT checked in type"
1760     end if
1761     TabHintergrund.Cancel
1762
1763     Kontext "BereicheBearbeiten"
1764     BereicheBearbeiten.Cancel
1765
1766     Call hCloseDocument
1767 endcase