testautomation/graphics/optional/export_graphic_b.bas

   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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* Owner : wolfram.garten@oracle.com
  29 '*
  30 '* short description : Graphics Export Test - B-tests. (the usual suspects)
  31 '*
  32 '\************************************************************************
  33
  34 global OutputGrafikTBO as string
  35 global Document as string
  36 global ExtensionString as String
  37
  38 sub main
  39     Printlog "--------------------- Graphics Export Test ------------------- "
  40     Call hStatusIn ( "Graphics","export_graphic_b.bas" )
  41
  42     use "graphics\tools\id_tools.inc"
  43     use "graphics\tools\id_tools_2.inc"
  44     use "graphics\optional\includes\global\export_graphic_2.inc"
  45
  46     if bAsianLan then
  47         qaErrorLog "#i71631# - Test deactivated with Asian languages due to bug"
  48         Call hStatusOut
  49         exit sub
  50     endif
  51
  52     Call sFileExport 'OBSERVE - This line must run before the following testcases!
  53     Call tPDF   ' Portable Document Format
  54     Call tPDF_Creator  'test if the right creator is set in the PDF document
  55     Call tSVG   'Scalable Vector Graphics
  56     Call tSVM   'StarView Metafile
  57     Call tBMP   'Windows Bitmap
  58     Call tEMF   'Enhanced Metafile
  59     Call tPNG   'Portable Network Graphic
  60     Call tMET   'OS/2 Metafile
  61     Call tWMF   'Windows Metafile
  62     Call tSWF   'Macromedia Flash (SWF) (.swf)
  63
  64     Call hStatusOut
  65 end sub
  66
  67 sub LoadIncludeFiles
  68     use "global\system\includes\master.inc"
  69     use "global\system\includes\gvariabl.inc"
  70     Call GetUseFiles
  71     gApplication = "IMPRESS"
  72 end sub
  73