192 lines
6.6 KiB
PHP
Executable file
192 lines
6.6 KiB
PHP
Executable file
'encoding UTF-8 Do not remove or change this line!
|
|
'**************************************************************************
|
|
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
|
'
|
|
' Copyright 2000, 2010 Oracle and/or its affiliates.
|
|
'
|
|
' OpenOffice.org - a multi-platform office productivity suite
|
|
'
|
|
' This file is part of OpenOffice.org.
|
|
'
|
|
' OpenOffice.org is free software: you can redistribute it and/or modify
|
|
' it under the terms of the GNU Lesser General Public License version 3
|
|
' only, as published by the Free Software Foundation.
|
|
'
|
|
' OpenOffice.org is distributed in the hope that it will be useful,
|
|
' but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
' GNU Lesser General Public License version 3 for more details
|
|
' (a copy is included in the LICENSE file that accompanied this code).
|
|
'
|
|
' You should have received a copy of the GNU Lesser General Public License
|
|
' version 3 along with OpenOffice.org. If not, see
|
|
' <http://www.openoffice.org/license.html>
|
|
' for a copy of the LGPLv3 License.
|
|
'
|
|
'/************************************************************************
|
|
'*
|
|
'* owner : marc.neumann@oracle.com
|
|
'*
|
|
'* short description : ODBC MySQL Test
|
|
'*
|
|
'\***********************************************************************
|
|
|
|
testcase db_ODBCMySQL
|
|
|
|
if gtSYSName = "MAC" or gtSYSName = "Solaris SPARC" or gtSYSName = "Solaris x86" then
|
|
printlog "This test does work only under linux and windows yet."
|
|
printlog "You have a: " + gtSYSName + " OS - Test Stopped !"
|
|
else
|
|
|
|
' **************************************************
|
|
' databases specific settings for ODBC MySQL
|
|
' **************************************************
|
|
|
|
Dim sFileName as string
|
|
sFileName = gOfficePath + Convertpath("user/work/TT_ODBC-MYSQL.odb")
|
|
|
|
Dim sTableName as string
|
|
sTableName = "tt_test_create-table"
|
|
|
|
Dim sUser as string
|
|
sUser = "testtool"
|
|
|
|
Dim sPWD as string
|
|
sPWD = "testtool"
|
|
|
|
dim sCatalog as string
|
|
sCatalog = " " ' not used in this ds
|
|
|
|
dim sSchema as string
|
|
sSchema = " " ' not used in this ds
|
|
|
|
Dim aFieldTypeContent(30,2) as string 'database specific data matrix
|
|
|
|
aFieldTypeContent(1,1)="tt_bool"
|
|
aFieldTypeContent(1,2)="bool"
|
|
|
|
aFieldTypeContent(2,1)="tt_tinyint"
|
|
aFieldTypeContent(2,2)="tinyint"
|
|
|
|
aFieldTypeContent(3,1)="tt_bigint"
|
|
aFieldTypeContent(3,2)="bigint"
|
|
|
|
aFieldTypeContent(4,1)="tt_long_varbinary"
|
|
aFieldTypeContent(4,2)="long varbinary"
|
|
|
|
aFieldTypeContent(5,1)="tt_mediumblob"
|
|
aFieldTypeContent(5,2)="mediumblob"
|
|
|
|
aFieldTypeContent(6,1)="tt_longblob"
|
|
aFieldTypeContent(6,2)="longblob"
|
|
|
|
aFieldTypeContent(7,1)="tt_blob"
|
|
aFieldTypeContent(7,2)="blob"
|
|
|
|
aFieldTypeContent(8,1)="tt_tinyblob"
|
|
aFieldTypeContent(8,2)="tinyblob"
|
|
|
|
aFieldTypeContent(9,1)="tt_varbinary"
|
|
aFieldTypeContent(9,2)="varbinary"
|
|
|
|
aFieldTypeContent(10,1)="tt_binary"
|
|
aFieldTypeContent(10,2)="binary"
|
|
|
|
aFieldTypeContent(11,1)="tt_longvarchar"
|
|
aFieldTypeContent(11,2)="long varchar"
|
|
|
|
aFieldTypeContent(12,1)="tt_mediumtext"
|
|
aFieldTypeContent(12,2)="mediumtext"
|
|
|
|
aFieldTypeContent(13,1)="tt_longtext"
|
|
aFieldTypeContent(13,2)="longtext"
|
|
|
|
aFieldTypeContent(14,1)="tt_text"
|
|
aFieldTypeContent(14,2)="text"
|
|
|
|
aFieldTypeContent(15,1)="tt_tinytext"
|
|
aFieldTypeContent(15,2)="tinytext"
|
|
|
|
aFieldTypeContent(16,1)="tt_char"
|
|
aFieldTypeContent(16,2)="char"
|
|
|
|
aFieldTypeContent(17,1)="tt_numeric"
|
|
aFieldTypeContent(17,2)="numeric"
|
|
|
|
aFieldTypeContent(18,1)="tt_decimal"
|
|
aFieldTypeContent(18,2)="decimal"
|
|
|
|
aFieldTypeContent(19,1)="tt_integer"
|
|
aFieldTypeContent(19,2)="integer"
|
|
|
|
aFieldTypeContent(20,1)="tt_int"
|
|
aFieldTypeContent(20,2)="int"
|
|
|
|
aFieldTypeContent(21,1)="tt_mediumint"
|
|
aFieldTypeContent(21,2)="mediumint"
|
|
|
|
aFieldTypeContent(22,1)="tt_smallint"
|
|
aFieldTypeContent(22,2)="smallint"
|
|
|
|
aFieldTypeContent(23,1)="tt_float"
|
|
aFieldTypeContent(23,2)="float"
|
|
|
|
aFieldTypeContent(24,1)="tt_varchar"
|
|
aFieldTypeContent(24,2)="varchar"
|
|
|
|
aFieldTypeContent(25,1)="tt_date"
|
|
aFieldTypeContent(25,2)="date"
|
|
|
|
aFieldTypeContent(26,1)="tt_time"
|
|
aFieldTypeContent(26,2)="time"
|
|
|
|
aFieldTypeContent(27,1)="tt_datetime"
|
|
aFieldTypeContent(27,2)="datetime"
|
|
|
|
aFieldTypeContent(28,1)="tt_timestamp"
|
|
aFieldTypeContent(28,2)="timestamp"
|
|
|
|
aFieldTypeContent(29,1)="tt_bit"
|
|
aFieldTypeContent(29,2)="bit"
|
|
|
|
|
|
|
|
Dim aFieldContent(1,6) as string 'database specific data matrix
|
|
|
|
aFieldContent(1,1)="1"
|
|
aFieldContent(1,2)="<space>"
|
|
aFieldContent(1,3)="1"
|
|
aFieldContent(1,4)="1"
|
|
aFieldContent(1,5)="1"
|
|
aFieldContent(1,6)="1"
|
|
|
|
dim dbok as boolean
|
|
dbok = false
|
|
|
|
dim aDatabaseProperties(5) as string
|
|
aDatabaseProperties() = tools_dbtools_fgetMySQLODBCDatabaseProperties()
|
|
|
|
' if and only if no properties are defined in the environment file the test is stopped
|
|
if(aDatabaseProperties(1) = "no") then
|
|
qaerrorlog "No database properties from Mysql defiened. The Test is stopped here."
|
|
goto endsub
|
|
endif
|
|
|
|
dbok = fCreateMySQL_ODBC_Datasource(sFileName,aDatabaseProperties(2),aDatabaseProperties(3))
|
|
|
|
if dbok = true then
|
|
|
|
call fOpendatabase(sFileName,aDatabaseProperties(4))
|
|
call fCreateTable( aFieldTypeContent(), sTableName)
|
|
call fInsertIntoTable( aFieldContent(), sTableName)
|
|
call fCloseDatabase
|
|
|
|
'use "dbaccess/optional/includes/b_lvl1_Query.inc"
|
|
'call b_lvl1_Query(sFileName,"dbase")
|
|
|
|
else
|
|
warnlog "Data Source could not be created - beyond testcases stopped"
|
|
endif
|
|
endif
|
|
endcase
|
|
|