diff options
author | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-09-15 14:23:25 +0200 |
---|---|---|
committer | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-09-15 14:23:25 +0200 |
commit | 03767ada715e519b673b3ff5f70c9762001212b4 (patch) | |
tree | ce13041a155b3af920cc8289eb71c76b3c1cb615 | |
parent | 9e7c84f288df60da40e6711c7aea6d3e83e363b9 (diff) |
automationdev300m87: #i112208# - Moved static filename into a variable, handled Picture dialog
-rw-r--r-- | testautomation/writer/optional/includes/insertgraphic/w_insertgraphic1.inc | 10 |
1 files 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 |