testautomation/graphics/optional/includes/global/gallery2.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: gallery2.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 10:42:41 $
  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 : Checking all gallery themes
  37 '*
  38 '*****************************************************************
  39 '*
  40 ' #1 tLoad100GalleryGraphicFiles  'Inserting 100 gallery graphics and checking the sizes
  41 ' #1 tCheckAllGalleryGraphicFiles 'Checking the size ( > 0 Byte ) of all gallery-files.
  42 ' #1 tInsertGalleryObjects        'Inserting random objects via contextmenu-insert-copy.
  43 ' #0 LoadGraphic
  44 ' #0 CheckGraphic
  45 ' #0 makeNumOutOfText
  46 ' #1 tSettingsToCM 'Measurement unit for textdocuments to cm
  47 ' #1 tResetSettings 'Resetting the measurement unit for textdocuments.
  48 '*
  49 '\****************************************************************
  50
  51 testcase tSettingsToCM
  52
  53     printlog " Setting the measurement unit for textdocuments to cm."
  54     printlog " +Tools / options / text documents / general"
  55     ExitRestartTheOffice
  56     WaitSlot (10000)
  57     Call hNewDocument
  58     ToolsOptions
  59     hToolsOptions ( "WRITER", "General" )
  60     iSaveSetting = Masseinheit.GetSelIndex
  61     Masseinheit.Select 2
  62     Kontext "ExtrasOptionenDlg"
  63     ExtrasOptionenDlg.OK
  64     Call hCloseDocument
  65
  66 endcase
  67 '-------------------------------------------------------------------------
  68 testcase tLoad100GalleryGraphicFiles
  69
  70     Dim lsFiles (3000) as String
  71     Dim lsGraphics (3000) as String
  72     Dim i as Integer
  73     Dim y as Integer
  74     Dim t as Integer
  75     Dim iCount as Integer
  76     Dim corLoad as Boolean
  77     Dim x as boolean
  78
  79     if gNetzInst = TRUE then
  80         GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
  81     else
  82         GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () )
  83     end if
  84     call GetOnlyGraphics ( lsFiles (), lsGraphics() )
  85     iCount = ListCount ( lsGraphics() )
  86     printlog "   We have " + iCount + " graphics in the gallery."
  87     call hNewDocument
  88
  89     for i = 1 to 100
  90         for y = 1 to 1
  91             randomize
  92             t = Int((iCount*Rnd))
  93             if (t<1) then 'just so we get it between 1 and the amount of items.
  94                 y = y - 1
  95             end if
  96         next y
  97
  98         corLoad = FALSE
  99         try
 100             x = LoadGraphic ( lsGraphics(t), corLoad )
 101             printlog
 102         catch
 103             ExceptLog
 104             if corLoad = FALSE then
 105                 warnlog "Problems with " + lsGraphics(t)
 106                 ResetApplication
 107                 call hNewDocument
 108             end if
 109         endcatch
 110         if (not x) then
 111             printlog "   Tested nr: " + t + " : " + lsGraphics(t)
 112         end if
 113     next i
 114
 115     ToolsGallery
 116     WaitSlot (2000)
 117     call hCloseDocument
 118 endcase 'tLoadAllGalleryGraphicFiles
 119
 120 '-------------------------------------------------------------------------
 121
 122 testcase tCheckAllGalleryGraphicFiles
 123     Dim lsFiles (3000) as String
 124     Dim lsGraphics (3000) as String
 125     Dim i as Integer
 126     Dim y as Integer
 127     Dim t as Integer
 128     Dim iCount as Integer
 129     Dim corLoad as Boolean
 130     Dim x as boolean
 131
 132     if gNetzInst = TRUE then
 133         GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
 134     else
 135         GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () )
 136     end if
 137     call GetOnlyGraphics ( lsFiles (), lsGraphics() )
 138     iCount = ListCount ( lsGraphics() )
 139     printlog "   We have " + iCount + " graphics in the gallery."
 140     call hNewDocument
 141
 142     for i=1 to iCount
 143         corLoad = FALSE
 144         try
 145             x = CheckGraphic ( lsGraphics(i), corLoad )
 146         catch
 147             ExceptLog
 148             if corLoad = FALSE then
 149                 warnlog "Problems with " + lsGraphics(i)
 150                 ResetApplication
 151                 call hNewDocument
 152             end if
 153         endcatch
 154         if (not x) then
 155             printlog "   Tested nr: " + i + " : " + lsGraphics(i)
 156         end if
 157     next i
 158     ToolsGallery
 159     WaitSlot (2000)
 160     call hCloseDocument
 161 endcase 'tLoadAllGalleryGraphicFiles
 162
 163 '-------------------------------------------------------------------------
 164
 165 testcase tInsertGalleryObjects
 166     Dim lsFiles (3000) as String
 167     Dim lsGraphics (3000) as String
 168     Dim CountOfThemes
 169     Dim HowManyItems as Integer
 170     Dim WhichOne as Integer
 171     Dim CountOfItems as Integer
 172     Dim ct as Integer
 173     Dim i as Integer
 174     Dim d as Integer
 175     Dim iCount as Integer
 176     Dim corLoad, x as Boolean
 177
 178     call hNewDocument
 179     call hOpenGallery
 180     kontext "Gallery"
 181     CountOfThemes = Gallerys.GetItemCount
 182     for ct = 1 to CountOfThemes
 183         Gallerys.Select ct
 184         printlog "   Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText
 185         kontext "Gallery"
 186         CountOfItems = View.GetItemCount()
 187         for d = 1 to 1
 188             randomize
 189             HowManyItems=Int((5*Rnd)+(3*Rnd))
 190             if CountOfItems = 0 then
 191                 QaErrorLog "   There were no objects in the the gallery-theme on position: " + ct
 192             else
 193                 if (HowManyItems<3) then 'just so we get it between 3 and 5.
 194                     d = d - 1
 195                 else
 196                     printlog "   Will now select and copy " + HowManyItems + " items from this Theme."
 197                 end if
 198                 for i = 1 to HowManyItems
 199                     for x = 1 to 1
 200                         randomize
 201                         WhichOne=Int(CountOfItems*RND) '(5*Rnd)+(CountOfItems*Rnd))
 202                         if (WhichOne<1) then 'just so we get it between 1 and the amount of items.  '>(CountOfItems + 1)) OR (WhichOne<1) then '
 203                             x = x - 1
 204                         end if
 205                     next x
 206                     printlog "   Will copy object nr: " + WhichOne
 207                     View.Mousemove (1,1)
 208                     View.TypeKeys "<HOME>"
 209                     View.TypeKeys "<RIGHT>", (WhichOne)
 210                     kontext "GraphicObjectBar"
 211                     if GraphicObjectBar.Exists then
 212                         if GraphicObjectBar.IsDocked = False then GraphicObjectBar.Dock
 213                         end if
 214                         kontext "Gallery"
 215                         sleep (1)
 216                         View.TypeKeys("<shift f10>")
 217                         sleep (1)
 218                         try
 219                             dim number as integer
 220                             number = MenuGetItemCount
 221                             if (number > 2) AND (number < 10) then
 222                                 hMenuSelectNr (1) 'Insert
 223                                 hMenuSelectNr (1) 'As Copy
 224                                 sleep (1)
 225                             else
 226                                 Warnlog "   The contextmenu came up, but the number of entries were strange."
 227                                 printlog "   Number of entries:" + number
 228                                 MenuSelect(0)
 229                             end if
 230                         catch
 231                             warnlog "   A contextmenu didnt come up for the gallery-theme on position: " + ct
 232                             i = HowManyItems
 233                         endcatch
 234                     next i
 235                 end if 'if the theme didnt have any objects, we landed here.
 236             next d
 237         next ct
 238
 239         Kontext "Gallery"
 240         if Gallery.Exists(2) then
 241             ToolsGallery
 242             WaitSlot (2000)
 243         end if
 244
 245         hTypeKeys "<DELETE>"
 246         call hCloseDocument
 247
 248 endcase 'tInsertGalleryObjects
 249
 250 '-------------------------------------------------------------------------
 251 testcase tResetSettings
 252
 253     printlog "Resetting the measurement unit for textdocuments."
 254     printlog "+Tools / options / text documents / general"
 255     call hNewDocument
 256     ToolsOptions
 257     hToolsOptions ( "WRITER", "General" )
 258     Masseinheit.Select iSaveSetting
 259     Kontext "ExtrasOptionenDlg"
 260     ExtrasOptionenDlg.OK
 261     call hCloseDocument
 262
 263 endcase 'tResetSettings
 264 '-------------------------------------------------------------------------