testautomation/writer/optional/includes/fields/w_fields6.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_fields6.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:27:26 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : Fields - Functions
  37 '*
  38 '\***********************************************************************
  39
  40 sub w_fields6
  41
  42     Call tFunctionsConditionalText
  43     Call tFunctionsHiddenText
  44     Call tFunctionsHiddenParagraph
  45     Call tFunctionsInputField
  46     Call tFunctionsPlaceholderText
  47     Call tFunctionsPlaceholderTable
  48     Call tFunctionsPlaceholderFrame
  49     Call tFunctionsPlaceholderGraphics
  50     Call tFunctionsPlaceholderObject
  51     Call tFunctionsInputlistRemove
  52     Call tFunctionsInputlistMoveUp
  53     Call tFunctionsInputlistMoveDown
  54     Call tFunctionsCombineCharacter
  55
  56 end sub
  57
  58 '-----------------------------------------------------------------
  59
  60 testcase tFunctionsConditionalText
  61
  62   Dim sName      as String
  63   Dim sValue()   as String
  64   Dim sCondition as String
  65   Dim sElse      as String
  66   Dim sThen      as String
  67   Dim sResult()  as String
  68   Dim iType      as Integer
  69   Dim i          as Integer
  70   Dim j          as Integer
  71
  72   sName      = "X"
  73   SCondition = "X==" + Chr(34) + "Sun" + Chr(34)
  74   SThen      = "Yes"
  75   sElse      = "No"
  76
  77   sValue  = Array( _
  78                    "Sun"    , _
  79                    "NOTSun" , _
  80                   )
  81   sResult = Array( _
  82                    "Sun"    , _
  83                    "Yes"    , _
  84                    "NOTSun" , _
  85                    "No"     , _
  86                   )
  87
  88   printlog "Conditional text"
  89  '/// <b> Conditional text </b>
  90
  91   Call hNewDocument
  92
  93   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
  94   '/// Set 1 Name and set its Value to "Sun" , then goto tabpage function
  95   '/// + choose "Conditional text" , set condition like
  96   '/// if X="Sun" then "YES" else "NO"
  97   '/// Set another value to "NoSun"
  98    j = UBound(sValue)
  99    for i = 0 to j
 100       Call fInsertFieldsOther("TabVariablen")
 101         Feldtyp.Select 1
 102         Sleep 1
 103         NameText.SetText sName
 104         Wert.SetText sValue(i)
 105         Zahlenformat.Select 1
 106         Einfuegen.Click
 107       TabVariablen.Close
 108       Call wTypeKeys "<Return>"
 109       Call fInsertFieldsOther("TabFunktionen")
 110         Feldtyp.Select 1
 111         Sleep 1
 112         Bedingung.SetText sCondition
 113         Dann.SetText      sThen
 114         Sonst.SetText     sElse
 115         Einfuegen.Click
 116       TabFunktionen.Close
 117       Call wTypeKeys "<Return>"
 118    next i
 119
 120   '/// Check if the insertion is correct
 121    Call wTypeKeys "<MOD1 Home>"
 122    j = UBound(sResult)
 123    for i = 0 to j
 124        Call wTypeKeys "<Shift Right>"
 125        if fGetFieldContent() <> sResult(i) then
 126            Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
 127        end if
 128        Call wTypeKeys "<Down><Home>"
 129    next i
 130
 131   Call hCloseDocument
 132
 133 endcase
 134
 135 '-----------------------------------------------------------------
 136
 137 testcase tFunctionsHiddenText
 138
 139   Dim sName       as String
 140   Dim sValue()    as String
 141   Dim sCondition  as String
 142   Dim sHiddenText as String
 143   Dim sResult()   as String
 144   Dim bHiddenText as Boolean
 145   Dim i           as Integer
 146   Dim j           as Integer
 147
 148   sName       = "X"
 149   SCondition  = "X==" + Chr(34) + "ABC" + Chr(34)
 150   sHiddenText = "HiddenText"
 151
 152   sValue  = Array( _
 153                    "ABC"    , _
 154                    "NOTABC" , _
 155                   )
 156   sResult = Array( _
 157                    ""           , _
 158                    "HiddenText" , _
 159                   )
 160
 161   printlog "Hidden text"
 162  '/// <b> Hidden text </b>
 163
 164   Call hNewDocument
 165
 166   '/// Tools/Options / StarOffice writer / Formatting Aids
 167   '/// Uncheck 'Fields : Hidden text"
 168    ToolsOptions
 169    Call hToolsOptions("WRITER","FORMATTINGAIDS")
 170      bHiddenText = FeldVersteckterText.IsChecked
 171      if bHiddenText = TRUE then
 172          FeldVersteckterText.UnCheck
 173      end if
 174    Kontext "ExtrasOptionenDlg"
 175    ExtrasOptionenDlg.OK
 176
 177   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
 178   '/// Set Name and set its Value to "ABC" , then goto tabpage function
 179   '/// + choose "hidden text" , set condition like
 180   '/// if X="ABC" as condition , hidden text is "HiddenText"
 181   '/// Set another value to "NoTABC"
 182   '/// Check if the insertion is correct
 183    j = UBound(sValue)
 184    for i = 0 to j
 185       Call wTypeKeys "<MOD1 Home><Shift End>"
 186       Call fInsertFieldsOther("TabVariablen")
 187         Feldtyp.Select 1
 188         Sleep 1
 189         NameText.SetText sName
 190         Wert.SetText sValue(i)
 191         Zahlenformat.Select 1
 192         Einfuegen.Click
 193       TabVariablen.Close
 194       Call wTypeKeys "<Return>"
 195       Call fInsertFieldsOther("TabFunktionen")
 196         Feldtyp.Select 7   'Hidden text
 197         Sleep 1
 198         Bedingung.SetText sCondition
 199         Hinweis.SetText   sHiddenText
 200         Einfuegen.Click
 201       TabFunktionen.Close
 202
 203       Call wTypeKeys "<Shift Left>"
 204       if fGetFieldContent() <> sResult(i) then
 205           Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
 206       end if
 207    next i
 208
 209   'Recover to default
 210    ToolsOptions
 211    Call hToolsOptions("WRITER","FORMATTINGAIDS")
 212      if bHiddenText = TRUE then FeldVersteckterText.Check
 213    Kontext "ExtrasOptionenDlg"
 214    ExtrasOptionenDlg.OK
 215
 216   Call hCloseDocument
 217
 218 endcase
 219
 220 '-----------------------------------------------------------------
 221
 222 testcase tFunctionsHiddenParagraph
 223
 224   Dim sName       as String
 225   Dim sValue()    as String
 226   Dim sCondition  as String
 227   Dim sHiddenText as String
 228   Dim sResult()   as String
 229   Dim bHiddenText as Boolean
 230   Dim i           as Integer
 231   Dim j           as Integer
 232
 233   sName       = "X"
 234   SCondition  = "X==" + Chr(34) + "ABC" + Chr(34)
 235   sHiddenText = "HiddenText"
 236
 237   sValue  = Array( _
 238                    "ABC"    , _
 239                    "NOTABC" , _
 240                   )
 241   sResult = Array( _
 242                    "ABC"        , _
 243                    "HiddenText" , _
 244                   )
 245
 246   printlog "Hidden paragraph"
 247  '/// <b> Hidden paragraph </b>
 248
 249   Call hNewDocument
 250
 251   '/// Tools/Options / StarOffice writer / Formatting Aids
 252   '/// Uncheck 'Fields : Hidden paragraph"
 253    ToolsOptions
 254    Call hToolsOptions("WRITER","FORMATTINGAIDS")
 255      bHiddenText = VersteckteAbsatze.IsChecked
 256      if bHiddenText = TRUE then
 257          VersteckteAbsatze.UnCheck
 258      end if
 259    Kontext "ExtrasOptionenDlg"
 260    ExtrasOptionenDlg.OK
 261
 262   '/// Input a paragraph first
 263    Call wTypeKeys "<Return>"
 264    Call wTypeKeys sHiddenText
 265    Call wTypeKeys "<Up>"
 266
 267   '/// Insert/Fields/Other/Variables / Select "set Variable" ,
 268   '/// Set Name and set its Value to "ABC" , then goto tabpage function
 269   '/// + choose "hidden paragraph" , set condition like
 270   '/// if X="ABC" as condition
 271   '/// Check if the paragraph disappear or not
 272    j = UBound(sValue)
 273    for i = 0 to j
 274       Call wTypeKeys "<MOD1 Home><Shift End>"
 275       Call fInsertFieldsOther("TabVariablen")
 276         Feldtyp.Select 1
 277         Sleep 1
 278         NameText.SetText sName
 279         Wert.SetText sValue(i)
 280         Zahlenformat.Select 1
 281         Einfuegen.Click
 282       TabVariablen.Close
 283       Call wTypeKeys "<Down><Home>"
 284       Call fInsertFieldsOther("TabFunktionen")
 285         Feldtyp.Select 8   'Hidden paragraph
 286         Sleep 1
 287         Bedingung.SetText sCondition
 288         Einfuegen.Click
 289       TabFunktionen.Close
 290
 291       Call wTypeKeys "<MOD1 Home><Down><Shift End>"
 292       if fGetFieldContent() <> sResult(i) then
 293           Warnlog "Should get " & sResult(i) & " but get " & fGetFieldContent()
 294       end if
 295    next i
 296
 297   'Recover to default
 298    ToolsOptions
 299    Call hToolsOptions("WRITER","FORMATTINGAIDS")
 300      if bHiddenText = TRUE then VersteckteAbsatze.Check
 301    Kontext "ExtrasOptionenDlg"
 302    ExtrasOptionenDlg.OK
 303
 304   Call hCloseDocument
 305
 306 endcase
 307
 308 '-----------------------------------------------------------------
 309
 310 testcase tFunctionsInputField
 311
 312   Dim sReference as String
 313   Dim sFieldContent as String
 314
 315   sReference    = "NewTest"
 316   sFieldContent = "10000"
 317
 318   printlog "Input field"
 319  '/// <b> Input field </b>
 320
 321   Call hNewDocument
 322
 323   '/// Insert/Fields/Other/Functions / Select "Input field" ,
 324   '/// + set reference , press insert button , input field content
 325    Call fInsertFieldsOther("TabFunktionen")
 326      Feldtyp.Select 3   'Input field
 327      Sleep 1
 328      Hinweis.SetText sReference
 329      Einfuegen.Click
 330      Kontext "Eingabefeld"
 331        if Titel.GetText <> sReference then
 332            Warnlog "Reference should be " & sReference & " but get " & Titel.GetText
 333        end if
 334        EingabeText.SetText sFieldContent
 335      Eingabefeld.OK
 336
 337    Kontext "TabFunktionen"
 338    TabFunktionen.Close
 339
 340   '/// Check if the insertion is correct
 341    Call wTypeKeys "<MOD1 Home>"
 342    Call wTypeKeys "<Shift Right>"
 343    if fGetFieldContent() <> sFieldContent then
 344        Warnlog "Should get " & sFieldContent & " but get " & fGetFieldContent()
 345    end if
 346
 347   Call hCloseDocument
 348
 349 endcase
 350
 351 '-----------------------------------------------------------------
 352
 353 testcase tFunctionsPlaceholderText
 354
 355   Dim sPlaceHolder as String
 356
 357   sPlaceHolder = "Text"
 358
 359   printlog "Placeholder - Text"
 360  '/// <b> Placeholder - Text </b>
 361
 362   Call hNewDocument
 363
 364   '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
 365   '/// + select Text
 366    Call fInsertFieldsOther("TabFunktionen")
 367      Feldtyp.Select 5   'Placeholder
 368      Sleep 1
 369      Formatliste.Select 1
 370      Platzhalter.SetText  sPlaceHolder
 371      Einfuegen.Click
 372    TabFunktionen.Close
 373
 374   '/// Check if the insertion is correct
 375    Call wTypeKeys "<MOD1 Home>"
 376    Call wTypeKeys "<Shift Right>"
 377    if fGetFieldContent() <> ("<" & sPlaceHolder & ">" )then
 378        Warnlog "Should get <" & sPlaceHolder & "> but get " & fGetFieldContent()
 379    end if
 380
 381   Call hCloseDocument
 382
 383 endcase
 384
 385 '-----------------------------------------------------------------
 386
 387 testcase tFunctionsPlaceholderTable
 388
 389     printlog "Placeholder - Table"
 390     '/// <b> Placeholder - Table </b>
 391
 392     Call hNewDocument
 393
 394     Call fFormatPageWriter("TabSeite")
 395     Breite.SetText "15"
 396     Hoehe.SetText "15"
 397     Links.SetText "0"
 398     Rechts.SetText "0"
 399     Oben.SetText "0"
 400     Unten.SetText "0"
 401     TabSeite.OK
 402     Sleep 2
 403     Kontext "Active"
 404     if Active.Exists then
 405         if Active.GetRT = 304 then ' is it a messagebox ?
 406             Active.Yes
 407         else
 408             Warnlog "Messagebox is not up "
 409         end if
 410     else
 411         Warnlog "Something wrong !"
 412     end if
 413
 414     '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
 415     '/// + select Table
 416     Call fInsertFieldsOther("TabFunktionen")
 417     Feldtyp.Select 5   'Placeholder
 418     Sleep 1
 419     Formatliste.Select 2
 420     Platzhalter.SetText "TableTableTableTableTable"
 421     Einfuegen.Click
 422     TabFunktionen.Close
 423
 424     '/// Check if the insertion is correct
 425     Call wTypeKeys "<MOD1 Home>"
 426     Call wTypeKeys "<Shift Right>"
 427     if fGetFieldContent() <> ("<TableTableTableTableTable>" )then
 428         Warnlog "Should get <TableTableTableTableTable> but get " & fGetFieldContent()
 429     end if
 430
 431     Call fSetToBigSize()
 432     Call wTypeKeys "<MOD1 Home>"
 433     Sleep 1
 434
 435         Call gMouseMove(0,0,30,25)
 436     Call gMouseClick(30,25)
 437     Sleep 3
 438
 439     Kontext "TabelleEinfuegenWriter"
 440     if TabelleEinfuegenWriter.Exists then
 441         TabelleEinfuegenWriter.Cancel
 442     else
 443         Warnlog "Insert table dialog isn't up !"
 444     end if
 445
 446     Call hCloseDocument
 447
 448 endcase
 449
 450 '-----------------------------------------------------------------
 451
 452 testcase tFunctionsPlaceholderFrame
 453
 454     printlog "Placeholder - Frame"
 455     '/// <b> Placeholder - Frame </b>
 456
 457     Call hNewDocument
 458
 459     fFormatPageWriter("TabSeite")
 460     Breite.SetText "15"
 461     Hoehe.SetText "15"
 462     Links.SetText "0"
 463     Rechts.SetText "0"
 464     Oben.SetText "0"
 465     Unten.SetText "0"
 466     TabSeite.OK
 467     Kontext "Active"
 468     if Active.Exists then
 469        if Active.GetRT = 304 then ' is it a messagebox ?
 470            Active.Yes
 471        else
 472            Warnlog "Messagebox is not up "
 473        end if
 474     else
 475        Warnlog "Something wrong !"
 476     end if
 477
 478     '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
 479     '/// + select Frame
 480     Call fInsertFieldsOther("TabFunktionen")
 481     Feldtyp.Select 5   'Placeholder
 482     Sleep 1
 483     Formatliste.Select 3
 484     Platzhalter.SetText "FrameFrameFrameFrameFrameFrame"
 485     Einfuegen.Click
 486     TabFunktionen.Close
 487
 488     '/// Check if the insertion is correct
 489     Call wTypeKeys "<MOD1 Home>"
 490     Call wTypeKeys "<Shift Right>"
 491     if fGetFieldContent() <> ("<FrameFrameFrameFrameFrameFrame>" )then
 492         Warnlog "Should get <FrameFrameFrameFrameFrameFrame> but get " & fGetFieldContent()
 493     end if
 494
 495     Call fSetToBigSize()
 496     Call wTypeKeys "<MOD1 Home>"
 497     Sleep 1
 498         Call gMouseMove(0,0,30,25)
 499     Call gMouseClick(30,25)
 500     Sleep 3
 501
 502     try
 503         Kontext
 504         Active.SetPage TabType
 505         Kontext "TabType"
 506         AutoHoehe.UnCheck
 507         TabType.Cancel
 508     catch
 509         Warnlog "Format/Frame dialog isn't up !"
 510     endcatch
 511
 512     Call hCloseDocument
 513
 514 endcase
 515
 516 '-----------------------------------------------------------------
 517
 518 testcase tFunctionsPlaceholderGraphics
 519
 520     printlog "Placeholder - Graphics"
 521     '/// <b> Placeholder - Graphics </b>
 522
 523     Call hNewDocument
 524
 525     fFormatPageWriter("TabSeite")
 526     Breite.SetText "15"
 527     Hoehe.SetText "15"
 528     Links.SetText "0"
 529     Rechts.SetText "0"
 530     Oben.SetText "0"
 531     Unten.SetText "0"
 532
 533     TabSeite.OK
 534     Kontext "Active"
 535     if Active.Exists then
 536         if Active.GetRT = 304 then ' is it a messagebox ?
 537             Active.Yes
 538         else
 539             Warnlog "Messagebox is not up "
 540         end if
 541     else
 542         Warnlog "Something wrong !"
 543     end if
 544
 545     '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
 546     '/// + select Graphics
 547     Call fInsertFieldsOther("TabFunktionen")
 548     Feldtyp.Select 5   'Placeholder
 549     Sleep 1
 550     Formatliste.Select 4
 551     Platzhalter.SetText "GraphicsGraphicsGraphicsGraphicsGraphics"
 552     Einfuegen.Click
 553     TabFunktionen.Close
 554
 555     '/// Check if the insertion is correct
 556     Call wTypeKeys "<MOD1 Home>"
 557     Call wTypeKeys "<Shift Right>"
 558     if fGetFieldContent() <> ("<GraphicsGraphicsGraphicsGraphicsGraphics>" )then
 559         Warnlog "Should get <GraphicsGraphicsGraphicsGraphicsGraphics> but get " & fGetFieldContent()
 560     end if
 561
 562     Call fSetToBigSize()
 563     Call wTypeKeys "<MOD1 Home>"
 564     Sleep 1
 565         Call gMouseMove(0,0,30,25)
 566     Call gMouseClick(30,25)
 567     Sleep 3
 568
 569     try
 570         Kontext "GrafikEinfuegenDlg"
 571         Oeffnen.Click
 572         GrafikEinfuegenDlg.Cancel
 573     catch
 574             Warnlog "Insert picture dialog isn't up !"
 575     endcatch
 576
 577     Call hCloseDocument
 578
 579 endcase
 580
 581 '-----------------------------------------------------------------
 582
 583 testcase tFunctionsPlaceholderObject
 584
 585     printlog "Placeholder - Object"
 586     '/// <b> Placeholder - Object </b>
 587
 588     Call hNewDocument
 589
 590     fFormatPageWriter("TabSeite")
 591     Breite.SetText "15"
 592     Hoehe.SetText "15"
 593     Links.SetText "0"
 594     Rechts.SetText "0"
 595     Oben.SetText "0"
 596     Unten.SetText "0"
 597     TabSeite.OK
 598     Kontext "Active"
 599     if Active.Exists then
 600         if Active.GetRT = 304 then ' is it a messagebox ?
 601             Active.Yes
 602         else
 603             Warnlog "Messagebox is not up "
 604         end if
 605     else
 606         Warnlog "Something wrong !"
 607     end if
 608
 609     '/// Insert/Fields/Other/Functions / Select "Placeholder" ,
 610     '/// + select object
 611     Call fInsertFieldsOther("TabFunktionen")
 612     Feldtyp.Select 5   'Placeholder
 613     Sleep 1
 614     Formatliste.Select 5
 615     Platzhalter.SetText "ObjectObjectObjectObjectObjectObject"
 616     Einfuegen.Click
 617     TabFunktionen.Close
 618
 619     '/// Check if the insertion is correct
 620     Call wTypeKeys "<MOD1 Home>"
 621     Call wTypeKeys "<Shift Right>"
 622     if fGetFieldContent() <> ("<ObjectObjectObjectObjectObjectObject>" )then
 623         Warnlog "Should get <ObjectObjectObjectObjectObjectObject> but get " & fGetFieldContent()
 624     end if
 625
 626     Call fSetToBigSize()
 627     Call wTypeKeys "<MOD1 Home>"
 628     Sleep 1
 629         Call gMouseMove(0,0,30,25)
 630     Call gMouseClick(30,25)
 631     Sleep 3
 632
 633     try
 634         Kontext "OLEObjektEinfuegen"
 635         NeuErstellen.Check
 636         OLEObjektEinfuegen.Cancel
 637     catch
 638         Warnlog "Insert OLE Object dialog isn't up !"
 639     endcatch
 640
 641     Call hCloseDocument
 642
 643 endcase
 644
 645 '-----------------------------------------------------------------
 646
 647 testcase tFunctionsInputlistRemove
 648
 649   Dim sItem1 as String
 650   Dim sItem2 as String
 651
 652   sItem1 = "First" : sItem2 = "Second"
 653
 654   printlog "Input list - Remove"
 655  '/// <b> Input list Remove</b>
 656
 657   Call hNewDocument
 658
 659   '/// Insert/Fields/Other/Functions / Select "Input list" ,
 660   '/// + insert 2 itmes , remove 1st one
 661    Call fInsertFieldsOther("TabFunktionen")
 662      Feldtyp.Select 2   'Input list
 663      Sleep 1
 664      NewListEntry.SetText  sItem1
 665      AddListEntry.Click
 666      NewListEntry.SetText  sItem2
 667      AddListEntry.Click
 668      Sleep 1
 669      Einfuegen.Click
 670      Call wTypeKeys "<Return>"
 671      Kontext "TabFunktionen"
 672      EntrysList.Select 1
 673      RemoveEntry.Click
 674      Einfuegen.Click
 675    TabFunktionen.Close
 676
 677   '/// Check if the insertion is correct
 678    Call wTypeKeys "<MOD1 Home>"
 679    Call wTypeKeys "<Shift Right>"
 680    if fGetFieldContent() <> sItem1 then
 681        Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
 682    end if
 683    Call wTypeKeys "<Down><Home>"
 684    Call wTypeKeys "<Shift Right>"
 685    if fGetFieldContent() <> sItem2 then
 686        Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
 687    end if
 688
 689   Call hCloseDocument
 690
 691 endcase
 692
 693 '-----------------------------------------------------------------
 694
 695 testcase tFunctionsInputlistMoveUp
 696
 697   Dim sItem1 as String
 698   Dim sItem2 as String
 699
 700   sItem1 = "First" : sItem2 = "Second"
 701
 702   printlog "Input list - Move up"
 703  '/// <b> Input list Move up</b>
 704
 705   Call hNewDocument
 706
 707   '/// Insert/Fields/Other/Functions / Select "Input list" ,
 708   '/// + insert 2 itmes , press move up
 709    Call fInsertFieldsOther("TabFunktionen")
 710      Feldtyp.Select 2   'Input list
 711      Sleep 1
 712      NewListEntry.SetText  sItem1
 713      AddListEntry.Click
 714      NewListEntry.SetText  sItem2
 715      AddListEntry.Click
 716      Sleep 1
 717      Einfuegen.Click
 718      Call wTypeKeys "<Return>"
 719      Kontext "TabFunktionen"
 720      MoveUpEntry.Click
 721      Einfuegen.Click
 722    TabFunktionen.Close
 723
 724   '/// Check if the insertion is correct
 725    Call wTypeKeys "<MOD1 Home>"
 726    Call wTypeKeys "<Shift Right>"
 727    if fGetFieldContent() <> sItem1 then
 728        Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
 729    end if
 730    Call wTypeKeys "<Down><Home>"
 731    Call wTypeKeys "<Shift Right>"
 732    if fGetFieldContent() <> sItem2 then
 733        Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
 734    end if
 735
 736   Call hCloseDocument
 737
 738 endcase
 739
 740 '-----------------------------------------------------------------
 741
 742 testcase tFunctionsInputlistMoveDown
 743
 744   Dim sItem1 as String
 745   Dim sItem2 as String
 746
 747   sItem1 = "First" : sItem2 = "Second"
 748
 749   printlog "Input list - Move down"
 750  '/// <b> Input list Move down</b>
 751
 752   Call hNewDocument
 753
 754   '/// Insert/Fields/Other/Functions / Select "Input list" ,
 755   '/// + insert 2 itmes , press move down
 756    Call fInsertFieldsOther("TabFunktionen")
 757      Feldtyp.Select 2   'Input list
 758      Sleep 1
 759      NewListEntry.SetText  sItem1
 760      AddListEntry.Click
 761      NewListEntry.SetText  sItem2
 762      AddListEntry.Click
 763      Sleep 1
 764      Einfuegen.Click
 765      Call wTypeKeys "<Return>"
 766      Kontext "TabFunktionen"
 767      EntrysList.Select 1
 768      MoveDownEntry.Click
 769      Einfuegen.Click
 770    TabFunktionen.Close
 771
 772   '/// Check if the insertion is correct
 773    Call wTypeKeys "<MOD1 Home>"
 774    Call wTypeKeys "<Shift Right>"
 775    if fGetFieldContent() <> sItem1 then
 776        Warnlog "Should get " & sItem1 & " but get " & fGetFieldContent()
 777    end if
 778    Call wTypeKeys "<Down><Home>"
 779    Call wTypeKeys "<Shift Right>"
 780    if fGetFieldContent() <> sItem2 then
 781        Warnlog "Should get " & sItem2 & " but get " & fGetFieldContent()
 782    end if
 783
 784   Call hCloseDocument
 785
 786 endcase
 787
 788 '-----------------------------------------------------------------
 789
 790 testcase tFunctionsCombineCharacter
 791
 792         Dim sCombineCharacter as String
 793     Dim sTestFile as String
 794
 795     sCombineCharacter = "ABC"
 796     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\fields\CombineTest.sxw")
 797
 798     printlog "Combine Character"
 799     '/// <b> Combine Character </b>
 800
 801     Call hNewDocument
 802
 803     '/// Open test file pageTest.sxw
 804     Call hFileOpen(sTestFile)
 805     Call sMakeReadOnlyDocumentEditable
 806     Call wTypeKeys "<MOD1 Home>"
 807     Call wTypeKeys "<Right>"
 808
 809     '/// Insert/Fields/Other/Functions / Select "Combine characters"
 810     Call fInsertFieldsOther("TabFunktionen")
 811     Feldtyp.Select 6   'Combine characters
 812     Sleep 1
 813     Namefeld.SetText sCombineCharacter
 814     Einfuegen.Click
 815     TabFunktionen.Close
 816
 817     '/// Check if the insertion is correct
 818     Call wTypeKeys "<Shift Left>"
 819     if fGetFieldContent() <> sCombineCharacter then
 820         Warnlog "Should get " & sCombineCharacter & " but get " & fGetFieldContent()
 821     end if
 822
 823     Call wTypeKeys ( "<Shift F4>" )
 824     FormatAnchorToPage
 825     Sleep 1
 826     Call fPositionAndSize("TabPositionAndSizeWriter")
 827     if StrToDouble(Horizontalby.Gettext) < 6.5 OR StrToDouble(Horizontalby.Gettext) > 7.5 then
 828         Warnlog "Something wrong in combine character"
 829     end if
 830     TabPositionAndSizeWriter.Cancel
 831
 832     Call hCloseDocument
 833
 834 endcase
 835
 836 '-----------------------------------------------------------------