testautomation/dbaccess/required/includes/Wizards.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: Wizards.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:45 $
  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 : test the Main Wizard Application Window
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tQueryWizard
  41 ' #1 tReportWizard
  42 ' #1 tTableWizard
  43 ' #1 tFormWizard
  44 '*
  45 '\***********************************************************************************
  46 sub Wizards
  47
  48     printlog "------------------ Wizards.inc ---------------------"
  49
  50     call tQueryWizard
  51     call tReportWizard
  52     call tFormWizard
  53     call tTableWizard
  54
  55 end sub
  56 '-------------------------------------------------------------------------
  57 '-------------------------------------------------------------------------
  58 '-------------------------------------------------------------------------
  59 testcase tQueryWizard
  60
  61     hFileOpen( gOfficePath & "user/database/biblio.odb" )
  62
  63     Kontext "Insight"
  64
  65     Insight.MouseDown(50,50)
  66     Insight.MouseUp(50,50)
  67     sleep(1)
  68
  69     call fStartQueryWizard
  70
  71     sleep(5)
  72
  73     Kontext "QueryWizard"
  74         Dialogtest(QueryWizard)
  75         sleep(1)
  76
  77         Tables.select 1
  78         sleep(1)
  79         '/// add the third field
  80         printlog "add the third field"
  81         AvailableFields.select 3
  82         sleep(1)
  83         Add.click
  84         sleep(1)
  85         '/// click NEXT
  86         printlog "click NEXT"
  87         NextBtn.click
  88         sleep(1)
  89         Dialogtest(QueryWizard)
  90         '/// click NEXT
  91         printlog "click NEXT"
  92         NextBtn.click
  93         sleep(1)
  94         Dialogtest(QueryWizard)
  95         '/// click NEXT
  96         printlog "click NEXT"
  97         NextBtn.click
  98         sleep(1)
  99         Dialogtest(QueryWizard)
 100         '/// click NEXT
 101         printlog "click NEXT"
 102         NextBtn.click
 103         sleep(1)
 104         Dialogtest(QueryWizard)
 105         '/// click CANCEL
 106         printlog "click CANCEL"
 107         CancelBtn.Click
 108     sleep(1)
 109     call fCloseDatabase
 110
 111 endcase
 112 '-------------------------------------------------------------------------
 113 testcase tReportWizard
 114
 115     hFileOpen( gOfficePath & "user/database/biblio.odb" )
 116
 117     Kontext "Insight"
 118
 119     Insight.MouseDown(50,50)
 120     Insight.MouseUp(50,50)
 121     sleep(1)
 122
 123     StartReportWizard
 124
 125     sleep(5)
 126
 127     Kontext "ReportWizard"
 128         Dialogtest(ReportWizard)
 129         sleep(1)
 130         Tables.select 1
 131         '/// add the third field
 132         printlog "add the third field"
 133         AvailableFields.select 3
 134         sleep(1)
 135         Add.click
 136         sleep(1)
 137         '/// click NEXT
 138         printlog "click NEXT"
 139         NextBtn.click
 140         sleep(1)
 141         Dialogtest(ReportWizard)
 142         '/// click NEXT
 143         printlog "click NEXT"
 144         NextBtn.click
 145         sleep(1)
 146         Dialogtest(ReportWizard)
 147         '/// click NEXT
 148         printlog "click NEXT"
 149         NextBtn.click
 150         sleep(1)
 151         Dialogtest(ReportWizard)
 152         '/// click NEXT
 153         printlog "click NEXT"
 154         NextBtn.click
 155         sleep(1)
 156         Dialogtest(ReportWizard)
 157         '/// click CANCEL
 158         printlog "click CANCEL"
 159         CancelBtn.Click
 160     sleep(1)
 161     call fCloseDatabase
 162
 163 endcase
 164 '-------------------------------------------------------------------------
 165 testcase tTableWizard
 166
 167     hFileOpen( gOfficePath & "user/database/biblio.odb" )
 168
 169     Kontext "Insight"
 170
 171     Insight.MouseDown(50,50)
 172     Insight.MouseUp(50,50)
 173     sleep(1)
 174
 175     ViewTables
 176
 177     sleep(1)
 178
 179     StartTableWizard
 180
 181     sleep(5)
 182
 183     Kontext "TableWizard"
 184         Dialogtest(TableWizard)
 185         sleep(1)
 186         AddAll.click
 187         sleep(1)
 188         '/// click NEXT
 189         printlog "click NEXT"
 190         NextBtn.click
 191         sleep(1)
 192         Dialogtest(TableWizard)
 193         '/// click NEXT
 194         printlog "click NEXT"
 195         NextBtn.click
 196         sleep(1)
 197         Dialogtest(TableWizard)
 198         '/// click CANCEL
 199         printlog "click CANCEL"
 200         CancelBtn.Click
 201     sleep(1)
 202     call fCloseDatabase
 203
 204 endcase
 205 '-------------------------------------------------------------------------
 206 testcase tFormWizard
 207
 208     hFileOpen( gOfficePath & "user/database/biblio.odb" )
 209
 210     Kontext "Insight"
 211
 212     Insight.MouseDown(50,50)
 213     Insight.MouseUp(50,50)
 214     sleep(1)
 215
 216     StartFormWizard
 217
 218     sleep(5)
 219
 220     Kontext "FormWizard"
 221         Dialogtest(FormWizard)
 222         sleep(1)
 223         TablesOrQueriesMaster.select 1
 224         '/// add the third field
 225         printlog "add the third field"
 226         AvailableMasterFields.select 3
 227         sleep(1)
 228         MasterMoveSelected.click
 229         sleep(1)
 230         '/// click NEXT
 231         printlog "click NEXT"
 232         NextBtn.click
 233         sleep(1)
 234         Dialogtest(FormWizard)
 235         '/// click CANCEL
 236         printlog "click CANCEL"
 237         CancelBtn.Click
 238     sleep(1)
 239     call fCloseDatabase
 240
 241 endcase