From ffdbdad7578126651dd157b5647ae9eddc08a574 Mon Sep 17 00:00:00 2001
From: "Wolfram Garten [wg]" <Wolfram.Garten@oracle.com>
Date: Mon, 21 Feb 2011 11:18:25 +0100
Subject: i117035: [Automation] adapt automated testscripts to new export
 format svg

---
 .../optional/includes/global/export_graphic.inc    | 25 ++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'testautomation')

diff --git a/testautomation/graphics/optional/includes/global/export_graphic.inc b/testautomation/graphics/optional/includes/global/export_graphic.inc
index a5ab31c82cdc..ce25c3925bd7 100644
--- a/testautomation/graphics/optional/includes/global/export_graphic.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic.inc
@@ -330,6 +330,31 @@ testcase tTIFF
 
 endcase 'tTIFF
 '------------------------------------------------------------------------------
+testcase tSVG
+    'warnlog( "#i115138# - Test document freezes draw" )
+    'goto endsub
+
+    dim x as integer
+    dim i as integer
+
+    const sFilter = "SVG - Scalable Vector Graphics (.svg)"
+    const sExt = ".svg"
+
+    printlog "Open the document"
+    hFileOpen (ConvertPath ( gTesttoolPath + "graphics\required\input\graphicexport."+ExtensionString ))
+
+    printlog "Save it"
+    if ( hCallExport (OutputGrafikTBO , sFilter ) ) then
+        printlog( "Close file and re-insert graphics into new document" )
+        hInsertGraphicsToNewFile( OutputGrafikTBO + sExt ) ' local helper function, see bottom of this file
+    else
+        warnlog( "No export options dialog was displayed" )
+    endif
+
+    call hCloseDocument
+
+endcase 'tSVG
+'------------------------------------------------------------------------------
 testcase tXPM
     warnlog( "#i115138# - Test document freezes draw" )
     goto endsub
-- 
cgit