testautomation/dbaccess/optional/includes/wiz_QueryWizard.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_QueryWizard.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 : Query Autopilot Test
  37 '* preconditions : Adabas has to be installed on the test machine
  38 '* testdocuments : no
  39 '* testpurpose : Test for the query wizard
  40 '*
  41 '\***********************************************************************
  42 sub wiz_QueryWizard
  43
  44
  45
  46     if fCreateDbaseDatasource(gOfficePath + ConvertPath("user/work/tt_dbase-01.odb"),gOfficePath + ConvertPath("user/database/biblio")) then
  47         call tQueryAutopilotMain
  48     else
  49         qaerrorlog "can't create dBase datasource. Stop Test"
  50         endif
  51
  52     app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb"),gOfficePath + ConvertPath("user/work/TT_hsqldb.odb")
  53     call tQueryAutopilotTest1
  54     call tQueryAutopilotTest2
  55
  56 end sub
  57 '-------------------------------------------------------------------------
  58 testcase tQueryAutopilotMain
  59
  60         if not fOpendatabase(gOfficePath + ConvertPath("user/work/tt_dbase-01.odb")) then
  61         warnlog "Database " +gOfficePath + ConvertPath("user/work/tt_dbase-01.odb") + " could not be open."
  62         goto endsub
  63     end if
  64
  65     if not fStartQueryWizard() then
  66         warnlog "The Query Wizard could not be start."
  67         goto endsub
  68     end if
  69
  70     Kontext "QueryWizard"
  71         '/// select the first table (biblio)
  72         printlog "select the first table (biblio)"
  73         Tables.select 1
  74         sleep(1)
  75         '/// add the third field
  76         printlog "add the third field"
  77         AvailableFields.select 3
  78         sleep(1)
  79         Add.click
  80         sleep(1)
  81         '/// click NEXT
  82         printlog "click NEXT"
  83         NextBtn.click
  84         sleep(1)
  85         '/// click NEXT
  86         printlog "click NEXT"
  87         NextBtn.click
  88         sleep(1)
  89         '/// click NEXT
  90         printlog "click NEXT"
  91         NextBtn.click
  92         sleep(1)
  93         '/// click NEXT
  94         printlog "click NEXT"
  95         NextBtn.click
  96         sleep(1)
  97         '/// click FINISH
  98         printlog "click FINISH"
  99         FinishBtn.click
 100         sleep(2)
 101
 102     Kontext "DatabaseBeamer"
 103         DatabaseBeamer.UseMenu
 104         call hMenuSelectnr(1)
 105         call hMenuSelectnr(4)
 106         'FileClose
 107
 108     call fCloseDatabase(true)
 109
 110 endcase
 111 '----------------------------------------------------------
 112 testcase tQueryAutopilotTest1
 113
 114         if not fOpendatabase(gOfficePath + ConvertPath("user/work/TT_hsqldb.odb")) then
 115         warnlog "Database " + gOfficePath + ConvertPath("user/work/TT_hsqldb.odb") + " could not be open."
 116         goto endsub
 117     end if
 118
 119     if not fStartQueryWizard() then
 120         warnlog "The Query Wizard could not be start."
 121         goto endsub
 122     end if
 123
 124     Kontext "QueryWizard"
 125         '/// select the table TT_QueryAutopilot
 126         printlog "select the table TT_QueryAutopilot"
 127         Tables.select 7
 128         sleep(1)
 129         '/// add the third field
 130         printlog "add the 1. and 4. field"
 131         AvailableFields.select 1
 132         sleep(1)
 133         Add.click
 134         sleep(1)
 135         AvailableFields.select 4
 136         sleep(1)
 137         Add.click
 138         sleep(1)
 139         '/// click NEXT
 140         printlog "click NEXT"
 141         NextBtn.click
 142         sleep(1)
 143         '/// click NEXT
 144         printlog "click NEXT"
 145         NextBtn.click
 146         sleep(1)
 147         '/// click NEXT
 148         printlog "click NEXT"
 149         NextBtn.click
 150         sleep(1)
 151         '/// click NEXT
 152         printlog "click NEXT"
 153         NextBtn.click
 154         sleep(1)
 155         '/// click FINISH
 156         printlog "click FINISH"
 157         FinishBtn.click
 158         sleep(2)
 159
 160     Kontext "DatabaseBeamer"
 161         FileClose
 162
 163     call fClosedatabase(true)
 164
 165 endcase
 166 '----------------------------------------------------------
 167 testcase tQueryAutopilotTest2
 168
 169         if not fOpendatabase(gOfficePath + ConvertPath("user/work/TT_hsqldb.odb")) then
 170         warnlog "Database " + gOfficePath + ConvertPath("user/work/TT_hsqldb.odb") + " could not be open."
 171         goto endsub
 172     end if
 173
 174     if not fStartQueryWizard() then
 175         warnlog "The Query Wizard could not be start."
 176         goto endsub
 177     end if
 178
 179     Kontext "QueryWizard"
 180         '/// select the table TT_QueryAutopilot
 181         printlog "select the table TT_QueryAutopilot"
 182         Tables.select 7
 183         sleep(1)
 184         '/// add the third field
 185         printlog "add the 1. field"
 186         AvailableFields.select 1
 187         sleep(1)
 188         Add.click
 189         sleep(1)
 190         '/// click NEXT to Sorting page
 191         printlog "click NEXT to Sorting page"
 192         NextBtn.click
 193         sleep(1)
 194         '/// click NEXT to Search page
 195         printlog "click NEXT to Search page"
 196         NextBtn.click
 197         sleep(1)
 198         '/// click NEXT to summary query page
 199         printlog "click NEXT to summary query page"
 200         NextBtn.click
 201         sleep(1)
 202         SummaryQuery.Check
 203         sleep(3)
 204         ' this doesn't work
 205         'AggregatFunction1.select 1
 206         'sleep(1)
 207         'AggregatField1.select 1
 208         'sleep(1)
 209         ' do this instead
 210         QueryWizard.TypeKeys "<SHIFT TAB>" , true
 211         sleep(1)
 212         QueryWizard.TypeKeys "<SHIFT TAB>" , true
 213         sleep(1)
 214         QueryWizard.TypeKeys "<DOWN>" , true
 215         sleep(1)
 216         QueryWizard.TypeKeys "<TAB>" , true
 217         sleep(1)
 218         QueryWizard.TypeKeys "<DOWN>" , true
 219         sleep(1)
 220         '----
 221         '/// click NEXT to alias page
 222         printlog "click NEXT to group alias page"
 223         NextBtn.click
 224         sleep(1)
 225         '/// click NEXT to final page
 226         printlog "click NEXT to final page"
 227         NextBtn.click
 228         sleep(1)
 229         '/// click FINISH
 230         printlog "click FINISH"
 231         FinishBtn.click
 232         sleep(2)
 233
 234     Kontext "DatabaseBeamer"
 235         FileClose
 236
 237     call fClosedatabase(true)
 238
 239 endcase