testautomation/writer/optional/includes/alternative_text/w_alternative_text.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_alternative_text.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: hde $ $Date: 2008-08-18 12:30:39 $
  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 Alternative Text for objects in writer
  37 '*
  38 '\************************************************************************
  39
  40 sub w_alternative_text
  41
  42         Call tPictureAlternativeText
  43         Call tFrameAlternativeText
  44         Call tOLEAlternativeText
  45
  46
  47 end sub
  48
  49 '-------------------------------------------------------------------------
  50
  51 testcase tPictureAlternativeText
  52
  53         printlog "- New writer document"
  54         Call hNewDocument
  55
  56         printlog "- Insert a picture"
  57         InsertGraphicsFromFile
  58         Kontext "GrafikEinfuegenDlg"
  59         Dateiname.Settext ConvertPath(gTesttoolpath + "writer\optional\input\alternative_text\jolink.jpg")
  60         Sleep 1
  61         Oeffnen.Click
  62         Sleep 2
  63
  64     printlog "- Context menu on the picture, choose 'Description'"
  65         try
  66                 ContextDescriptionObject
  67         catch
  68                 Warnlog "Seems picture is not selected => Description Object could not be opened"
  69         endcatch
  70
  71     printlog "- Type 'TitleText' in the Title field"
  72         Kontext "DescriptionObject"
  73         DescriptionTitle.Settext "TitleText"
  74
  75     printlog "- Type 'This Is A Description'"
  76         DescriptionText.Settext "This Is A Description"
  77
  78     printlog "- Close the dialog"
  79         DescriptionObject.Ok
  80
  81     printlog "- Context menu on the picture, choose 'Description'"
  82         try
  83                 ContextDescriptionObject
  84         catch
  85                 Warnlog "Seems picture is not selected => Description Object could not be opened"
  86         endcatch
  87
  88         printlog "Check that the Title and Description fields have been saved correctly"
  89         Kontext "DescriptionObject"
  90         if DescriptionTitle.Gettext <> "TitleText" then
  91                 Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
  92         endif
  93         if DescriptionText.Gettext <> "This Is A Description" then
  94                 warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
  95         endif
  96         DescriptionObject.Cancel
  97
  98     printlog "- Format - Picture"
  99         FormatGraphics
 100
 101         printlog "The 'Alternative' field must be filled with the content of the Title field (='TitleText')"
 102         Kontext
 103         Active.Setpage TabZusaetze
 104         Kontext "TabZusaetze"
 105         if Alternativtext.Gettext <> "TitleText" then
 106                 Warnlog "Alternatice text in pictures options is not set"
 107         endif
 108         TabZusaetze.Cancel
 109
 110     printlog "- Save the document"
 111         Call hFileSaveAsKill ( gOfficePath + "user\work\tPictureAlternativeText.odt" )
 112         Call hCloseDocument
 113
 114     printlog "- Reload"
 115         Call hFileOpen ( gOfficePath + "user\work\tPictureAlternativeText.odt" )
 116         ' select graphic
 117         Call wTypeKeys ("<SHIFT F4>")
 118
 119         printlog "Check that the Title and Description fields have been saved correctly"
 120         try
 121                 ContextDescriptionObject
 122         catch
 123                 Warnlog "Seems picture is not selected => Description Object could not be opened"
 124         endcatch
 125
 126         Kontext "DescriptionObject"
 127         if DescriptionTitle.Gettext <> "TitleText" then
 128                 Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
 129         endif
 130         if DescriptionText.Gettext <> "This Is A Description" then
 131                 warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
 132         endif
 133         DescriptionObject.Cancel
 134
 135     printlog "- Format - Picture"
 136         FormatGraphics
 137         Kontext
 138         Active.Setpage TabZusaetze
 139         Kontext "TabZusaetze"
 140         if Alternativtext.Gettext <> "TitleText" then
 141                 Warnlog "Alternatice text in pictures options is not set after save and reload"
 142         endif
 143         TabZusaetze.Cancel
 144
 145         printlog "- close document"
 146         Call hCloseDocument
 147
 148 endcase
 149
 150 '-------------------------------------------------------------------------
 151
 152 testcase tFrameAlternativeText
 153
 154         printlog "- New writer document"
 155         Call hNewDocument
 156
 157         printlog "- Insert a frame"
 158         Call wInsertFrame
 159
 160     printlog "- Context menu on the frame, choose 'Description'"
 161         try
 162                 ContextDescriptionObject
 163         catch
 164                 Warnlog "Seems Frame is not selected => Description Object could not be opened"
 165         endcatch
 166
 167     printlog "- Type 'TitleText' in the Title field"
 168         Kontext "DescriptionObject"
 169         DescriptionTitle.Settext "TitleText"
 170
 171     printlog "- Type 'This Is A Description'"
 172         DescriptionText.Settext "This Is A Description"
 173
 174     printlog "- Close the dialog"
 175         DescriptionObject.Ok
 176
 177     printlog "- Context menu on the frame, choose 'Description'"
 178         try
 179                 ContextDescriptionObject
 180         catch
 181                 Warnlog "Seems frame is not selected => Description Object could not be opened"
 182         endcatch
 183
 184         printlog "Check that the Title and Description fields have been saved correctly"
 185         Kontext "DescriptionObject"
 186         if DescriptionTitle.Gettext <> "TitleText" then
 187                 Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
 188         endif
 189         if DescriptionText.Gettext <> "This Is A Description" then
 190                 warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
 191         endif
 192         DescriptionObject.Cancel
 193
 194     printlog "- Save the document"
 195         Call hFileSaveAsKill ( gOfficePath + "user\work\tFrameAlternativeText.odt" )
 196         Call hCloseDocument
 197
 198     printlog "- Reload"
 199         Call hFileOpen ( gOfficePath + "user\work\tFrameAlternativeText.odt" )
 200         ' select frame
 201         Call wTypeKeys ("<SHIFT F4>")
 202
 203         printlog "Check that the Title and Description fields have been saved correctly"
 204         try
 205                 ContextDescriptionObject
 206         catch
 207                 Warnlog "Seems frame is not selected => Description Object could not be opened"
 208         endcatch
 209
 210         Kontext "DescriptionObject"
 211         if DescriptionTitle.Gettext <> "TitleText" then
 212                 Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
 213         endif
 214         if DescriptionText.Gettext <> "This Is A Description" then
 215                 warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
 216         endif
 217         DescriptionObject.Cancel
 218
 219         printlog "- close document"
 220         Call hCloseDocument
 221
 222
 223 endcase
 224
 225 '-------------------------------------------------------------------------
 226
 227 testcase tOLEAlternativeText
 228
 229         printlog "- New writer document"
 230         Call hNewDocument
 231
 232         printlog "- Insert a OLE"
 233     InsertObjectOLEObject
 234     Kontext "OLEObjektEinfuegen"
 235     NeuErstellen.Check
 236     OLEObjektEinfuegen.Ok
 237         Sleep 2
 238         Call gMouseClick (10,10)
 239         Call wTypeKeys "<SHIFT F4>"
 240
 241     printlog "- Context menu on the OLE, choose 'Description'"
 242         try
 243                 ContextDescriptionObject
 244         catch
 245                 Warnlog "Seems OLE is not selected => Description Object could not be opened"
 246         endcatch
 247
 248     printlog "- Type 'TitleText' in the Title field"
 249         Kontext "DescriptionObject"
 250         DescriptionTitle.Settext "TitleText"
 251
 252     printlog "- Type 'This Is A Description'"
 253         DescriptionText.Settext "This Is A Description"
 254
 255     printlog "- Close the dialog"
 256         DescriptionObject.Ok
 257
 258     printlog "- Context menu on the OLE, choose 'Description'"
 259         try
 260                 ContextDescriptionObject
 261         catch
 262                 Warnlog "Seems OLE is not selected => Description Object could not be opened"
 263         endcatch
 264
 265         printlog "Check that the Title and Description fields have been saved correctly"
 266         Kontext "DescriptionObject"
 267         if DescriptionTitle.Gettext <> "TitleText" then
 268                 Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
 269         endif
 270         if DescriptionText.Gettext <> "This Is A Description" then
 271                 warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
 272         endif
 273         DescriptionObject.Cancel
 274
 275     printlog "- Save the document"
 276         Call hFileSaveAsKill ( gOfficePath + "user\work\tOLEAlternativeText.odt" )
 277         Call hCloseDocument
 278
 279     printlog "- Reload"
 280         Call hFileOpen ( gOfficePath + "user\work\tOLEAlternativeText.odt" )
 281         ' select OLE
 282         Call wTypeKeys ("<SHIFT F4>")
 283
 284         printlog "Check that the Title and Description fields have been saved correctly"
 285         try
 286                 ContextDescriptionObject
 287         catch
 288                 Warnlog "Seems OLE is not selected => Description Object could not be opened"
 289         endcatch
 290
 291         Kontext "DescriptionObject"
 292         if DescriptionTitle.Gettext <> "TitleText" then
 293                 Warnlog "Object title gets lost. Not 'TitleText' but " & DescriptionTitle.Gettext
 294         endif
 295         if DescriptionText.Gettext <> "This Is A Description" then
 296                 warnlog "Object description gets lost. Not 'This Is A Description' but " & DescriptionText.Gettext
 297         endif
 298         DescriptionObject.Cancel
 299
 300         printlog "- close document"
 301         Call hCloseDocument
 302
 303
 304
 305 endcase