testautomation/writer/optional/includes/autotext/w_autotext.inc

   1 '**************************************************************************
   2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   3 '*
   4 '* Copyright 2008 by Sun Microsystems, Inc.
   5 '*
   6 '* OpenOffice.org - a multi-platform office productivity suite
   7 '*
   8 '* $RCSfile: w_autotext.inc,v $
   9 '*
  10 '* $Revision: 1.3 $
  11 '*
  12 '* last change: $Author: rt $ $Date: 2008-09-04 09:18:43 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  16 '* OpenOffice.org is free software: you can redistribute it and/or modify
  17 '* it under the terms of the GNU Lesser General Public License version 3
  18 '* only, as published by the Free Software Foundation.
  19 '*
  20 '* OpenOffice.org is distributed in the hope that it will be useful,
  21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 '* GNU Lesser General Public License version 3 for more details
  24 '* (a copy is included in the LICENSE file that accompanied this code).
  25 '*
  26 '* You should have received a copy of the GNU Lesser General Public License
  27 '* version 3 along with OpenOffice.org.  If not, see
  28 '* <http://www.openoffice.org/license.html>
  29 '* for a copy of the LGPLv3 License.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description : Test of autotext in writer
  36 '*
  37 '\***********************************************************************
  38
  39 sub w_autotext
  40
  41     Call tEditAutotext_1
  42     Call tEditAutotext_2
  43     Call tEditAutotext_3
  44     Call tEditAutotext_4
  45     Call tEditAutotext_5
  46
  47 end sub
  48
  49 testcase tEditAutotext_1
  50     Dim j as integer
  51     Dim sAll as integer
  52     Dim i as integer
  53     Dim Vergleich1$
  54     Dim Vergleich2$
  55     Dim Vergleich3$
  56     Dim Vergleich4$
  57
  58     Printlog "- Create a new autotext with content!"
  59     printlog " New Writerdocument"
  60     Call hNewDocument
  61     printlog " Create a new autotext category"
  62     if wCreateAutotextCategory( "AANewCategory" ) = false then
  63         Warnlog "Unable to create new Autotext category"
  64         Kontext "Autotext"
  65         if Autotext.Exists then Autotext.Close
  66         Call hCloseDocument
  67         goto endsub
  68     end if
  69     wait 500
  70     Kontext "Autotext"
  71     Autotext.Close
  72
  73     printlog " Insert some text and format text"
  74     Call wTypeKeys("This becomes an autotext!")
  75     ' Format word 'This'
  76     Call wTypeKeys("<Home><Right>")
  77     FormatCharacter
  78     Kontext
  79     Active.SetPage TabFont
  80     kontext "TabFont"
  81     if gAsianSup = True then
  82         FontWest.Select 5
  83         if StyleWest.GetItemCount >= 3 then
  84             StyleWest.Select 3
  85         else
  86             For i = 6 to FontWest.GetItemCount
  87                 FontWest.Select i
  88                 try
  89                     StyleWest.Select 3
  90                     exit for
  91                 catch
  92                 endcatch
  93             next i
  94         end if
  95         Vergleich1$ = FontWest.GetSelText
  96         Vergleich2$ = StyleWest.GetSelText
  97         SizeWest.Select 5
  98         Vergleich3$ = SizeWest.GetSelText
  99     else
 100         Font.Select 5
 101         if Style.GetItemCount >= 3 then
 102             Style.Select 3
 103         else
 104             For i = 6 to Font.GetItemCount
 105                 Font.Select i
 106                 try
 107                     Style.Select 3
 108                     exit for
 109                 catch
 110                 endcatch
 111             next i
 112         end if
 113         Vergleich1$ = Font.GetSelText
 114         Vergleich2$ = Style.GetSelText
 115         Size.Select 5
 116         Vergleich3$ = Size.GetSelText
 117     end if
 118     wait 100
 119     Kontext
 120     Active.Setpage TabHyperlinkZeichen
 121     Kontext "TabHyperlinkZeichen"
 122     UrlName.Settext "http://www.irgendwas.de"
 123     TargetFrame.Select 2
 124     Vergleich4$ = TargetFrame.GetSelText
 125     TabHyperlinkZeichen.Ok
 126
 127     Call wTypeKeys("<End>")
 128     Call wTypeKeys("<Shift Home>")
 129
 130     printlog " Call Edit / Autotext"
 131     EditAutotext
 132     Kontext "Active"
 133     if Active.Exists then
 134         warnlog Active.Gettext
 135         Active.Ok
 136     end if
 137     Kontext "Autotext"
 138     printlog " Uncheck 'Preview and Select first group in List"
 139     Vorschau_anzeigen.Uncheck
 140     Kontext "Autotext"
 141     if wSelectAutotextCategory( "AANewCategory" ) = false then
 142         Warnlog "Unable to select Autotext category"
 143         Kontext "Autotext"
 144         if Autotext.Exists then Autotext.Close
 145         Call hCloseDocument
 146         goto endsub
 147     end if
 148     wait 500
 149
 150     printlog " Insert a name for the Autotext and a Shortcut"
 151     NameText.Settext "HDEAutotext"
 152     Kuerzel.Settext "HDE"
 153     printlog " Select 'New' in Menubutton 'Autotext'"
 154     wait 500
 155     if Menue.IsEnabled then
 156         Menue.Click
 157     else
 158         Warnlog "Unable to create autotext->Button 'Autotext' is disabled"
 159         Autotext.Close
 160         Call hCloseDocument
 161         goto endsub
 162     end if
 163
 164     wait 500
 165     try
 166         Call hMenuSelectNr ( 1 )
 167     catch
 168         Warnlog "Menu Autotext->'New' disabled ! Test failed !"
 169         Call hMenuClose
 170         Kontext "Autotext"
 171         Autotext.Cancel
 172         Call hCloseDocument
 173         goto endsub
 174     endcatch
 175     printlog " Check if Autotext has been added to list"
 176     Kontext "Active"
 177     if Active.Exists then
 178         if Active.GetRT = 304 then
 179             Warnlog "Unable to add autotext: " + Active.Gettext
 180             Active.Ok
 181             Kontext "Autotext"
 182             Autotext.Cancel
 183             Call hCloseDocument
 184             goto endsub
 185         end if
 186     end if
 187
 188     if wSelectAutotextCategory("AANewCategory") = false then
 189         Warnlog "Created autotext category not found!"
 190     else
 191         Liste.TypeKeys "+"
 192
 193         sAll = Liste.GetItemCount
 194         For j = 1 to sAll
 195             Liste.TypeKeys "<Down>"
 196             if Liste.Gettext = "HDEAutotext" then
 197                 printlog "Autotext has been found!"
 198                 Autotext.Ok
 199                 j = sAll + 2
 200             end if
 201         next j
 202         printlog " Check if content has been added to named autotext"
 203         Kontext "Autotext"
 204         if Autotext.Exists then
 205             Warnlog "New autotext has not been found!"
 206             Autotext.Close
 207         else
 208             Call wDocSetContext
 209             Call wTypeKeys("<Shift Home>")
 210             EditCopy
 211             if GetClipboardtext <> "This becomes an autotext!" then
 212                 Warnlog "Autotext has no content!"
 213             else
 214                 Call wTypeKeys ("<Home><Right>")
 215                 FormatCharacter
 216                 Kontext
 217                 Active.SetPage TabFont
 218                 Kontext "TabFont"
 219                 if gAsianSup = True then
 220                     if Vergleich1$ <> FontWest.GetSelText then Warnlog "Wrong Font in Autotext!"
 221                     if Vergleich2$ <> StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 222                     if Vergleich3$ <> SizeWest.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
 223                 else
 224                     if Vergleich1$ <> Font.GetSelText then Warnlog "Wrong Font in Autotext!"
 225                     if Vergleich2$ <> Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 226                     if Vergleich3$ <> Size.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
 227                 end if
 228                 wait 100
 229                 Kontext
 230                 Active.Setpage TabHyperlinkZeichen
 231                 Kontext "TabHyperlinkZeichen"
 232                 if UrlName.Gettext <> "http://www.irgendwas.de/" then Warnlog "Wrong hyperlink has been added to text!"
 233                 if Vergleich4$ <> TargetFrame.GetSelText then warnlog "Wrong targetFrame has been added to text!"
 234                 TabHyperlinkZeichen.Cancel
 235             end if
 236         end if
 237     end if
 238
 239     printlog " Delete whole category with created autotext"
 240     Call wDeleteAutotextCategory( "AANewCategory" )
 241     Kontext "Autotext"
 242     if Autotext.Exists then Autotext.Close
 243     Call hCloseDocument
 244
 245 endcase
 246
 247 '---------------------------------------------------
 248
 249 testcase tEditAutotext_2
 250     Dim j as integer
 251     Dim sAll as integer
 252     Dim i as integer
 253     Dim Vergleich1$
 254     Dim Vergleich2$
 255     Dim Vergleich3$
 256     Dim Vergleich4$
 257
 258     Printlog "- Create a new autotext with content! (Text only)"
 259     printlog " New Writerdocument"
 260     Call hNewDocument
 261     printlog " Create a new autotext category"
 262     if wCreateAutotextCategory( "AANewCategory" ) = false then
 263         Warnlog "Unable to create new Autotext category"
 264         Kontext "Autotext"
 265         if Autotext.Exists then Autotext.Close
 266         Call hCloseDocument
 267         goto endsub
 268     end if
 269     wait 500
 270     Kontext "Autotext"
 271     Autotext.Close
 272     Call wDocSetContext
 273     printlog " Insert some text and format text"
 274     Call wTypeKeys("This becomes an autotext!")
 275     ' Format word 'This'
 276     Call wTypeKeys("<Home><Right>")
 277     FormatCharacter
 278     Kontext
 279     Active.SetPage TabFont
 280     kontext "TabFont"
 281     if gAsianSup = true then
 282         FontWest.Select 5
 283         if StyleWest.GetItemCount >= 3 then
 284             StyleWest.Select 3
 285         else
 286             For i = 6 to FontWest.GetItemCount
 287                 FontWest.Select i
 288                 try
 289                     StyleWest.Select 3
 290                     exit for
 291                 catch
 292                 endcatch
 293             next i
 294         end if
 295         Vergleich1$ = FontWest.GetSelText
 296         Vergleich2$ = StyleWest.GetSelText
 297         SizeWest.Select 5
 298         Vergleich3$ = SizeWest.GetSelText
 299     else
 300         Font.Select 5
 301         if Style.GetItemCount >= 3 then
 302             Style.Select 3
 303         else
 304             For i = 6 to Font.GetItemCount
 305                 Font.Select i
 306                 try
 307                     Style.Select 3
 308                     exit for
 309                 catch
 310                 endcatch
 311             next i
 312         end if
 313         Vergleich1$ = Font.GetSelText
 314         Vergleich2$ = Style.GetSelText
 315         Size.Select 5
 316         Vergleich3$ = Size.GetSelText
 317     end if
 318     wait 100
 319     Kontext
 320     Active.Setpage TabHyperlinkZeichen
 321     Kontext "TabHyperlinkZeichen"
 322     UrlName.Settext "http://www.irgendwas.de"
 323     TargetFrame.Select 2
 324     Vergleich4$ = TargetFrame.GetSelText
 325     TabHyperlinkZeichen.Ok
 326
 327     Call wTypeKeys("<End>")
 328     Call wTypeKeys("<Shift Home>")
 329
 330     printlog " Call Edit / Autotext"
 331     EditAutotext
 332     Kontext "Active"
 333     if Active.Exists then
 334         warnlog Active.Gettext
 335         Active.Ok
 336     end if
 337     Kontext "Autotext"
 338
 339     printlog " Uncheck 'Preview and Select first group in List"
 340     Vorschau_anzeigen.Uncheck
 341     Kontext "Autotext"
 342     if wSelectAutotextCategory( "AANewCategory" ) = false then
 343         Warnlog "Unable to select Autotext category"
 344         Kontext "Autotext"
 345         if Autotext.Exists then Autotext.Close
 346         Call hCloseDocument
 347         goto endsub
 348     end if
 349     wait 500
 350
 351     printlog " Insert a name for the Autotext and a Shortcut"
 352     NameText.Settext "HDEAutotext"
 353     Kuerzel.Settext "HDE"
 354     printlog " Select 'New' in Menubutton 'Autotext'"
 355     wait 500
 356     Menue.Click
 357     wait 500
 358     try
 359         Call hMenuSelectNr ( 2 )
 360     catch
 361         Warnlog "Menu Autotext->'New' disabled ! Test failed !"
 362         Call hMenuClose
 363         Kontext "Autotext"
 364         Autotext.Cancel
 365         Call hCloseDocument
 366         goto endsub
 367     endcatch
 368     printlog " Check if Autotext has been added to list"
 369     Kontext "Active"
 370     if Active.Exists then
 371         if Active.GetRT = 304 then
 372             Warnlog "Unable to add autotext: " + Active.Gettext
 373             Active.Ok
 374             Kontext "Autotext"
 375             Autotext.Cancel
 376             Call hCloseDocument
 377             goto endsub
 378         end if
 379     end if
 380
 381     if wSelectAutotextCategory("AANewCategory") = false then
 382         Warnlog "Created autotext category not found!"
 383     else
 384         Liste.TypeKeys "+"
 385
 386         sAll = Liste.GetItemCount
 387         For j = 1 to sAll
 388             Liste.TypeKeys "<Down>"
 389             if Liste.Gettext = "HDEAutotext" then
 390                 printlog "Autotext has been found!"
 391                 Autotext.Ok
 392                 j = sAll + 2
 393             end if
 394         next j
 395         printlog " Check if content has been added to named autotext"
 396         Kontext "Autotext"
 397         if Autotext.Exists then
 398             Warnlog "New autotext has not been found!"
 399             Autotext.Close
 400         else
 401             Call wDocSetContext
 402             Call wTypeKeys("<Home><Up>" , 4)
 403             Call wTypeKeys("<Shift End>")
 404             EditCopy
 405             if GetClipboardtext <> "This becomes an autotext!" then
 406                 Warnlog "Autotext has no content!"
 407             else
 408                 Call wTypeKeys ("<Home><Right>")
 409                 FormatCharacter
 410                 Kontext
 411                 Active.SetPage TabFont
 412                 Kontext "TabFont"
 413                 if gAsianSup = true then
 414                     if Vergleich1$ = FontWest.GetSelText then Warnlog "Wrong Font in Autotext!"
 415                     if Vergleich2$ = StyleWest.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 416                     if Vergleich3$ = SizeWest.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
 417                 else
 418                     if Vergleich1$ = Font.GetSelText then Warnlog "Wrong Font in Autotext!"
 419                     if Vergleich2$ = Style.GetSelText then Warnlog "Wrong Fontstyle in Autotext!"
 420                     if Vergleich3$ = Size.GetSelText then Warnlog "Wrong Fontsize in Autotext!"
 421                 end if
 422                 wait 100
 423                 Kontext
 424                 Active.Setpage TabHyperlinkZeichen
 425                 Kontext "TabHyperlinkZeichen"
 426                 if UrlName.Gettext = "http://www.irgendwas.de/" then Warnlog "Wrong hyperlink has been added to text!"
 427                 if Vergleich4$ = TargetFrame.GetSelText then Warnlog "Wrong targetFrame has been added to text!"
 428                 TabHyperlinkZeichen.Cancel
 429             end if
 430         end if
 431     end if
 432
 433     printlog " Delete whole category with created autotext"
 434     Call wDeleteAutotextCategory( "AANewCategory" )
 435     Kontext "Autotext"
 436     if Autotext.Exists then Autotext.Close
 437     Call hCloseDocument
 438
 439 endcase
 440
 441 '---------------------------------------------------
 442
 443 testcase tEditAutotext_3
 444
 445     Dim i as Integer
 446     Dim j as Integer
 447     Dim AlterWert as String
 448     Dim hauMatsch as integer
 449
 450     printlog " Edit / Autotext"
 451     PrintLog "- Edit / Autotext"
 452     printlog " New document"
 453     Call  hNewDocument
 454     printlog " Select Edit / Autotext"
 455     EditAutotext
 456     Kontext "Active"
 457     if Active.Exists then
 458         warnlog Active.Gettext
 459         Active.Ok
 460     end if
 461
 462     printlog "  - Select and Insert all Autotexts "
 463     printlog " Select and Insert all autotexts"
 464     Sleep 1
 465     Kontext "AutoText"
 466     Vorschau_anzeigen.Uncheck
 467     Liste.Select 1
 468     for j=1 to 10
 469         Liste.TypeKeys "-"
 470         Liste.TypeKeys "<Down>"
 471         wait 500
 472     next j
 473
 474     hauMatsch = Liste.GetItemCount
 475
 476     for i = 1 to hauMatsch
 477         Liste.Select 1
 478         for j=1 to Liste.GetItemCount
 479             Liste.TypeKeys "-"
 480             Liste.TypeKeys "<Down>"
 481             wait 500
 482         next j
 483         Vorschau_anzeigen.Check
 484
 485         Liste.Select i
 486         Liste.TypeKeys "+"
 487
 488         Call tCheckAutotextInGroup(Liste.GetItemCount-hauMatsch,i)
 489
 490     next i
 491
 492     Kontext "Autotext"
 493     if Autotext.Exists then Autotext.Close
 494
 495     Call hCloseDocument
 496 endcase
 497
 498 '---------------------------------------------------
 499
 500 testcase tEditAutotext_4
 501
 502     Call hNewDocument
 503
 504     printlog " Create a new categorie"
 505     printlog "  - Create new categorie"
 506     if wCreateAutotextCategory("AAAAAA") = false then
 507         Warnlog "Unable to create category"
 508         Kontext "Autotext"
 509         if Autotext.Exists then Autotext.Close
 510         Call hCloseDocument
 511         goto endsub
 512     end if
 513
 514     printlog " Close dialog and check if categorie has been created"
 515     Kontext "Autotext"
 516     if Autotext.Exists then Autotext.Close
 517     if wSelectAutotextCategory("AAAAAA") = false then
 518         Warnlog "New categorie has been deleted ( after closing and reopening dialog )"
 519         Kontext "Autotext"
 520         if Autotext.Exists then Autotext.Close
 521         Call hCloseDocument
 522         goto endsub
 523     end if
 524
 525     Bereiche.Click
 526     Kontext "BereicheBearbeitenAutotext"
 527     printlog " Rename the new categorie"
 528     printlog "  -  Rename new categorie!"
 529     Bereich.Settext "AAAAAArrghh"
 530     Wait 500
 531     printlog " In dialog click 'rename'"
 532     if Umbenennen.IsEnabled then
 533         Umbenennen.Click
 534         BereicheBearbeitenAutoText.OK
 535         Kontext "Active"
 536         if Active.Exists then
 537             if Active.GetRT = 304 then
 538                 warnlog Active.Gettext
 539                 Active.Ok
 540             end if
 541         end if
 542     else
 543         Warnlog "Categorie couldn't be renamed (Button is disabled), no further test!"
 544         Kontext "BereicheBearbeitenAutotext"
 545         BereicheBearbeitenAutoText.Close
 546         if wDeleteAutotextCategory("AAAAAA") = false then Warnlog "Unable to delete category"
 547         Kontext "Autotext"
 548         AutoText.Close
 549         Call hCloseDocument
 550         goto endsub
 551     end if
 552
 553     Kontext "BereicheBearbeitenAutotext"
 554     if BereicheBearbeitenAutotext.Exists then BereicheBearbeitenAutotext.Ok
 555     printlog " Close dialog and check if Categorie has been renamed"
 556     Kontext "Autotext"
 557     if Autotext.Exists then Autotext.Close
 558     Sleep 1
 559     if wSelectAutotextCategory("AAAAAArrghh") = false then
 560         Warnlog "Categorie hasn't been correctly renamed"
 561         AlterWert=Liste.Gettext
 562     end if
 563
 564     printlog " Delete new categorie"
 565     printlog "  - Delete new categorie"
 566     printlog " Select 'Categories'"
 567     Bereiche.Click
 568     Kontext "Active"
 569     if Active.Exists then
 570         if Active.GetRT = 304 then
 571             warnlog Active.Gettext
 572             Active.Ok
 573         end if
 574     end if
 575     Kontext "BereicheBearbeitenAutoText"
 576     Bereich.SetText "AAAAAArrghh"
 577     printlog " Select 'Delete', close document and check if categorie has been deleted"
 578     if Loeschen.IsEnabled then
 579         Loeschen.Click
 580     else
 581         Warnlog "Categorie couldn't be deleted (Button is disabled)!"
 582     end if
 583
 584     BereicheBearbeitenAutoText.OK
 585     Kontext "MessageBox"
 586     if Not MessageBox.Exists(2) then
 587         Warnlog "No messsage after deleting Categorie and closing the Dialog !"
 588     else
 589         MessageBox.No
 590         Kontext "Active"
 591         if Active.Exists then
 592             if Active.GetRT = 304 then
 593                 warnlog Active.Gettext
 594                 Active.Ok
 595             end if
 596         end if
 597         if wSelectAutotextCategory("AAAAAArrghh") = false then
 598             Warnlog "After denying the 'Deletemessage' the categorie has been deleted!"
 599         else
 600             Kontext "Autotext"
 601             Bereiche.Click
 602             Kontext "Active"
 603             if Active.Exists then
 604                 if Active.GetRT = 304 then
 605                     warnlog Active.Gettext
 606                     Active.Ok
 607                 end if
 608             end if
 609             Kontext "BereicheBearbeitenAutoText"
 610             Bereich.SetText "AAAAAArrghh"
 611             if Loeschen.IsEnabled then
 612                 Loeschen.Click
 613                 BereicheBearbeitenAutotext.Ok
 614                 Kontext "MessageBox"
 615                 if MessageBox.Exists(2) then MessageBox.Yes
 616                 Kontext "Active"
 617                 if Active.Exists then
 618                     if Active.GetRT = 304 then
 619                         QAErrorlog Active.Gettext
 620                         Active.Ok
 621                     end if
 622                 end if
 623                 Sleep 2
 624                 if wSelectAutotextCategory("AAAAAArrghh") = true then
 625                     Warnlog "Though the categorie has been deleted it is always there!"
 626                 end if
 627             else
 628                 Warnlog "Area couldn't be deleted (Button is disabled)!"
 629             end if
 630         end if
 631     end if
 632
 633     Kontext "Autotext"
 634     if Autotext.Exists then Autotext.Close
 635
 636     printlog " Close document"
 637     Call hCloseDocument
 638 endcase
 639
 640 '---------------------------------------------------
 641
 642 testcase tEditAutotext_5
 643     printlog "  - Insert Autotext with ShortCuts"
 644     Call hNewDocument
 645     printlog " try to insert  autotexts with Shotcut"
 646
 647     Call wTypeKeys "<Return>", 3
 648     Call wBlindtextEinfuegen
 649
 650     Kontext "Active"
 651     if Active.Exists then
 652         warnlog Active.GetText
 653         Active.OK
 654     end if
 655     Sleep 1
 656     Call wTypeKeys "<Mod1 A>"
 657     Sleep 1
 658     EditCopy
 659     printlog " Check if autotext has been inserted"
 660     if GetClipboardText = "" then Warnlog "Autotext couldn't be inserted with Short-Cut!"
 661
 662     printlog " Close document"
 663     Call hCloseDocument
 664 endcase