testautomation/spreadsheet/optional/includes/so7pp1/c_so7_pp1_ibis.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_ibis.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-31 19:03:38 $
  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 : oliver.craemer@Sun.COM
  35 '**
  36 '** short description :  Test IBIS bug fixes
  37 '**
  38 '************************************************************************
  39 ' **
  40 ' #1 tIBIS111099            ' Disable design mode of form controls after loading excel file
  41 ' #1 tIBIS111158            ' Lost properties of form controls
  42 ' #1 tIBIS111711            ' Crash when deleting chart in Menu->Window->New Window
  43 ' **
  44 '\***********************************************************************
  45
  46 testcase tIBIS111099
  47
  48     Dim testdoc as string
  49     testdoc = convertpath(gOfficePath & "user/work/111099.xls")
  50     Printlog "Copy testdocument locally"
  51     app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111099.xls"),gOfficePath + ConvertPath("user/work/111099.xls")
  52     printlog " Open the test document"
  53     Call hFileOpen(testdoc)
  54     Call sMakeReadOnlyDocumentEditable
  55     '/// Invoke Control Toolbar
  56     '///+ Try to click control 'Push Button'
  57     '///+> <ul><li>Click successful - BUG #111099#</li>
  58     '///+ <li>Click fails - document opened as expected in non-design mode</li>
  59     Call hToolbarSelect("CONTROLS", true)
  60     sleep(2)
  61     Kontext "FormControls"
  62     if SwitchControlDesignMode.IsEnabled then
  63         if SwitchControlDesignMode.getState(2) = 0 then
  64             printlog "OK, design mode is disabled"
  65         else
  66             warnlog "Document is opened in design mode -> #111099#"
  67         end if
  68     else
  69         printlog "Form controls toolbar was not enabled."
  70     end if
  71     call hCloseDocument
  72 endcase
  73
  74 '-------------------------------------------------------------------------
  75
  76 testcase tIBIS111158
  77
  78     Dim testdoc as string
  79     Dim testString as string
  80     testdoc = convertpath(gOfficePath & "user/work/111158.xls")
  81
  82     Printlog "Copy testdocument locally"
  83     app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111158.xls"),gOfficePath + ConvertPath("user/work/111158.xls")
  84     printlog " Open the test document"
  85     Call hFileOpen(testdoc)
  86     Call sMakeReadOnlyDocumentEditable
  87     Kontext "Standardbar"
  88     '/// If 'Form Controls' toolbar is not visible: View / Toolbars / Form Controls
  89     Call hToolbarSelect("CONTROLS", true)
  90     sleep(2)
  91     Kontext "FormControls"
  92     try
  93         if SwitchControlDesignMode.IsEnabled then
  94             '/// Click on 'Design Mode on/off' button on 'Form Controls'-toolbar
  95             SwitchControlDesignMode.click
  96             sleep(2)
  97             '/// Click on 'Form Design' button on 'Form Controls'-toolbar
  98             FormDesignTools.Click
  99             sleep(2)
 100         else
 101             printlog "Form controls toolbar was not enabled."
 102         end if
 103     catch
 104         QAErrorlog "Document is opened in design mode -> #111099#"
 105         QAErrorlog "No need to test if that one isn't fixed -> aborted"
 106         call hCloseDocument
 107         goto endsub
 108     endcatch
 109
 110     Kontext "FormDesignTools"
 111     if FormDesignTools.Exists(2) then
 112         If ShowFmExplorer.IsEnabled then
 113             '/// Show Form Navigator
 114             ShowFmExplorer.Click
 115         else
 116             warnlog "Button was not enabled!"
 117         end if
 118     else
 119         warnlog "'Form Design'-toolbar did not come up."
 120         Call hCloseDocument
 121         goto endsub
 122     end if
 123
 124 '/// Select the first 'ComboxBox' (9th entry from the top)
 125 '/// Open context menu
 126     Kontext "FormularNavigator"
 127     Liste.TypeKeys "<HOME>" , true
 128     sleep(1)
 129     Liste.TypeKeys "<DOWN>" , 9 , true
 130     sleep(1)
 131     Liste.OpenContextmenu
 132     sleep(2)
 133     '/// Open 'Properties' (last entry)
 134     hMenuSelectNr(5)
 135     sleep(2)
 136     Kontext "ControlPropertiesDialog"
 137     Kontext "ControlPropertiesTabControl"
 138     ControlPropertiesTabControl.SetPage TabGeneralControl
 139     Kontext "TabGeneralControl"
 140     '/// Enter in 'Help URL' as value exactly 'HID:123456'
 141     TabGeneralControl.TypeKeys "<TAB>" , true
 142     HelpURL.setText "HID:123456"
 143     HelpURL.TypeKeys "<RETURN>",true
 144     if HelpURL.GetText <> "HID:123456" then
 145         warnlog "'HID:123456' has not been accepted as 'Help URL' value."
 146     end if
 147     '/// Close all disturbing menus
 148     Kontext "ControlPropertiesDialog"
 149     sleep(1)
 150     ControlPropertiesDialog.close
 151     sleep(2)
 152     Kontext "FormularNavigator"
 153     FormularNavigator.close
 154     Kontext "FormDesignTools"
 155     FormDesignTools.close
 156     Kontext "FormControls"
 157     '/// Switch back from the design mode
 158     SwitchControlDesignMode.click
 159     FormControls.close
 160     sleep(1)
 161     '/// Check for right initial string ('Please select one:')in control
 162     Kontext "MSC_Special_Dialog"
 163     if MSC_Special_Dialog.Exists(3) then
 164         testString = MSC_Special_Dialog.getSelText
 165         if testString = "Please select one:" then
 166             printlog "OK, the right string was found in control"
 167         else
 168             warnlog "Wrong string found in Control: " & testString
 169         end if
 170     else
 171         warnlog "The control seems to be not named in the document?! Verify! If Solaris: #i100870#"
 172     end if
 173     call hCloseDocument
 174 endcase
 175
 176 '-------------------------------------------------------------------------
 177
 178 testcase tIBIS111711
 179 printlog "iBIS Task 111711"
 180
 181     printlog " Create a new document"
 182     call hNewDocument
 183     printlog " Enter some numbers as content"
 184     Kontext "DocumentCalc"
 185     DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>"
 186     sleep(2)
 187
 188 '/// create a chart from the content
 189 '/// + NOTE: Do NOT leave the Implace mode
 190     InsertChartCalc
 191     '/// The Chart wizard occours
 192     Kontext "ChartWizard"
 193     '/// On the chart wizard press OK button
 194     if ChartWizard.Exists(2) then
 195         printlog "Create chart"
 196         ChartWizard.OK
 197         sleep(2)
 198     else
 199         warnlog "Chart wizard did not occour! Exiting test case."
 200         call hCloseDocument
 201         goto endsub
 202     end if
 203 '/// Call slot Window->New Window
 204     Kontext "DocumentCalc"
 205     DocumentCalc.typekeys "<ESCAPE>"
 206     WindowNewWindow
 207     sleep(2)
 208     call gMouseClick(95,95)
 209
 210 '/// Select chart in new window
 211     Kontext "DocumentCalc"
 212     call fselectFirstOLE
 213     sleep(2)
 214
 215 '/// Delete chart in new window ...
 216 '/// ... and check for crash
 217     Kontext "DocumentCalc"
 218     try
 219         DocumentCalc.typekeys "<DELETE>"
 220         sleep (2)
 221         printlog "OK, there are still " & GetDocumentCount & " documents open"
 222     catch
 223         warnlog "Probably the office did crash -> #111711#"
 224         call hCloseDocument
 225         goto endsub
 226     endcatch
 227     call hCloseDocument
 228 endcase
 229
 230