testautomation/dbaccess/optional/includes/db_hsqldb.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: db_hsqldb.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 : hsqldb test
  37 '*
  38 '\***********************************************************************
  39 sub db_hsqldb
  40
  41     call tGeneral
  42     call tRenameTable
  43     call tOpenDatabaseWithViews
  44     call tRenameTableWhichUsedInViews
  45
  46     call tQueryOpenInSQLMode
  47
  48     app.FileCopy gTesttoolPath + ConvertPath("dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb") , gOfficePath + ConvertPath("user/work/TT_hsqldb.odb")
  49     call db_Query(gOfficePath + "user/work/TT_hsqldb.odb" ,"hsqldb")
  50
  51 end sub
  52
  53 testcase tGeneral
  54
  55     ' *********************************************************************
  56     '   databases specific settings for hsqldb
  57     ' *********************************************************************
  58
  59     Dim i_fieldcount as integer 'amount of field types - columns
  60     i_fieldcount = 8 'amount of field types (no primary key supported in dBase) normally: 7
  61
  62     Dim ifieldrow_amount as integer 'amount of inserted rows
  63     ifieldrow_amount = 3
  64
  65     Dim sFileName as string
  66     sFileName = gOfficePath + ConvertPath("user/work/tt_hsqldb.odb")
  67
  68     Dim sTableName as string
  69     sTableName = "tt_test_create-table"
  70
  71     Dim sPWD as string
  72     sPWD = "ignore"
  73
  74     Dim sCatalog as string
  75     sCatalog = " "                      ' not used in this ds
  76
  77     Dim sSchema as string
  78     sSchema = " "                       ' not used in this ds
  79
  80
  81     Dim aFieldTypeContent(i_fieldcount,2) as string 'database specific data matrix
  82
  83     aFieldTypeContent(1,1)="tt_boolean"         'name of fieldtype
  84     aFieldTypeContent(1,2)="boolean"            'number of fieldtype (listbox entry)
  85
  86     aFieldTypeContent(2,1)="tt_longvarchar"
  87     aFieldTypeContent(2,2)="longvarchar"
  88
  89     aFieldTypeContent(3,1)="tt_char"
  90     aFieldTypeContent(3,2)="char"
  91
  92     aFieldTypeContent(4,1)="tt_decimal"
  93     aFieldTypeContent(4,2)="decimal"
  94
  95     aFieldTypeContent(5,1)="tt_varchar"
  96     aFieldTypeContent(5,2)="varchar"
  97
  98     aFieldTypeContent(6,1)="tt_date"
  99     aFieldTypeContent(6,2)="date"
 100
 101     aFieldTypeContent(7,1)="tt_time_stamp"
 102     aFieldTypeContent(7,2)="timestamp"
 103
 104     Dim aFieldContent(1,7) as string 'database specific data matrix
 105
 106     aFieldContent(1,1)="<space>"
 107     aFieldContent(1,2)="this is a memo field"
 108     aFieldContent(1,3)="char"
 109     aFieldContent(1,4)="1"
 110     aFieldContent(1,5)="this is a text field"
 111     aFieldContent(1,6)="13.05.2004  "
 112     aFieldContent(1,7)="0"
 113
 114                 dim dbok as boolean
 115         dbok = fCreateHSQLDatasource(sFileName)
 116         'dbok = true
 117         if dbok = true then
 118
 119             call fOpendatabase(sFileName)
 120             dim bCreateTable as boolean
 121             bCreateTable = fCreateTable( aFieldTypeContent(), sTableName)
 122             if bCreateTable = true then 'the table was created
 123                 call fInsertIntoTable( aFieldContent(), sTableName)
 124             end if
 125             call fCloseDatabase
 126
 127             if bCreateTable = true then
 128                 'test the index design
 129                 call tIndex(sFileName, sTableName)
 130             end if
 131
 132             'outcomment because of some bugs in forms
 133             'use "dbaccess/optional/includes/b_lvl1_Forms.inc"
 134             'call b_lvl1_Forms ("TT_dBase")
 135
 136
 137                 else
 138             warnlog "Data Source could not be created - beyond testcases stopped"
 139                 endif
 140
 141 endcase
 142 '-------------------------------------------------------------------------
 143 testcase tRenameTable
 144
 145     app.FileCopy ConvertPath(gTesttoolPath + "dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb"),ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb")
 146     call fOpenDatabase(ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb"))
 147
 148     fFindTable("TT_1")
 149
 150     printlog "rename the selected table"
 151     Kontext "DATABASE"
 152         Database.UseMenu
 153         call hMenuSelectNr(2)
 154         call hMenuSelectNr(7)
 155
 156     printlog "insert any new name"
 157     Kontext "FormFolderNameDialog"
 158         FolderReName.setText("newname")
 159         printlog "and close the rename dialog with OK"
 160         FormFolderNameDialog.OK
 161
 162     printlog "check if a message box appear"
 163     Kontext "MessageBox"
 164         if (MessageBox.exists()) then
 165             warnlog MessageBox.GetFixedText(1)
 166         endif
 167
 168     printlog "Save and Close the database"
 169     fCloseDatabase(true)
 170
 171     call fOpenDatabase(ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb"))
 172
 173     fOpenTable("newname")
 174
 175     fCloseTableView()
 176
 177     fCloseDatabase()
 178
 179 endcase
 180 '-------------------------------------------------------------------------
 181 testcase tOpenDatabaseWithViews
 182
 183     app.FileCopy ConvertPath(gTesttoolPath + "dbaccess/optional/input/hsql_datasource/TT_hsqldb_2.0.0.odb"),ConvertPath(gOfficePath + "user/work/TT_hsqldb_2.0.0.odb")
 184
 185     call fOpenDatabase(ConvertPath(gOfficePath + "user/work/TT_hsqldb_2.0.0.odb"))
 186
 187     if fOpenTable("View 1") then
 188         printlog "View 1 successful open"
 189         call fCloseTableView()
 190     else
 191         warnlog "View 1 not successful open"
 192
 193     endif
 194
 195     call fCloseDatabase()
 196
 197 endcase
 198 '-------------------------------------------------------------------------
 199 testcase tRenameTableWhichUsedInViews
 200
 201     '/// check is issue 64885 occurr
 202
 203     Dim s as String
 204     printlog "copy the file $TesttoolPath/dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb to a locale place"
 205     app.FileCopy ConvertPath(gTesttoolPath + "dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb"),ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb")
 206
 207     printlog "open the data base TT_hsqldb.odb"
 208     call fOpenDatabase(ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb"))
 209
 210     '/// select the table TT_TableForView
 211     printlog "select the table TT_TableForView"
 212     fFindTable("TT_TableForView")
 213
 214     '/// rename the selcted table
 215     printlog "rename the selcted table"
 216     Kontext "DATABASE"
 217         Database.UseMenu
 218         call hMenuSelectNr(2)
 219         call hMenuSelectNr(7)
 220
 221     '/// insert any new name
 222     printlog "insert any new name"
 223     Kontext "FormFolderNameDialog"
 224         FolderReName.setText("newname")
 225         '///+ and close the rename dialog with OK
 226         printlog "and close the rename dialog with OK"
 227         FormFolderNameDialog.OK
 228
 229     '/// check if a message box appear that the table is used inside a view
 230     printlog "check if a message box appear that the table is used inside a view"
 231     Kontext "MessageBox"
 232         if (MessageBox.exists()) then
 233             s = MessageBox.GetFixedText(1)
 234             if ( InStr(s,"Table is referenced by view") = 0 ) then
 235                 warnlog "There is a messagebox but the message $chr(13) does not tell something about the view $chr(13)"
 236                 printlog "The content of the messages box is: " + s
 237             else
 238                 printlog "OK. The right messge box appear"
 239             endif
 240             '/// close the message box with OK
 241             printlog "close the message box with OK"
 242             MessageBox.OK
 243             '/// cancel the rename dialog
 244             printlog "cancel the rename dialog"
 245             Kontext "FormFolderNameDialog"
 246                 FormFolderNameDialog.Cancel
 247         else
 248             warnlog "There is no messages box, but there should one."
 249         endif
 250
 251     '/// close the database
 252     printlog "close the database"
 253     call fCloseDatabase()
 254
 255 endcase
 256 '-------------------------------------------------------------------------
 257 testcase tQueryOpeninSQLMode
 258
 259     '/// check feature issue 64651
 260
 261     Dim s as String
 262     printlog "copy the file $TesttoolPath/dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb to a locale place"
 263     app.FileCopy ConvertPath(gTesttoolPath + "dbaccess/optional/input/hsql_datasource/TT_hsqldb.odb"),ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb")
 264
 265     printlog "open the data base TT_hsqldb.odb"
 266     call fOpenDatabase(ConvertPath(gOfficePath + "user/work/TT_hsqldb.odb"))
 267
 268     '/// open a ew Query SQL Design
 269     call fOpenNewSQLQueryDesign
 270
 271     sleep(2)
 272
 273     Kontext "QueryEditWindow"
 274     QueryEditWindow.typeKeys ("Select * from TT_Query1" ,true)
 275
 276     '/// save the sql query design
 277     call fSaveSQLQueryDesign("q1")
 278
 279     '/// close the sql query design
 280     call fCloseSQLQueryDesign()
 281
 282     '/// open the query in sql mode
 283     call fOpenQueryInSQLDesign("q1")
 284
 285     '/// close the sql query design
 286     call fCloseSQLQueryDesign()
 287     '/// close the database
 288     printlog "close the database"
 289     call fCloseDatabase()
 290
 291
 292 endcase