testautomation/writer/optional/includes/fields/w_fields3.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_fields3.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:26:51 $
  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 : Fields - References Test
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_fields3
  41
  42     Call tCrossReference
  43     Call tSetReferenceNoSelection
  44     Call tSetReferenceTextSelection
  45     Call tInsertReferencePage
  46     Call tInsertReferenceChapter
  47     Call tInsertReferenceReference
  48     Call tInsertReferenceAboveBelow
  49     Call tInsertReferenceAsPageStyle
  50     Call tInsertFootnote
  51     Call tInsertEndnote
  52     Call tInsertCaptionAbove
  53     Call tInsertCaptionBelow
  54     Call tInsertBookmarkPage
  55     Call tInsertBookmarkChapter
  56     Call tInsertBookmarkReference
  57     Call tInsertBookmarkAboveBelow
  58     Call tInsertBookmarkAsPageStyle
  59
  60 end sub
  61
  62 '-----------------------------------------------------------------
  63
  64 testcase tCrossReference
  65
  66   printlog "Insert/Cross-reference"
  67  '/// <b> Insert/Cross-reference </b>
  68
  69  '/// Open a new document
  70   Call hNewDocument
  71
  72   '/// Insert/Cross-reference
  73    InsertReferenceField
  74    Sleep 2
  75    Kontext "TabReferenzen"
  76    if TabReferenzen.Exists then
  77        TabReferenzen.Close
  78    else
  79        Warnlog "Tabpage References should be as the actived tabpage!"
  80    end if
  81
  82  '/// Close the document
  83   Call hCloseDocument
  84
  85 endcase
  86
  87 '-----------------------------------------------------------------
  88
  89 testcase tSetReferenceNoSelection
  90
  91   Dim sReference as String
  92   Dim sTestFile  as String
  93
  94   sReference = "myTest"
  95   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
  96
  97   printlog "Set Reference - Cursor at any position"
  98  '/// <b> Set Reference - Cursor at any position </b>
  99
 100   Call hNewDocument
 101
 102   '/// Open test file pageTest.sxw
 103    Call hFileOpen(sTestFile)
 104    Call sMakeReadOnlyDocumentEditable
 105
 106   '/// Set curson to the 2nd page
 107    Call wTypeKeys "<MOD1 Home>"
 108    Call fFindWord ("Sec")
 109    Call wTypeKeys "<End><Return>"
 110
 111   '/// Insert/Cross-reference , choose "Set Reference"
 112    InsertReferenceField
 113    Kontext "TabReferenzen"
 114      Feldtyp.Select 1
 115      Sleep 1
 116      Namefeld.SetText  sReference
 117      Einfuegen.Click
 118    TabReferenzen.Close
 119
 120    InsertReferenceField
 121    Kontext "TabReferenzen"
 122      Feldtyp.Select 2
 123      Sleep 1
 124      if Namefeld.GetText <> sReference then
 125          Warnlog "Reference can't be set correctly!"
 126      end if
 127    TabReferenzen.Close
 128
 129  '/// Close the document
 130   Call hCloseDocument
 131
 132 endcase
 133
 134 '-----------------------------------------------------------------
 135
 136 testcase tSetReferenceTextSelection
 137
 138   Dim sReference as String
 139
 140   sReference = "myTest"
 141
 142   printlog "Set Reference - Select some text"
 143  '/// <b> Set Reference - Select some text </b>
 144
 145  '/// Open a new document
 146   Call hNewDocument
 147
 148   '/// Input some text and select them
 149    Call wTypeKeys "ABCD"
 150    Call wTypeKeys "<Shift Home>"
 151
 152   '/// Insert/Cross-reference , choose "Set Reference"
 153    InsertReferenceField
 154    Kontext "TabReferenzen"
 155      Feldtyp.Select 1
 156      Sleep 1
 157      Namefeld.SetText  sReference
 158      Einfuegen.Click
 159    TabReferenzen.Close
 160
 161    InsertReferenceField
 162    Kontext "TabReferenzen"
 163      Feldtyp.Select 2
 164      Sleep 1
 165      if Namefeld.GetText <> sReference then
 166          Warnlog "Reference can't be set correctly!"
 167      end if
 168    TabReferenzen.Close
 169
 170  '/// Close the document
 171   Call hCloseDocument
 172
 173 endcase
 174
 175 '-----------------------------------------------------------------
 176
 177 testcase tInsertReferencePage
 178
 179   Dim sReference as String
 180   Dim sTestFile  as String
 181
 182   sReference = "myTest"
 183   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
 184
 185   printlog "Insert Reference - Page"
 186  '/// <b> Insert Reference - Page </b>
 187
 188   Call hNewDocument
 189
 190   '/// Open test file pageTest.sxw
 191    Call hFileOpen(sTestFile)
 192    Call sMakeReadOnlyDocumentEditable
 193
 194   '/// Set curson to the 2nd page
 195    Call wTypeKeys "<MOD1 Home>"
 196    Call fFindWord ("Sec")
 197    Call wTypeKeys "<End><Return>"
 198
 199   '/// Insert/Cross-reference , choose "Set Reference"
 200    InsertReferenceField
 201    Kontext "TabReferenzen"
 202      Feldtyp.Select 1
 203      Sleep 1
 204      Namefeld.SetText  sReference
 205      Einfuegen.Click
 206    TabReferenzen.Close
 207
 208    Call wTypeKeys "<Return>" , 2
 209
 210   '/// Insert/Cross-reference , choose "Insert Reference" and "Page"
 211    InsertReferenceField
 212    Kontext "TabReferenzen"
 213      Feldtyp.Select 2
 214      Sleep 1
 215      Auswahl.Select  sReference
 216      Sleep 1
 217      Formatliste.Select 1
 218      Sleep 1
 219      Einfuegen.Click
 220    TabReferenzen.Close
 221
 222    Call wTypeKeys "<F9>"
 223    Sleep 2
 224    Call wTypeKeys "<Shift Home>"
 225
 226    if fGetFieldContent( ) <> "2" then
 227        Warnlog "Should get 2 , but get " & fGetFieldContent()
 228    end if
 229
 230  '/// Close the document
 231   Call hCloseDocument
 232
 233 endcase
 234
 235 '-----------------------------------------------------------------
 236
 237 testcase tInsertReferenceChapter
 238
 239   Dim sReference as String
 240   Dim sTestFile  as String
 241
 242   sReference = "myTest"
 243   sTestFile  = Convertpath (gTesttoolpath + "writer\optional\input\fields\chapterTest.sxw")
 244
 245   printlog "Insert Reference - Chapter"
 246  '/// <b> Insert Reference - Chapter </b>
 247
 248   Call hNewDocument
 249
 250   '/// Open test file chapterTest.sxw
 251    Call hFileOpen(sTestFile)
 252    Call sMakeReadOnlyDocumentEditable
 253
 254   '/// Set curson to the 2nd line
 255    Call wTypeKeys "<MOD1 Home>"
 256    Call wTypeKeys "<Down><Home>"
 257
 258   '/// Insert/Cross-reference , choose "Set Reference"
 259    InsertReferenceField
 260    Kontext "TabReferenzen"
 261      Feldtyp.Select 1
 262      Sleep 1
 263      Namefeld.SetText  sReference
 264      Einfuegen.Click
 265    TabReferenzen.Close
 266
 267    Call wTypeKeys "<End>"
 268    Call wTypeKeys "<Return>" , 2
 269
 270   '/// Insert/Cross-reference , choose "Insert Reference" and "Chapter"
 271    InsertReferenceField
 272    Kontext "TabReferenzen"
 273      Feldtyp.Select 2
 274      Sleep 1
 275      Auswahl.Select  sReference
 276      Sleep 1
 277      Formatliste.Select 2
 278      Sleep 1
 279      Einfuegen.Click
 280    TabReferenzen.Close
 281
 282    Call wTypeKeys "<F9>"
 283    Sleep 2
 284    Call wTypeKeys "<Shift Home>"
 285
 286    if fGetFieldContent( ) <> "2" then
 287        Warnlog "#i40625# Should get 2 , but get " & fGetFieldContent()
 288    end if
 289
 290  '/// Close the document
 291   Call hCloseDocument
 292
 293 endcase
 294
 295 '-----------------------------------------------------------------
 296
 297 testcase tInsertReferenceReference
 298
 299   Dim sReference     as String
 300   Dim sReferenceName as String
 301
 302   sReference     = "est !"
 303   sReferenceName = "myTest"
 304
 305   printlog "Insert Reference - Reference"
 306  '/// <b> Insert Reference - Reference</b>
 307
 308  '/// Open a new document
 309   Call hNewDocument
 310
 311   '/// Input some thing in the document and press return
 312    Call wTypeKeys "This is a test !"
 313    Call wTypeKeys "<Return>"
 314
 315   '/// Select some text
 316    Call wTypeKeys "<Up><End>"
 317    Call wTypeKeys "<Shift Left>" , 5
 318
 319   '/// Insert/Cross-reference , choose "Set Reference"
 320    InsertReferenceField
 321    Kontext "TabReferenzen"
 322      Feldtyp.Select 1
 323      Sleep 1
 324      Namefeld.SetText  sReferenceName
 325      Einfuegen.Click
 326    TabReferenzen.Close
 327
 328   '/// set focus to 2nd line
 329    Call wTypeKeys "<Down>"
 330
 331   '/// Insert/Cross-reference , choose "Insert Reference" and "Reference"
 332    InsertReferenceField
 333    Kontext "TabReferenzen"
 334      Feldtyp.Select 2
 335      Sleep 1
 336      Auswahl.Select  sReferenceName
 337      Sleep 1
 338      Formatliste.Select 3
 339      Sleep 1
 340      Einfuegen.Click
 341    TabReferenzen.Close
 342
 343    Call wTypeKeys "<F9>"
 344    Sleep 2
 345    Call wTypeKeys "<Shift Home>"
 346
 347    if fGetFieldContent() <> sReference then
 348        Warnlog "Should get " & sReference & " but get " & fGetFieldContent()
 349    end if
 350
 351  '/// Close the document
 352   Call hCloseDocument
 353
 354 endcase
 355
 356 '-----------------------------------------------------------------
 357
 358 testcase tInsertReferenceAboveBelow
 359
 360   Dim sReference as String
 361   Dim sAbove     as String
 362   Dim sBelow     as String
 363
 364     sReference = "myTest"
 365     Select Case iSystemSprache
 366         Case 01 : sAbove = "above"  : sBelow = "below"
 367         Case 35 : sAbove = "sur"    : sBelow = "sous"
 368         Case 39 : sAbove = "sopra"  : sBelow = "sotto"
 369         Case 49 : sAbove = "oben"   : sBelow = "unten"
 370         Case 46 : sAbove = "ovan"   : sBelow = "under"
 371         Case 55 : sAbove = "arriba" : sBelow = "abajo"
 372     End Select
 373
 374   printlog "Insert Reference - Above/Below"
 375  '/// <b> Insert Reference - Above/Below</b>
 376
 377  '/// Open a new document
 378   Call hNewDocument
 379
 380   '/// Press Return first , then input some text in
 381   '/// + the document , press return again
 382    Call wTypeKeys "<Return>"
 383    Call wTypeKeys "This is a test !"
 384    Call wTypeKeys "<Return>"
 385
 386   '/// Insert a reference before "This is ..."
 387    Call wTypeKeys "<Up><Home>"
 388    InsertReferenceField
 389    Kontext "TabReferenzen"
 390      Feldtyp.Select 1
 391      Sleep 1
 392      Namefeld.SetText  sReference
 393      Einfuegen.Click
 394    TabReferenzen.Close
 395
 396   '/// set focus to 3rd line
 397    Call wTypeKeys "<Down>"
 398
 399   '/// Insert/Cross-reference , choose "Insert Reference" and "above/below"
 400    InsertReferenceField
 401    Kontext "TabReferenzen"
 402      Feldtyp.Select 2
 403      Sleep 1
 404      Auswahl.Select  sReference
 405      Sleep 1
 406      Formatliste.Select 4
 407      Sleep 1
 408      Einfuegen.Click
 409    TabReferenzen.Close
 410
 411    Call wTypeKeys "<F9>"
 412    Sleep 2
 413    Call wTypeKeys "<Shift Home>"
 414
 415    if fGetFieldContent() <> sAbove then 'Check systemlanguage / Office-Language - if other than 01 then ignore/QaErrorLog!
 416        Warnlog "Should get " & sAbove & " but get " & fGetFieldContent()
 417    end if
 418
 419   '/// set focus to 1st line
 420    Call wTypeKeys "<MOD1 Home>"
 421
 422   '/// Insert/Cross-reference , choose "Insert Reference" and "above/below"
 423    InsertReferenceField
 424    Kontext "TabReferenzen"
 425      Feldtyp.Select 2
 426      Sleep 1
 427      Auswahl.Select  sReference
 428      Sleep 1
 429      Formatliste.Select 4
 430      Sleep 1
 431      Einfuegen.Click
 432    TabReferenzen.Close
 433
 434    Call wTypeKeys "<F9>"
 435    Sleep 2
 436    Call wTypeKeys "<Shift Home>"
 437
 438    if fGetFieldContent() <> sBelow then
 439        Warnlog "Should get " & sBelow & " but get " & fGetFieldContent()
 440    end if
 441
 442  '/// Close the document
 443   Call hCloseDocument
 444
 445 endcase
 446
 447 '-----------------------------------------------------------------
 448
 449 testcase tInsertReferenceAsPageStyle
 450
 451   Dim sReference as String
 452   Dim sTestSytle as String
 453
 454   sReference = "myTest"
 455   sTestSytle = "A"
 456
 457   printlog "Insert Reference - As Page Style"
 458  '/// <b> Insert Reference - As Page Style </b>
 459
 460  '/// Open a new document
 461   Call hNewDocument
 462
 463   '/// Fomrat/page / page , set Format as "A , B , C ..."
 464    Call fFormatPageWriter("TabSeite")
 465      Numerierung.Select 1
 466    TabSeite.OK
 467
 468   '/// Input some thing in the document , press return
 469    Call wTypeKeys "This is a test !"
 470    Call wTypeKeys "<Return>"
 471
 472   '/// Insert a reference before "This is ..."
 473    Call wTypeKeys "<Up><Home>"
 474    InsertReferenceField
 475    Kontext "TabReferenzen"
 476      Feldtyp.Select 1
 477      Sleep 1
 478      Namefeld.SetText  sReference
 479      Einfuegen.Click
 480    TabReferenzen.Close
 481
 482   '/// set focus to 2nd line
 483    Call wTypeKeys "<Down>"
 484
 485   '/// Insert/Cross-reference , choose "Insert Reference" and "As Page Style"
 486    InsertReferenceField
 487    Kontext "TabReferenzen"
 488      Feldtyp.Select 2
 489      Sleep 1
 490      Auswahl.Select  sReference
 491      Sleep 1
 492      Formatliste.Select 5
 493      Sleep 1
 494      Einfuegen.Click
 495    TabReferenzen.Close
 496
 497    Call wTypeKeys "<F9>"
 498    Sleep 2
 499    Call wTypeKeys "<Shift Home>"
 500
 501    if fGetFieldContent() <> sTestSytle then
 502        Warnlog "Should get " & sTestSytle & " but get " & fGetFieldContent()
 503    end if
 504
 505  '/// Close the document
 506   Call hCloseDocument
 507
 508 endcase
 509
 510 '-----------------------------------------------------------------
 511
 512 testcase tInsertFootnote
 513
 514   Dim sFootnote as String
 515
 516   sFootnote = "Test"
 517
 518   printlog "Insert Footnote"
 519  '/// <b> Insert Footnote </b>
 520
 521  '/// Open a new document
 522   Call hNewDocument
 523
 524   '/// Insert/Footnote
 525    InsertFootnote
 526      Kontext "FussnoteEinfuegen"
 527     'check footnote
 528      Fussnote.Check
 529      Zeichen.Check
 530      ZeichenText.SetText sFootnote
 531    FussnoteEinfuegen.OK
 532
 533   '/// Check if footnote is inserted correctly
 534    Call wTypeKeys "<MOD1 Home>"
 535    Call wTypeKeys "<Shift End>"
 536    if fGetFieldContent() <> sFootnote then
 537        Warnlog "Should get " & sFootnote & " but get " & fGetFieldContent()
 538    end if
 539
 540   Call hCloseDocument
 541
 542 endcase
 543
 544 '-----------------------------------------------------------------
 545
 546 testcase tInsertEndnote
 547
 548   Dim sEndnote as String
 549
 550   sEndnote = "Test"
 551
 552   printlog "Insert Endnote"
 553  '/// <b> Insert Endnote </b>
 554
 555  '/// Open a new document
 556   Call hNewDocument
 557
 558   '/// Insert Endnote
 559    InsertFootnote
 560      Kontext "FussnoteEinfuegen"
 561     'check endnote
 562      Endnote.Check
 563      Zeichen.Check
 564      ZeichenText.SetText sEndnote
 565    FussnoteEinfuegen.OK
 566
 567   '/// Check if footnote is inserted correctly
 568    Call wTypeKeys "<MOD1 Home>"
 569    Call wTypeKeys "<Shift End>"
 570    if fGetFieldContent() <> sEndnote then
 571        Warnlog "Should get " & sEndnote & " but get " & fGetFieldContent()
 572    end if
 573
 574   Call hCloseDocument
 575
 576 endcase
 577
 578 '-----------------------------------------------------------------
 579
 580 testcase tInsertCaptionAbove
 581
 582   Dim sCategory  as String
 583   Dim sCaption   as String
 584   Dim sSeparator as String
 585
 586   sCategory = "A" : sCaption = "B" : sSeparator = "*"
 587
 588   printlog "Insert Caption - Above"
 589  '/// <b> Insert Caption - Above </b>
 590
 591  '/// Open a new document
 592   Call hNewDocument
 593
 594   '/// Insert a frame
 595    Call wInsertFrame
 596
 597   '/// Insert / Caption , set Category as A , set Caption as B , Set Seperator as *
 598    InsertCaption
 599    Kontext "Beschriftung"
 600      Kategorie.SetText  sCategory
 601      Separator.SetText  sSeparator
 602      BeschriftungsText.SetText sCaption
 603      Position.Select 1
 604    Beschriftung.OK
 605    Sleep 1
 606
 607   '/// Check if the insertion is correct
 608    Call wTypeKeys "<Return>"
 609    Call wTypeKeys "<Up><Home><Shift End>"
 610    EditCopy
 611
 612    if fGetFieldContent() <> sCategory & " 1" & sSeparator & sCaption  then
 613        Warnlog "Should get " & sCategory & " 1" & sSeparator & sCaption & " but get " & fGetFieldContent()
 614    end if
 615
 616    Call wTypeKeys "<Down>"
 617    Call wTypeKeys "<Home><Shift End>"
 618    try
 619        EditCopy
 620        Warnlog "Should NOT get anything !"
 621    catch
 622    endcatch
 623
 624   Call hCloseDocument
 625
 626 endcase
 627
 628 '-----------------------------------------------------------------
 629
 630 testcase tInsertCaptionBelow
 631
 632   Dim sCategory  as String
 633   Dim sCaption   as String
 634   Dim sSeparator as String
 635
 636   sCategory = "A" : sCaption = "B" : sSeparator = "*"
 637
 638   printlog "Insert Caption - Below"
 639  '/// <b> Insert Caption - Below </b>
 640
 641  '/// Open a new document
 642   Call hNewDocument
 643
 644   '/// Insert a frame
 645    Call wInsertFrame
 646
 647   '/// Insert / Caption , set Category as A , set Caption as B,
 648   '/// + select position as Above
 649    InsertCaption
 650    Kontext "Beschriftung"
 651      Kategorie.SetText  sCategory
 652      Separator.SetText  sSeparator
 653      BeschriftungsText.SetText sCaption
 654      Position.Select 2
 655    Beschriftung.OK
 656    Sleep 1
 657
 658   '/// Check if the insertion is correct
 659    Call wTypeKeys "<Return>"
 660    Call wTypeKeys "<Up><Home><Shift End>"
 661    try
 662        EditCopy
 663        Warnlog "Should NOT get anything !"
 664    catch
 665    endcatch
 666
 667    Call wTypeKeys "<Down>"
 668    Call wTypeKeys "<Home><Shift End>"
 669    EditCopy
 670    if fGetFieldContent() <> sCategory & " 1" & sSeparator & sCaption  then
 671        Warnlog "Should get " & sCategory & " 1" & sSeparator & sCaption & " but get " & fGetFieldContent()
 672    end if
 673
 674   Call hCloseDocument
 675
 676 endcase
 677
 678 '-----------------------------------------------------------------
 679
 680 testcase tInsertBookmarkPage
 681
 682   Dim sBookmark as String
 683   Dim sTestFile as String
 684
 685   sBookmark = "myTest"
 686   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\pageTest.sxw")
 687
 688   printlog "Insert Bookmark - Page"
 689  '/// <b> Insert Bookmark - Page </b>
 690
 691   Call hNewDocument
 692
 693   '/// Open test file pageTest.sxw
 694    Call hFileOpen(sTestFile)
 695    Call sMakeReadOnlyDocumentEditable
 696
 697   '/// Set curson to the 2nd page
 698    Call wTypeKeys "<MOD1 Home>"
 699    Call fFindWord ("Sec")
 700    Call wTypeKeys "<Home>"
 701
 702   '/// Insert a bookmark
 703    InsertBookmark
 704      Kontext "TextmarkeEinfuegen"
 705      Textmarken.SetText sBookmark
 706    TextmarkeEinfuegen.OK
 707
 708    Call wTypeKeys "<End>"
 709    Call wTypeKeys "<Return>" , 2
 710
 711   '/// Insert/Cross-reference , choose "Bookmarks" and "Page"
 712    InsertReferenceField
 713    Kontext "TabReferenzen"
 714      Feldtyp.Select 5
 715      Sleep 1
 716      Auswahl.Select sBookmark
 717      Sleep 1
 718      Formatliste.Select 1
 719      Sleep 1
 720      Einfuegen.Click
 721    TabReferenzen.Close
 722
 723    Call wTypeKeys "<F9>"
 724    Sleep 2
 725    Call wTypeKeys "<Shift Home>"
 726
 727    if fGetFieldContent( ) <> "2" then
 728        Warnlog "Should get 2 , but get " & fGetFieldContent()
 729    end if
 730
 731  '/// Close the document
 732   Call hCloseDocument
 733
 734 endcase
 735
 736 '-----------------------------------------------------------------
 737
 738 testcase tInsertBookmarkChapter
 739
 740   Dim sBookmark as String
 741   Dim sTestFile as String
 742
 743   sBookmark = "myTest"
 744   sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\chapterTest.sxw")
 745
 746   printlog "Insert Bookmark - Chapter"
 747  '/// <b> Insert Bookmark - Chapter </b>
 748
 749   Call hNewDocument
 750
 751   '/// Open test file chapterTest.sxw
 752    Call hFileOpen(sTestFile)
 753    Call sMakeReadOnlyDocumentEditable
 754
 755   '/// Set curson to the 2nd line
 756    Call wTypeKeys "<MOD1 Home>"
 757    Call wTypeKeys "<Down><Home>"
 758
 759   '/// Insert a bookmark
 760    InsertBookmark
 761      Kontext "TextmarkeEinfuegen"
 762      Textmarken.SetText sBookmark
 763    TextmarkeEinfuegen.OK
 764
 765    Call wTypeKeys "<End>"
 766    Call wTypeKeys "<Return>" , 2
 767
 768   '/// Insert/Cross-reference , choose "Bookmarks" and "Chapter"
 769    InsertReferenceField
 770    Kontext "TabReferenzen"
 771      Feldtyp.Select 5
 772      Sleep 1
 773      Auswahl.Select sBookmark
 774      Sleep 1
 775      Formatliste.Select 2
 776      Sleep 1
 777      Einfuegen.Click
 778    TabReferenzen.Close
 779
 780    Call wTypeKeys "<F9>"
 781    Sleep 2
 782    Call wTypeKeys "<Shift Home>"
 783
 784    if fGetFieldContent( ) <> "2" then
 785        Warnlog "#i40625# Should get 2 , but get " & fGetFieldContent()
 786    end if
 787
 788  '/// Close the document
 789   Call hCloseDocument
 790
 791 endcase
 792
 793 '-----------------------------------------------------------------
 794
 795 testcase tInsertBookmarkReference
 796
 797   Dim sReference as String
 798   Dim sBookmark  as String
 799
 800   sReference  = "est !"
 801   sBookmark   = "myTest"
 802
 803   printlog "Insert Bookmkar - Reference"
 804  '/// <b> Insert Bookmkar - Reference</b>
 805
 806  '/// Open a new document
 807   Call hNewDocument
 808
 809   '/// Input some thing in the document and press return
 810    Call wTypeKeys "This is a test !"
 811    Call wTypeKeys "<Return>"
 812
 813   '/// Select some text
 814    Call wTypeKeys "<Up><End>"
 815    Call wTypeKeys "<Shift Left>" , 5
 816
 817   '/// Insert a bookmark
 818    InsertBookmark
 819      Kontext "TextmarkeEinfuegen"
 820      Textmarken.SetText sBookmark
 821    TextmarkeEinfuegen.OK
 822
 823   '/// set focus to 2nd line
 824    Call wTypeKeys "<Down>"
 825
 826   '/// Insert/Cross-reference , choose "Bookmark" and "Reference"
 827    InsertReferenceField
 828    Kontext "TabReferenzen"
 829      Feldtyp.Select 5
 830      Sleep 1
 831      Auswahl.Select sBookmark
 832      Sleep 1
 833      Formatliste.Select 3
 834      Sleep 1
 835      Einfuegen.Click
 836    TabReferenzen.Close
 837
 838    Call wTypeKeys "<F9>"
 839    Sleep 2
 840    Call wTypeKeys "<Shift Home>"
 841
 842    if fGetFieldContent() <> sReference then
 843        Warnlog "Should get " & sReference & " but get " & fGetFieldContent()
 844    end if
 845
 846  '/// Close the document
 847   Call hCloseDocument
 848
 849 endcase
 850
 851 '-----------------------------------------------------------------
 852
 853 testcase tInsertBookmarkAboveBelow
 854
 855   Dim sBookmark as String
 856   Dim sAbove    as String
 857   Dim sBelow    as String
 858
 859   sBookmark = "myTest"
 860     Select Case iSystemSprache
 861         Case 01 : sAbove = "above"  : sBelow = "below"
 862         Case 35 : sAbove = "sur"    : sBelow = "sous"
 863         Case 39 : sAbove = "sopra"  : sBelow = "sotto"
 864         Case 49 : sAbove = "oben"   : sBelow = "unten"
 865         Case 46 : sAbove = "ovan"   : sBelow = "under"
 866         Case 55 : sAbove = "arriba" : sBelow = "abajo"
 867     End Select
 868
 869   printlog "Insert Bookmark - Above/Below"
 870  '/// <b> Insert Bookmark - Above/Below</b>
 871
 872  '/// Open a new document
 873   Call hNewDocument
 874
 875   '/// Press Return first , then input some thing in
 876   '/// + the document , press return again
 877    Call wTypeKeys "<Return>"
 878    Call wTypeKeys "This is a test !"
 879    Call wTypeKeys "<Return>"
 880
 881   '/// Insert a Bookmark before "This is ..."
 882    Call wTypeKeys "<Up><Home>"
 883    InsertBookmark
 884      Kontext "TextmarkeEinfuegen"
 885      Textmarken.SetText sBookmark
 886    TextmarkeEinfuegen.OK
 887
 888   '/// set focus to 3rd line
 889    Call wTypeKeys "<Down>"
 890
 891   '/// Insert/Cross-reference , choose "Bookmarks" and "above/below"
 892    InsertReferenceField
 893    Kontext "TabReferenzen"
 894      Feldtyp.Select 5
 895      Sleep 1
 896      Auswahl.Select sBookmark
 897      Sleep 1
 898      Formatliste.Select 4
 899      Sleep 1
 900      Einfuegen.Click
 901    TabReferenzen.Close
 902
 903    Call wTypeKeys "<F9>"
 904    Sleep 2
 905    Call wTypeKeys "<Shift Home>"
 906
 907    if fGetFieldContent() <> sAbove then
 908        Warnlog "Should get " & sAbove & " but get " & fGetFieldContent()
 909    end if
 910
 911   '/// set focus to 1st line
 912    Call wTypeKeys "<MOD1 Home>"
 913
 914   '/// Insert/Cross-reference , choose "Bookmark" and "above/below"
 915    InsertReferenceField
 916    Kontext "TabReferenzen"
 917      Feldtyp.Select 5
 918      Sleep 1
 919      Auswahl.Select sBookmark
 920      Sleep 1
 921      Formatliste.Select 4
 922      Sleep 1
 923      Einfuegen.Click
 924    TabReferenzen.Close
 925
 926    Call wTypeKeys "<F9>"
 927    Sleep 2
 928    Call wTypeKeys "<Shift Home>"
 929
 930    if fGetFieldContent() <> sBelow then
 931        Warnlog "Should get " & sBelow & " but get " & fGetFieldContent()
 932    end if
 933
 934  '/// Close the document
 935   Call hCloseDocument
 936
 937 endcase
 938
 939 '-----------------------------------------------------------------
 940
 941 testcase tInsertBookmarkAsPageStyle
 942
 943   Dim sBookmark  as String
 944   Dim sTestSytle as String
 945
 946   sBookmark  = "myTest"
 947   sTestSytle = "A"
 948
 949   printlog "Insert Bookmark - As Page Style"
 950  '/// <b> Insert Bookmark - As Page Style </b>
 951
 952  '/// Open a new document
 953   Call hNewDocument
 954
 955   '/// Fomrat/page / page , set Format as "A , B , C ..."
 956    Call fFormatPageWriter("TabSeite")
 957      Numerierung.Select 1
 958    TabSeite.OK
 959
 960   '/// Input some thing in the document , press return
 961    Call wTypeKeys "This is a test !"
 962    Call wTypeKeys "<Return>"
 963
 964   '/// Insert a Bookmark before "This is ..."
 965    Call wTypeKeys "<Up><Home>"
 966    InsertBookmark
 967      Kontext "TextmarkeEinfuegen"
 968      Textmarken.SetText sBookmark
 969    TextmarkeEinfuegen.OK
 970
 971   '/// set focus to 2nd line
 972    Call wTypeKeys "<Down>"
 973
 974   '/// Insert/Cross-reference , choose "Bookmark" and "As Page Style"
 975    InsertReferenceField
 976    Kontext "TabReferenzen"
 977      Feldtyp.Select 5
 978      Sleep 1
 979      Auswahl.Select sBookmark
 980      Sleep 1
 981      Formatliste.Select 5
 982      Sleep 1
 983      Einfuegen.Click
 984    TabReferenzen.Close
 985
 986    Call wTypeKeys "<F9>"
 987    Sleep 2
 988    Call wTypeKeys "<Shift Home>"
 989
 990    if fGetFieldContent() <> sTestSytle then
 991        Warnlog "Should get " & sTestSytle & " but get " & fGetFieldContent()
 992    end if
 993
 994  '/// Close the document
 995   Call hCloseDocument
 996
 997 endcase
 998
 999 '-----------------------------------------------------------------