1 files changed, 79 insertions, 0 deletions
diff --git a/testautomation/graphics/optional/export_graphic_a.bas b/testautomation/graphics/optional/export_graphic_a.bas
new file mode 100755
index 000000000000..85372c058ebe
--- /dev/null
+++ b/testautomation/graphics/optional/export_graphic_a.bas
@@ -0,0 +1,79 @@
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'*
+'* Copyright 2008 by Sun Microsystems, Inc.
+'*
+'* OpenOffice.org - a multi-platform office productivity suite
+'*
+'* $RCSfile: export_graphic_a.bas,v $
+'*
+'* $Revision: 1.1 $
+'*
+'* last change: $Author: jsi $ $Date: 2008-06-16 10:42:35 $
+'*
+'* This file is part of OpenOffice.org.
+'*
+'* OpenOffice.org is free software: you can redistribute it and/or modify
+'* it under the terms of the GNU Lesser General Public License version 3
+'* only, as published by the Free Software Foundation.
+'*
+'* OpenOffice.org is distributed in the hope that it will be useful,
+'* but WITHOUT ANY WARRANTY; without even the implied warranty of
+'* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+'* GNU Lesser General Public License version 3 for more details
+'* (a copy is included in the LICENSE file that accompanied this code).
+'*
+'* You should have received a copy of the GNU Lesser General Public License
+'* version 3 along with OpenOffice.org.  If not, see
+'* <http://www.openoffice.org/license.html>
+'* for a copy of the LGPLv3 License.
+'*
+'/************************************************************************
+'*
+'* Owner : wolfram.garten@sun.com
+'*
+'* short description : Graphics Export Test - A-tests. (More durable ones)
+'*
+'\************************************************************************
+
+global OutputGrafikTBO as string
+global Document as string
+global ExtensionString as String
+
+sub main
+    Printlog "--------------------- Graphics Export Test ------------------- "
+    Call hStatusIn ( "Graphics","export_graphic_a.bas" )
+
+    use "graphics\tools\id_tools.inc"
+    use "graphics\tools\id_tools_2.inc"
+    use "graphics\optional\includes\global\export_graphic.inc"
+
+    if bAsianLan then
+        qaErrorLog "#i71631# - Test deactivated with Asian languages due to bug"
+        Call hStatusOut
+        exit sub
+    endif
+
+    Call sFileExport 'OBSERVE - This line must run before the following testcases!
+    Call tEPS   '///+-   Encapsulated PostScript            ///'
+    Call tPCT   '///+-   Mac Pict                           ///'
+    Call tPBM   '///+-   Portable Bitmap                    ///'
+    Call tPGM   '///+-   Portable Graymap                   ///'
+    Call tPPM   '///+-   Portable Pixelmap                  ///'
+    Call tRAS   '///+-   Sun Raster Image                   ///'
+    Call tTIFF  '///+-   Tagged Image File Format           ///'
+    Call tXPM   '///+-   X PixMap                           ///'
+    Call tGIF   '///+-   Graphics Interchange Format        ///'
+    Call tJPEG  '///+-   Joint Photographic Experts Group   ///'
+
+    Call hStatusOut
+end sub
+
+sub LoadIncludeFiles
+    use "global\system\includes\master.inc"
+    use "global\system\includes\gvariabl.inc"
+    Call GetUseFiles
+    gApplication = "IMPRESS"
+end sub
+