testautomation/writer/optional/includes/formatcharacter/w_format_character1.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_format_character1.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:28:11 $
  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 : Standard character formatting. Setting Styles.
  36 '*
  37 '\***********************************************************************
  38
  39 testcase tFormatCharacter1
  40     printlog "- Check if 'Pair Kerning' is enabled by default!"
  41     '/// Format / Character / Tab Position ///
  42     Call hNewDocument
  43     '/// Open new document
  44     FormatCharacter
  45     '/// Format / Character => Select Tabpage 'Position'
  46     Kontext
  47     Active.Setpage TabFontPosition
  48     Kontext "TabFontPosition"
  49     '/// 'Pair Kerning' should be checked by default
  50     if Not PairKerning.IsChecked then
  51         warnlog "Pair Kerning should be checked by default !"
  52     end if
  53     TabFontPosition.Cancel
  54     '/// Close dialog and open Stylist
  55     Kontext "Stylist"
  56     if Not Stylist.Exists then FormatStylist
  57     '/// Open context menu on selected style and choose 'Edit'
  58     Vorlagenliste.OpenContextMenu
  59     Call hMenuSelectNr(2)
  60     '///  Select Tabpage 'Position'
  61     Kontext
  62     Active.Setpage TabFontPosition
  63     Kontext "TabFontPosition"
  64     '/// 'Pair Kerning' should be checked by default
  65     if Not PairKerning.IsChecked then
  66         warnlog "Pair Kerning should be checked by default !"
  67     end if
  68     TabFontPosition.Cancel
  69     '/// close Stylist
  70     FormatStylist
  71
  72     '/// close document
  73     Call hCloseDocument
  74 endcase
  75
  76 '------------------------------------------------------------------------------------------------------------------------------
  77
  78 testcase tFormatCharacter2
  79     '/// Format / Default ///
  80     '/// New document ///
  81     Call hNewDocument
  82     Printlog "  - adjust Font- and Paragraph-Format"
  83     '/// Insert a word and select it ///
  84     Call wTypeKeys "Format<Shift Mod1 Left>"
  85     '/// Select Format / Character and adjust Font- and Paragraph-Formats ///
  86     FormatCharacter
  87     Sleep 5
  88     Kontext
  89     active.SetPage TabFontEffects
  90     kontext "TabFontEffects"
  91     Outline.Check
  92     Shadow.Check
  93     Underline.Select 2
  94     StrikeThrough.Select 2
  95     TabFontEffects.OK
  96     FormatParagraph
  97     Kontext
  98     active.SetPage TabEinzuegeUndAbstaende
  99     kontext "TabEinzuegeUndAbstaende"
 100     Automatisch.Check
 101     '/// Close dialog ///
 102     TabEinzuegeUndAbstaende.OK
 103     Wait 500
 104
 105     Printlog "  - Format / Default"
 106     FormatDefaultWriter
 107     Wait 500
 108
 109     Printlog "  - check Font- and Paragraph-Formats"
 110
 111     '/// Check if Font- and Paragraph-Formats have benn set to default ///
 112     FormatCharacter
 113     Kontext
 114     active.SetPage TabFontEffects
 115     kontext "TabFontEffects"
 116     if Outline.IsChecked then Warnlog "Outline is checked"
 117     if Shadow.IsChecked then Warnlog "Shadow is checked"
 118     if Underline.GetSelIndex = 2 then Warnlog "Wrong entry in 'Underline' is selected"
 119     if StrikeThrough.GetSelIndex = 2 then Warnlog "Wrong entry in 'StrikeThrough' is selected"
 120     TabFontEffects.OK
 121
 122     FormatParagraph
 123     Kontext
 124     active.SetPage TabEinzuegeUndAbstaende
 125     kontext "TabEinzuegeUndAbstaende"
 126     if Automatisch.IsChecked then Warnlog "Automatic is checked"
 127     TabEinzuegeUndAbstaende.OK
 128
 129     '/// Close document ///
 130     Call hCloseDocument
 131 endcase
 132
 133 '------------------------------------------------------------------------------------------------------------------------------
 134
 135 testcase tFormatCharacter3
 136     Dim Vergleich1 as integer
 137     Dim Vergleich2 as string
 138     Dim Vergleich3 as string
 139     Dim Vergleich4 as string
 140     Dim vLink as integer
 141     '/// Format / Character ///
 142     PrintLog "- Format / Character"
 143
 144     '/// New document ///
 145     Call hNewDocument
 146     printlog "  - adjust character"
 147     '/// Select Format / Character ///
 148     FormatCharacter
 149     WaitSlot (5)
 150     Kontext
 151     '/// On Tabpage 'Font' adjust settings ///
 152     active.SetPage TabFont
 153     kontext "TabFont"
 154     try
 155         FontWest.Select 1
 156         Vergleich2 = FontWest.GetSelText
 157         Vergleich1 = StyleWest.GetItemCount
 158         StyleWest.Select Vergleich1
 159         Vergleich3 = StyleWest.GetSelText
 160         SizeWest.Select 24
 161     catch
 162         Font.Select 1
 163         Vergleich2 = Font.GetSelText
 164         Vergleich1 = Style.GetItemCount
 165         Style.Select Vergleich1
 166         Vergleich3 = Style.GetSelText
 167         Size.Select 24
 168     endcatch
 169     wait 100
 170     Kontext
 171     '/// On Tabpage 'Font Effects' adjust settings ///
 172     active.SetPage TabFontEffects
 173     kontext "TabFontEffects"
 174     Blinking.Check
 175     Kontext
 176     Active.Setpage TabFontPosition
 177     '/// On Tabpage 'Font Position ' adjust settings ///
 178     Kontext "TabFontPosition"
 179     Spacing.Select 2
 180     SpacingBy.More 3
 181     Vergleich4 = SpacingBy.GetText
 182     if Right ( Vergleich4, 2 ) <> "pt" then Warnlog "Wrong Unit at Spacing by"
 183     Kontext
 184     '/// On Tabpage 'Hyperlink' adjust settings ///
 185     active.SetPage TabHyperlinkZeichen
 186     kontext "TabHyperlinkZeichen"
 187     URLName.SetText "www.mikeportnoy.com"
 188     NameText.SetText "A hyperlink with testtool"
 189     TargetFrame.Select 2
 190     Select Case iSprache
 191         Case 36
 192             vLink = 2
 193         Case else
 194             vLink = 6
 195     end select
 196     UnbesuchterLink.Select vLink
 197     kontext
 198     active.SetPage TabHintergrund
 199     kontext "TabHintergrund"
 200     Sleep 1
 201     Hintergrundfarbe.Typekeys "<Down><Left>", 4
 202     TabHintergrund.OK
 203     '/// Close dialog and reopen with Format / Character ///
 204
 205     Call wTypeKeys "This is formatted text <Home><Right>"
 206
 207     printlog "  - check character"
 208
 209     '/// Check settings made ///
 210     Call wTypeKeys "<Home><Right>"
 211     FormatCharacter
 212     Kontext
 213     active.SetPage TabFont
 214     kontext "TabFont"
 215     try
 216         if FontWest.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ FontWest.GetSelText
 217         if StyleWest.GetSelText <> Vergleich3 then Warnlog "FontStyle should " +Vergleich3+" is "+ StyleWest.GetSelText
 218         if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
 219     catch
 220         if Font.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ Font.GetSelText
 221         if Style.GetSelText <> Vergleich3 then Warnlog "FontStyle should " + Vergleich3 + " is "+ Style.GetSelText
 222         if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
 223     endcatch
 224     Kontext
 225     active.SetPage TabFontEffects
 226     kontext "TabFontEffects"
 227     if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
 228     Kontext
 229     Active.Setpage TabFontPosition
 230     Kontext "TabFontPosition"
 231     if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing activated, is not the 2. but " + Spacing.GetSelText
 232     if SpacingBy.GetText <> Vergleich4 then Warnlog "Wrong Value selected. Not: " + Vergleich4 +" but " + SpacingBy.GetText
 233
 234     Kontext
 235     active.SetPage TabHyperlinkZeichen
 236     kontext "TabHyperlinkZeichen"
 237     if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i41171#Wrong URL : " + URLName.GetText
 238     SetClipboard UrlName.Gettext
 239     if NameText.GetText <> "A hyperlink with testtool" then Warnlog "Wrong Linkname : " + NameText.GetText
 240     if TargetFrame.GetSelIndex <> 2 then Warnlog "Wrong Target selected : " + TargetFrame.GetSelText
 241     if UnbesuchterLink.GetSelIndex <> vLink then Warnlog "Wrong Style for unused Link :" + UnbesuchterLink.GetSelIndex
 242     TabHyperlinkZeichen.OK
 243
 244     if gApplication = "WRITER" then
 245         Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odt", "writer8")
 246     else
 247         Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odm", "writer8")  'gMasterDocFilter
 248     end if
 249     '/// Save document as '../user/work/format1.sxw' and close it ///
 250
 251     if getclipboardtext="http://www.mikeportnoy.com/" then
 252         printlog "  - activate Link"
 253     end if
 254     Sleep 20
 255
 256     printlog "  - check saved character format"
 257     Sleep 1
 258     Call hCloseDocument
 259     Sleep 2
 260     if gApplication = "WRITER" then
 261         Call hFileOpen ( gOfficePath + "user\work\format1.odt" )
 262     else
 263         Call hFileOpen ( gOfficePath + "user\work\format1.odm" )
 264     end if
 265     Call wTypeKeys "<Home><Right>"
 266     Wait 500
 267     '/// Reopen previous saved documentand check settings made under Format / Character ///
 268
 269     FormatCharacter
 270     WaitSlot (3)
 271     Kontext
 272     active.SetPage TabFont
 273     kontext "TabFont"
 274     try
 275         if FontWest.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ FontWest.GetSelText
 276         if StyleWest.GetSelText <> Vergleich3 then Warnlog "FontStyle should " + Vergleich3 + " is "+ StyleWest.GetSelText
 277         if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
 278     catch
 279         if Font.GetSelIndex <> 1 then Warnlog "Font should "+ Vergleich2 +" is "+ Font.GetSelText
 280         if Style.GetSelText <> Vergleich3 then Warnlog "FontStyle should " +Vergleich3+" is "+ Style.GetSelText
 281         if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
 282     endcatch
 283     Kontext
 284     active.SetPage TabFontEffects
 285     kontext "TabFontEffects"
 286     if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
 287     Kontext
 288     Active.Setpage TabFontPosition
 289     Kontext "TabFontPosition"
 290     if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing selected. Not 2. but " + Spacing.GetSelText
 291     if SpacingBy.GetText <> Vergleich4 then Warnlog "Wrong value selectzed. Not " + Vergleich4 +" but " + SpacingBy.GetText
 292     Kontext
 293     active.SetPage TabHyperlinkZeichen
 294     kontext "TabHyperlinkZeichen"
 295     if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "#i41171#Wrong URL : " + URLName.GetText
 296     if NameText.GetText <> "A hyperlink with testtool" then Warnlog "Wrong Linkname : " + NameText.GetText
 297     if TargetFrame.GetSelIndex <> 2 then Warnlog "Wrong Target selected : " + TargetFrame.GetSelText
 298     TabHyperlinkZeichen.OK
 299     '/// Close document ///
 300     Call hCloseDocument
 301 endcase
 302
 303 '------------------------------------------------------------------------------------------------------------------------------
 304
 305 testcase tFormatHyperlink
 306     ' /// This testcase has been written due to bug #109488
 307     '/// Open a new writerdocument
 308     Call hNewDocument
 309     '/// Enter a URL (www.sun.com) in document
 310     Call wTypeKeys "Autocorrect my URL www.sun.com"
 311     '/// Enter a space after URL
 312     Call wTypeKeys " "
 313     '/// URL should have been autocompleted to http://www.sun.com
 314     Call wTypeKeys "<Left>",7
 315     FormatCharacter
 316     Kontext
 317     Active.Setpage TabHyperlinkZeichen
 318     Kontext "TabHyperlinkZeichen"
 319     if URLName.GetText <> "http://www.sun.com/" then
 320         Warnlog "Autocorrection for hyperlink does not work!"
 321     else
 322         printlog "Hyperlink has been auto-corrected"
 323     end if
 324     TabHyperlinkZeichen.Cancel
 325
 326     '/// Change URL to www.sauna.com
 327     Call wTypeKeys "a"
 328     Call wTypeKeys "<Left>" ,2
 329     Call wTypeKeys "a"
 330
 331     '/// Check whether URL has been changed
 332     FormatCharacter
 333     Kontext
 334     Active.Setpage TabHyperlinkZeichen
 335     Kontext "TabHyperlinkZeichen"
 336     if URLName.GetText <> "http://www.sun.com/" then
 337         Warnlog "Autocorrection for hyperlink should not have been affected to URL!"
 338     else
 339         printlog "Hyperlink has not been auto-corrected"
 340     end if
 341     TabHyperlinkZeichen.Cancel
 342     '/// Close document
 343     Call hCloseDocument
 344 endcase
 345
 346 '------------------------------------------------------------------------------------------------------------------------------
 347
 348 testcase tFormatStyles1
 349     Dim iMenuEntry as integer
 350
 351     if hIsExtensionAlreadyInstalled("SunSearchToolbar.oxt") = true then
 352         iMenuEntry = 6
 353     else
 354         iMenuEntry = 5
 355     end if
 356     '/// All format styles in context-menu ///
 357     '/// Open a new document ///
 358     Call hNewDocument
 359     printlog "- Style 'Bold' "
 360     '/// Write 'Style Bold' - execute Context menu 'Style Bold'
 361     Call wTypeKeys "Style Bold"
 362     Call wTypeKeys "<Shift Home>"
 363         Kontext "DocumentWriter"
 364         DocumentWriter.OpenContextMenu
 365         Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
 366         Call hMenuFindSelect (".uno:Bold", true, 1, false)   'Find 'Bold' and call the slot.
 367         '/// Check if changes to style have been made ///
 368         Kontext "TextObjectbar"
 369         if Fett.Getstate(2) = 0 then
 370             Warnlog "Style 'Bold' with context menu has not been set!"
 371         end if
 372
 373         Call wTypeKeys "<End><Mod1 Shift X>"
 374         wait 500
 375         Call wTypeKeys "<Return>"
 376
 377     printlog "- Style 'Italic' "
 378     '/// Write 'Style Italic' - execute Context menu 'Style Italic'
 379     Call wTypeKeys "Style Italic"
 380     Call wTypeKeys "<Shift Home>"
 381         Kontext "DocumentWriter"
 382         DocumentWriter.OpenContextMenu
 383         Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
 384         Call hMenuFindSelect (".uno:Italic", true, 2, false)   'Find 'Italic' and call the slot.
 385         ' /// Check if changes to style have been made ///
 386         Kontext "TextObjectbar"
 387         if Kursiv.Getstate(2) = 0 then
 388             Warnlog "#58722#Style 'Italic' with context menu has not been set!"
 389         end if
 390
 391         Call wTypeKeys "<End><Right>"
 392         Call wTypeKeys "<Return>"
 393
 394     printlog "- Style 'Underline' "
 395     '/// Write 'Style Underline' - execute Context menu 'Style Underline'
 396     Call wTypeKeys "Style Underline"
 397     Call wTypeKeys "<Shift Home>"
 398         Kontext "DocumentWriter"
 399         DocumentWriter.OpenContextMenu
 400         Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
 401         Call hMenuFindSelect (".uno:Underline", true, 4, false)   'Find 'Underline' and call the slot.
 402         ' /// Check if changes to style have been made ///
 403         FormatCharacter
 404         Kontext
 405         Active.Setpage TabFontEffects
 406         Kontext "TabFontEffects"
 407         if Underline.GetSelIndex <> 2 then Warnlog "Style 'Underline' with context menu has not been set!"
 408         TabFontEffects.Cancel
 409         Call wTypeKeys "<End><Right>"
 410         Call wTypeKeys "<Return>"
 411
 412     printlog "- Style 'Overline' "
 413     '/// Write 'Style Overline' - execute Context menu 'Style Strikethrough'
 414     Call wTypeKeys "Style Overline"
 415     Call wTypeKeys "<Shift Home>"
 416         Kontext "DocumentWriter"
 417         DocumentWriter.OpenContextMenu
 418         Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
 419         Call hMenuFindSelect (".uno:Overline", true, 3, false)   'Find 'Overline' and call the slot.
 420         ' /// Check if changes to style have been made ///
 421         FormatCharacter
 422         Kontext
 423         Active.Setpage TabFontEffects
 424         Kontext "TabFontEffects"
 425         if Overline.GetSelIndex <> 2 then Warnlog "Style 'Overline' with context menu has not been set!"
 426         TabFontEffects.Cancel
 427         Call wTypeKeys "<End><Right>"
 428         Call wTypeKeys "<Return>"
 429
 430     printlog "- Style 'StrikeThrough' "
 431     '/// Write 'Style Strikethrough' - execute Context menu 'Style Strikethrough'
 432     Call wTypeKeys "Style Strikethrough"
 433     Call wTypeKeys "<Shift Home>"
 434     Kontext "DocumentWriter"
 435         DocumentWriter.OpenContextMenu
 436         Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
 437         Call hMenuFindSelect (".uno:Strikeout", true, 5, false)   'Find 'Strikethrough' and call the slot.
 438         ' /// Check if changes to style have been made ///
 439         FormatCharacter
 440         Kontext
 441         Active.Setpage TabFontEffects
 442         Kontext "TabFontEffects"
 443         if StrikeThrough.GetSelIndex <> 2 then Warnlog "Style 'StrikeThrough' with context menu has not been set!"
 444         TabFontEffects.Cancel
 445         Call wTypeKeys "<End>"
 446         Call wTypeKeys "<Right><Return>"
 447
 448     printlog "- Style 'Shadow' "
 449     '/// Write 'Style Shadow' - execute Context menu 'Style Shadow'
 450     Call wTypeKeys "Style Shadow"
 451     Call wTypeKeys "<Shift Home>"
 452     Kontext "DocumentWriter"
 453         DocumentWriter.OpenContextMenu
 454         Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
 455         Call hMenuFindSelect (".uno:Shadowed", true, 6, false)   'Find 'Shadowed' and call the slot.
 456         ' /// Check if changes to style have been made ///
 457         FormatCharacter
 458         Kontext
 459         Active.Setpage TabFontEffects
 460         Kontext "TabFontEffects"
 461         if Shadow.IsChecked = False then Warnlog "Style 'Shadow' with context menu has not been set!"
 462         TabFontEffects.Cancel
 463         Call wTypeKeys "<End><Right>"
 464         Call wTypeKeys "<Return>"
 465
 466     printlog "- Style 'Outline' "
 467     '/// Write 'Style Outline' - execute Context menu 'Style Outline'
 468     Call wTypeKeys "Style Outline"
 469     Call wTypeKeys "<Shift Home>"
 470     Kontext "DocumentWriter"
 471         DocumentWriter.OpenContextMenu
 472         Call hMenuFindSelect (".uno:StyleMenu", true, 5, false)   'Find 'Style' and call the slot.
 473         Call hMenuFindSelect (".uno:OutlineFont", true, 7, false)   'Find 'Outline' and call the slot.
 474         ' /// Check if changes to style have been made ///
 475         FormatCharacter
 476         Kontext
 477         Active.Setpage TabFontEffects
 478         Kontext "TabFontEffects"
 479         if Outline.IsChecked = false then Warnlog "Style 'Outline' with context menu has not been set!"
 480         TabFontEffects.Cancel
 481
 482     printlog "Close Document."
 483     Call hCloseDocument
 484 endcase
 485
 486 '---------------------------------------------------------------------------------------------------------------------
 487
 488 testcase tFormatCharacter
 489         Dim Vergleich1%, Vergleich2$, Vergleich3$, Vergleich4$
 490
 491         '/// Format / Character ///
 492         PrintLog "- Format / Character"
 493
 494         '/// New document ///
 495         Call hNewDocument
 496         printlog "  - adjust character"
 497         '/// Select Format / Character ///
 498         FormatCharacter
 499         Sleep 5
 500         Kontext
 501         '/// On Tabpage 'Font' adjust settings ///
 502         active.SetPage TabFont
 503         kontext "TabFont"
 504         try
 505         FontWest.Select 1
 506                 Vergleich2$ = FontWest.GetSelText
 507                 Vergleich1% = StyleWest.GetItemCount
 508                 StyleWest.Select Vergleich1%
 509                 Vergleich3$ = StyleWest.GetSelText
 510                 SizeWest.Select 24
 511         catch
 512         Font.Select 1
 513                 Vergleich2$ = Font.GetSelText
 514                 Vergleich1% = Style.GetItemCount
 515                 Style.Select Vergleich1%
 516                 Vergleich3$ = Style.GetSelText
 517                 Size.Select 24
 518         endcatch
 519         wait 100
 520         Kontext
 521         '/// On Tabpage 'Font Effects' adjust settings ///
 522         active.SetPage TabFontEffects
 523         kontext "TabFontEffects"
 524         Blinking.Check
 525         Kontext
 526         Active.Setpage TabFontPosition
 527         '/// On Tabpage 'Font Position ' adjust settings ///
 528         Kontext "TabFontPosition"
 529         Spacing.Select 2
 530         SpacingBy.More 3
 531         Vergleich4$ = SpacingBy.GetText
 532         if Right ( Vergleich4$, 2 ) <> "pt" then Warnlog "Wrong Unit at Spacing by"
 533         Kontext
 534         '/// On Tabpage 'Hyperlink' adjust settings ///
 535         active.SetPage TabHyperlinkZeichen
 536         kontext "TabHyperlinkZeichen"
 537         URLName.SetText "www.mikeportnoy.com"
 538         NameText.SetText "Ein Link mit dem Testtool"
 539         TargetFrame.Select 2
 540
 541         UnbesuchterLink.Select 6
 542         Kontext
 543         active.SetPage TabHintergrund
 544         kontext "TabHintergrund"
 545         Sleep 1
 546         Hintergrundfarbe.Typekeys "<Down><Left>", 4
 547         TabHintergrund.OK
 548         '/// Close dialog and reopen with Format / Character ///
 549
 550         Call wTypeKeys "Dies ist ein formatierter Text <Home><Right>"
 551
 552         printlog "  - check character"
 553
 554         '/// Check settings made ///
 555         Call wTypeKeys "<Home><Right>"
 556         FormatCharacter
 557         Kontext
 558         active.SetPage TabFont
 559         kontext "TabFont"
 560         try
 561         if FontWest.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ FontWest.GetSelText
 562                 if StyleWest.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ StyleWest.GetSelText
 563                 if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
 564         catch
 565         if Font.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ Font.GetSelText
 566                 if Style.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ Style.GetSelText
 567                 if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
 568         endcatch
 569         Kontext
 570         active.SetPage TabFontEffects
 571         kontext "TabFontEffects"
 572         if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
 573         Kontext
 574         Active.Setpage TabFontPosition
 575         Kontext "TabFontPosition"
 576         if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing activated, is not the 2. but " + Spacing.GetSelText
 577         if SpacingBy.GetText <> Vergleich4$ then Warnlog "Wrong Value selected. Not: " + Vergleich4$ +" but " + SpacingBy.GetText
 578
 579         Kontext
 580         active.SetPage TabHyperlinkZeichen
 581         kontext "TabHyperlinkZeichen"
 582         if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "Wrong URL : " + URLName.GetText + " (#BugID:90982)"
 583         SetClipboard UrlName.Gettext
 584         if NameText.GetText <> "Ein Link mit dem Testtool" then Warnlog "Wrong Linkname : " + NameText.GetText
 585         if TargetFrame.GetSelIndex <> 2 then Warnlog "Wrong Target selected : " + TargetFrame.GetSelText
 586         if UnbesuchterLink.GetSelIndex <> 6 then Warnlog "Wrong Style for unused Link :" + UnbesuchterLink.GetSelIndex
 587         TabHyperlinkZeichen.OK
 588
 589         if gApplication = "WRITER" then
 590         Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odt", "writer8" )
 591         else
 592         Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\format1.odm", "writer8" ) 'gMasterDocFilter
 593         end if
 594         '/// Save document as '../user/work/format1.sxw' and close it ///
 595
 596         if getclipboardtext="http://www.mikeportnoy.com/" then
 597         printlog "  - activate Link"
 598         end if
 599         Sleep 20
 600
 601         printlog "  - check saved character format"
 602         Sleep 1
 603         Call hCloseDocument
 604         Sleep 2
 605         if gApplication = "WRITER" then
 606             Call hFileOpen ( gOfficePath + "user\work\format1.odt" )
 607         else
 608             Call hFileOpen ( gOfficePath + "user\work\format1.odm" )
 609         end if
 610         Call wTypeKeys "<Home><Right>"
 611         Wait 500
 612         '/// Reopen previous saved documentand check settings made under Format / Character ///
 613
 614         FormatCharacter
 615
 616         Sleep 3
 617         Kontext
 618         active.SetPage TabFont
 619         kontext "TabFont"
 620         try
 621             if FontWest.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ FontWest.GetSelText
 622             if StyleWest.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ StyleWest.GetSelText
 623             if SizeWest.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + SizeWest.GetSelText
 624         catch
 625             if Font.GetSelText <> Vergleich2$ then Warnlog "Font should "+ Vergleich2$ +" is "+ Font.GetSelText
 626             if Style.GetSelIndex <> Vergleich1% then Warnlog "FontStyle should " +Vergleich3$+" is "+ Style.GetSelText
 627             if Size.GetSelIndex <> 24 then Warnlog "Wrong Font Size : " + Size.GetSelText
 628         endcatch
 629         Kontext
 630         active.SetPage TabFontEffects
 631         kontext "TabFontEffects"
 632         if NOT Blinking.IsChecked then Warnlog "Blinking is not checked"
 633         Kontext
 634         Active.Setpage TabFontPosition
 635         Kontext "TabFontPosition"
 636         if Spacing.GetSelIndex <> 2 then Warnlog "Wrong Spacing selected. Not 2. but " + Spacing.GetSelText
 637         if SpacingBy.GetText <> Vergleich4$ then Warnlog "Wrong value selectzed. Not " + Vergleich4$ +" but " + SpacingBy.GetText
 638         Kontext
 639         active.SetPage TabHyperlinkZeichen
 640         kontext "TabHyperlinkZeichen"
 641         if URLName.GetText <> "http://www.mikeportnoy.com/" then Warnlog "Wrong URL : " + URLName.GetText
 642         if NameText.GetText <> "Ein Link mit dem Testtool" then Warnlog "Wrong Linkname : " + NameText.GetText
 643         if TargetFrame.GetSelIndex <> 2 then Warnlog "Wrong Target selected : " + TargetFrame.GetSelText
 644         TabHyperlinkZeichen.OK
 645         '/// Close document ///
 646         Call hCloseDocument
 647 endcase
 648
 649 '------------------------------------------------------------------------------------------------------------------------------
 650
 651 testcase tFormatCharacterOverline1
 652     Dim iCounter as integer
 653     Dim CompareValue1 as string
 654     Dim CompareValue2 as string
 655     Dim CompareValue3 as string
 656     Dim CompareValue4 as string
 657
 658     Printlog " New Writer document."
 659     Call hNewDocument
 660     Printlog " Format Character."
 661     FormatCharacter
 662     Printlog " Tab 'Font Effects'."
 663     Kontext
 664     active.SetPage TabFontEffects
 665     Kontext "TabFontEffects"
 666     Printlog " Select Overline Listbox."
 667     Printlog " Default (first) entry is 'Without'."
 668     Overline.Select (1)
 669
 670     Printlog " Select Colour Listbox."
 671     Printlog " Verify that Colour List box is DISABLED."
 672     try
 673         OverlineColor.Select (1)
 674         warnlog "Color-listbox was falsely enabled."
 675     catch
 676         printlog "Color-listbox is correctly disabled by default."
 677     endcatch
 678
 679     Printlog " Select Overline Listbox again."
 680     Printlog " Select second entry 'Single'."
 681     Overline.Select (2)
 682
 683     Printlog " Step down all 14 entries (Last: 'Double Wave' in English UI)."
 684     for iCounter = 2 to Overline.GetItemCount
 685         Overline.Select (iCounter)
 686         wait (500)
 687     next iCounter
 688
 689     Printlog " Select Color Listbox."
 690     Printlog " Verify that Color List box is ENABLED."
 691     try
 692         OverlineColor.Select (OverlineColor.GetItemCount)
 693         printlog "Color-listbox is correctly enabled."
 694     catch
 695         warnlog "Color-listbox was falsely disabled."
 696     endcatch
 697
 698     'CompareValue2 = OverlineColor.GetSelIndex
 699
 700     Printlog " Close dialog."
 701     TabFontEffects.Ok
 702     Printlog " Close document."
 703     Call hCloseDocument
 704 endcase
 705
 706 '------------------------------------------------------------------------------------------------------------------------------
 707
 708 testcase tFormatCharacterOverline2
 709     Dim CompareValue1 as string
 710     Dim CompareValue2 as string
 711     Dim CompareValue3 as string
 712     Dim CompareValue4 as string
 713     Dim SaveFilePathAndName as String
 714
 715     SaveFilePathAndName = gOfficePath + "user\work\OverlineTest2.odt"
 716
 717     Printlog " New Writer document."
 718     Call hNewDocument
 719     Printlog " Type 'Overline Single Red' (without quotes)."
 720     Call wTypeKeys "Overline Single Red"
 721     Printlog " Select entire string."
 722     Call wTypeKeys "<HOME>"
 723     Call wTypeKeys "<SHIFT END>"
 724     Printlog " Format Character."
 725     FormatCharacter
 726     Printlog " Tab 'Font Effects'."
 727     Kontext
 728     active.SetPage TabFontEffects
 729     Kontext "TabFontEffects"
 730     Printlog " Select Overline Listbox."
 731     Printlog " Select second entry 'Single'."
 732     Overline.Select (2)
 733
 734     Printlog " Select Color Listbox."
 735     Printlog " In Color List box, select Color 'Red', OK."
 736     OverlineColor.Select (6)
 737
 738     CompareValue1 = Overline.GetSelIndex
 739     CompareValue2 = OverlineColor.GetSelIndex
 740
 741     Printlog " Close dialog."
 742     TabFontEffects.Ok
 743
 744     Printlog " Save document."
 745     Call hFileSaveAsKill ( SaveFilePathAndName )
 746     Printlog " Reload document."
 747     FileReload
 748     Printlog " Select entire string."
 749     Call wTypeKeys "<HOME><SHIFT END>"
 750     Printlog " Format Character."
 751     FormatCharacter
 752     Printlog " Tab 'Font Effects'."
 753     Kontext
 754     active.SetPage TabFontEffects
 755     Kontext "TabFontEffects"
 756     Printlog " Verify that 'Overline Single' and Overline Colour 'Red' is set."
 757
 758     If Overline.GetSelIndex <> CompareValue1 then warnlog "The Overline-Value wasn't saved after closing the options-dialogue."
 759     If OverlineColor.GetSelIndex <> CompareValue2 then warnlog "The Color-Value wasn't saved after closing the options-dialogue."
 760
 761     Printlog " Close dialog."
 762     TabFontEffects.Ok
 763     Printlog " Close document."
 764     Call hCloseDocument
 765 endcase
 766
 767 '------------------------------------------------------------------------------------------------------------------------------