testautomation/writer/optional/includes/dropdownLB/w_dropdownLB1.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_dropdownLB1.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: vg $ $Date: 2008-08-18 12:26:11 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : helge.delfs@sun.com
  35 '*
  36 '* short description : Test Drop Down List Box
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tDropDownLB_1           'Check 'Input List'
  41 ' #1 tDropDownLB_2           'All input field should be initially empty
  42 ' #1 tDropDownLB_3           'Test Add button
  43 ' #1 tDropDownLB_4           'Test Return in Item editbox
  44 ' #1 tDropDownLB_5           'Test new item will always be added at the end of 'Items on list'
  45 ' #1 tDropDownLB_6           'The first entry in the list box is the shown default
  46 ' #1 tDropDownLB_7           'Test 'Remove' button
  47 ' #1 tDropDownLB_8           'Test 'Move Up' button
  48 ' #1 tDropDownLB_9           'Test 'Move Down' button
  49 ' #1 tDropDownLB_10          'Test 'Ctrl+Shift+F9'
  50 ' #1 tDropDownLB_11          'OK button should insert new value
  51 ' #1 tDropDownLB_12          'Test Next button
  52 ' #1 tDropDownLB_13          'Test Edit button
  53 ' #1 tDropDownLB_14          'Test Edit/Fields
  54 ' #1 tDropDownLB_15          'Test Right arrow button
  55 ' #1 tDropDownLB_16          'Test Left arrow button
  56 ' #1 tDropDownLB_17          'Import from Word document
  57 '*
  58 '\***********************************************************************
  59
  60 testcase tDropDownLB_1
  61
  62     Dim iType as Integer
  63     iType = 2
  64
  65     PrintLog "- Check 'Input List'"
  66
  67     Call hNewDocument
  68
  69     PrintLog "- Insert/Field/Other/ Functions"
  70     PrintLog "- Check if 'Input List' exists in Type area"
  71     Call fInsertFieldsOther("TabFunktionen")
  72     Feldtyp.Select iType
  73     Sleep 3
  74     if Not EntrysList.IsVisible then
  75         Warnlog "Maybe wrong type selected in list. Not 'Input list'"
  76     end if
  77     TabFunktionen.Close
  78
  79     Call hCloseDocument
  80
  81 endcase
  82
  83 '-------------------------------------------------------------------------------------------
  84
  85 testcase tDropDownLB_2
  86
  87   Dim  iType  as Integer
  88
  89   iType = 2
  90
  91   PrintLog "- All input field should be initially empty"
  92
  93   PrintLog "- Open a new document"
  94    Call hNewDocument
  95
  96    PrintLog "- Insert/Field/Other/ Functions"
  97    PrintLog "- select Input list"
  98    PrintLog "- Check if all input field should be initially empty"
  99     Call fInsertFieldsOther("TabFunktionen")
 100         Feldtyp.Select iType
 101         Sleep 3
 102         if Len(NewListEntry.GetText) <> 0 then Warnlog "Item isn't empty!"
 103         if EntrysList.GetItemCount   <> 0 then Warnlog "Items on list isn't empty!"
 104         if Len(EntryName.GetText)    <> 0 then Warnlog "Name isn't empty!"
 105     TabFunktionen.Close
 106
 107    Call hCloseDocument
 108
 109 endcase
 110
 111 '-------------------------------------------------------------------------------------------
 112
 113 testcase tDropDownLB_3
 114
 115   Dim iType as Integer
 116   Dim sItem as String
 117
 118   iType = 2  : sItem = "Entry 1"
 119
 120   PrintLog "- Test Add button"
 121
 122   PrintLog "- Open a new document"
 123    Call hNewDocument
 124
 125    PrintLog "- Insert/Field/Other/ Functions"
 126    PrintLog "- select Input list"
 127    PrintLog "- Input text in 'Item' , then click 'Add' button"
 128    PrintLog "- Check if the text is inserted into 'Items on List'"
 129     Call fInsertFieldsOther("TabFunktionen")
 130         Feldtyp.Select iType
 131         Sleep 3
 132         NewListEntry.SetText sItem
 133         Sleep 1
 134         AddListEntry.Click
 135         Sleep 1
 136         if EntrysList.GetSelText(1) <> sItem then Warnlog "the text isn't inserted into 'Items on list' correctly!"
 137     TabFunktionen.Close
 138
 139    Call hCloseDocument
 140
 141 endcase
 142
 143 '-------------------------------------------------------------------------------------------
 144
 145 testcase tDropDownLB_4
 146
 147   Dim iType as Integer
 148   Dim sItem as String
 149
 150   iType = 2  : sItem = "Entry 1"
 151
 152   PrintLog "- Test Pressing return in Item editbox"
 153
 154   PrintLog "- Open a new document"
 155    Call hNewDocument
 156
 157    PrintLog "- Insert/Field/Other/ Functions"
 158    PrintLog "- select Input list"
 159    PrintLog "- Input text in 'Item' , then click 'Add' button"
 160    PrintLog "- Check if the text is inserted into 'Items on List'"
 161     Call fInsertFieldsOther("TabFunktionen")
 162         Feldtyp.Select iType
 163         Sleep 3
 164         NewListEntry.SetText sItem
 165         Sleep 1
 166         NewListEntry.Typekeys "<Return>"
 167         Sleep 1
 168         if EntrysList.GetSelText(1) <> sItem then Warnlog "the text isn't inserted into 'Items on list' correctly!"
 169     TabFunktionen.Close
 170
 171    Call hCloseDocument
 172
 173 endcase
 174
 175 '-------------------------------------------------------------------------------------------
 176
 177 testcase tDropDownLB_5
 178
 179   Dim iType as Integer
 180   Dim sItem() as String
 181   Dim i as Integer
 182   Dim j as Integer
 183
 184   iType = 2
 185   sItem = Array( _
 186                    "Entry 1"    , _
 187                    "Entry 2"    , _
 188                    "Entry 3"    , _
 189                    "Entry 4"    , _
 190                    "Entry 5"    , _
 191                    "Entry 6"    , _
 192                    )
 193   j = UBound(sItem)
 194
 195   PrintLog "- Test new item will always be added at the end of 'Items on list'"
 196
 197   PrintLog "- Open a new document"
 198    Call hNewDocument
 199
 200    PrintLog "- Insert/Field/Other/ Functions"
 201    PrintLog "- select Input list"
 202    PrintLog "- Input some items"
 203    PrintLog "- Check if new item will always be added at the end of 'Items on list'"
 204     Call fInsertFieldsOther("TabFunktionen")
 205         Feldtyp.Select iType
 206         Sleep 3
 207
 208         For i = 0 to j
 209             NewListEntry.SetText sItem(i)
 210             Sleep 1
 211             AddListEntry.Click
 212             Sleep 1
 213         next i
 214
 215         For i = 0 to j
 216             try
 217                 EntrysList.Select i+1
 218                 Sleep 1
 219             catch
 220                 Warnlog "There should be 6 itmes in the Items on list!"
 221             endcatch
 222             if EntrysList.GetSelText <> sItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
 223         next i
 224     TabFunktionen.Close
 225
 226    Call hCloseDocument
 227
 228 endcase
 229
 230 '-------------------------------------------------------------------------------------------
 231
 232 testcase tDropDownLB_6
 233
 234   Dim iType as Integer
 235   Dim sItem() as String
 236   Dim i as Integer
 237   Dim j as Integer
 238
 239   iType = 2
 240   sItem = Array( _
 241                    "Entry 1"    , _
 242                    "Entry 2"    , _
 243                    "Entry 3"    , _
 244                    "Entry 4"    , _
 245                    "Entry 5"    , _
 246                    "Entry 6"    , _
 247                    )
 248   j = UBound(sItem)
 249
 250   PrintLog "- The first entry in the list box is the shown default"
 251
 252   PrintLog "- Open a new document"
 253    Call hNewDocument
 254
 255    PrintLog "- Insert/Field/Other/ Functions"
 256    PrintLog "- select Input list"
 257    PrintLog "- Input some items"
 258    PrintLog "- Set focus to the middle Item"
 259    PrintLog "- click insert button , then Close the dialog"
 260     Call fInsertFieldsOther("TabFunktionen")
 261         Feldtyp.Select iType
 262         Sleep 3
 263
 264         For i = 0 to j
 265             NewListEntry.SetText sItem(i)
 266             Sleep 1
 267             AddListEntry.Click
 268             Sleep 1
 269         next i
 270         EntrysList.Select 3
 271         Sleep 1
 272         Einfuegen.Click
 273         Sleep 1
 274     TabFunktionen.Close
 275
 276     EditSelectAll
 277     EditCopy
 278
 279     if GetClipboardText <>  sItem(0) then  Warnlog "should get " &sItem(0) & " but get " & GetClipboardText
 280
 281    Call hCloseDocument
 282
 283 endcase
 284
 285 '-------------------------------------------------------------------------------------------
 286
 287 testcase tDropDownLB_7
 288
 289   Dim iType as Integer
 290   Dim sItem() as String
 291   Dim i as Integer
 292   Dim j as Integer
 293
 294   iType = 2
 295   sItem = Array( _
 296                    "Entry 1"    , _
 297                    "Entry 2"    , _
 298                    "Entry 3"    , _
 299                    "Entry 4"    , _
 300                  )
 301   j = UBound(sItem)
 302
 303   PrintLog "- Test Remove button"
 304
 305   PrintLog "- Open a new document"
 306    Call hNewDocument
 307
 308    PrintLog "- Insert/Field/Other/ Functions"
 309    PrintLog "- select Input list"
 310    PrintLog "- Input some items"
 311    PrintLog "- Set focus to the middle Item"
 312    PrintLog "- click remove button"
 313    PrintLog "- check if the selected item is removed"
 314     Call fInsertFieldsOther("TabFunktionen")
 315         Feldtyp.Select iType
 316         Sleep 3
 317
 318         try
 319             RemoveEntry.Click
 320             Warnlog "The remove button should be only ebabled when an item is selected!"
 321         catch
 322         endcatch
 323
 324         For i = 0 to j
 325             NewListEntry.SetText sItem(i)
 326             Sleep 1
 327             AddListEntry.Click
 328             Sleep 1
 329         next i
 330
 331         EntrysList.Select 3
 332         Sleep 1
 333         RemoveEntry.Click
 334         Sleep 1
 335
 336         EntrysList.Select 1
 337         Sleep 1
 338         if EntrysList.GetSelText <> sItem(0) then Warnlog "Hope to get " & sItem(0) & " but get " & EntrysList.GetSelText
 339
 340         EntrysList.Select 2
 341         Sleep 1
 342         if EntrysList.GetSelText <> sItem(1) then Warnlog "Hope to get " & sItem(1) & " but get " & EntrysList.GetSelText
 343
 344         EntrysList.Select 3
 345         Sleep 1
 346         if EntrysList.GetSelText <> sItem(3) then Warnlog "Hope to get " & sItem(3) & " but get " & EntrysList.GetSelText
 347
 348         try
 349             EntrysList.Select 4
 350             Warnlog "There should be only 3 itmes in the Items on list !"
 351         catch
 352         endcatch
 353
 354     TabFunktionen.Close
 355
 356    Call hCloseDocument
 357
 358 endcase
 359
 360 '-------------------------------------------------------------------------------------------
 361
 362 testcase tDropDownLB_8
 363
 364   Dim iType as Integer
 365   Dim sItem() as String
 366   Dim sNewItem() as String
 367   Dim i as Integer
 368   Dim j as Integer
 369
 370   iType = 2
 371   sItem = Array( _
 372                    "Entry 1"    , _
 373                    "Entry 2"    , _
 374                    "Entry 3"    , _
 375                    "Entry 4"    , _
 376                  )
 377   sNewItem = Array( _
 378                    "Entry 4"    , _
 379                    "Entry 1"    , _
 380                    "Entry 2"    , _
 381                    "Entry 3"    , _
 382                    )
 383
 384   j = UBound(sItem)
 385
 386   PrintLog "- Test 'Move Up' button"
 387
 388   PrintLog "- Open a new document"
 389    Call hNewDocument
 390
 391    PrintLog "- Insert/Field/Other/ Functions"
 392    PrintLog "- select Input list"
 393    PrintLog "- Input some items"
 394    PrintLog "- Set focus to the last Item,"
 395    PrintLog "- click Move Up button third times"
 396    PrintLog "- check if the 4th item is the 1st one"
 397     Call fInsertFieldsOther("TabFunktionen")
 398         Feldtyp.Select iType
 399         Sleep 3
 400
 401         For i = 0 to j
 402             NewListEntry.SetText sItem(i)
 403             Sleep 1
 404             AddListEntry.Click
 405             Sleep 1
 406         next i
 407
 408         EntrysList.Select 4
 409         Sleep 1
 410         MoveUpEntry.Click
 411         Sleep 1
 412         MoveUpEntry.Click
 413         Sleep 1
 414         MoveUpEntry.Click
 415         Sleep 1
 416
 417         For i = 0 to j
 418             EntrysList.Select i+1
 419             Sleep 1
 420             if EntrysList.GetSelText <> sNewItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
 421         next i
 422     TabFunktionen.Close
 423
 424    Call hCloseDocument
 425
 426 endcase
 427
 428 '-------------------------------------------------------------------------------------------
 429
 430 testcase tDropDownLB_9
 431
 432   Dim iType as Integer
 433   Dim sItem() as String
 434   Dim sNewItem() as String
 435   Dim i as Integer
 436   Dim j as Integer
 437
 438   iType = 2
 439   sItem = Array( _
 440                    "Entry 1"    , _
 441                    "Entry 2"    , _
 442                    "Entry 3"    , _
 443                    "Entry 4"    , _
 444                  )
 445   sNewItem = Array( _
 446                    "Entry 2"    , _
 447                    "Entry 3"    , _
 448                    "Entry 4"    , _
 449                    "Entry 1"    , _
 450                    )
 451   j = UBound(sItem)
 452
 453   PrintLog "- Test 'Move Down' button"
 454
 455   PrintLog "- Open a new document"
 456    Call hNewDocument
 457
 458    PrintLog "- Insert/Field/Other/ Functions"
 459    PrintLog "- select Input list"
 460    PrintLog "- Input some items"
 461    PrintLog "- Set focus to the 1st Item,"
 462    PrintLog "- click Move Down button third times"
 463    PrintLog "- check if the 1st item is the 4th one"
 464     Call fInsertFieldsOther("TabFunktionen")
 465         Feldtyp.Select iType
 466         Sleep 3
 467
 468         For i = 0 to j
 469             NewListEntry.SetText sItem(i)
 470             Sleep 1
 471             AddListEntry.Click
 472             Sleep 1
 473         next i
 474
 475         EntrysList.Select 1
 476         Sleep 1
 477         MoveDownEntry.Click
 478         Sleep 1
 479         MoveDownEntry.Click
 480         Sleep 1
 481         MoveDownEntry.Click
 482         Sleep 1
 483
 484         For i = 0 to j
 485             EntrysList.Select i+1
 486             Sleep 1
 487             if EntrysList.GetSelText <> sNewItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
 488         next i
 489     TabFunktionen.Close
 490
 491    Call hCloseDocument
 492
 493 endcase
 494
 495 '-------------------------------------------------------------------------------------------
 496
 497 testcase tDropDownLB_10
 498
 499   Dim iType as Integer
 500   Dim sItem as String
 501
 502   iType = 2
 503   sItem = "Entry 1"
 504
 505   PrintLog "- Test 'Ctrl+Shift+F9'"
 506
 507   PrintLog "- Open a new document"
 508    Call hNewDocument
 509
 510    PrintLog "- Insert/Field/Other/ Functions"
 511    PrintLog "- select Input list"
 512    PrintLog "- Input 1 item"
 513    PrintLog "- click insert and close the dialog"
 514     Call fInsertFieldsOther("TabFunktionen")
 515         Feldtyp.Select iType
 516         Sleep 3
 517         NewListEntry.SetText sItem
 518         Sleep 1
 519         AddListEntry.Click
 520         Sleep 1
 521         Einfuegen.Click
 522         Sleep 1
 523     TabFunktionen.Close
 524
 525    PrintLog "- Set focus in front of the list"
 526     Call wTypeKeys "<MOD1 Home>"
 527
 528    PrintLog "- Press Ctrl+Shift+F9"
 529     Call wTypeKeys "<MOD1 Shift F9>"
 530
 531     Kontext "EditInputList"
 532     if EditInputList.Exists then
 533         EditInputList.Cancel
 534     else
 535         Warnlog "The dialog can't be actived ."
 536     end if
 537
 538    Call hCloseDocument
 539
 540 endcase
 541
 542 '-------------------------------------------------------------------------------------------
 543
 544 testcase tDropDownLB_11
 545
 546   Dim iType as Integer
 547   Dim sItem1 as String
 548   Dim sItem2 as String
 549
 550   iType  = 2
 551   sItem1 = "Entry 1" : sItem2 = "Entry 2"
 552
 553   PrintLog "- OK button should insert new value"
 554
 555   PrintLog "- Open a new document"
 556    Call hNewDocument
 557
 558    PrintLog "- Insert/Field/Other/ Functions"
 559    PrintLog "- select Input list"
 560    PrintLog "- Input 2 items"
 561    PrintLog "- click insert and close the dialog"
 562     Call fInsertFieldsOther("TabFunktionen")
 563         Feldtyp.Select iType
 564         Sleep 3
 565         NewListEntry.SetText sItem1
 566         Sleep 1
 567         AddListEntry.Click
 568         Sleep 1
 569         NewListEntry.SetText sItem2
 570         Sleep 1
 571         AddListEntry.Click
 572         Sleep 1
 573
 574         Einfuegen.Click
 575         Sleep 1
 576     TabFunktionen.Close
 577
 578    PrintLog "- Set focus in front of the list"
 579     Call wTypeKeys "<MOD1 Home>"
 580
 581    PrintLog "- Press Ctrl+Shift+F9"
 582     Call wTypeKeys "<MOD1 Shift F9>"
 583
 584    PrintLog "- select 2nd list and press OK"
 585     Kontext "EditInputList"
 586       AllListEntrys.Select 2
 587       Sleep 1
 588     EditInputList.OK
 589
 590    PrintLog "- Check if the result is right"
 591     EditSelectAll
 592     EditCopy
 593
 594     if GetClipboardText <>  sItem2 then  Warnlog "should get " &sItem2 & " but get " & GetClipboardText
 595
 596    Call hCloseDocument
 597
 598 endcase
 599
 600 '-------------------------------------------------------------------------------------------
 601
 602 testcase tDropDownLB_12
 603
 604   Dim iType as Integer
 605   Dim sItem1() as String
 606   Dim sItem2() as String
 607   Dim i as Integer
 608   Dim j as Integer
 609
 610   iType = 2
 611   sItem1 = Array( _
 612                    "Entry 1"    , _
 613                    "Entry 2"    , _
 614                    "Entry 3"    , _
 615                    "Entry 4"    , _
 616                    )
 617   sItem2 = Array( _
 618                    "Entry A"    , _
 619                    "Entry B"    , _
 620                    "Entry C"    , _
 621                    "Entry D"    , _
 622                    )
 623
 624   j = UBound(sItem1)
 625
 626   PrintLog "- Test Next button"
 627   PrintLog "- Open a new document"
 628    Call hNewDocument
 629
 630    PrintLog "- Insert/Field/Other/ Functions"
 631    PrintLog "- select Input list"
 632    PrintLog "- Input some items"
 633    PrintLog "- click insert and close the dialog"
 634     Call fInsertFieldsOther("TabFunktionen")
 635
 636         Feldtyp.Select iType
 637         Sleep 3
 638
 639         For i = 0 to j
 640             NewListEntry.SetText sItem1(i)
 641             Sleep 1
 642             AddListEntry.Click
 643             Sleep 1
 644         next i
 645
 646         Einfuegen.Click
 647         Sleep 1
 648     TabFunktionen.Close
 649
 650    PrintLog "- Set focus to another line"
 651     Call wTypeKeys "<End><Return><Return>"
 652
 653    PrintLog "- Insert/Field/Other/ Functions"
 654    PrintLog "- select Input list"
 655    PrintLog "- Input some other items"
 656    PrintLog "- click insert and close the dialog"
 657     Call fInsertFieldsOther("TabFunktionen")
 658
 659         Feldtyp.Select iType
 660         Sleep 3
 661
 662         For i = 0 to j
 663             NewListEntry.SetText sItem2(i)
 664             Sleep 1
 665             AddListEntry.Click
 666             Sleep 1
 667         next i
 668
 669         Einfuegen.Click
 670         Sleep 1
 671     TabFunktionen.Close
 672
 673    PrintLog "- Set focus in front of the 1st list."
 674     Call wTypeKeys "<MOD1 Home>"
 675
 676    PrintLog "- Press Ctrl+Shift+F9"
 677     Call wTypeKeys "<MOD1 Shift F9>"
 678
 679    PrintLog "- the 1st group items should be in edit area."
 680     Kontext "EditInputList"
 681       For i = 0 to j
 682           AllListEntrys.Select i+1
 683           Sleep 1
 684           if AllListEntrys.GetSelText <> sItem1(i) then Warnlog "Hope to get " & sItem1(i) & " but get " & AllListEntrys.GetSelText
 685       next i
 686
 687      PrintLog "- Press next button , the 2nd group items should be in edit area."
 688       NextListEntry.click
 689       Sleep 1
 690
 691       For i = 0 to j
 692           AllListEntrys.Select i+1
 693           Sleep 1
 694           if AllListEntrys.GetSelText <> sItem2(i) then Warnlog "Hope to get " & sItem2(i) & " but get " & AllListEntrys.GetSelText
 695       next i
 696
 697     EditInputList.Cancel
 698
 699    Call hCloseDocument
 700
 701 endcase
 702
 703 '-------------------------------------------------------------------------------------------
 704
 705 testcase tDropDownLB_13
 706
 707   Dim iType as Integer
 708   Dim sItem1 as String
 709   Dim sItem2 as String
 710
 711   iType  = 2
 712   sItem1 = "Entry 1" : sItem2 = "Entry A"
 713
 714   PrintLog "- Test Edit button"
 715
 716   PrintLog "- Open a new document"
 717    Call hNewDocument
 718
 719    PrintLog "- Insert/Field/Other/ Functions"
 720    PrintLog "- select Input list"
 721    PrintLog "- Input a item"
 722    PrintLog "- click insert and close the dialog"
 723     Call fInsertFieldsOther("TabFunktionen")
 724         Feldtyp.Select iType
 725         Sleep 3
 726
 727         NewListEntry.SetText sItem1
 728         Sleep 1
 729         AddListEntry.Click
 730         Sleep 1
 731
 732         Einfuegen.Click
 733         Sleep 1
 734     TabFunktionen.Close
 735
 736    PrintLog "- Set focus to another line"
 737     Call wTypeKeys "<End><Return><Return>"
 738
 739    PrintLog "- Insert/Field/Other/ Functions"
 740    PrintLog "- select Input list"
 741    PrintLog "- Input another item"
 742    PrintLog "- click insert and close the dialog"
 743     Call fInsertFieldsOther("TabFunktionen")
 744         Feldtyp.Select iType
 745         Sleep 3
 746
 747         NewListEntry.SetText sItem2
 748         Sleep 1
 749         AddListEntry.Click
 750         Sleep 1
 751
 752         Einfuegen.Click
 753         Sleep 1
 754     TabFunktionen.Close
 755
 756    PrintLog "- Set focus in front of the 1st list"
 757     Call wTypeKeys "<MOD1 Home>"
 758
 759    PrintLog "- Press Ctrl+Shift+F9"
 760     Call wTypeKeys "<MOD1 Shift F9>"
 761
 762    PrintLog "- Press Edit button , the edit/field dialog should be up"
 763     Kontext "EditInputList"
 764       EditListEntry.click
 765       Sleep 1
 766
 767       Kontext "FeldbefehlBearbeitenFunktionen"
 768       if FeldbefehlBearbeitenFunktionen.Exists then
 769           EntrysList.Select 1
 770           if EntrysList.GetSelText <> sItem1 then
 771               Warnlog "Hope to get " & sItem1 & " but get " & EntrysList.GetSelText & "->Bug#115731"
 772           end if
 773           FeldbefehlBearbeitenFunktionen.Cancel
 774       else
 775           Warnlog "The dialog can't be actived ."
 776       end if
 777
 778     Kontext "EditInputList"
 779     EditInputList.cancel
 780
 781    Call hCloseDocument
 782
 783 endcase
 784
 785 '-------------------------------------------------------------------------------------------
 786
 787 testcase tDropDownLB_14
 788
 789   Dim iType as Integer
 790   Dim sItem() as String
 791   Dim sEntryName as String
 792   Dim i as Integer
 793   Dim j as Integer
 794
 795   iType = 2
 796   sEntryName = "entryTest"
 797   sItem = Array( _
 798                    "Entry 1"    , _
 799                    "Entry 2"    , _
 800                    "Entry 3"    , _
 801                    "Entry 4"    , _
 802                    "Entry 5"    , _
 803                    "Entry 6"    , _
 804                  )
 805   j = UBound(sItem)
 806
 807   PrintLog "- Test Edit/Fields"
 808
 809   PrintLog "- Open a new document"
 810    Call hNewDocument
 811
 812    PrintLog "- Insert/Field/Other/ Functions"
 813    PrintLog "- select Input list"
 814    PrintLog "- Input some items"
 815    PrintLog "- set Entry name"
 816    PrintLog "- click insert button , then Close the dialog"
 817     Call fInsertFieldsOther("TabFunktionen")
 818         Feldtyp.Select iType
 819         Sleep 3
 820
 821         For i = 0 to j
 822             NewListEntry.SetText sItem(i)
 823             Sleep 1
 824             AddListEntry.Click
 825             Sleep 1
 826         next i
 827
 828         EntryName.SetText sEntryName
 829         Einfuegen.Click
 830         Sleep 1
 831
 832     TabFunktionen.Close
 833
 834    PrintLog "- Set focus in front of the 1st list"
 835     Call wTypeKeys "<Home>"
 836
 837    PrintLog "- Edit/Fields , check if the entry items' info is correct."
 838     EditFields
 839     Kontext "FeldbefehlBearbeitenFunktionen"
 840       For i = 0 to j
 841           EntrysList.Select i+1
 842           Sleep 1
 843           if EntrysList.GetSelText <> sItem(i) then Warnlog "Hope to get " & sItem(i) & " but get " & EntrysList.GetSelText
 844       next i
 845       if EntryName.GetText <> sEntryName then  Warnlog "Entry name should be " & sEntryName & " but get " & EntryName.GetText
 846     FeldbefehlBearbeitenFunktionen.Cancel
 847
 848    Call hCloseDocument
 849
 850 endcase
 851
 852 '-------------------------------------------------------------------------------------------
 853
 854 testcase tDropDownLB_15
 855
 856   Dim iType as Integer
 857   Dim sItem1 as String
 858   Dim sItem2 as String
 859
 860   iType  = 2
 861   sItem1 = "Entry 1" : sItem2 = "Entry A"
 862
 863   PrintLog "- Test Right arrow button"
 864
 865   PrintLog "- Open a new document"
 866    Call hNewDocument
 867
 868    PrintLog "- Insert/Field/Other/ Functions"
 869    PrintLog "- select Input list"
 870    PrintLog "- Input a item"
 871    PrintLog "- click insert and close the dialog"
 872     Call fInsertFieldsOther("TabFunktionen")
 873         Feldtyp.Select iType
 874         Sleep 3
 875
 876         NewListEntry.SetText sItem1
 877         Sleep 1
 878         AddListEntry.Click
 879         Sleep 1
 880
 881         Einfuegen.Click
 882         Sleep 1
 883     TabFunktionen.Close
 884
 885    PrintLog "- Set focus to another line"
 886     Call wTypeKeys "<End><Return><Return>"
 887
 888    PrintLog "- Insert/Field/Other/ Functions"
 889    PrintLog "- select Input list"
 890    PrintLog "- Input another item"
 891    PrintLog "- click insert and close the dialog"
 892     Call fInsertFieldsOther("TabFunktionen")
 893         Feldtyp.Select iType
 894         Sleep 3
 895
 896         NewListEntry.SetText sItem2
 897         Sleep 1
 898         AddListEntry.Click
 899         Sleep 1
 900
 901         Einfuegen.Click
 902         Sleep 1
 903     TabFunktionen.Close
 904
 905    PrintLog "- Set focus in front of the 1st list."
 906     Call wTypeKeys "<MOD1 Home>"
 907
 908    PrintLog "- Edit/Fields"
 909     EditFields
 910
 911    PrintLog "- click Right arrow button"
 912     Kontext "FeldbefehlBearbeitenFunktionen"
 913       EntrysList.Select 1
 914       if EntrysList.GetSelText <> sItem1 then
 915           Warnlog "1.Hope to get " & sItem1 & " but get " & EntrysList.GetSelText
 916       end if
 917       NaechsterFeldbefehl.Click
 918       Sleep 1
 919       EntrysList.Select 1
 920       if EntrysList.GetSelText <> sItem2 then
 921           Warnlog "2.Hope to get " & sItem2 & " but get " & EntrysList.GetSelText
 922       end if
 923     FeldbefehlBearbeitenFunktionen.Cancel
 924
 925    Call hCloseDocument
 926
 927 endcase
 928
 929 '-------------------------------------------------------------------------------------------
 930
 931 testcase tDropDownLB_16
 932
 933   Dim iType as Integer
 934   Dim sItem1 as String
 935   Dim sItem2 as String
 936
 937   iType  = 2
 938   sItem1 = "Entry 1" : sItem2 = "Entry A"
 939
 940   PrintLog "- Test Left arrow button"
 941
 942   PrintLog "- Open a new document"
 943    Call hNewDocument
 944
 945    PrintLog "- Insert/Field/Other/ Functions"
 946    PrintLog "- select Input list"
 947    PrintLog "- Input a item"
 948    PrintLog "- click insert and close the dialog"
 949     Call fInsertFieldsOther("TabFunktionen")
 950         Feldtyp.Select iType
 951         Sleep 3
 952
 953         NewListEntry.SetText sItem1
 954         Sleep 1
 955         AddListEntry.Click
 956         Sleep 1
 957
 958         Einfuegen.Click
 959         Sleep 1
 960     TabFunktionen.Close
 961
 962    PrintLog "- Set focus to another line."
 963     Call wTypeKeys "<End><Return><Return>"
 964
 965    PrintLog "- Insert/Field/Other/ Functions"
 966    PrintLog "- select Input list"
 967    PrintLog "- Input another item"
 968    PrintLog "- click insert and close the dialog"
 969     Call fInsertFieldsOther("TabFunktionen")
 970         Feldtyp.Select iType
 971         Sleep 3
 972
 973         NewListEntry.SetText sItem2
 974         Sleep 1
 975         AddListEntry.Click
 976         Sleep 1
 977
 978         Einfuegen.Click
 979         Sleep 1
 980     TabFunktionen.Close
 981
 982    PrintLog "- Set focus in front of the 2nd list."
 983     Call wTypeKeys "<Home>"
 984
 985    PrintLog "- Edit/Fields"
 986     EditFields
 987
 988    PrintLog "- click Left arrow button."
 989     Kontext "FeldbefehlBearbeitenFunktionen"
 990       EntrysList.Select 1
 991       if EntrysList.GetSelText <> sItem2 then
 992           Warnlog "1.Hope to get " & sItem2 & " but get " & EntrysList.GetSelText
 993       end if
 994       VorigerFeldbefehl.Click
 995       Sleep 1
 996       EntrysList.Select 1
 997       if EntrysList.GetSelText <> sItem1 then
 998           Warnlog "2.Hope to get " & sItem1 & " but get " & EntrysList.GetSelText
 999       end if
1000     FeldbefehlBearbeitenFunktionen.Cancel
1001
1002    Call hCloseDocument
1003
1004 endcase
1005
1006 '-------------------------------------------------------------------------------------------
1007
1008 testcase tDropDownLB_17
1009
1010     Dim sTestFile as String
1011     Dim sItem1() as String
1012     Dim sItem2() as String
1013     Dim i as Integer
1014     Dim j as Integer
1015
1016     sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\dropdownLB\DropDownListBox.doc")
1017
1018     sItem1 = Array( _
1019            "Entry 1"    , _
1020            "Entry 2"    , _
1021            "Entry 3"    , _
1022          )
1023     sItem2 = Array( _
1024            "Entry A"    , _
1025            "Entry B"    , _
1026            "Entry C"    , _
1027          )
1028
1029     PrintLog "- Import from Word document"
1030     PrintLog "- Open a new document"
1031     Call hNewDocument
1032     PrintLog "- Open a word document  which includes 2 entries."
1033     Call hFileOpen(sTestFile)
1034     Call sMakeReadOnlyDocumentEditable
1035     PrintLog "- Set focus in front of first line."
1036     Call wTypeKeys "<MOD1 Home>"
1037     PrintLog "- Edit/Fields."
1038     try
1039         EditFields
1040     catch
1041         Warnlog "Can't import word document!"
1042         Call hCloseDocument
1043         goto endsub
1044     endcatch
1045
1046     PrintLog "- click Left arrow button"
1047     Kontext "FeldbefehlBearbeitenFunktionen"
1048     if EntrysList.GetItemCount = 3 then
1049         For i = 1 to EntrysList.GetItemCount
1050             EntrysList.Select i
1051             Sleep 1
1052             if EntrysList.GetSelText <> sItem1(i-1) then Warnlog "Hope to get " & sItem1(i-1) & " but get " & EntrysList.GetSelText
1053         next i
1054     else
1055         warnlog "Not all entrys in field correctly imported!"
1056     end if
1057
1058     FeldbefehlBearbeitenFunktionen.Cancel
1059
1060     PrintLog "- Set focus in front of third line"
1061     Call wTypeKeys "<MOD1 Home>"
1062     Call wTypeKeys "<Down>" , 2
1063     Call wTypeKeys "<Home>"
1064
1065     PrintLog "- Edit/Fields"
1066     try
1067         EditFields
1068     catch
1069         Warnlog "Can't import word document!"
1070         Call hCloseDocument
1071         goto endsub
1072     endcatch
1073
1074     PrintLog "- click Left arrow button"
1075     Kontext "FeldbefehlBearbeitenFunktionen"
1076     if EntrysList.GetItemCount = 3 then
1077         For i = 1 to EntrysList.GetItemCount
1078             EntrysList.Select i
1079             Sleep 1
1080             if EntrysList.GetSelText <> sItem2(i-1) then Warnlog "Hope to get " & sItem2(i-1) & " but get " & EntrysList.GetSelText
1081         next i
1082     else
1083         warnlog "Not all entrys in field correctly imported!"
1084     end if
1085
1086     FeldbefehlBearbeitenFunktionen.Cancel
1087
1088     Call hCloseDocument ' <- close word document
1089
1090 endcase
1091
1092 '-------------------------------------------------------------------------------------------
1093