testautomation/writer/optional/includes/section/w_section_4.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_4.inc,v $
  10 '*
  11 '* $Revision: 1.4 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:35:27 $
  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 : Functional-Test for Section.
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tSectionInTables_1
  41 ' #1 tSectionInTables_2
  42 ' #1 tSectionInTables_3
  43 ' #1 tSectionInTables_4
  44 ' #1 tSectionInTables_5
  45 ' #1 tSectionInTables_6
  46 ' #1 tSectionInTables_7
  47 ' #1 tSectionInFootnotes_1
  48 ' #1 tSectionInFootnotes_2
  49 ' #1 tEditSection_1
  50 ' #1 tEditSection_2
  51 ' #1 tEditSection_3
  52 ' #1 tEditSection_4
  53 ' #1 tEditSection_5
  54 ' #1 tParagraphSection_1
  55 ' #1 tParagraphSection_2
  56 ' #1 tParagraphSection_3
  57 ' #1 tScenarioSection_1
  58 ' #1 tScenarioSection_2
  59 ' #1 tCTLSection_1
  60 ' #1 tCTLSection_2
  61 '*
  62 '\***********************************************************************
  63
  64 sub w_section_4
  65
  66    printLog Chr(13) + "- Sections in special areas -"
  67
  68    printLog Chr(13) + "--- Sections in tables ---"
  69      Call tSectionInTables_1          'insert section in empty cell
  70      Call tSectionInTables_2          'select text in a cell and insert section
  71      Call tSectionInTables_3          'insert multicolumn-section into cell
  72      Call tSectionInTables_4          'insert footnote into section which is in table
  73      Call tSectionInTables_5          'hide section in cell, resize cell via key shortcuts, make section visible again
  74      Call tSectionInTables_6          'insert a section when you have a multi-selection in a table must be impossible
  75      Call tSectionInTables_7          'insert a section when cells are selected must be impossible
  76
  77    printLog Chr(13) + "--- Sections in footnote areas  ---"
  78      Call tSectionInFootnotes_1       'insert a simple section over some words or lines
  79      Call tSectionInFootnotes_2       'insert section into footnote that spreads over several pages
  80
  81    printLog Chr(13) + "- Edit sections later on (via Format - Sections...) -"
  82      Call tEditSection_1              'uncheck "Autowidth" and vary width manually
  83      Call tEditSection_2              'hide section
  84      Call tEditSection_3              'protect section
  85      Call tEditSection_4              'remove link(s), also via Edit - Links
  86      Call tEditSection_5              'Remove section
  87
  88    printLog Chr(13) + "- section breaks (several following sections) -"
  89      Call tParagraphSection_1         'Keep paragraphs together
  90      Call tParagraphSection_2         'paragraph spacing
  91      Call tParagraphSection_3         'paragraph borders
  92
  93    printLog Chr(13) + "- Test scenarios -"
  94      Call tScenarioSection_1          'create Masterdocument from another document that also contains sections
  95      Call tScenarioSection_2          'create Masterdocument from another document that also contains sections and footnotes
  96
  97    printLog Chr(13) + "- CTL specials -"
  98      Call tCTLSection_1               'CTL specials -- insert/sections /Columns
  99      Call tCTLSection_2               'CTL specials -- format/section/options /Columns
 100
 101 end sub
 102
 103 '***********************************************************************
 104
 105 testcase tSectionInTables_1
 106
 107   Dim tableName as String
 108   Dim columnNumber as String
 109   Dim rowNumber as String
 110   Dim sectionName as String
 111
 112   tableName     = "testTable"
 113   columnNumber  = "4"
 114   rowNumber     = "2"
 115
 116   sectionName   = "tableSection"
 117
 118   '/// insert section in empty cell ///
 119    PrintLog "      - insert section in empty cell  "
 120
 121     Call hNewDocument
 122
 123    '/// insert a table
 124     Call fInsertTable(tableName , columnNumber, rowNumber)
 125
 126    '/// insert section in empty cell
 127     try
 128         Call fInsertSection(sectionName)
 129
 130       ' Check the section name is correct or NOT (Format/Section)
 131         Kontext
 132         FormatSections
 133         Kontext "BereicheBearbeiten"
 134         if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
 135         BereicheBearbeiten.Cancel
 136     catch
 137         Warnlog "insert section in empty cell failed"
 138     endcatch
 139
 140     Call hCloseDocument
 141
 142 endcase
 143
 144 '-------------------------------------------------------------
 145
 146 testcase tSectionInTables_2
 147
 148   Dim tableName as String
 149   Dim columnNumber as String
 150   Dim rowNumber as String
 151   Dim testText as String
 152   Dim sectionName as String
 153
 154   tableName     = "testTable"
 155   columnNumber  = "4"
 156   rowNumber     = "2"
 157   testText      = "Table-Section"
 158
 159   sectionName   = "tableSection"
 160
 161   '/// select text in a cell and insert section  ///
 162    PrintLog "      - select text in a cell and insert section   "
 163
 164     Call hNewDocument
 165
 166    '/// insert a table
 167     Call fInsertTable(tableName , columnNumber, rowNumber)
 168
 169    '/// input some test text in the table
 170     Call wTypeKeys testText
 171
 172    '/// select text
 173     Call wTypeKeys "<Shift Home>"
 174
 175    '/// insert section include select text
 176     try
 177         Call fInsertSection(sectionName)
 178
 179       ' Check the section name is correct or NOT (Format/Section)
 180         Kontext
 181         FormatSections
 182         Kontext "BereicheBearbeiten"
 183         if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
 184         BereicheBearbeiten.Cancel
 185
 186       ' Check the content in section is correct or NOT
 187         Call wTypeKeys "<Home>"
 188         Call wTypeKeys "<Shift End>"
 189         EditCopy
 190         if GetClipBoardText <> testText then Warnlog "The content in section is NOT right : " +GetClipBoardText
 191
 192     catch
 193         Warnlog "insert section which include text failed"
 194     endcatch
 195
 196     Call hCloseDocument
 197
 198 endcase
 199
 200 '---------------------------------------------------------------
 201
 202 testcase tSectionInTables_3
 203
 204   Dim tableName as String
 205   Dim columnNumber as String
 206   Dim rowNumber as String
 207   Dim sectionName as String
 208   Dim columnInSection as String
 209
 210   tableName       = "testTable"
 211   columnNumber    = "4"
 212   rowNumber       = "2"
 213   sectionName     = "tableSection"
 214   columnInSection = "3"
 215
 216   '/// insert multicolumn-section into cell  ///
 217    PrintLog "      - insert multicolumn-section into cell  "
 218
 219     Call hNewDocument
 220
 221    '/// insert a table
 222     Call fInsertTable(tableName , columnNumber, rowNumber)
 223
 224    '/// insert section with column = columnInSection in empty cell
 225     try
 226         InsertSection
 227         Sleep 1
 228
 229         Kontext
 230         Active.Setpage TabBereiche
 231         Kontext "TabBereiche"
 232         Bereichsliste.Settext sectionName
 233
 234         Kontext
 235         Active.Setpage TabSpalten
 236         Kontext "TabSpalten"
 237         Anzahl.Settext columnInSection
 238         TabSpalten.OK
 239         sleep 1
 240
 241       ' Check the section name is correct or NOT (Format/Section)
 242         Kontext
 243         FormatSections
 244         Kontext "BereicheBearbeiten"
 245         if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
 246
 247       ' Check the section column is correct or NOT (options button)
 248         Optionen.Click
 249         Kontext
 250         Active.Setpage TabSpalten
 251         Kontext "TabSpalten"
 252         if Anzahl.Gettext <> columnInSection then  Warnlog "The volumn should be " +columnInSection +" but get " + Anzahl.Gettext
 253         TabSpalten.Cancel
 254
 255         Kontext
 256         Kontext "BereicheBearbeiten"
 257         BereicheBearbeiten.Cancel
 258     catch
 259         Warnlog "insert section in empty cell failed"
 260     endcatch
 261
 262     Call hCloseDocument
 263
 264 endcase
 265
 266 '------------------------------------------------------------------------
 267
 268 testcase tSectionInTables_4
 269
 270   Dim tableName as String
 271   Dim columnNumber as String
 272   Dim rowNumber as String
 273   Dim sectionName as String
 274   Dim footNote as String
 275   Dim endNote as String
 276
 277   tableName     = "testTable"
 278   columnNumber  = "4"
 279   rowNumber     = "2"
 280
 281   sectionName   = "tableSection"
 282   footNote      = "Foot"
 283   endNote       = "End"
 284
 285   '///insert footnote into section which is in table  ///
 286    PrintLog "      - insert footnote into section which is in table "
 287
 288    Call hNewDocument
 289
 290    '/// insert a table
 291     Call fInsertTable(tableName , columnNumber, rowNumber)
 292
 293     try
 294        '/// insert section
 295         Call fInsertSection(sectionName)
 296
 297         Call wTypeKeys "<Up>"
 298
 299        '/// insert a footnote
 300         Call fInsertFootnote("character",footNote)
 301
 302         Call wTypeKeys "<PageUp>"
 303
 304        '/// insert a endnote
 305         fInsertEndnote("character",endNote)
 306
 307         Call wTypeKeys "<PageUp>"
 308
 309        '/// Check the section name is correct or NOT (Format/Section)
 310         Kontext
 311         FormatSections
 312         Kontext "BereicheBearbeiten"
 313         if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
 314         BereicheBearbeiten.Cancel
 315
 316        '/// Check the footnote and endnote are correct or NOT
 317         Call wTypeKeys "<Shift Home>"
 318         EditCopy
 319         if GetClipBoardText <> footNote+endNote then Warnlog "The footnote/endnote are NOt inserted into section correctly!"
 320     catch
 321         Warnlog "insert section in empty cell failed"
 322     endcatch
 323
 324     Call hCloseDocument
 325
 326 endcase
 327
 328 '-----------------------------------------------------------------------------
 329
 330 testcase tSectionInTables_5
 331     Dim tableName as String
 332     Dim columnNumber as String
 333     Dim rowNumber as String
 334     Dim testText as String
 335     Dim sectionName as String
 336
 337     tableName     = "testTable"
 338     columnNumber  = "4"
 339     rowNumber     = "2"
 340     testText      = "Hide-Section"
 341     sectionName   = "tableSection"
 342
 343     '/// Hide section in cell, resize cell via key shortcuts, make section visible again   ///
 344     printlog "      - hide section in cell, resize cell via key shortcuts, make section visible again"
 345     Call hNewDocument
 346
 347      '/// insert a table
 348      Call wTypeKeys "<RETURN>"
 349      Call fInsertTable(tableName , columnNumber, rowNumber)
 350      '/// input some test text , select text and insert a section with hide option
 351      Call wTypeKeys testText
 352      Call wTypeKeys "<SHIFT HOME>"
 353      try
 354          InsertSection
 355          Kontext
 356              Active.Setpage TabBereiche
 357              Kontext "TabBereiche"
 358                  Bereichsliste.Settext sectionName
 359                  Ausblenden.check
 360              TabBereiche.OK
 361              sleep(1)
 362          '/// Check the content in section is hidden or NOT
 363          SetClipboard = ""
 364          Call wTypeKeys "<LEFT><DOWN>"
 365          Call wTypeKeys "<SHIFT END>"
 366          try
 367              EditCopy
 368          catch
 369              printlog "There is no text in the document. Good."
 370          endcatch
 371          if GetClipboardText = "" then
 372              '/// Resize cell via key shortcuts
 373              Call wTypeKeys "<MOD1 MOD2 RIGHT>" , 2
 374              '/// UnCheck hide option (Format/Section)
 375              Kontext
 376              FormatSections
 377              Kontext "BereicheBearbeiten"
 378                  Ausblenden.Uncheck
 379              BereicheBearbeiten.OK
 380              sleep(2)
 381              Call wTypeKeys "<LEFT><HOME>"
 382              Call wTypeKeys "<SHIFT END>"
 383              EditCopy
 384              if GetClipBoardText <> testText then warnlog "The content in section should be visible but get : " & GetClipBoardText
 385          else
 386              QAErrorLog "#99460# The content in section is NOT hidden!"
 387          end if
 388      catch
 389          warnlog "insert section which include text failed"
 390      endcatch
 391
 392     Call hCloseDocument
 393 endcase
 394
 395 '------------------------------------------------------------------
 396
 397 testcase tSectionInTables_6
 398
 399   Dim tableName as String
 400   Dim columnNumber as String
 401   Dim rowNumber as String
 402   Dim testText as String
 403   Dim selectedString as String
 404   Dim sectionName as String
 405
 406   tableName       =  "testTable"
 407   columnNumber    =  "4"
 408   rowNumber       =  "2"
 409   testText        =  "Mul-s-Mul"
 410   selectedString  =  "Mul"
 411
 412   sectionName     =  "tableSection"
 413
 414   '/// insert a section when you have a multi-selection in a table must be impossible  ///
 415    PrintLog "      - insert a section when you have a multi-selection in a table must be impossible"
 416
 417     Call hNewDocument
 418
 419    '/// insert a table
 420     Call fInsertTable(tableName , columnNumber, rowNumber)
 421
 422    '/// input some words and do multi-selection
 423     Call wTypeKeys testText
 424     fMultiSelection(selectedString)
 425
 426    '/// insert section
 427     try
 428         Call fInsertSection(sectionName)
 429         Warnlog "Create section should be impossible!"
 430     catch
 431     endcatch
 432
 433     Call hCloseDocument
 434
 435 endcase
 436
 437 '---------------------------------------------------------------
 438
 439 testcase tSectionInTables_7
 440
 441   Dim tableName as String
 442   Dim columnNumber as String
 443   Dim rowNumber as String
 444   Dim sectionName as String
 445
 446   tableName       =  "testTable"
 447   columnNumber    =  "4"
 448   rowNumber       =  "2"
 449
 450   sectionName     =  "tableSection"
 451
 452   '/// insert a section when cells are selected must be impossible  ///
 453    PrintLog "      - insert a section when cells are selected must be impossible"
 454
 455     Call hNewDocument
 456
 457    '/// insert a table
 458     Call fInsertTable(tableName , columnNumber, rowNumber)
 459
 460    '/// more than one cell are selected
 461     Call wTypeKeys "<Shift Right>",2
 462
 463    '/// insert section
 464     try
 465         Call fInsertSection(sectionName)
 466         Warnlog "Create section should be impossible!"
 467     catch
 468     endcatch
 469
 470     Call hCloseDocument
 471
 472 endcase
 473
 474 '----------------------------------------------------------------
 475
 476 testcase tSectionInFootnotes_1
 477
 478   Dim sectionName  as String
 479
 480   sectionName = "footnoteSection"
 481
 482   '/// insert a simple section over some words or lines ///
 483    PrintLog "      - insert a simple section over some words or lines "
 484
 485    Call hNewDocument
 486
 487    '/// + insert footnote
 488     Call fInsertFootnote("automatic")
 489
 490    '/// + insert some dummy text in the footnote area
 491     wBlindtextEinfuegen
 492
 493     EditSelectAll
 494
 495    '/// + insert a section for selected words
 496     try
 497         Call fInsertSection(sectionName)
 498
 499       ' Check the section name is correct or NOT (Format/Section)
 500         Kontext
 501         FormatSections
 502         Kontext "BereicheBearbeiten"
 503         if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
 504         BereicheBearbeiten.Cancel
 505     catch
 506         Warnlog "insert a section failed !"
 507     endcatch
 508
 509    Call hCloseDocument
 510
 511 endcase
 512
 513 '--------------------------------------------------------------------
 514
 515 testcase tSectionInFootnotes_2
 516
 517   Dim sectionName  as String
 518
 519   sectionName = "footnoteSection"
 520
 521   '/// insert section into footnote that spreads over several pages ///
 522    PrintLog "      - insert section into footnote that spreads over several pages "
 523
 524    Call hNewDocument
 525
 526    '/// insert footnote
 527     Call fInsertFootnote("automatic")
 528     sleep(2)
 529    '/// insert some dummy text that spreads over several pages in the footnote area
 530     Call wBlindtextEinfuegen
 531     Call wBlindtextEinfuegen
 532     Call wBlindtextEinfuegen
 533     Call wBlindtextEinfuegen
 534     Call wBlindtextEinfuegen
 535     Call wBlindtextEinfuegen
 536     Call wBlindtextEinfuegen
 537
 538     Kontext
 539     ViewNavigator
 540     sleep(1)
 541     Kontext "NavigatorWriter"
 542
 543     '/// Check if dummy text is enough in footnote area
 544      if Seitennummer.GetText > "1" then
 545         EditSelectAll
 546         sleep(1)
 547         '/// + insert a section for selected words
 548          try
 549              Call fInsertSection(sectionName)
 550              ' Check the section name is correct or NOT (Format/Section)
 551                Kontext
 552                FormatSections
 553                Kontext "BereicheBearbeiten"
 554                if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext
 555                BereicheBearbeiten.Cancel
 556         catch
 557                Warnlog "insert a section failed !"
 558         endcatch
 559      else
 560          QAErrorLog "Not enough dummy text in the footnote area!"
 561      end if
 562     Call fCloseNavigator
 563    Call hCloseDocument
 564 endcase
 565
 566 '-----------------------------------------------------------
 567
 568 testcase tEditSection_1
 569
 570   Dim columnNumber as String
 571   Dim sectionName as String
 572   Dim width1 as String
 573   Dim width2 as String
 574
 575   sectionName   =  "MultiColumnSection"
 576   columnNumber  =  "3"
 577
 578   '/// uncheck "Autowidth" and vary width manually ///
 579    PrintLog "   - Create multi-column section from format/section - options (TabPage Columns)"
 580
 581    Call hNewDocument
 582
 583   '/// insert a section with only 1 culumn, that means a normal section
 584    Call fInsertSection(sectionName)
 585    Call wTypeKeys "<Up>"
 586
 587   '/// change the column number (format/section) with
 588   '/// + TabPage "Columns", set column to $columnNumber
 589    Kontext
 590    FormatSections
 591    Kontext "BereicheBearbeiten"
 592    Optionen.Click
 593
 594     Kontext
 595     Active.Setpage TabSpalten
 596     Kontext "TabSpalten"
 597
 598    '/// + Set column number
 599     Anzahl.Settext columnNumber
 600     Sleep 1
 601
 602    'This step is useless , but must be done ! Because after the aboved step, all control are NOT actived !
 603     Kontext
 604     Active.Setpage TabHintergrund
 605     Kontext "TabHintergrund"
 606
 607     Kontext
 608     Active.Setpage TabSpalten
 609     Kontext "TabSpalten"
 610
 611    '/// uncheck "Autowidth" and vary width manually
 612     AutomBreite.UnCheck
 613
 614     width1 = "4" + gSeperator + "00" + gMeasurementUnit
 615     width2 = "3" + gSeperator + "00" + gMeasurementUnit
 616
 617     Spaltenbreite1.Settext width1
 618     Sleep 1
 619     Spaltenbreite2.Settext width2
 620     Sleep 1
 621     TabSpalten.TypeKeys "<Tab>"
 622     Sleep 1
 623
 624     TabSpalten.OK
 625
 626     Kontext
 627     Kontext "BereicheBearbeiten"
 628     BereicheBearbeiten.OK
 629
 630     Call wTypeKeys "<Up>"
 631    '/// Check the column's width
 632     Kontext
 633     FormatSections
 634     Kontext "BereicheBearbeiten"
 635     Optionen.Click
 636
 637     Kontext
 638     Active.Setpage TabSpalten
 639     Kontext "TabSpalten"
 640
 641     if Spaltenbreite1.Gettext <> width1 then Warnlog "column1 width is NOT correct , hope to get " + width1 + " but get " +Spaltenbreite1.Gettext
 642     if Spaltenbreite2.Gettext <> width2 then Warnlog "column2 width is NOT correct , hope to get " + width2 + " but get " +Spaltenbreite2.Gettext
 643
 644     TabSpalten.Cancel
 645
 646     Kontext
 647     Kontext "BereicheBearbeiten"
 648     BereicheBearbeiten.Cancel
 649
 650     Call hCloseDocument
 651
 652 endcase
 653
 654 '------------------------------------------------------
 655
 656 testcase tEditSection_2
 657
 658     Dim sectionName as String
 659     Dim testText as String
 660
 661     sectionName   =  "HideSection"
 662     testText      =  "Hide Section"
 663
 664     '/// hide section in format/section ///
 665     printlog "   - hide section in format/section"
 666
 667     Call hNewDocument
 668
 669      '/// insert a normal section, and input some words
 670      Call wTypeKeys "<RETURN>"
 671      Call wTypeKeys testText
 672      Call wTypeKeys "<SHIFT HOME>"
 673      Call fInsertSection(sectionName)
 674      '/// Edit section with Format/Section and choose 'Hide'
 675      Kontext
 676          FormatSections
 677          Kontext "BereicheBearbeiten"
 678              Ausblenden.check
 679              BereicheBearbeiten.OK
 680              sleep(1)
 681      '/// check the section and its contents
 682      printlog "  -- check the section and its contents "
 683      try
 684          EditSelectAll
 685          EditCopy
 686          warnlog "'Edit / Copy' is usable but if there is nothing in the document (hidden section) it should be disabled!"
 687      catch
 688          printlog "Clipboard should be and is empty."
 689      endcatch
 690     Call hCloseDocument
 691 endcase
 692
 693 '-------------------------------------------------------------------
 694
 695 testcase tEditSection_3
 696
 697   Dim sectionName as String
 698   Dim testText as String
 699
 700   sectionName   =  "ProtectSection"
 701   testText      =  "Protect Section"
 702
 703   '/// protect section in format/section ///
 704    PrintLog "   - protect section in format/section"
 705
 706     Call hNewDocument
 707
 708   '/// Open options and check 'Direct-Cursor' in options ///
 709     fCheckDirectCursor
 710
 711   '/// insert a normal section, and input some words
 712     Call wTypeKeys testText
 713     Call wTypeKeys "<Shift Home>"
 714
 715     Call fInsertSection(sectionName)
 716
 717   '/// Edit section with Format/Section and choose 'Protect'
 718     Kontext
 719     FormatSections
 720     Kontext "BereicheBearbeiten"
 721     Geschuetzt.Check
 722     BereicheBearbeiten.OK
 723     sleep 1
 724
 725     Call wTypeKeys "<Home>"
 726     Call wTypeKeys "<Space>"
 727     Kontext "Active"
 728     If Active.Exists then
 729       Active.ok
 730     else
 731       Warnlog "-  No warning when trying to write in protected area!"
 732     end if
 733
 734     Call hCloseDocument
 735
 736 endcase
 737
 738 '--------------------------------------------------------
 739
 740 testcase tEditSection_4
 741
 742   Dim sectionName as String
 743   Dim testText as String
 744
 745   sectionName   =  "LinkSection"
 746   testText      =  "Link Section"
 747
 748   if Dir (gOfficePath + "user\work\tEditSection_4.odt") <> "" then kill (gOfficePath + "user\work\tEditSection_4.odt")
 749
 750   '/// remove link(s), also via Edit - Links ///
 751    PrintLog "   - remove link(s), also via Edit - Links "
 752
 753   '/// edit a test file and save it
 754    Call hNewDocument
 755    Call wTypeKeys testText
 756    Call hFileSaveAsKill (gOfficePath + "user\work\tEditSection_4.odt")
 757    Call hCloseDocument
 758
 759    Call hNewDocument
 760
 761   '/// insert a section and link the test file
 762    InsertSection
 763    Sleep 1
 764    Kontext
 765    Active.Setpage TabBereiche
 766    Kontext "TabBereiche"
 767    Bereichsliste.Settext sectionName
 768    Verknuepfung.Check
 769
 770    DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\tEditSection_4.odt")
 771    TabBereiche.OK
 772    Sleep 1
 773
 774   '/// Edit section with Format/Section and unCheck 'link'
 775    Kontext
 776    FormatSections
 777    Kontext "BereicheBearbeiten"
 778    Verknuepfung.UnCheck
 779    BereicheBearbeiten.OK
 780    sleep 1
 781
 782   '/// the test file's content should be reserved after
 783   '/// + unlinking the test file
 784    EditSelectAll
 785    EditCopy
 786    if GetClipBoardText <> testText then Warnlog "the test file's content should be reserved after unlinking the test file"
 787
 788   '/// check if the unlink is taken effect
 789    Kontext
 790    FormatSections
 791    Kontext "BereicheBearbeiten"
 792    If Verknuepfung.IsChecked = TRUE then Warnlog "The link option should be UnChecked!"
 793    BereicheBearbeiten.Cancel
 794
 795    Call hCloseDocument
 796
 797 endcase
 798
 799 '-------------------------------------------------------
 800
 801 testcase tEditSection_5
 802
 803   Dim sectionName as String
 804   Dim testText as String
 805
 806   sectionName   =  "RemoveSection"
 807   testText      =  "Remove Section Test"
 808
 809   '/// remove section via Edit - undo ///
 810    PrintLog "   - remove section via Edit - undo"
 811
 812    Call hNewDocument
 813
 814   '/// insert a normal section, and input some words
 815     Call wTypeKeys testText
 816     Call wTypeKeys "<Shift Home>"
 817     Call fInsertSection(sectionName)
 818
 819   '/// remove section with Format/Section and click undo button
 820    Kontext
 821    FormatSections
 822    Kontext "BereicheBearbeiten"
 823
 824   'click undo button
 825    Aufheben.Click
 826    Sleep 1
 827    BereicheBearbeiten.OK
 828    sleep 1
 829
 830   'check if section is still existed
 831    try
 832        Kontext
 833        FormatSections
 834        Kontext "BereicheBearbeiten"
 835        BereicheBearbeiten.Cancel
 836        Warnlog "There are should be no section existed!"
 837    catch
 838    endcatch
 839
 840   '/// the test file's content should be reserved after removing the section
 841    EditSelectAll
 842    EditCopy
 843    if GetClipBoardText <> testText then Warnlog "the test file's content should be reserved after removing the section"
 844
 845    Call hCloseDocument
 846
 847 endcase
 848
 849 '------------------------------------------------
 850
 851 testcase tParagraphSection_1
 852
 853   Dim documentName as String
 854   Dim sectionName as String
 855   Dim hopeResult as String
 856
 857    documentName  =  ConvertPath(gTesttoolpath + "writer\optional\input\section\tParagraphSection_1.sxw")
 858    sectionName   =  "ParagraphSection"
 859    hopeResult    =  "He "
 860
 861   '/// Keep paragraphs together ///
 862    PrintLog "   - Keep paragraphs together"
 863
 864   '/// Open a file with 4 paragraphs, the 4th paragraph is crossing the page
 865    Call hFileOpen(documentName)
 866    Call sMakeReadOnlyDocumentEditable
 867
 868    EditSelectAll
 869    Call fInsertSection(sectionName)
 870    Call wTypeKeys "<MOD1 End>"
 871    Call wTypeKeys "<Up>",3
 872
 873    FormatParagraph
 874    Kontext
 875    active.SetPage TabTextfluss
 876    kontext "TabTextfluss"
 877
 878   '/// Check option "Do not split paragraphs"
 879    AbsatzNichtTrennen.Check
 880
 881    TabTextfluss.OK
 882
 883    Call wTypeKeys "<MOD1 Home>"
 884
 885   'Set the focus to the head of second page
 886    Kontext
 887    ViewNavigator
 888    Kontext "NavigatorWriter"
 889    Seitennummer.SetText "2"
 890    Sleep 2
 891    fCloseNavigator
 892
 893    Call wTypeKeys "<Shift MOD1 Right>"
 894    EditCopy
 895
 896    if GetClipBoardText <> hopeResult then Warnlog "Something wrong in Keep paragraphs together test!"
 897
 898    Call hCloseDocument
 899
 900 endcase
 901
 902 '-------------------------------------------------------
 903
 904 testcase tParagraphSection_2
 905
 906     Dim sectionName as String
 907     Dim beforeTextIntent1 as String
 908     Dim afterTextIntent1 as String
 909     Dim firstTextIntent1 as String
 910     Dim beforeTextSpace1 as String
 911     Dim afterTextSpace1 as String
 912     Dim beforeTextIntent2 as String
 913     Dim afterTextIntent2 as String
 914     Dim firstTextIntent2 as String
 915     Dim beforeTextSpace2 as String
 916     Dim afterTextSpace2 as String
 917
 918     sectionName   =  "ParagraphSection"
 919
 920     '/// paragraph spacing  ///
 921     PrintLog "   - paragraph spacing "
 922
 923     Call hNewDocument
 924
 925     '/// insert first paragraph , and do some configurations
 926     if wBlindtextEinfuegen() = false then
 927         Call hCloseDocument
 928         goto endsub
 929     end if
 930
 931     if iSprache = 82 then
 932         Call wTypeKeys "<Return>"
 933     end if
 934     Call wTypeKeys "<Up>"
 935
 936     FormatParagraph
 937     Kontext
 938     active.SetPage TabEinzuegeUndAbstaende
 939     kontext "TabEinzuegeUndAbstaende"
 940
 941     beforeTextIntent1 = "0" + gSeperator + "10" + gMeasurementUnit
 942     afterTextIntent1  = "0" + gSeperator + "20" + gMeasurementUnit
 943     firstTextIntent1  = "0" + gSeperator + "30" + gMeasurementUnit
 944     beforeTextSpace1  = "0" + gSeperator + "40" + gMeasurementUnit
 945     afterTextSpace1   = "0" + gSeperator + "50" + gMeasurementUnit
 946
 947     Vonlinks.SetText   beforeTextIntent1
 948     VonRechts.SetText  afterTextIntent1
 949     ErsteZeile.SetText firstTextIntent1
 950     Oben.SetText       beforeTextSpace1
 951     Unten.SetText      afterTextSpace1
 952     Automatisch.Check
 953     Registerhaltigkeit.UnCheck
 954     TabEinzuegeUndAbstaende.OK
 955
 956     call wTypeKeys "<Down>"
 957     call wTypeKeys "<RETURN>"
 958
 959     '/// insert second paragraph , and do some configurations which is different from the first one
 960     wBlindtextEinfuegen
 961     Call wTypeKeys "<Up>"
 962
 963     FormatParagraph
 964     Kontext
 965     active.SetPage TabEinzuegeUndAbstaende
 966     kontext "TabEinzuegeUndAbstaende"
 967
 968     beforeTextIntent2 = "0" + gSeperator + "60" + gMeasurementUnit
 969     afterTextIntent2  = "0" + gSeperator + "70" + gMeasurementUnit
 970     firstTextIntent2  = "0" + gSeperator + "80" + gMeasurementUnit
 971     beforeTextSpace2  = "0" + gSeperator + "90" + gMeasurementUnit
 972     afterTextSpace2   = "0" + gSeperator + "10" + gMeasurementUnit
 973
 974     Vonlinks.SetText   beforeTextIntent2
 975     VonRechts.SetText  afterTextIntent2
 976     Automatisch.UnCheck
 977     ErsteZeile.SetText firstTextIntent2
 978     Oben.SetText       beforeTextSpace2
 979     Unten.SetText      afterTextSpace2
 980     Registerhaltigkeit.Check
 981     TabEinzuegeUndAbstaende.OK
 982
 983     EditSelectAll
 984     Call fInsertSection(sectionName)
 985
 986     'Check the first paragraph's configuration
 987     Call wTypeKeys "<MOD1 Home>"
 988     FormatParagraph
 989     Kontext
 990     active.SetPage TabEinzuegeUndAbstaende
 991     kontext "TabEinzuegeUndAbstaende"
 992
 993     if Automatisch.IsChecked <> TRUE then Warnlog "Something wrong with the checkbox 'Automatic' in first paragraph!"
 994     if Registerhaltigkeit.IsChecked = TRUE then Warnlog "Something wrong with the checkbox 'Register' in first paragraph!"
 995
 996     if Vonlinks.GetText   <>  beforeTextIntent1 then Warnlog "Something wrong with the before-text-intent-area in the first paragraph"
 997     if VonRechts.GetText  <>  afterTextIntent1 then Warnlog "Something wrong with the after-text-intent-area in the first paragraph"
 998     if ErsteZeile.GetText <>  firstTextIntent1 then Warnlog "Something wrong with the first-text-intent-area in the first paragraph"
 999     if Oben.GetText       <>  beforeTextSpace1 then Warnlog "Something wrong with the before-sparcing area in the first paragraph"
1000     if Unten.GetText      <>  afterTextSpace1 then Warnlog "Something wrong with the after-sparcing area in the first paragraph"
1001
1002     TabEinzuegeUndAbstaende.Cancel
1003
1004     Call wTypeKeys "<MOD1 End>"
1005     Call wTypeKeys "<Up>",3
1006
1007     'Check the second paragraph's configuration
1008     FormatParagraph
1009     Kontext
1010     active.SetPage TabEinzuegeUndAbstaende
1011     kontext "TabEinzuegeUndAbstaende"
1012
1013     if Automatisch.IsChecked = TRUE then Warnlog "Something wrong with the checkbox 'Automatic' in the second paragraph!"
1014     if Registerhaltigkeit.IsChecked <> TRUE then Warnlog "Something wrong with the checkbox 'Register' in the second paragraph!"
1015
1016     if Vonlinks.GetText     <>  beforeTextIntent2  then Warnlog "Something was wrong with the before-text-intent in the second paragraph!"
1017     if VonRechts.GetText <>  afterTextIntent2     then Warnlog "Something wrong with the after-text-intent in the second paragraph!"
1018     if ErsteZeile.GetText  <>  firstTextIntent2      then Warnlog "Something wrong with the first-text-intent in the second paragraph!"
1019     if Oben.GetText          <>  beforeTextSpace2 then Warnlog "Something wrong with the before-text-sparcing area in the second paragraph!"
1020     if Unten.GetText         <>  afterTextSpace2 then Warnlog "Something wrong with the after-text-sparcing area in the second paragraph!"
1021
1022     TabEinzuegeUndAbstaende.Cancel
1023
1024     Call hCloseDocument
1025
1026 endcase
1027
1028 '-------------------------------------------------------
1029
1030 testcase tParagraphSection_3
1031
1032     Dim sectionName as String
1033     Dim left1 as String
1034     Dim right1 as String
1035     Dim top1 as String
1036     Dim bottom1 as String
1037     Dim distance1 as String
1038     Dim left2 as String
1039     Dim distance2 as String
1040     Dim COMPAREvar1 as String
1041     Dim COMPAREvar2 as String
1042     Dim COMPAREvar3 as String
1043     Dim COMPAREvar4 as String
1044
1045     sectionName   =  "ParagraphSection"
1046
1047     '/// paragraph borders   ///
1048     PrintLog "   - paragraph borders  "
1049
1050     Call hNewDocument
1051
1052     '/// insert first paragraph , and do some configurations
1053     if wBlindtextEinfuegen() = false then
1054         Call hCloseDocument
1055         goto endsub
1056     end if
1057     if iSprache = 82 then
1058         Call wTypeKeys "<Return>"
1059     end if
1060     Call wTypeKeys "<Up>"
1061
1062     FormatParagraph
1063     Kontext
1064     active.SetPage TabUmrandung
1065     kontext "TabUmrandung"
1066
1067     Vorgaben.Typekeys "<home><right>"        ' 2nd from the left
1068     synchronisieren.UnCheck
1069
1070     left1     =  "0" + gSeperator + "1"
1071     right1    =  "0" + gSeperator + "2"
1072     top1      =  "0" + gSeperator + "3"
1073     bottom1   =  "0" + gSeperator + "4"
1074     distance1 =  "4" + gSeperator + "2"
1075
1076     Links.SetText  left1
1077     Rechts.SetText right1
1078     Oben.SetText   top1
1079     Unten.SetText  bottom1
1080
1081     Position.TypeKeys "<home><right>"        ' 2nd. from the left
1082     Groesse.SetText distance1
1083     SchattenFarbe.Select 2
1084     TabUmrandung.OK
1085
1086     Call wTypeKeys "<Down>",2
1087
1088     '/// insert second paragraph , and do some configurations
1089     '/// + which is different from the first one
1090     wBlindtextEinfuegen
1091     Call wTypeKeys "<Up>"
1092
1093     FormatParagraph
1094     Kontext
1095     active.SetPage TabUmrandung
1096     kontext "TabUmrandung"
1097
1098     Vorgaben.Typekeys "<home><right><right>"       ' 3nd from the left
1099     synchronisieren.Check
1100
1101     left2     =  "0" + gSeperator + "6"
1102     distance2 =  "4" + gSeperator + "7"
1103
1104     Links.SetText  left2
1105
1106     Position.TypeKeys "<home><right><right>"       ' 3nd. from the left
1107     Groesse.SetText distance2
1108     SchattenFarbe.Select 5
1109     TabUmrandung.OK
1110
1111     EditSelectAll
1112     Call fInsertSection(sectionName)
1113
1114     '<<< Check the FIRST paragraph's configuration >>>
1115     Call wTypeKeys "<MOD1 Home>"
1116
1117     FormatParagraph
1118     Kontext
1119     active.SetPage TabUmrandung
1120     kontext "TabUmrandung"
1121
1122     '   if synchronisieren.IsChecked = TRUE then Warnlog "The Synchronize option should NOT be checked in first paragraph!"
1123     COMPAREvar1 = Links.GetText
1124     COMPAREvar2 = Rechts.GetText
1125     COMPAREvar3 = Oben.GetText
1126     COMPAREvar4 = Unten.GetText
1127
1128     printlog (InStr( COMPAREvar1, left1   ) = false)
1129     if InStr( COMPAREvar1, left1 ) = false then Warnlog "Something wrong with the Left -space to contents area in first paragraph"
1130     if InStr( COMPAREvar2, right1 ) = false then Warnlog "Something wrong with the Right -space to contents area in first paragraph"
1131     if InStr( COMPAREvar3, top1 ) = false then Warnlog "Something wrong with the Top -space to contents area in first paragraph"
1132     if InStr( COMPAREvar4, bottom1 ) = false then Warnlog "Something wrong with the Bottom -space to contents area in first paragraph"
1133
1134     if InStr( Groesse.GetText, distance1 ) = false then Warnlog "Something wrong with the size in first paragraph"
1135 '    Groesse.GetText <> distance1 then Warnlog "Something wrong with the size in first paragraph"
1136     if SchattenFarbe.GetSelIndex <> 2 then Warnlog "Something wrong in shadow color in the first paragraph"
1137
1138     TabUmrandung.Cancel
1139
1140     Call wTypeKeys "<MOD1 End>"
1141     Call wTypeKeys "<Up>",3
1142
1143     '<<<Check the SECOND paragraph's configuration>>>
1144     FormatParagraph
1145     Kontext
1146     active.SetPage TabUmrandung
1147     kontext "TabUmrandung"
1148
1149     '   if synchronisieren.IsChecked <> TRUE then Warnlog "The Synchronize option should be checked in second paragraph!"
1150
1151     if  InStr( Links.GetText, left2 ) = false OR InStr( Rechts.GetText, left2 ) = false OR InStr( Oben.GetText, left2 ) = false OR InStr( Unten.GetText, left2 ) = false then
1152         Warnlog "Something wrong in space to contents area in second paragraph"
1153     end if
1154
1155     if InStr( Groesse.GetText, distance2 ) = false then Warnlog "Something wrong with the size in first paragraph"
1156     if SchattenFarbe.GetSelIndex <> 5 then Warnlog "Something wrong in shadow style area in the first paragraph"
1157
1158     TabUmrandung.Cancel
1159
1160     Call hCloseDocument
1161
1162 endcase
1163
1164 '-------------------------------------------------------
1165
1166 testcase tScenarioSection_1
1167
1168    Dim SectionName() as String
1169    Dim tempFile as String
1170    DIM sectionInMasterDoc
1171    Dim MasterDoc    as String
1172    DIM ContentInMasterDoc() as String
1173    Dim i as integer
1174    Dim j as Integer
1175    Dim temp1 as String
1176    Dim temp2 as String
1177    Dim LinkFile as String
1178
1179   '/// create Masterdocument from another document that also contains sections  ///
1180    PrintLog "   - create Masterdocument from another document that also contains sections"
1181
1182    MasterDoc = Convertpath( gOfficePath + "user\work\tScenarioSection_1.odm" )
1183
1184    SectionName = Array( _
1185                        "tScenarioSection_11.odt", _
1186                        "tScenarioSection_12.odt", _
1187                        "tScenarioSection_13.odt", _
1188                        )
1189
1190    ContentInMasterDoc = Array( _
1191                               "This is scenario Section test" , _
1192                               "The content in hide section"   , _
1193                               "The content in protect section", _
1194                              )
1195
1196
1197    j = UBound(SectionName)
1198
1199    if hFileExists ( MasterDoc ) then app.kill ( MasterDoc )
1200
1201    For i = 0 to j
1202        tempFile =  Convertpath( gOfficePath + "user\work\" + SectionName(i) )
1203        if hFileExists ( tempFile ) then app.kill ( tempFile )
1204    next i
1205
1206   '/// open testdocument (tScenarioSection_1.sxw) ///
1207    Call hFileOpen ( gTesttoolpath + "writer\optional\input\section\tScenarioSection_1.sxw")
1208    Call sMakeReadOnlyDocumentEditable
1209
1210   '/// Select 'File /Send -> Create Masterdocument ///
1211    FileSendCreateMasterdocument
1212
1213   '/// the 'Save as...' dialog has to appear ///
1214    Kontext "SendMasterDocument"
1215    if SendMasterDocument.NotExists then Warnlog "Save As - Dialog didn't appear!"
1216
1217   '/// Select as template 'Default' ///
1218    Vorlage.Select 1
1219
1220   '/// Save document as 'tScenarioSection_1.odm' ///
1221    Dateiname.SetText Convertpath( gOfficePath + "user\work\tScenarioSection_1" )
1222
1223    Speichern.Click
1224    Sleep 3
1225
1226    Kontext "Active"
1227    if Active.Exists then
1228       Active.yes
1229    else
1230       Warnlog "- No messagebox asking for the actualizationing of the master document !"
1231    end if
1232    Sleep 1
1233
1234    Kontext "Navigator"
1235    if Navigator.Exists then
1236       Navigator.Close
1237    else
1238       Warnlog "Navigator in Master document isn't up!"
1239    end if
1240
1241    Call wTypeKeys "<Up>" , 3
1242
1243   '/// Check the sections in MasterDoc
1244   '/// 1) check the content is section
1245   '/// 2) check the section name
1246   '/// 3) check if the section is hidden    (should NOT be hidden)
1247   '/// 4) check if the section is protected (should be protected)
1248   '/// 5) check if the section is linked and linked file is correct or not   (should be linked)
1249
1250    For i = 0 to j
1251
1252       Call wTypeKeys "<Home><Shift End>"
1253       EditCopy
1254
1255       if GetClipboardText = ContentInMasterDoc(i) then
1256          Kontext
1257          FormatSections
1258          Kontext "BereicheBearbeiten"
1259
1260          if BereichsName.GetText <> SectionName(i) then
1261             Warnlog "The first section's name is wrong !"
1262             Warnlog "We hope it is " + SectionName(i) + " but get: " +BereichsName.GetText
1263          end if
1264          if Ausblenden.IsChecked   =   TRUE then Warnlog "The section should NOT be hidden"
1265          if Geschuetzt.IsChecked   <>  TRUE then Warnlog "The section should be protected"
1266          if Verknuepfung.IsChecked =   TRUE then
1267              temp1 = LCase("user/work/" & SectionName(i))
1268              temp2 = LCase(Dateiname.GetText)
1269
1270              if Instr(temp2, temp1) = 0 then Warnlog "The linked file is NOT correct!"
1271          else
1272              Warnlog "The section should be linked"
1273          end if
1274          BereicheBearbeiten.Cancel
1275       else
1276          Warnlog "The content in first section in Master file is wrong!"
1277       end if
1278
1279       Call wTypeKeys "<Down>"
1280
1281    next i
1282
1283    Call hCloseDocument
1284 endcase
1285
1286 '-------------------------------------------------------
1287
1288 testcase tScenarioSection_2
1289
1290    Dim SectionName() as String
1291    Dim tempFile as String
1292    DIM sectionInMasterDoc as String
1293    Dim MasterDoc as String
1294    DIM ContentInMasterDoc() as String
1295    Dim i as Integer
1296    Dim j as Integer
1297    Dim k as Integer
1298    Dim sValue as String
1299
1300   '/// create Masterdocument from another document that also contains sections and footnotes
1301    PrintLog "   - create Masterdocument from another document that also contains sections and footnotes"
1302
1303    MasterDoc = Convertpath( gOfficePath + "user\work\tScenarioSection_2.sxg" )
1304
1305    SectionName = Array( _
1306                        "tScenarioSection_21.odt", _
1307                        "tScenarioSection_22.odt", _
1308                        "tScenarioSection_23.odt", _
1309                        )
1310
1311    ContentInMasterDoc = Array( _
1312                               "This is scenario Section test"                  , _
1313                               "FootNote1The content in hide sectionEndNote1"   , _
1314                               "FootNote2The content in protect sectionEndNote2", _
1315                              )
1316
1317    j = UBound(SectionName)
1318
1319    if hFileExists ( MasterDoc ) then app.kill ( MasterDoc )
1320
1321    For i = 0 to j
1322        tempFile =  Convertpath( gOfficePath + "user\work\" + SectionName(i) )
1323        if hFileExists ( tempFile ) then app.kill ( tempFile )
1324    next i
1325
1326   '/// open testdocument (tScenarioSection_2.sxw) ///
1327    Call hFileOpen ( gTesttoolpath + "writer\optional\input\section\tScenarioSection_2.sxw")
1328    Call sMakeReadOnlyDocumentEditable
1329
1330   '/// Select 'File -> Send -> Create Masterdocument ///
1331    FileSendCreateMasterdocument
1332
1333   '/// the 'Save as...' dialog has to appear ///
1334    Kontext "SendMasterDocument"
1335    if SendMasterDocument.NotExists then Warnlog "Save As - Dialog didn't appear!"
1336
1337   '/// Select as template 'Default' ///
1338    Vorlage.Select 1
1339
1340   '/// Save document as 'masterdoc.odm' ///
1341    Dateiname.SetText Convertpath( gOfficePath + "user\work\tScenarioSection_2" )
1342
1343    Speichern.Click
1344    Sleep 3
1345
1346    Kontext "Active"
1347    if Active.Exists then
1348       Active.yes
1349    else
1350       Warnlog "- No messagebox asking for the actualizationing of the master document !"
1351    end if
1352    Sleep 1
1353
1354    Kontext "Active"
1355    if Active.Exists(5) then
1356        Active.Yes
1357    end if
1358
1359    Kontext "Navigator"
1360    if Navigator.Exists then
1361       Navigator.Close
1362    else
1363       Warnlog "Navigator in Master document isn't up!"
1364    end if
1365
1366    Call wTypeKeys "<Up>" , 3
1367
1368   '/// Check the sections in MasterDoc
1369   '/// 1) check the content is section
1370   '/// 2) check the section name
1371   '/// 3) check if the section is hidden    (should NOT be hidden)
1372   '/// 4) check if the section is protected (should be protected)
1373   '/// 5) check if the section is linked and linked file is correct or not (should be linked)
1374
1375    For i = 0 to j
1376
1377       Call wTypeKeys "<Home><Shift End>"
1378       EditCopy
1379
1380       if GetClipboardText = ContentInMasterDoc(i) then
1381          Kontext
1382          FormatSections
1383          Kontext "BereicheBearbeiten"
1384
1385          if BereichsName.GetText <> SectionName(i) then
1386             Warnlog "The first section's name is wrong !"
1387             Warnlog "We hope it is " + SectionName(i) + " but get: " +BereichsName.GetText
1388          end if
1389
1390                 if Ausblenden.IsChecked   =   TRUE then Warnlog "The section should NOT be hidden"
1391                 if Geschuetzt.IsChecked   <>  TRUE then Warnlog "The section should be protected"
1392                 if Verknuepfung.IsChecked =   TRUE then
1393                         sValue = ConvertPath ( gOfficePath & "user/work/" + SectionName(i) )
1394                         if Instr( ConvertPath(Dateiname.Gettext), sValue) = false then
1395                                 Warnlog "The linked file is NOT correct!"
1396                         end if
1397                 else
1398                 Warnlog "The section should be linked"
1399         end if
1400         BereicheBearbeiten.Cancel
1401       else
1402          Warnlog "The content in first section in Master file is wrong!"
1403       end if
1404
1405       Call wTypeKeys "<Down>"
1406
1407    next i
1408
1409    Call hCloseDocument
1410
1411 endcase
1412
1413 '----------------------------------------------
1414
1415 testcase tCTLSection_1
1416
1417   '/// CTL specials Check  -- insert/sections  ///
1418    PrintLog "   - CTL specials -- insert/sections  "
1419
1420    Call hNewDocument
1421
1422   '/// 1)Switch on "Complex scripts support" in Tools/Options/Language Settings/Languages
1423    ActiveDeactivateCTLSupport(True)
1424
1425   '/// 2)Insert/sections / Columns
1426    InsertSection
1427    Sleep 1
1428    Kontext
1429    Active.Setpage TabSpalten
1430    Kontext "TabSpalten"
1431
1432   '/// 3)Check if text direction listbox is visible
1433    if (TextDirection.Exists) then
1434
1435       '/// 4)Check the default name
1436        if TextDirection.GetSelIndex <> 3 then
1437           Warnlog "The default name we hope is :" + TextDirection.GetItemText(3) +" but get: "+TextDirection.GetSelText
1438        end if
1439
1440       '/// 5)Check the available values ( Should 3 items )
1441           if TextDirection.GetItemCount <> 3 then
1442               Warnlog "The values in TextDirection should be 3, but get " +TextDirection.GetItemCount
1443           end if
1444
1445    else
1446        Warnlog "the textdirection listbox doesn't exist!"
1447    end if
1448
1449    TabSpalten.Cancel
1450
1451   'Recover to default
1452    ActiveDeactivateCTLSupport(False)
1453
1454    Call hCloseDocument
1455
1456 endcase
1457
1458 '-------------------------------------------------------
1459
1460 testcase tCTLSection_2
1461
1462    Dim SectionName as String
1463
1464    SectionName =  "CTLSection"
1465
1466   '/// CTL specials -- format/section/options /Columns ///
1467    PrintLog "   - CTL specials -- format/section/options /Columns "
1468
1469    Call hNewDocument
1470
1471   '/// 1)Switch on "Complex scripts support" in Tools/Options/Language Settings/Languages
1472    ActiveDeactivateCTLSupport(True)
1473
1474   '/// 2)Insert a section
1475    Call fInsertSection(SectionName)
1476
1477   '/// 3)format/section/options /Columns
1478    Kontext
1479    FormatSections
1480    Kontext "BereicheBearbeiten"
1481    Optionen.Click
1482
1483    Kontext
1484    Active.Setpage TabSpalten
1485    Kontext "TabSpalten"
1486
1487   '/// 4)Check if text direction listbox is visible
1488    if (TextDirection.Exists) then
1489
1490       '/// 5)Check the default name
1491        if TextDirection.GetSelIndex <> 3 then
1492           Warnlog "The default name we hope is :" + TextDirection.GetItemText(3) +" but get: "+TextDirection.GetSelText
1493        end if
1494
1495       '/// 6)Check the available values ( Should 3 items )
1496        if TextDirection.GetItemCount <> 3 then
1497            Warnlog "The values in TextDirection should be 3, but get " +TextDirection.GetItemCount
1498        end if
1499
1500    else
1501        Warnlog "the textdirection listbox doesn't exist!"
1502    end if
1503
1504    TabSpalten.Cancel
1505
1506    Kontext
1507    Kontext "BereicheBearbeiten"
1508    BereicheBearbeiten.Cancel
1509
1510   'Recover to default
1511    ActiveDeactivateCTLSupport(False)
1512
1513    Call hCloseDocument
1514
1515 endcase