[PATCH 3/5] more stable export graphic test.
Yifan J
yfjiang at novell.com
Thu Dec 23 23:33:22 PST 2010
influenced cases:
/testautomation/graphics/optional/d_export_graphic_a.bas
/testautomation/graphics/optional/d_export_graphic_b.bas
1. do not verify exported SVG xml content, just verify
the exported file is existed. Because SVG will be rendered
by Draw directly instead of ASCII import mode (which was
used by the old script to verify the content).
2. replace an inexisted testing picture to an
existed one
---
.../optional/includes/global/export_graphic_2.inc | 32 --------------------
.../optional/includes/impress/i_slideshow2.inc | 4 +-
2 files changed, 2 insertions(+), 34 deletions(-)
diff --git a/testautomation/graphics/optional/includes/global/export_graphic_2.inc b/testautomation/graphics/optional/includes/global/export_graphic_2.inc
index 5e0a2f3..be5ed49 100644
--- a/testautomation/graphics/optional/includes/global/export_graphic_2.inc
+++ b/testautomation/graphics/optional/includes/global/export_graphic_2.inc
@@ -613,38 +613,6 @@ testcase tSVG
'------------------------\
if ( dir(OutputGrafikTBO+sExt) <> "") then
Printlog "Ok :-) Saved as: '" & OutputGrafikTBO+sExt & "'"
- '------------------------\
- if (iSprache <> 82) then
- hCloseDocument ()
- sleep 5
- sTextFilter = "Text"
-
- hFileOpenWithFilter (OutputGrafikTBO+sExt, sTextFiltername, FALSE)
- printlog "if dialog 'AsciiFilterOptionen' comes up, say OK"
- Kontext "AsciiFilterOptionen"
- '-------------------------------\
- If AsciiFilterOptionen.Exists(3) then
- AsciiFilterOptionen.OK
- else
- warnlog "No ASCII filter Options Dialog?"
- endif
- '-------------------------------/
- sTemp = gApplication
- gApplication = "WRITER"
- sleep 5 ' wait for document to be loaded
- bTemp = hFindeImDokument ("<!DOCTYPE svg PUBLIC " & chr(34)& "-//W3C//DTD SVG 1.1//EN" & chr(34)&" " & chr(34)&"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd" & chr(34)&">",true)
- '-------------------------------\
- if (bTemp = TRUE) then
- Printlog "OK"
- else
- warnlog "DOCTYPE not found in svg file :-("
- endif
- '-------------------------------/
- gApplication = sTemp
- else
- qaerrorlog "disabled for 82: #111017#"
- endif
- '--------------------------/
else
warnlog "File didn't get saved :-("
endif
diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow2.inc b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc
index 9857622..6cce18f 100644
--- a/testautomation/graphics/optional/includes/impress/i_slideshow2.inc
+++ b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc
@@ -909,7 +909,7 @@ testcase tSlideshowBackgroundAllSlides
Dim Background$ as string
Dim i as integer
Dim Zaehler as integer
- Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\emoticons\grin.gif")
+ Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\www-back\chocolate.jpg")
Datei$ = ConvertPath (gOfficePath + "user\work\background.odp")
'/// Create a new document ///'
@@ -962,7 +962,7 @@ testcase tSlideshowBackgroundSelectedSlide
Dim Background$ as string
Dim i as integer
Dim Zaehler as integer
- Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\emoticons\grin.gif")
+ Background$ = ConvertPath(gOfficeBasisPath + "share\gallery\www-back\chocolate.jpg")
Datei$ = ConvertPath (gOfficePath + "user\work\background.odp")
'/// Create a new document ///'
--
1.7.3.1
--wzJLGUyc3ArbnUjN
Content-Type: text/x-patch; charset=us-ascii
Content-Disposition: attachment; filename="0004-use-uno-slot-to-click-File-Save-as-in-Base.patch"
More information about the LibreOffice
mailing list