testautomation/framework/required/includes/graphics_import.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: graphics_import.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: obo $ $Date: 2008-07-25 08:03:02 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '* short description : Graphic import (2nd file for the first.bas)
  37 '*
  38 '\******************************************************************************
  39
  40
  41 testcase tQuickInsertGraphNotAsLink
  42     dim iCurrentFile as integer
  43     dim GraphicFile as String
  44     dim Filtername as String
  45
  46     printlog( "Insert a sample of commonly used file formats into a writer document (not linked)" )
  47
  48     if ( gUseSysDlg ) then
  49         warnlog( "This test needs the OpenOffice.org filepicker to be set as default" )
  50         goto endsub
  51     endif
  52
  53     gApplication = "WRITER"
  54     Call hNewDocument
  55
  56     for iCurrentFile = 1 to 25
  57
  58         ' MODIFY and ENABLE this SAMPLE snippet to exclude one fileformat from testing
  59         '         if ( iCurrentFile = 7 ) AND (gtPlatform="x86") then
  60         '             qaErrorLog("#<issue-id># crash on <platform> on loading <image-file>")
  61         '             goto skipformat
  62         '         endif
  63         ' Note: Can be locale dependent!
  64         if (iCurrentFile = 4) AND (gPlatform="osx") then
  65             qaerrorlog("#i100253# crash on MacOS X on loading ball.eps")
  66             goto skipformat
  67         endif
  68
  69         Kontext "GrafikEinfuegenDlg"
  70         if ( not GrafikEinfuegenDlg.exists() ) then
  71             InsertGraphicsFromFile
  72             Kontext "GrafikEinfuegenDlg"
  73         endif
  74
  75         if ( GrafikEinfuegenDlg.Exists( 2 ) ) then
  76             ' the list of files expected to be found in the samples directory
  77             select case iCurrentFile
  78                 case 1  :  GraphicFile = "desp.bmp"
  79                 case 2  :  GraphicFile = "columbia.dxf"
  80                 case 3  :  GraphicFile = "extrud.emf"
  81                 case 4  :  GraphicFile = "ball.eps"
  82                 case 5  :  GraphicFile = "airshw.met"
  83                 case 6  :  GraphicFile = "eface.gif"
  84                 case 7  :  GraphicFile = "purzel.gif"         ' Animated Gif
  85                 case 8  :  GraphicFile = "borabora.jpg"
  86                 case 9  :  GraphicFile = "grafix1.pbm"
  87                 case 10 :  GraphicFile = "circle.pcx"
  88                 case 11 :  GraphicFile = "papagei1.pcd"
  89                 case 12 :  GraphicFile = "newtonme.pct"
  90                 case 13 :  GraphicFile = "grafix2.pgm"
  91                 case 14 :  GraphicFile = "obst.png"
  92                 case 15 :  GraphicFile = "london.ppm"
  93                 case 16 :  GraphicFile = "tiger.psd"
  94                 case 17 :  GraphicFile = "grafix3.ras"
  95                 case 18 :  GraphicFile = "mickym.sgf"
  96                 case 19 :  GraphicFile = "faxpfeil.sgv"
  97                 case 20 :  GraphicFile = "picture.svm"
  98                 case 21 :  GraphicFile = "pilz.tga"
  99                 case 22 :  GraphicFile = "stabler.tif"
 100                 case 23 :  GraphicFile = "krokodil.wmf"
 101                 case 24 :  GraphicFile = "grafix4.xbm"
 102                 case 25 :  GraphicFile = "papagei2.xpm"
 103             end select
 104
 105             GraphicFile = ConvertPath (gTesttoolPath & "global\input\graf_inp\" & GraphicFile)
 106             printlog( "Current file " + iCurrentFile + ": " & GraphicFile )
 107             printlog( " * Set filter to <All formats>" )
 108             DateiName.SetText( GraphicFile )
 109             DateiTyp.Select( 1 )
 110             WaitSlot()
 111
 112             printlog( " * Uncheck Preview- and Link-checkbox, load the file" )
 113             Vorschau.unCheck
 114             Verknuepfen.unCheck()
 115             Oeffnen.click()
 116             WaitSlot( 2000 )
 117
 118             Kontext "Active"
 119             if ( Active.Exists() ) then
 120                 Warnlog( "Unexpected messagebox: " & Active.GetText() )
 121                 Warnlog( "Affected file: " & GraphicFile )
 122                 Active.OK
 123             else
 124                 try
 125                     EditCopy
 126                     WaitSlot( 2000 )
 127                     EditDeleteContents
 128                     WaitSlot( 2000 )
 129                 catch
 130                     Warnlog( "Graphic file not selected/Copy or Delete is disabled: " & GraphicFile )
 131                     gMouseClick (90, 90)
 132                 endcatch
 133             endif
 134         else
 135             warnlog( "Insert Graphics Dialog is not open, aborting" )
 136             goto endsub
 137         endif
 138
 139     skipformat:
 140     next iCurrentFile
 141
 142     printlog( "" )
 143     printlog( "Test the PCD-Filters directly (3 samples)" )
 144
 145     for iCurrentFile = 1 to 3
 146
 147         printlog( "" )
 148
 149         Kontext "GrafikEinfuegenDlg"
 150         if ( not GrafikEinfuegenDlg.exists() ) then
 151             InsertGraphicsFromFile
 152             Kontext "GrafikEinfuegenDlg"
 153         endif
 154
 155         if ( GrafikEinfuegenDlg.exists( 2 ) ) then
 156
 157             select case iCurrentFile
 158             case 1 : Filtername = "PCD - Kodak Photo CD (768x512) (*.pcd)"
 159             case 2 : Filtername = "PCD - Kodak Photo CD (384x256) (*.pcd)"
 160             case 3 : Filtername = "PCD - Kodak Photo CD (192x128) (*.pcd)"
 161             end select
 162
 163             GraphicFile = ConvertPath( gTesttoolPath & "global\input\graf_inp\papagei1.pcd" )
 164
 165             printlog( "Current filter: " & Filtername )
 166             printlog( "Current file..: " & GraphicFile )
 167             DateiName.SetText ( GraphicFile )
 168             DateiTyp.Select( Filtername )
 169
 170             printlog( " * Uncheck Preview- and Link-checkbox, load the file" )
 171             Vorschau.Uncheck()
 172             Verknuepfen.unCheck()
 173             Oeffnen.click()
 174             WaitSlot( 2000 )
 175
 176             Kontext "Active"
 177             if ( Active.Exists() )then
 178                 Warnlog( "Unexpected messagebox: " & Active.GetText() )
 179                 Warnlog( "Affected file..: " & GraphicFile )
 180                 Warnlog( "Affected filter: " & Filtername )
 181                 Active.OK()
 182             else
 183                 try
 184                     EditCopy
 185                     WaitSlot( 2000 )
 186                     EditDeleteContents
 187                     WaitSlot( 2000 )
 188                 catch
 189                     Warnlog( "Problems with filtertype : " & Filtername )
 190                     gMouseClick (90, 90)
 191                 endcatch
 192             endif
 193         else
 194             warnlog( "Insert Graphics Dialog is not open. Aborting" )
 195             goto endsub
 196         endif
 197
 198     next iCurrentFile
 199
 200     Kontext "GrafikEinfuegenDlg"
 201     if GrafikEinfuegenDlg.Exists then
 202         GrafikEinfuegenDlg.Cancel
 203     endif
 204
 205     Call hCloseDocument
 206
 207 endcase
 208
 209 '*******************************************************************************
 210
 211 testcase tInFilterCountCompare()
 212
 213     '///<h1>Verify presence of all known graphic filters</h1>
 214     '///<i>Plain text description</i><br><br>
 215
 216     if ( gUseSysDlg ) then
 217         warnlog( "This test needs the OpenOffice.org filepicker to be set as default" )
 218         goto endsub
 219     endif
 220
 221     const FILE_NAME = "graphic_filters.txt"
 222     const SUFFIX_STRING_LENGTH = 178
 223
 224 '   List of filter suffixes for verification in case of error
 225 '   *.bmp;*.dxf;*.emf;*.eps;*.gif;*.jpg;*.jpeg;*.jfif;*.jif;*.met;*.pbm;*.pcd;
 226 '   *.pct;*.pcx;*.pgm;*.png;*.ppm;*.psd;*.ras;*.sgf;*.sgv;*.svm;*.tga;*.tif;
 227 '   *.tiff;*.wmf;*.xbm;*.xpm;*.pict
 228
 229     dim caUIFilters( 30 ) as string
 230
 231     dim cReferencePath as string
 232         cReferencePath = gTesttoolPath & "global/input/filters/"
 233         cReferencePath = convertpath ( cReferencePath & FILE_NAME )
 234
 235     dim cUIFiltersPath as string
 236         cUIFiltersPath = hGetWorkPath() & FILE_NAME
 237
 238     dim iCurrentFilter as integer
 239     dim iFilterCount as integer
 240
 241     dim cAllFormats as string
 242
 243     dim irc as integer
 244     dim iBegin as integer
 245     dim iEnd as integer
 246
 247     '///<u>Description:</u>
 248     printlog( "" )
 249     printlog( "Verify filternames listed on the Insert Graphics dialog" )
 250     '///<ul>
 251
 252     '///+<li>Open a new document, change it</li>
 253     hCreateDocument()
 254     hChangeDoc()
 255
 256     '///+<li>Open the graphics import dialog</li>
 257     InsertGraphicsFromFile
 258
 259     '///+<li>Get the number of filters from the list</li>
 260     kontext "GrafikEinfuegenDlg"
 261     iFilterCount = DateiTyp.getItemCount()
 262
 263     'Make list compatible with listfunctions
 264     caUIFilters( 0 ) = iFilterCount - 1
 265
 266     '///+<li>Part 1: Retrieve the names of the filters, ignore the first entry (all formats)</li>
 267     for iCurrentFilter = 2 to iFilterCount
 268
 269         caUIFilters( iCurrentFilter - 1 ) = DateiTyp.getItemText( iCurrentFilter )
 270
 271     next iCurrentFilter
 272
 273     '///+<li>Compare the list against the reference</li>
 274     irc = hManageComparisionList( cReferencePath, cUIFiltersPath, caUIFilters() )
 275     if ( irc <> 0 ) then
 276         warnlog( "The list of graphic format filters has changed" )
 277     endif
 278
 279     '///+<li>Part 2: Verify the &lt;All formats&gt; string</li>
 280     printlog( "" )
 281     printlog( "Verify <All formats>-string" )
 282     cAllFormats = DateiTyp.getItemText( 1 )
 283
 284     '///+<li>Test opening bracket (&lt;) (this is first character in string)</li>
 285     iBegin = instr( cAllFormats, "<" )
 286     if ( iBegin <> 1 ) then
 287         warnlog( "The opening bracket < is missing in <All formats> string" )
 288     endif
 289
 290     '///+<li>Test closing bracket (&gt;)</li>
 291     iEnd = instr( cAllFormats, ">" )
 292     if ( iEnd = 0 ) then
 293         warnlog( "The closing bracket > is missing in <All formats> string" )
 294     endif
 295
 296     '///+<li>Verify that &lt;All formats&gt; string has sane length</li>
 297     if ( ( iEnd - iBegin ) < 2 ) then
 298         warnlog( "<All formats> string is shorter than expected, please check" )
 299         printlog( "String is: " & cAllFormats & ", length (" & len( cAllFormats ) & ")" )
 300     endif
 301
 302     '///+<li>Test opening bracket (, it is separated by one blank from &gt;</li>
 303     iBegin = instr( cAllFormats, "(" )
 304     if ( iBegin <> iEnd + 2 ) then
 305         warnlog( "The opening bracket ( is missing in <All formats> string" )
 306     endif
 307
 308     '///+<li>Test closing bracket )</li>
 309     iEnd = instr( cAllFormats, ")" )
 310     if ( iEnd < 10 ) then
 311         warnlog( "The closing bracket ) is missing in <All formats> string" )
 312     endif
 313
 314     '///+<li>Verify that the list of filter-suffixes has sane length</li>
 315     irc = iEnd - iBegin
 316     if ( irc <> SUFFIX_STRING_LENGTH ) then
 317         warnlog( "The list of file suffixes has changed, please verify" )
 318         printlog( "Found: " & irc & " chars, expected " & SUFFIX_STRING_LENGTH )
 319     endif
 320
 321     '///+<li>Close the dialog</li>
 322     kontext "GrafikEinfuegenDlg"
 323     GrafikEinfuegenDlg.cancel()
 324
 325     '///+<li>Close the document</li>
 326     hDestroyDocument()
 327
 328     '///</ul>
 329
 330
 331 endcase