From 03767ada715e519b673b3ff5f70c9762001212b4 Mon Sep 17 00:00:00 2001 From: "Joerg Skottke [jsk]" Date: Wed, 15 Sep 2010 14:23:25 +0200 Subject: [PATCH] automationdev300m87: #i112208# - Moved static filename into a variable, handled Picture dialog --- .../includes/insertgraphic/w_insertgraphic1.inc | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc index fddd341bd9eb..4e670f290f13 100644 --- a/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc +++ b/testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc @@ -520,8 +520,10 @@ endcase testcase tInsertGraphic_10 Dim sTestFile as String + dim sOutFile as string sTestFile = ConvertPath(gOfficepath + "user\work\tInsertGraphic_5.sxw") + sOutFile = gOfficepath + "user\work\tInsertGraphic_5.odt" PrintLog "- Insert linked graphics and break the links via Menu Edit - Link" '/// Insert linked graphics and break the links via Menu Edit - Link @@ -636,13 +638,13 @@ testcase tInsertGraphic_10 PrintLog "- Save and Reload the file" '/// Save the file and close the file - Call hFileSaveAsWithFilterKill(gOfficepath + "user\work\tInsertGraphic_5.odt", "writer8") + Call hFileSaveAsWithFilterKill( sOutFile, "writer8") sleep(2) Call hCloseDocument sleep(2) '/// Reload the file - hFileOpen( gOfficepath & "user\work\tInsertGraphic_5.odt") + hFileOpen( sOutFile ) sleep(2) @@ -652,6 +654,10 @@ testcase tInsertGraphic_10 sleep(1) if fFormatGraphic("TabZusaetze") = false then Warnlog "#i46300#linked JPEG pictures will disappear when doc is modified." + + kontext "TabZusatze" + if ( TabZusaetze.exists() ) then TabZusaetze.close() + kontext "DocumentWriter" Call hCloseDocument goto endsub end if