testautomation/graphics/required/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:43:00 $
  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     '/// Inserting all gallery graphics in a Writer document and checking the sizes.
  71     Dim lsFiles (3000) as String
  72     Dim lsGraphics (3000) as String
  73     Dim i as Integer
  74     Dim y as Integer
  75     Dim t as Integer
  76     Dim iCount as Integer
  77     Dim corLoad as Boolean
  78     Dim x as boolean
  79
  80     '/// Geting all installed gallery objects out of the installation in a list.
  81     if gNetzInst = TRUE then
  82         GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
  83     else
  84         GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () )
  85     end if
  86     call GetOnlyGraphics ( lsFiles (), lsGraphics() )
  87     iCount = ListCount ( lsGraphics() )
  88     printlog "   We have " + iCount + " graphics in the gallery."
  89     '/// + Open a new document
  90     call hNewDocument
  91
  92     for i = 1 to 100
  93         for y = 1 to 1
  94             randomize
  95             t = Int((iCount*Rnd))
  96             if (t<1) then 'just so we get it between 1 and the amount of items.
  97                 y = y - 1
  98             end if
  99         next y
 100
 101         corLoad = FALSE
 102         try
 103             '/// <i>Loop begin</i>
 104             '/// + Inserting all gallery files and checking the sizes
 105             '/// +- Iinsert / graphic / from file
 106             '/// +- Check the size in 'format / graphics' on the <i>Type</i> tabpage
 107             '/// +-- The size should noz be smaler than 17*25cm / photos 21*25cm
 108             '///    + Deleting the graphic with &lt;delete&gt; of the keyboard
 109             '/// <i>Loop ends</i>
 110             x = LoadGraphic ( lsGraphics(t), corLoad )
 111             printlog
 112         catch
 113             ExceptLog
 114             if corLoad = FALSE then
 115                 warnlog "Problems with " + lsGraphics(t)
 116                 ResetApplication
 117                 call hNewDocument
 118             end if
 119         endcatch
 120         if (not x) then
 121             printlog "   Tested nr: " + t + " : " + lsGraphics(t)
 122         end if
 123     next i
 124
 125     '/// Close the gallery ///'
 126     ToolsGallery
 127     WaitSlot (2000)
 128     '/// Close the document ///'
 129     call hCloseDocument
 130 endcase 'tLoadAllGalleryGraphicFiles
 131
 132 '-------------------------------------------------------------------------
 133
 134 testcase tCheckAllGalleryGraphicFiles
 135 '/// Checking the filesize of all gallery graphics.
 136     Dim lsFiles (3000) as String
 137     Dim lsGraphics (3000) as String
 138     Dim i as Integer
 139     Dim y as Integer
 140     Dim t as Integer
 141     Dim iCount as Integer
 142     Dim corLoad as Boolean
 143     Dim x as boolean
 144
 145     '/// Geting all installed gallery objects out of the installation in a list.
 146     if gNetzInst = TRUE then
 147         GetAllFileList ( ConvertPath ( gOfficeBasisPath + "share\gallery\" ), "*.*", lsFiles () )
 148     else
 149         GetAllFileList ( ConvertPath ( gOfficePath + "share\gallery\" ), "*.*", lsFiles () )
 150     end if
 151     call GetOnlyGraphics ( lsFiles (), lsGraphics() )
 152     iCount = ListCount ( lsGraphics() )
 153     printlog "   We have " + iCount + " graphics in the gallery."
 154     '/// Open a new document
 155     call hNewDocument
 156
 157     for i=1 to iCount
 158         corLoad = FALSE
 159         try
 160             '/// <i>Loop begin</i>
 161             '///+ Inserting all gallery files and checking the sizes
 162             '///+- Iinsert / graphic / from file
 163             '///+- Check the size in 'format / graphics' on the <i>Type</i> tabpage
 164             '///+-- The size should noz be smaler than 17*25cm / photos 21*25cm
 165             '///+ Deleting the graphic with &lt;delete&gt; of the keyboard
 166             '/// <i>Loop ends</i>
 167             x = CheckGraphic ( lsGraphics(i), corLoad )
 168         catch
 169             ExceptLog
 170             if corLoad = FALSE then
 171                 warnlog "Problems with " + lsGraphics(i)
 172                 ResetApplication
 173                 call hNewDocument
 174             end if
 175         endcatch
 176         if (not x) then
 177             printlog "   Tested nr: " + i + " : " + lsGraphics(i)
 178         end if
 179     next i
 180     '/// Close the gallery ///'
 181     ToolsGallery
 182     WaitSlot (2000)
 183     '/// Close the document ///'
 184     call hCloseDocument
 185 endcase 'tLoadAllGalleryGraphicFiles
 186
 187 '-------------------------------------------------------------------------
 188
 189 testcase tInsertGalleryObjects
 190     Dim lsFiles (3000) as String
 191     Dim lsGraphics (3000) as String
 192     Dim CountOfThemes
 193     Dim HowManyItems as Integer
 194     Dim WhichOne as Integer
 195     Dim CountOfItems as Integer
 196     Dim ct as Integer
 197     Dim i as Integer
 198     Dim d as Integer
 199     Dim iCount as Integer
 200     Dim corLoad, x as Boolean
 201
 202     '/// 1. Select theme ///'
 203     call hNewDocument
 204     call hOpenGallery
 205     kontext "Gallery"
 206         CountOfThemes = Gallerys.GetItemCount
 207         for ct = 1 to CountOfThemes
 208             Gallerys.Select ct
 209             printlog "   Selected Gallery-Theme nr: " + ct + ": " + Gallerys.GetSelText
 210             kontext "Gallery"
 211                 CountOfItems = View.GetItemCount()
 212                 '/// 2. Choose if we should test 3,4 or 5 objects. ///'
 213                 for d = 1 to 1
 214                     randomize
 215                     HowManyItems=Int((5*Rnd)+(3*Rnd))
 216                     if CountOfItems = 0 then
 217                         QaErrorLog "   There were no objects in the the gallery-theme on position: " + ct
 218                     else
 219                         if (HowManyItems<3) then 'just so we get it between 3 and 5.
 220                             d = d - 1
 221                         else
 222                             printlog "   Will now select and copy " + HowManyItems + " items from this Theme."
 223                         end if
 224                         for i = 1 to HowManyItems
 225                             '/// 3. Select the objects ///'
 226                             for x = 1 to 1
 227                                 randomize
 228                                 WhichOne=Int(CountOfItems*RND) '(5*Rnd)+(CountOfItems*Rnd))
 229                                 if (WhichOne<1) then 'just so we get it between 1 and the amount of items.  '>(CountOfItems + 1)) OR (WhichOne<1) then '
 230                                     x = x - 1
 231                                 end if
 232                             next x
 233                             printlog "   Will copy object nr: " + WhichOne
 234                             View.Mousemove (1,1)
 235                             View.TypeKeys "<HOME>"
 236                             View.TypeKeys "<RIGHT>", (WhichOne)
 237                             kontext "GraphicObjectBar"
 238                                 if GraphicObjectBar.Exists then
 239                                     if GraphicObjectBar.IsDocked = False then GraphicObjectBar.Dock
 240                                 end if
 241                             kontext "Gallery"
 242                                 sleep (1)
 243                                 View.TypeKeys("<shift f10>")
 244                                 sleep (1)
 245                                 try
 246                                     dim number as integer
 247                                     number = MenuGetItemCount
 248                                     if (number > 2) AND (number < 10) then
 249                                         '/// 4. Copy the selected item into our document. ///'
 250                                         hMenuSelectNr (1) 'Insert
 251                                         hMenuSelectNr (1) 'As Copy
 252                                         sleep (1)
 253                                     else
 254                                         Warnlog "   The contextmenu came up, but the number of entries were strange."
 255                                         printlog "   Number of entries:" + number
 256                                         MenuSelect(0)
 257                                     end if
 258                                 catch
 259                                     warnlog "   A contextmenu didnt come up for the gallery-theme on position: " + ct
 260                                     i = HowManyItems
 261                                 endcatch
 262                             '/// 5. Repeat 3.-5. until 2. is fulfilled. ///'
 263                         next i
 264                     end if 'if the theme didnt have any objects, we landed here.
 265         next d
 266         '/// 6. Change Theme. ///'
 267         '/// 7. Repeat 2. - 8. until all themes are done. ///'
 268     next ct
 269
 270     Kontext "Gallery"
 271         if Gallery.Exists(2) then
 272             ToolsGallery
 273             WaitSlot (2000)
 274         end if
 275
 276     '/// Remove the last copied object. ///'
 277     hTypeKeys "<DELETE>"
 278     call hCloseDocument
 279
 280 endcase 'tInsertGalleryObjects
 281
 282 '-------------------------------------------------------------------------
 283 testcase tResetSettings
 284
 285     printlog "Resetting the measurement unit for textdocuments."
 286     printlog "+Tools / options / text documents / general"
 287     call hNewDocument
 288     ToolsOptions
 289     hToolsOptions ( "WRITER", "General" )
 290     Masseinheit.Select iSaveSetting
 291     Kontext "ExtrasOptionenDlg"
 292         ExtrasOptionenDlg.OK
 293     call hCloseDocument
 294
 295 endcase 'tResetSettings
 296 '-------------------------------------------------------------------------