testautomation/dbaccess/optional/includes/db_JDBCMySQL.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_JDBCMySQL.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:41 $
  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 : Create JDBC MySQL DS & Table & fill in Test
  37 '*
  38 '\***********************************************************************
  39 testcase db_JDBCMySQL
  40
  41     ' **************************************************
  42     '   databases specific settings for JDBC MySQL
  43     ' **************************************************
  44
  45     qaerrorlog "due to issue 98387 this test will not work anymore."
  46     goto endsub
  47
  48         Dim sFileName as string
  49     sFileName = gOfficePath + Convertpath("user/work/TT_JDBC-MYSQL.odb")
  50
  51     Dim sTableName as string
  52     sTableName = "tt_test_create-table"
  53
  54         Dim sUser as string
  55         sUser = "testtool"
  56
  57         Dim sPWD as string
  58         sPWD = "testtool"
  59
  60         dim sCatalog as string
  61         sCatalog = " "                          ' not used in this ds
  62
  63         dim sSchema as string
  64         sSchema = " "                           ' not used in this ds
  65
  66     Dim aFieldTypeContent(30,2) as string 'database specific data matrix
  67
  68     aFieldTypeContent(1,1)="tt_bool"
  69     aFieldTypeContent(1,2)="bool"
  70
  71     aFieldTypeContent(2,1)="tt_tinyint"
  72     aFieldTypeContent(2,2)="tinyint"
  73
  74     aFieldTypeContent(3,1)="tt_bigint"
  75     aFieldTypeContent(3,2)="bigint"
  76
  77     aFieldTypeContent(4,1)="tt_long_varbinary"
  78     aFieldTypeContent(4,2)="long varbinary"
  79
  80     aFieldTypeContent(5,1)="tt_mediumblob"
  81     aFieldTypeContent(5,2)="mediumblob"
  82
  83     aFieldTypeContent(6,1)="tt_longblob"
  84     aFieldTypeContent(6,2)="longblob"
  85
  86     aFieldTypeContent(7,1)="tt_blob"
  87     aFieldTypeContent(7,2)="blob"
  88
  89     aFieldTypeContent(8,1)="tt_tinyblob"
  90     aFieldTypeContent(8,2)="tinyblob"
  91
  92     aFieldTypeContent(9,1)="tt_varbinary"
  93     aFieldTypeContent(9,2)="varbinary"
  94
  95     aFieldTypeContent(10,1)="tt_binary"
  96     aFieldTypeContent(10,2)="binary"
  97
  98     aFieldTypeContent(11,1)="tt_longvarchar"
  99     aFieldTypeContent(11,2)="long varchar"
 100
 101     aFieldTypeContent(12,1)="tt_mediumtext"
 102     aFieldTypeContent(12,2)="mediumtext"
 103
 104     aFieldTypeContent(13,1)="tt_longtext"
 105     aFieldTypeContent(13,2)="longtext"
 106
 107     aFieldTypeContent(14,1)="tt_text"
 108     aFieldTypeContent(14,2)="text"
 109
 110     aFieldTypeContent(15,1)="tt_tinytext"
 111     aFieldTypeContent(15,2)="tinytext"
 112
 113     aFieldTypeContent(16,1)="tt_char"
 114     aFieldTypeContent(16,2)="char"
 115
 116     aFieldTypeContent(17,1)="tt_numeric"
 117     aFieldTypeContent(17,2)="numeric"
 118
 119     aFieldTypeContent(18,1)="tt_decimal"
 120     aFieldTypeContent(18,2)="decimal"
 121
 122     aFieldTypeContent(19,1)="tt_integer"
 123     aFieldTypeContent(19,2)="integer"
 124
 125     aFieldTypeContent(20,1)="tt_int"
 126     aFieldTypeContent(20,2)="int"
 127
 128     aFieldTypeContent(21,1)="tt_mediumint"
 129     aFieldTypeContent(21,2)="mediumint"
 130
 131     aFieldTypeContent(22,1)="tt_smallint"
 132     aFieldTypeContent(22,2)="smallint"
 133
 134     aFieldTypeContent(23,1)="tt_float"
 135     aFieldTypeContent(23,2)="float"
 136
 137     aFieldTypeContent(24,1)="tt_varchar"
 138     aFieldTypeContent(24,2)="varchar"
 139
 140     aFieldTypeContent(25,1)="tt_date"
 141     aFieldTypeContent(25,2)="date"
 142
 143     aFieldTypeContent(26,1)="tt_time"
 144     aFieldTypeContent(26,2)="time"
 145
 146     aFieldTypeContent(27,1)="tt_datetime"
 147     aFieldTypeContent(27,2)="datetime"
 148
 149     aFieldTypeContent(28,1)="tt_timestamp"
 150     aFieldTypeContent(28,2)="timestamp"
 151
 152     aFieldTypeContent(29,1)="tt_bit"
 153     aFieldTypeContent(29,2)="bit"
 154
 155
 156
 157     Dim aFieldContent(1,6) as string 'database specific data matrix
 158
 159     aFieldContent(1,1)="1"
 160     aFieldContent(1,2)="<space>"
 161     aFieldContent(1,3)="1"
 162     aFieldContent(1,4)="1"
 163     aFieldContent(1,5)="1"
 164     aFieldContent(1,6)="1"
 165
 166         call fSetJDBCDriverFiles(gTesttoolPath + Convertpath("dbaccess/optional/input/driver/mysql_jconnector.jar"))
 167         'after changing the classpath the office has to be restarted.
 168         call ExitRestartTheOffice
 169
 170         dim dbok as boolean
 171                 dbok = false
 172
 173         dim aDatabaseProperties(5) as string
 174         aDatabaseProperties() = tools_dbtools_fgetMySQLJDBCDatabaseProperties()
 175
 176         ' if and only if no properties are defined in the environment file the test is stopped
 177         if(aDatabaseProperties(1) = "no") then
 178             qaerrorlog "No database properties from Mysql defiened. The Test is stopped here."
 179             goto endsub
 180         endif
 181
 182         dbok = fCreateMySQL_JDBC_Datasource(sFileName,aDatabaseProperties(3),aDatabaseProperties(2),aDatabaseProperties(4),aDatabaseProperties(5))
 183         if dbok = true then
 184
 185                     call fOpendatabase(sFileName,aDatabaseProperties(6))
 186             call fCreateTable( aFieldTypeContent(), sTableName)
 187             call fInsertIntoTable( aFieldContent(), sTableName)
 188             call fCloseDatabase
 189
 190             'use "dbaccess/optional/includes/b_lvl1_Query.inc"
 191             'call b_lvl1_Query(sFileName,"dbase")
 192
 193             call tRelation( sFileName, aDatabaseProperties(6), "rel1", "rel2" )
 194
 195                 else
 196             warnlog "Data Source could not be created - beyond testcases stopped"
 197                 endif
 198
 199 endcase
 200