diff options
Diffstat (limited to 'testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc')
| -rw-r--r-- | testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc | 156 |
1 files changed, 78 insertions, 78 deletions
diff --git a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc index e6e8030da3e5..873ca1bddabc 100644 --- a/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc +++ b/testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc @@ -31,16 +31,16 @@ '** '************************************************************************ ' ** -' #1 tIZ19381 ' I/O error when OLE object is thrown out of undo/redo buffer +' #1 tIZ19381 ' I/O error when OLE object is thrown out of undo/redo buffer ' #1 tIZ21036 ' Crash after shifting cells with paste special ' ** '\*********************************************************************** testcase tIZ19381 - Dim sOutputFile as string + Dim sOutputFile as string Dim i as integer - - sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods") + + sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods") printlog "IssueZilla Task 19381" '/// File / New / Spreadsheet @@ -52,10 +52,10 @@ testcase tIZ19381 Kontext "DocumentCalc" DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>" sleep(2) - '/// Insert / Chart - InsertChartCalc + '/// Insert / Chart + InsertChartCalc Kontext "ChartWizard" - '/// On the chart wizard press OK button + '/// On the chart wizard press OK button if ChartWizard.Exists(2) then printlog "Create chart" ChartWizard.OK @@ -64,18 +64,18 @@ testcase tIZ19381 warnlog "Chart wizard did not occour! Exiting test case." call hCloseDocument goto endsub - end if + end if Kontext "DocumentCalc" '/// Type [ESCAPE] - DocumentCalc.typekeys "<Escape>" - sleep(2) + DocumentCalc.typekeys "<Escape>" + sleep(2) '/// File Save As <i>gOfficepath</i>user/work/i19381.ods if NOT hFileSaveAsWithFilterKill (sOutputFile, "calc8") then warnlog "Saving test document localy failed -> Aborting" call hCloseDocument goto endsub end if - sleep(2) + sleep(2) '/// File / Close call hCloseDocument sleep(2) @@ -83,21 +83,21 @@ testcase tIZ19381 if hFileOpen(sOutputFile) then Kontext "DocumentCalc" '/// Click into the chart - call gMouseClick(95,95) + call gMouseClick(95,95) Kontext "DocumentCalc" '/// Press [F5] to open the Navigator '/// Select the first Chart/OLE object in the navigator call fselectFirstOLE '/// Edit / Cut - sleep(2) + sleep(2) EditCut - sleep(2) + sleep(2) Kontext "DocumentCalc" '/// Type [ESCAPE] twice DocumentCalc.TypeKeys "<ESCAPE>" , 2 '/// Edit / Paste EditPaste - sleep(2) + sleep(2) Kontext "DocumentCalc" '/// press [CTRL+S] to save the document again DocumentCalc.typekeys "<MOD1 S>" @@ -112,7 +112,7 @@ testcase tIZ19381 Active.OK call hCloseDocument goto endsub - end if + end if Kontext "DocumentCalc" '/// Type [ESCAPE] DocumentCalc.TypeKeys "<ESCAPE>" @@ -120,10 +120,10 @@ testcase tIZ19381 call fCalcSelectRange("E42") for i = 1 to 21 Kontext "DocumentCalc" - '/// Enter 1 and [RETURN] 21 times + '/// Enter 1 and [RETURN] 21 times '///+ as changes to get chart cut/paste out of the undo buffer DocumentCalc.typekeys "1<Return>" - next i + next i Kontext "DocumentCalc" '/// Type [CTRL + S] to save the document again DocumentCalc.typekeys "<MOD1 S>" @@ -137,8 +137,8 @@ testcase tIZ19381 end if else printlog "No message box is in the way!" - end if - '/// File / Close + end if + '/// File / Close call hCloseDocument else warnlog "It was not possible to open the saved document again!" @@ -149,63 +149,63 @@ endcase testcase tIZ21036 -printlog "IssueZilla Task 21036" - -'/// open new document -call hNewDocument -sleep(2) - -'/// select a whole row (e.g. A1:IV1) -Kontext "DocumentCalc" -DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>" -sleep(2) - -'/// cut selection -try - EditCut -catch - QAErrorLog "Is this a crash?? Please check it out!" - goto endsub -endcatch -sleep(2) - -'/// go to A2 -Kontext "DocumentCalc" -call fCalcSelectRange("A2") -sleep(2) -Kontext "DocumentCalc" -'/// call edit->paste special -EditPasteSpecialCalc -sleep(2) - -'/// check shift cells->right -Kontext "InhalteEinfuegenCalc" -NachRechts.Check - -'/// OK -InhalteEinfuegenCalc.OK - -'/// confirm MsgBox -Kontext "Active" - if Active.Exists(2) then - if Active.GetRT = 304 then - printlog Active.GetText - Active.OK - sleep(2) - end if - else - warnlog "No message box came up!" - goto endsub - end if - -'/// check for crash -try - printlog "OK, there are still " & GetDocumentCount & " documents open" -catch - warnlog "Probably the office did crash -> #I21036#" - goto endsub -endcatch - -call hCloseDocument + printlog "IssueZilla Task 21036" + + '/// open new document + call hNewDocument + sleep(2) + + '/// select a whole row (e.g. A1:IV1) + Kontext "DocumentCalc" + DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>" + sleep(2) + + '/// cut selection + try + EditCut + catch + QAErrorLog "Is this a crash?? Please check it out!" + goto endsub + endcatch + sleep(2) + + '/// go to A2 + Kontext "DocumentCalc" + call fCalcSelectRange("A2") + sleep(2) + Kontext "DocumentCalc" + '/// call edit->paste special + EditPasteSpecialCalc + sleep(2) + + '/// check shift cells->right + Kontext "InhalteEinfuegenCalc" + NachRechts.Check + + '/// OK + InhalteEinfuegenCalc.OK + + '/// confirm MsgBox + Kontext "Active" + if Active.Exists(2) then + if Active.GetRT = 304 then + printlog Active.GetText + Active.OK + sleep(2) + end if + else + warnlog "No message box came up!" + goto endsub + end if + + '/// check for crash + try + printlog "OK, there are still " & GetDocumentCount & " documents open" + catch + warnlog "Probably the office did crash -> #I21036#" + goto endsub + endcatch + + call hCloseDocument endcase |