Kaydet (Commit) f072a3a5 authored tarafından Yifan J's avatar Yifan J Kaydeden (comit) Jan Holesovsky

more stable export graphic test.

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
Signed-off-by: 's avatarJan Holesovsky <kendy@suse.cz>
üst 73d07925
......@@ -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
......
......@@ -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 ///'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment