xref: /aoo41x/main/smoketestdoc/data/Test_DB.xml (revision cdf0e10c)

<?xml version="1.0" encoding="UTF-8"?>
<!--**********************************************************************
*
* 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.
*
**********************************************************************-->
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Test_DB" script:language="StarBasic">REM  *****  Database Test  *****

const cMessageDatabaseService = &quot;Database Service&quot;
const cMessageDatabaseOpen = &quot;Open Database&quot;
const cMessageDatabaseInsert = &quot;Insert record into Database&quot;
const cMessageDatabaseDelete = &quot;Delete record from Database&quot;
const cMessageDatabaseSeek = &quot;Read other record from Database&quot;
const cMessageDatabaseClose = &quot;Close Database&quot;

Sub TestDB

	Dim oDBConnection as Object, oDataSource as Object, oDBContext as Object
	Dim sDBName as String, sTable as String, sCurrentMessage as String
	Dim nRowCount as Integer
	Dim bResult as Boolean
	Const sTestString = &quot;Automatical Test&quot;

	On Local Error GoTo DBERROR

	gCurrentTestCase = cLogfileFailed
	LocalTestLog% = OpenLogDat (GetLogFileName(gCurrentDocTest))

	gCurrentTestCase = cDBService
	sCurrentMessage = cMessageDatabaseService + &quot; &quot; + cUnoDatabaseContext

	oDBContext = CreateUnoService(cUnoDatabaseContext)
	sDBName=oDBContext.ElementNames(0) &apos;Names of Databases

	gCurrentTestCase = cDBOpen
	sCurrentMessage = cMessageDatabaseOpen

	oDataSource = oDBContext.GetByName(sDBName)
	sTable=oDataSource.Tables.ElementNames(0)
	oDBConnection = oDBContext.GetByName(sDBName).GetConnection(&quot;&quot;,&quot;&quot;)

	LogTestResult( &quot;Database &quot;+ cMessageDatabaseOpen, not IsNull (oDBConnection) )
	if (IsNull(oDBConnection)) then
   	Close #LocalTestLog%
		LocalTestLog = 0
		Exit Sub
	End If

	&apos; Database is open now

	gCurrentTestCase = cDBService
	sCurrentMessage = cMessageDatabaseService + &quot; &quot; + cUnoRowSet
	oRowSet = createUnoService(cUnoRowSet)

	if (IsNull(oRowSet)) then
		LogTestResult( &quot;Database &quot;+ cMessageDatabaseService + &quot; &quot; + cUnoRowSet, not IsNull (oRowSet) )
		Exit Sub
	else
		LogTestResult( &quot;Database &quot;+ cMessageDatabaseService, TRUE )
	End If

	gCurrentTestCase = cDBInsert
	sCurrentMessage = cMessageDatabaseInsert

	oRowSet.ActiveConnection = oDBConnection

	oRowSet.CommandType = com.sun.star.sdb.CommandType.COMMAND
	oRowSet.Command = &quot;SELECT * FROM &quot; + sTable
	oRowSet.execute()

	oRowSet.moveToInsertRow
	oRowSet.updateString(5, sTestString)

	oRowSet.insertRow()
	nRowCount=oRowSet.RowCount

	oRowSet.moveToCurrentRow()

	bResult = (oRowSet.getString(5) = sTestString)
	LogTestResult( &quot;Database &quot;+ cMessageDatabaseInsert, bResult )

	&apos;delete only if insert passed

	if (bResult) Then
		gCurrentTestCase = cDBDelete
		sCurrentMessage = cMessageDatabaseDelete
		oRowSet.deleteRow()
		bResult = (nRowCount - oRowSet.RowCount = 0)
		if ( bResult ) Then
			oRowSet.next()
			bResult = (nRowCount - oRowSet.RowCount = 1)
		End If
		LogTestResult( &quot;Database &quot;+ cMessageDatabaseDelete, bResult )
	End If

	&apos; read other record

	gCurrentTestCase = cDBSeek
	sCurrentMessage = cMessageDatabaseSeek
	oRowSet.first()
	bResult = not (oRowSet.getString(5) = sTestString)
	LogTestResult( &quot;Database &quot;+ cMessageDatabaseSeek, bResult )

	gCurrentTestCase = cDBClose
	sCurrentMessage = cMessageDatabaseClose
	oDBConnection.Dispose()
	LogTestResult( &quot;Database &quot;+ cMessageDatabaseClose, True )

	Print #LocalTestLog, &quot;---&quot;
	Close #LocalTestLog%
	LocalTestLog = 0
	Exit Sub &apos; Without error

	DBERROR:
	If ( gCurrentTestCase = cLogfileFailed ) then
		LogTestResult( &quot; &quot;, False )
		Exit Sub
	else
		LogTestResult( &quot;Database &quot;+ sCurrentMessage, FALSE )
		Close #LocalTestLog%
		LocalTestLog = 0
	End If
	Exit Sub &apos; With error
End Sub
</script:module>