testautomation/graphics/optional/includes/global/g_accessability.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: g_accessability.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42: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 : wolfram.garten@sun.com
  35 '*
  36 '* short description : Accessability
  37 '*
  38 '**************************************************************************************
  39 ' #1 tEis1549
  40 ' #1 tEis1523
  41 ' #1 tEis1581
  42 '\*************************************************************************************
  43
  44 testcase tEis1549
  45     call hNewDocument
  46     call hTextrahmenErstellen ("Sun",20,20,70,20)
  47
  48     hTypeKeys ("<escape><escape>")
  49     hTypeKeys ("<end><shift home>")
  50     try
  51         EditCopy
  52         if GetClipboardText <> "" then
  53             warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
  54         endif
  55     catch
  56         Printlog "Left text edit mode :-)"
  57     endcatch
  58     EditSelectAll
  59     hTypeKeys (" ")
  60     sleep 1
  61     hTypeKeys ("is")
  62     hTypeKeys ("<shift home>")
  63     try
  64         EditCopy
  65         if GetClipboardText = "Sun is" then
  66             Printlog "Activating a textobject with 'printable' characters works :-)"
  67         else
  68             warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
  69         endif
  70     catch
  71         warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
  72     endcatch
  73
  74     hTypeKeys ("<escape><escape>")
  75     hTypeKeys ("<end><shift home>")
  76     try
  77         EditCopy
  78         if GetClipboardText <> "" then
  79             warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
  80         endif
  81     catch
  82         Printlog "Left text edit mode :-)"
  83     endcatch
  84     hTypeKeys ("<Tab>")
  85     hTypeKeys ("<F2>")
  86     '   hTypeKeys ("<end><shift home>")
  87     hTypeKeys ("<shift home>")
  88     try
  89         EditCopy
  90         if GetClipboardText = "Sun is" then
  91             Printlog "Activating a textobject with <F2> works :-)"
  92         else
  93             warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
  94         endif
  95     catch
  96         warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
  97     endcatch
  98
  99     hTypeKeys ("<escape><escape>")
 100     hTypeKeys ("<end><shift home>")
 101     try
 102         EditCopy
 103         if GetClipboardText <> "" then
 104             warnlog "Leaving edit mode didn't work :-( '" + GetClipboardText + "'"
 105         endif
 106     catch
 107         Printlog "Left text edit mode :-)"
 108     endcatch
 109     hTypeKeys ("<Tab>")
 110     hTypeKeys ("<Return>")
 111     '   hTypeKeys ("<end><shift home>")
 112     hTypeKeys ("<shift home>")
 113     try
 114         EditCopy
 115         if GetClipboardText = "Sun is" then
 116             Printlog "Activating a textobject with <Return> works :-)"
 117         else
 118             warnlog "Activating edit mode didn't work :-( '" + GetClipboardText + "' #99393#"
 119         endif
 120     catch
 121         warnlog "Entering edit mode didn't work :-( '" + GetClipboardText + "'"
 122     endcatch
 123
 124     call hCloseDocument
 125 endcase
 126
 127 testcase tEis1523
 128     call hNewDocument
 129     call hTextrahmenErstellen ("A",20,20,30,30)
 130     hTypeKeys ("<escape><escape>")
 131     call hTextrahmenErstellen ("B",10,10,15,15)
 132     hTypeKeys ("<escape><escape>")
 133     call hTextrahmenErstellen ("C",40,40,50,50)
 134     hTypeKeys ("<escape><escape>")
 135
 136     hTypeKeys ("<mod1 Return>")
 137     '   hTypeKeys ("<end><shift home>")
 138     hTypeKeys ("<shift home>")
 139     try
 140         EditCopy
 141         if GetClipboardText <> "A" then
 142             warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
 143         endif
 144     catch
 145         warnlog "Unexpected error :-("
 146     endcatch
 147     hTypeKeys ("<mod1 Return>")
 148     '   hTypeKeys ("<end><shift home>")
 149     hTypeKeys ("<shift home>")
 150     try
 151         EditCopy
 152         if GetClipboardText <> "B" then
 153             warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
 154         endif
 155     catch
 156         warnlog "Unexpected error :-("
 157     endcatch
 158     hTypeKeys ("<mod1 Return>")
 159     hTypeKeys ("<end><shift home>")
 160     try
 161         EditCopy
 162         if GetClipboardText <> "C" then
 163             warnlog "First textbox not activated :-( Instead '" + GetClipboardText + "'"
 164         endif
 165     catch
 166         warnlog "Unexpected error :-("
 167     endcatch
 168
 169     hTypeKeys ("<mod1 Return>")
 170     hTypeKeys ("<PageDown>")
 171     call hTextrahmenErstellen ("D",20,20,30,30)
 172     hTypeKeys ("<escape><escape>")
 173     hTypeKeys ("<mod1 Return>")
 174     hTypeKeys ("<end><shift home>")
 175     try
 176         EditCopy
 177         if GetClipboardText <> "D" then
 178             warnlog "First textbox not activated :-( instead '" + GetClipboardText + "'"
 179         endif
 180     catch
 181         warnlog "Unexpected error :-("
 182     endcatch
 183
 184     if (gApplication = "IMPRESS") then
 185         hTypeKeys ("<mod1 Return>")
 186         FormatModifyPage ' ..Layout
 187         sleep 2
 188         Kontext "Slides"
 189         hTypeKeys ("<PageDown>")
 190         hTypeKeys ("<PageDown>")
 191         kontext "Tasks"
 192         LayoutsPreview.TypeKeys "<home>"
 193         LayoutsPreview.TypeKeys "<down>"
 194         LayoutsPreview.TypeKeys "<Return>"
 195         hTypeKeys ("<mod1 Return>")
 196         hTypeKeys ("<end><shift home>")
 197         try
 198             EditCopy
 199             if GetClipboardText <> "" then
 200                 warnlog "No new layout :-( '" + GetClipboardText + "'"
 201             endif
 202         catch
 203             Printlog "Layout accepted :-)"
 204         endcatch
 205         hTypeKeys "Great"
 206         hTypeKeys ("<end><shift home>")
 207         try
 208             EditCopy
 209             if GetClipboardText <> "Great" then
 210                 warnlog "No new layout 2:-( '" + GetClipboardText + "'"
 211             endif
 212         catch
 213             Printlog "Layout accepted :-)"
 214         endcatch
 215     endif
 216
 217     call hCloseDocument
 218 endcase
 219
 220 testcase tEis1581
 221     dim i as integer
 222     call hNewDocument
 223
 224     if (gApplication = "IMPRESS") then
 225         FormatModifyPage
 226         sleep 1
 227         kontext "Tasks"
 228         LayoutsPreview.TypeKeys "<home>"
 229         kontext "Pagelayout_UndoDeleteWarning"
 230         if Pagelayout_UndoDeleteWarning.exists then
 231             Pagelayout_UndoDeleteWarning.ok
 232         endif
 233         for i = 1 to 9
 234             kontext "Tasks"
 235             LayoutsPreview.TypeKeys "<RIGHT>"
 236             kontext "Pagelayout_UndoDeleteWarning"
 237             if Pagelayout_UndoDeleteWarning.exists then
 238                 warnlog "   Undo/Delete-Warning showed up. But it shouldn't have."
 239                 Pagelayout_UndoDeleteWarning.ok
 240             endif
 241         next i
 242         kontext "Tasks"
 243         LayoutsPreview.TypeKeys "<Return>"
 244         sleep (1)
 245         hTypeKeys ("<tab><tab>")
 246         sleep (1)
 247         hTypeKeys ("<Return>")
 248         sleep (2)
 249         kontext "GeneralFileDialog"
 250         if GeneralFileDialog.exists then
 251             sleep 1
 252             GeneralFileDialog.cancel
 253         else
 254             warnlog "Graphic wasn't selected :-("
 255         endif
 256         kontext "Tasks"
 257         LayoutsPreview.TypeKeys "<home>"
 258         kontext "Pagelayout_UndoDeleteWarning"
 259         if Pagelayout_UndoDeleteWarning.exists then
 260             warnlog "   Undo/Delete-Warning showed up. But it shouldn't have."
 261             Pagelayout_UndoDeleteWarning.ok
 262         endif
 263         sleep (1)
 264         for i = 1 to 17
 265             kontext "Tasks"
 266             LayoutsPreview.TypeKeys "<RIGHT>"
 267             kontext "Pagelayout_UndoDeleteWarning"
 268             if Pagelayout_UndoDeleteWarning.exists then
 269                 warnlog "   Undo/Delete-Warning showed up. But it shouldn't have."
 270                 Pagelayout_UndoDeleteWarning.ok
 271             endif
 272         next i
 273         kontext "Tasks"
 274         LayoutsPreview.TypeKeys "<Return>"
 275         sleep (1)
 276         hTypeKeys ("<tab><tab><tab>")
 277         sleep (1)
 278         hTypeKeys ("<Return>")
 279         try
 280             sleep 2
 281             '         InsertTitle *OLEObjektEinfuegen/OLEObjektInsert   SID_INSERT_OBJECT
 282             kontext "OLEObjektInsert"
 283             sleep 1
 284             OLEObjektInsert.cancel
 285         catch
 286             warnlog "Ole wasn't selected :-("
 287         endcatch
 288     endif
 289     call hCloseDocument
 290 endcase