testautomation/framework/optional/includes/basic_gridcontrol.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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '* owner : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : gridcontrol
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tGridcontrolLoad
  35     const MACRO_NAME = "Show"
  36     const FILE_NAME  = "framework/optional/input/gridcontrol.odt"
  37
  38     dim i as integer
  39     dim a as integer
  40
  41     printlog( "Open the test document: " & FILE_NAME )
  42     call hFileOpenLocally( gTestToolPath & FILE_NAME )
  43
  44     printlog "Start the macro, that performs the test"
  45     hExecMacro( MACRO_NAME )
  46
  47     Kontext "GridControlDialog"
  48     if GridControlDialog.exists(5) then
  49         for i=1 to gridcontrolcontrol.getcolumncount
  50             for a=1 to gridcontrolcontrol.getrowcount
  51                 printlog " " + i + ":"+a+": '" + gridcontrolcontrol.getitemtype (i,a) + "' '" + gridcontrolcontrol.getitemtext (i,a) + "'"
  52             next a
  53         next i
  54         gridcontrolcontrol.select 5
  55
  56         kontext
  57         if active.exists(5) then
  58             printlog active.gettext
  59             active.ok
  60         else
  61             warnlog "No selection Event by .select"
  62         endif
  63
  64         Kontext "GridControlDialog"
  65         gridcontrolcontrol.typeKeys("<down>")
  66
  67         kontext
  68         if active.exists(5) then
  69             printlog active.gettext
  70             active.ok
  71         else
  72             warnlog "No selection event by .typeKeys <down>"
  73         endif
  74         Kontext "GridControlDialog"
  75         gridcontrolcontrol.typeKeys("<up>")
  76         kontext
  77         if active.exists(5) then
  78             printlog active.gettext
  79             active.ok
  80         else
  81             warnlog "No selection event by .typeKeys <up>"
  82         endif
  83
  84         Kontext "GridControlDialog"
  85         GridControlDialog.close
  86     else
  87         warnlog "Gridcontrol Dialog did not come up after pressing button"
  88     endif
  89
  90     printlog( "Test exit, cleanup" )
  91     hFileCloseAll()
  92     hDeleteFile( gLastWorkFile )
  93 endcase
  94
  95
  96 testcase tTabcontrolLoad
  97     const MACRO_NAME = "ShowTab"
  98     const FILE_NAME  = "framework/optional/input/gridcontrol.odt"
  99
 100     dim i as integer
 101     dim a as integer
 102
 103     printlog( "Open the test document: " & FILE_NAME )
 104     call hFileOpenLocally( gTestToolPath & FILE_NAME )
 105
 106     printlog "Start the macro, that performs the test"
 107     hExecMacro( MACRO_NAME )
 108
 109     Kontext "tabcontroldialog"
 110     if tabcontroldialog.exists(5) then
 111         if tabcontainer.getPageCount = 2 then
 112             printlog "There are 2 tabs"
 113         else
 114             warnlog "There are NOT 2 tabs, there are: " + tabcontainer.getpagecount
 115         endif
 116         if tabcontainer.getPage = "tabcontrol_1" then
 117             printlog "Default tab page is page 1"
 118         else
 119             warnlog "Default tab page is NOT page 1"
 120         endif
 121         tabcontainer.setPage tabcontrol_2
 122         wait 1000
 123         if tabcontainer.getPage = "tabcontrol_2" then
 124             printlog "Switching to tab 2 works"
 125         else
 126             warnlog "Switching to tab 2 failed"
 127         endif
 128         tabcontainer.setPage tabcontrol_1
 129         wait 1000
 130         if tabcontainer.getPage = "tabcontrol_1" then
 131             printlog "Switching to tab 1 works"
 132         else
 133             warnlog "Switching to tab 1 failed"
 134         endif
 135
 136         Kontext "tabcontroldialog"
 137         tabcontroldialog.close
 138     else
 139         warnlog "tabcontrol Dialog did not come up after pressing button"
 140     endif
 141
 142     printlog( "Test exit, cleanup" )
 143     hFileCloseAll()
 144     hDeleteFile( gLastWorkFile )
 145 endcase
 146
 147