testautomation/dbaccess/optional/includes/ctrl_Spreadsheet.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: ctrl_Spreadsheet.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:41 $
  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 : marc.neumann@sun.com
  35 '*
  36 '* short description : Controls linked to spreadsheet cells
  37 '*
  38 '\***********************************************************************
  39
  40 '* preconditions : no FormDesignToolbar should be open
  41 '* testpurpose : test if controls linked to cells work correct
  42
  43 sub ctrl_Spreadsheet
  44
  45     call preCon_CloseFormDesignToolbar
  46     call tTextBox
  47     call tListBox
  48     call tCheckBox
  49
  50 end sub
  51 '--------------------------------------------------------------------------------------
  52 testcase tListBox
  53
  54     Dim j as integer
  55     Dim k as integer
  56     dim i as integer
  57     printlog "- Formular toolbox: List box element (" & gApplication & ")"
  58     '/// open a spreadsheet, insert a listbox (the wizard appears)
  59     gApplication = "CALC"
  60     call hNewDocument
  61     Kontext "DocumentCalc"
  62     DocumentCalc.TypeKeys("Value1")
  63     DocumentCalc.TypeKeys("<RETURN>")
  64     DocumentCalc.TypeKeys("Value2")
  65     DocumentCalc.TypeKeys("<RETURN>")
  66     DocumentCalc.TypeKeys("Value3")
  67     DocumentCalc.TypeKeys("<RETURN>")
  68     DocumentCalc.TypeKeys("Value4")
  69     DocumentCalc.TypeKeys("<RETURN>")
  70     DocumentCalc.TypeKeys("Value5")
  71     DocumentCalc.TypeKeys("<RETURN>")
  72     sleep(1)
  73
  74     call hToolbarSelect("FormControls",true)
  75
  76     Kontext "FormControls"
  77     Listbox.Click
  78     sleep(3)
  79     call hDrawingWithSelection ( 60, 40, 70, 55 )
  80     sleep(3)
  81     Kontext "AutoPilotListComboBox"
  82     AutoPilotListComboBox.MouseDown(10,10)
  83     AutoPilotListComboBox.MouseUp(10,10)
  84     '/// close the autopilot
  85     if AutoPilotListComboBox.Exists(1) then
  86         AutopilotListComboBox.Cancel
  87     end if
  88         sleep(1)
  89
  90     call hToolbarSelect("FormControls",true)
  91
  92     Kontext "FormControls"
  93         ControlProperties.Click
  94         sleep(1)
  95     call fsetControlProperty("ListBox","CellRange","A1:A5")
  96         call fsetControlProperty("ListBox","CellBound","B1")
  97         sleep(1)
  98     '/// close control property browser
  99     Kontext "ControlPropertiesDialog"
 100         ControlPropertiesDialog.Close
 101     '/// save the document
 102     printlog "save the document"
 103     hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_ListBox.ods"))
 104         hCloseDocument
 105     sleep(1)
 106     '/// reload the document
 107     printlog "reload the document"
 108         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_ListBox.ods"))
 109     sleep 1
 110     KOntext "DocumentCalc"
 111     DocumentCalc.TypeKeys "<MOD1 F5>" , true
 112     sleep(1)
 113     DocumentCalc.TypeKeys "<DOWN>" , true
 114     sleep(1)
 115     DocumentCalc.TypeKeys "<DOWN>" , true
 116     sleep(1)
 117     DocumentCalc.TypeKeys "<MOD1 F6>" , true
 118     sleep(1)
 119     DocumentCalc.TypeKeys "<MOD1 HOME>" , true
 120     sleep(1)
 121     DocumentCalc.TypeKeys "<RIGHT>" , true
 122     sleep(1)
 123     DocumentCalc.TypeKeys "<MOD1 C>" , true
 124     sleep(1)
 125     Dim str1 as String
 126     str1 = getClipboardText()
 127     if str1 <> "Value2" then
 128         warnlog "the value is not right. Is should be Value2 but it is " + str1
 129     endif
 130         hCloseDocument
 131
 132 endcase
 133 '--------------------------------------------------------------------------------------
 134 testcase tTextBox
 135
 136     '/// Open a new document,
 137     gApplication = "CALC"
 138     printlog "Open a new document,"
 139         call hNewDocument
 140     Kontext "DocumentCalc"
 141         'DocumentWriter.TypeKeys "tt_doc" , true
 142
 143         sleep(1)
 144
 145     call hToolbarSelect("FormControls",true)
 146
 147     Kontext "FormControls"
 148
 149         Edit.Click
 150         sleep(1)
 151
 152     '/// insert a text box
 153     printlog "insert a text box"
 154     sleep(3)
 155     call hDrawingWithSelection ( 30, 30, 40, 40 )
 156         sleep(2)
 157         Kontext "FormControls"
 158         ControlProperties.Click
 159         sleep(2)
 160     '/// set multiline and alignment to right
 161         call fsetControlProperty("TextBox","CellBound","A1")
 162
 163     Kontext "ControlPropertiesDialog"
 164         ControlPropertiesDialog.Close
 165
 166     '/// save the document
 167     printlog "save the document"
 168         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_TextBox.ods"))
 169         hCloseDocument
 170     sleep(1)
 171     '/// reload the document
 172     printlog "reload the document"
 173         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_TextBox.ods"))
 174
 175     call hToolbarSelect("FormControls",true)
 176
 177     sleep(1)
 178         Kontext "FormControls"
 179     SwitchControlDesignMode.Click
 180     sleep(1)
 181     Kontext "DocumentCalc"
 182      DocumentCalc.typeKeys "Hello world" , true ' this is important to get the focus into the document
 183      sleep(1)
 184      DocumentCalc.typeKeys "<F6>" , 6 , true ' it's important that you don't do this in 6 lines
 185      sleep(1)
 186
 187     call hToolbarSelect("FormDesignTools",true)
 188
 189     Kontext "DocumentCalc"
 190         DocumentCalc.MouseDown(50,50)
 191         DocumentCalc.MouseUp(50,50)
 192
 193     Kontext "FormDesignTools"
 194         ShowFmExplorer.Click
 195
 196     Kontext "FormularNavigator"
 197          Liste.TypeKeys "<HOME>"
 198      sleep(1)
 199      Liste.TypeKeys "<DOWN>"
 200      sleep(1)
 201      Liste.TypeKeys "<DOWN>"
 202      sleep(1)
 203
 204      Liste.OpenContextmenu
 205      sleep(1)
 206      call hMenuSelectNr(5)
 207      sleep(1)
 208
 209     'Kontext "FormControls"
 210     ' try
 211     '    ControlProperties.Click
 212     '    sleep(1)
 213     ' catch
 214     '    warnlog "error while open the control properties browser"
 215     '    call hCloseDocument
 216     '    goto endsub
 217     ' endcatch
 218     '/// check if the values are saved
 219     printlog "check if the values are saved"
 220         sleep(2)
 221     Kontext "ControlPropertiesTabControl"
 222         ControlPropertiesTabControl.SetPage TabDataControl
 223         sleep(1)
 224     if fgetControlProperty("TextBox","CellBound") <> "A1" then
 225         warnlog "the bound cell is not saved"
 226         call hCloseDocument
 227         goto endsub
 228     endif
 229     sleep(1)
 230
 231     call hToolbarSelect("FormControls",true)
 232
 233     Kontext "FormControls"
 234         SwitchControlDesignMode.Click
 235         sleep(1)
 236
 237     Kontext "DocumentCalc"
 238         Documentcalc.TypeKeys "<MOD1 F5>", true
 239         sleep(1)
 240         Documentcalc.TypeKeys "<MOD1 HOME>", true
 241         sleep(1)
 242         Documentcalc.TypeKeys "<MOD1 SHIFT END>", true
 243         sleep(1)
 244         Documentcalc.TypeKeys "<MOD1 C>", true
 245         sleep(1)
 246         printlog getClipboard
 247         if getClipboard <> "Hello world" then
 248             warnlog "the cell bound doesn't work"
 249         endif
 250     hCloseDocument
 251     gApplication = "WRITER"
 252
 253 endcase
 254 '--------------------------------------------------------------------------------------
 255 testcase tCheckBox
 256
 257     '/// Open a new document,
 258     gApplication = "CALC"
 259     printlog "Open a new document,"
 260         call hNewDocument
 261     Kontext "DocumentCalc"
 262
 263     call hToolbarSelect("FormControls",true)
 264
 265         Kontext "FormControls"
 266         CheckBox.Click
 267         sleep(3)
 268     '/// insert a checkbox box
 269     printlog "insert a checkbox box"
 270     call hDrawingWithSelection ( 50, 50, 70, 70 )
 271         sleep(2)
 272
 273     call hToolbarSelect("FormControls",true)
 274
 275         Kontext "FormControls"
 276         ControlProperties.Click
 277         sleep(2)
 278     '/// set multiline and alignment to right
 279         call fsetControlProperty("CheckBox","CellBound","A1")
 280     call fsetControlProperty("CheckBox","ReferenceValueOff","unchecked")
 281     call fsetControlProperty("CheckBox","ReferenceValue","checked")
 282     '/// close control property browser
 283     Kontext "ControlPropertiesDialog"
 284         ControlPropertiesDialog.Close
 285     '/// save the document
 286     printlog "save the document"
 287         hFileSaveAsKill ( gOfficePath + ConvertPath("user/work/TT_CheckBox.ods"))
 288         hCloseDocument
 289     '/// reload the document
 290     printlog "reload the document"
 291         hFileOpen ( gOfficePath + ConvertPath("user/work/TT_CheckBox.ods"))
 292
 293     call hToolbarSelect("FormControls",true)
 294
 295         Kontext "FormControls"
 296     SwitchControlDesignMode.Click
 297     sleep(1)
 298     'Kontext "DocumentCalc"
 299     ' DocumentCalc.typeKeys "hello world" , true ' this is important to get the focus into the document
 300
 301     call hToolbarSelect("FormDesignTools",true)
 302
 303     Kontext "FormDesignTools"
 304         ShowFmExplorer.Click
 305
 306     Kontext "FormularNavigator"
 307          Liste.TypeKeys "<HOME>"
 308      sleep(1)
 309      Liste.TypeKeys "<DOWN>"
 310      sleep(1)
 311      Liste.TypeKeys "<DOWN>"
 312      sleep(1)
 313      Liste.OpenContextmenu
 314      sleep(1)
 315      call hMenuSelectNr(5)
 316      sleep(1)
 317
 318     'Kontext "FormControls"
 319     ' try
 320     '    ControlProperties.Click
 321     ' catch
 322     '    warnlog "error while open the control properties browser"
 323     '    call hCloseDocument
 324     '    goto endsub
 325     ' endcatch
 326
 327     '/// check if the values are saved
 328     printlog "check if the values are saved"
 329         sleep(2)
 330     Kontext "ControlPropertiesTabControl"
 331         ControlPropertiesTabControl.SetPage TabGeneralControl
 332     Kontext "TabGeneralControl"
 333         TabGeneralControl.TypeKeys "<TAB>" , true ' this tab is importent, I don't not why but it is.
 334     if fgetControlProperty("CheckBox","CellBound") <> "A1" then
 335         warnlog "the bound cell is not saved"
 336         call hCloseDocument
 337         goto endsub
 338     endif
 339     sleep(1)
 340
 341     call hToolbarSelect("FormControls",true)
 342     Kontext "FormControls"
 343         SwitchControlDesignMode.Click
 344         sleep(1)
 345
 346     Kontext "DocumentCalc"
 347         DocumentCalc.MouseDown(20,20)
 348         DocumentCalc.MouseUp(20,20)
 349
 350         sleep(1)
 351
 352     Kontext "DocumentCalc"
 353         Documentcalc.TypeKeys "<MOD1 F5>", true
 354         sleep(1)
 355         Documentcalc.TypeKeys "<SPACE>", true
 356         sleep(2)
 357
 358         ' need to activate the document again
 359         Documentcalc.MouseDown(10,10)
 360         Documentcalc.MouseUp(10,10)
 361
 362         sleep(2)
 363
 364         DocumentCalc.TypeKeys "<MOD1 HOME>" , true
 365
 366         sleep(1)
 367
 368         Documentcalc.TypeKeys "<MOD1 C>", true
 369
 370         sleep(1)
 371
 372         Dim str2 as String
 373         str2 = getClipboardText()
 374         printlog str2
 375         ' use STRCOMP to compare the strings thats works.
 376         if StrComp(str2,"checked") <> 0 then
 377             printlog StrComp(str2,"checked")
 378             warnlog "the cell bound doesn't work"
 379         endif
 380     hCloseDocument
 381     gApplication = "WRITER"
 382
 383 endcase
 384 '-------------------------------------------------------------------------
 385 function preCon_CloseFormDesignToolbar
 386
 387     printlog "preCondition close FormDesignToolbar"
 388     call hNewDocument
 389     call hToolbarSelect("FormDesignTools",false)
 390     call hCloseDocument
 391     call ExitRestartTheOffice
 392
 393 end function