testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_iz.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: c_so7_pp1_iz.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-31 19:03:52 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '**
  34 '** owner : joerg.sievers@Sun.COM
  35 '**
  36 '** short description :  Test Issuezilla bug fixes
  37 '**
  38 '************************************************************************
  39 ' **
  40 ' #1 tIZ19381             ' I/O error when OLE object is thrown out of undo/redo buffer
  41 ' #1 tIZ21036             ' Crash after shifting cells with paste special
  42 ' **
  43 '\***********************************************************************
  44
  45 testcase tIZ19381
  46     Dim sOutputFile as string
  47     Dim i as integer
  48
  49     sOutputFile = convertpath(gOfficepath & "user/work/i19381.ods")
  50     printlog "IssueZilla Task 19381"
  51
  52     '/// File / New / Spreadsheet
  53     call hNewDocument
  54     sleep(2)
  55     '/// Enter 1 [RETURN]
  56     '/// Enter 2 [RETURN]
  57     '/// Enter [UP]
  58     Kontext "DocumentCalc"
  59     DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>"
  60     sleep(2)
  61     '/// Insert / Chart
  62     InsertChartCalc
  63     Kontext "ChartWizard"
  64     '/// On the chart wizard press OK button
  65     if ChartWizard.Exists(2) then
  66         printlog "Create chart"
  67         ChartWizard.OK
  68         sleep(2)
  69     else
  70         warnlog "Chart wizard did not occour! Exiting test case."
  71         call hCloseDocument
  72         goto endsub
  73     end if
  74     Kontext "DocumentCalc"
  75     '/// Type [ESCAPE]
  76     DocumentCalc.typekeys "<Escape>"
  77     sleep(2)
  78     '/// File Save As <i>gOfficepath</i>user/work/i19381.ods
  79     if NOT hFileSaveAsWithFilterKill (sOutputFile, "calc8") then
  80         warnlog "Saving test document localy failed -> Aborting"
  81         call hCloseDocument
  82         goto endsub
  83     end if
  84     sleep(2)
  85     '/// File / Close
  86     call hCloseDocument
  87     sleep(2)
  88     '/// Open the saved document
  89     if hFileOpen(sOutputFile) then
  90         Kontext "DocumentCalc"
  91         '/// Click into the chart
  92         call gMouseClick(95,95)
  93         Kontext "DocumentCalc"
  94         '/// Press [F5] to open the Navigator
  95         '/// Select the first Chart/OLE object in the navigator
  96         call fselectFirstOLE
  97         '/// Edit / Cut
  98         sleep(2)
  99         EditCut
 100         sleep(2)
 101         Kontext "DocumentCalc"
 102         '/// Type [ESCAPE] twice
 103         DocumentCalc.TypeKeys "<ESCAPE>" , 2
 104         '/// Edit / Paste
 105         EditPaste
 106         sleep(2)
 107         Kontext "DocumentCalc"
 108         '/// press [CTRL+S] to save the document again
 109         DocumentCalc.typekeys "<MOD1 S>"
 110         sleep(2)
 111         Kontext
 112         if Active.exists(2) then
 113             if gPlatGroup = "w95" then
 114                 warnlog "REGRESSION! #i41751# - Saving after Cut&Paste of OLE fails on windows!"
 115             else
 116                 warnlog "OOPS, found unexpected MsgBox -> Check this out!"
 117             end if
 118             Active.OK
 119             call hCloseDocument
 120             goto endsub
 121         end if
 122         Kontext "DocumentCalc"
 123         '/// Type [ESCAPE]
 124         DocumentCalc.TypeKeys "<ESCAPE>"
 125         '/// Go to cell E42
 126         call fCalcSelectRange("E42")
 127         for i = 1 to 21
 128             Kontext "DocumentCalc"
 129             '/// Enter 1 and [RETURN] 21 times
 130             '///+ as changes to get chart cut/paste out of the undo buffer
 131             DocumentCalc.typekeys "1<Return>"
 132         next i
 133         Kontext "DocumentCalc"
 134         '/// Type [CTRL + S] to save the document again
 135         DocumentCalc.typekeys "<MOD1 S>"
 136         '/// check for error message
 137         Kontext
 138         if Active.Exists(2) then
 139             if Active.GetRT = 304 then
 140                 printlog Active.GetText
 141                 warnlog "REGRESSION! Issue 19381 seems to occur again!"
 142                 Active.OK
 143             end if
 144         else
 145             printlog "No message box is in the way!"
 146         end if
 147         '/// File / Close
 148         call hCloseDocument
 149     else
 150         warnlog "It was not possible to open the saved document again!"
 151     end if
 152 endcase
 153
 154 '-------------------------------------------------------------------------
 155
 156 testcase tIZ21036
 157
 158 printlog "IssueZilla Task 21036"
 159
 160 '/// open new document
 161 call hNewDocument
 162 sleep(2)
 163
 164 '/// select a whole row (e.g. A1:IV1)
 165 Kontext "DocumentCalc"
 166 DocumentCalc.typekeys "<SHIFT MOD1 RIGHT>"
 167 sleep(2)
 168
 169 '/// cut selection
 170 try
 171   EditCut
 172 catch
 173   QAErrorLog "Is this a crash?? Please check it out!"
 174   goto endsub
 175 endcatch
 176 sleep(2)
 177
 178 '/// go to A2
 179 Kontext "DocumentCalc"
 180 call fCalcSelectRange("A2")
 181 sleep(2)
 182 Kontext "DocumentCalc"
 183 '/// call edit->paste special
 184 EditPasteSpecialCalc
 185 sleep(2)
 186
 187 '/// check shift cells->right
 188 Kontext "InhalteEinfuegenCalc"
 189 NachRechts.Check
 190
 191 '/// OK
 192 InhalteEinfuegenCalc.OK
 193
 194 '/// confirm MsgBox
 195 Kontext "Active"
 196   if Active.Exists(2) then
 197      if Active.GetRT = 304 then
 198         printlog Active.GetText
 199         Active.OK
 200         sleep(2)
 201      end if
 202   else
 203      warnlog "No message box came up!"
 204      goto endsub
 205   end if
 206
 207 '/// check for crash
 208 try
 209    printlog "OK, there are still " & GetDocumentCount & " documents open"
 210 catch
 211    warnlog "Probably the office did crash -> #I21036#"
 212    goto endsub
 213 endcatch
 214
 215 call hCloseDocument
 216 endcase
 217