split smoketest module to fix build

+ move the library and other build stuff to a new "smoketest" module
+ keep "smoketestoo_native" only for installing and running the tests
+ restore the targets in top level make

1 files changed, 147 insertions, 0 deletions

diff --git a/smoketest/data/Test_DB.xml b/smoketest/data/Test_DB.xml
new file mode 100644
index 000000000000..52ea5d9be934
--- /dev/null
+++ b/smoketest/data/Test_DB.xml
@@ -0,0 +1,147 @@
+<?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=&quot;Bibliography&quot; &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>