testautomation/dbaccess/optional/includes/wiz_FormWizard.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: wiz_FormWizard.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:42 $
  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 : Form Wizard Test
  37 '*
  38 '\***********************************************************************
  39 sub wiz_FormWizard
  40
  41     call tNewForm
  42     call tCheckTemplate
  43     call tStartFromTableContextMenu
  44
  45 end sub
  46 '--------------------------------------------------------------------------------------
  47 testcase tNewForm
  48
  49     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
  50
  51     ViewForms
  52
  53     Kontext "DATABASE"
  54
  55     Database.MouseDown(50,50)
  56     Database.MouseUp(50,50)
  57     sleep(1)
  58
  59     StartFormWizard
  60
  61     sleep(5)
  62
  63     Kontext "FormWizard"
  64         TablesOrQueriesMaster.select 1
  65         '/// add the third field
  66         printlog "add the third field"
  67         AvailableMasterFields.select 3
  68         sleep(1)
  69         MasterMoveSelected.click
  70         sleep(1)
  71         '/// click NEXT
  72         printlog "click NEXT"
  73         NextBtn.click
  74         sleep(1)
  75         '/// click NEXT
  76         printlog "click NEXT"
  77         NextBtn.click
  78         sleep(1)
  79         '/// click NEXT
  80         printlog "click NEXT"
  81         NextBtn.click
  82         sleep(1)
  83         '/// click NEXT
  84         printlog "click NEXT"
  85         NextBtn.click
  86         sleep(1)
  87         '/// click NEXT
  88         printlog "click NEXT"
  89         NextBtn.click
  90         sleep(1)
  91         '/// click Finish
  92         printlog "click Finish"
  93         FinishBtn.Click
  94
  95     sleep(10)
  96
  97     call fCloseForm ' should be changed to a CloseReport
  98
  99     call fCloseDatabase
 100
 101 endcase
 102 '--------------------------------------------------------------------------------------
 103 testcase tCheckTemplate
 104
 105     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 106
 107     ViewForms
 108
 109     Kontext "DATABASE"
 110
 111     Database.MouseDown(50,50)
 112     Database.MouseUp(50,50)
 113     sleep(1)
 114
 115     StartFormWizard
 116
 117     sleep(5)
 118
 119     Kontext "FormWizard"
 120         TablesOrQueriesMaster.select 1
 121         '/// add the third field
 122         printlog "add the third field"
 123         AvailableMasterFields.select 5
 124         sleep(1)
 125         MasterMoveSelected.click
 126         sleep(1)
 127         '/// click NEXT
 128         printlog "click NEXT"
 129         NextBtn.click
 130         sleep(1)
 131         '/// click NEXT
 132         printlog "click NEXT"
 133         NextBtn.click
 134         sleep(1)
 135         '/// on the arrange tabpage
 136         printlog "on the arrange tabpage"
 137
 138         'AlignLeft              HID_DLGFORM_CMDALIGNLEFT
 139         'AlignRight             HID_DLGFORM_CMDALIGNRIGHT
 140
 141         '/// click on all arragements
 142         printlog "click on all arragements"
 143
 144         'FormWizard.TypeKeys("<TAB>",true)
 145         'sleep(1)
 146         'FormWizard.TypeKeys("<LEFT>",true)
 147         'sleep(1)
 148         'FormWizard.TypeKeys("<LEFT>",true)
 149         'sleep(1)
 150         'FormWizard.TypeKeys("<SPACE>",true)
 151         'sleep(5)
 152         'FormWizard.TypeKeys("<RIGHT>",true)
 153         'sleep(1)
 154         'FormWizard.TypeKeys("<SPACE>",true)
 155         'sleep(5)
 156         'FormWizard.TypeKeys("<RIGHT>",true)
 157         'sleep(1)
 158         'FormWizard.TypeKeys("<SPACE>",true)
 159         'sleep(5)
 160         'FormWizard.TypeKeys("<RIGHT>",true)
 161         'sleep(1)
 162         'FormWizard.TypeKeys("<SPACE>",true)
 163         'sleep(5)
 164
 165         'ColumnarLabelsLeft.Click
 166         'ColumnarLabelsOnTop.Click
 167         'AsDataSheet.Click
 168         'InBlocksLabelsAbove.Click
 169
 170         'NoBorder               HID_DLGFORM_CMDNOBORDER
 171         'ThreeDLook             HID_DLGFORM_CMD3DBORDER
 172         'FlatLook               HID_DLGFORM_CMDSIMPLEBORDER
 173
 174         '/// click NEXT
 175         printlog "click NEXT"
 176         NextBtn.click
 177         sleep(1)
 178         '/// click NEXT
 179         printlog "click NEXT"
 180         NextBtn.click
 181         sleep(1)
 182         ' page styles
 183
 184         dim iCount as integer
 185         dim i as integer
 186
 187         iCount = PageStyles.getItemCount
 188
 189         if iCount <> 10 then
 190             warnlog "there sould be 10 page styles but there are " + iCount + " page styles."
 191         endif
 192
 193         for i = 1 to iCount
 194             PageStyles.select i
 195             sleep(1)
 196             '/// check all field border styles
 197             NoBorder.Check
 198             sleep(1)
 199             ThreeDLook.Check
 200             sleep(1)
 201             FlatLook.Check
 202             sleep(1)
 203         next
 204
 205         '/// click NEXT
 206         printlog "click NEXT"
 207         NextBtn.click
 208         sleep(1)
 209         '/// click Finish
 210         printlog "click Finish"
 211         FinishBtn.Click
 212
 213     sleep(10)
 214
 215     call fCloseForm ' should be changed to a CloseReport
 216
 217     call fCloseDatabase
 218
 219 endcase
 220 '--------------------------------------------------------------------------------------
 221 testcase tStartFromTableContextMenu
 222
 223     call fOpenDatabase(gOfficePath + ConvertPath("user/database/biblio.odb"))
 224
 225     Kontext "DATABASE"
 226
 227     Database.MouseDown(50,50)
 228     Database.MouseUp(50,50)
 229     sleep(1)
 230
 231     '/// select the table biblio
 232     printlog "select the table biblio"
 233     call fFindTable("biblio")
 234
 235     Kontext "ContainerView"
 236
 237     '/// select FormWizard from the table contextmenu
 238     printlog "select FormWizard from the table contextmenu"
 239     ContainerView.TypeKeys("<SHIFT F10>",true)
 240     hMenuSelectNr(6)
 241
 242     '/// check if the formwizard appear
 243     printlog "check if the formwizard appear"
 244     Kontext "FormWizard"
 245         'wait until the FormWizard is started
 246         if (FormWizard.exists(5)) then
 247             '/// cancel the formwizard
 248             printlog "cancel the formwizard"
 249             CancelBtn.Click
 250         else
 251             warnlog "The formwizard doesn't appear"
 252         endif
 253
 254     sleep(1)
 255
 256     call fCloseDatabase
 257
 258 endcase
 259 '--------------------------------------------------------------------------------------
 260