summaryrefslogtreecommitdiff
path: root/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc
diff options
context:
space:
mode:
Diffstat (limited to 'testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc')
-rwxr-xr-xtestautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc352
1 files changed, 352 insertions, 0 deletions
diff --git a/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc b/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc
new file mode 100755
index 000000000000..5be669dc1081
--- /dev/null
+++ b/testautomation/dbaccess/optional/includes/wiz_DatabaseWizard.inc
@@ -0,0 +1,352 @@
+'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 : Database Wizard
+'*
+'\***********************************************************************
+sub wiz_DatabaseWizard
+ call tNewDatabase
+ call tOpenDatabase
+ call tOpenNoneDatabaseDocument
+ call tStartTableWizardFromWizard
+ call tODBC
+ call tEvolution
+ call tMozilla
+ call tJDBC
+ call tAdabas
+ call tdBase
+ call tMySQLODBC
+ call tMySQLJDBC
+ call tSpreadsheet
+ call tText
+ call tOracleJDBC
+end sub
+'-------------------------------------------------------------------------
+testcase tNewDatabase
+
+ Kontext "DocumentWriter"
+ if (DocumentWriter.exists(1)) then
+ DocumentWriter.UseMenu
+ else
+ Kontext "DocumentBackground"
+ DocumentBackground.UseMenu
+ endif
+ hMenuSelectNr(1)
+ hMenuSelectNr(1)
+ hMenuSelectNr(5)
+
+ sleep(10)
+
+ Kontext "DatabaseWizard"
+ CreateNewDatabase.Check
+ sleep(1)
+ NextBtn.Click
+ sleep(1)
+ FinishBtn.Click
+ sleep(1)
+
+ Kontext "SpeichernDlg"
+ if ( Dateiname.getSelText() = "" ) then
+ warnlog "#i58413# Default filename is missing"
+ Dim sFileName as String
+ sFileName = ConvertPath(gOfficePath + "user/work/TTDB1.odb")
+ if ( app.Dir( ConvertPath(sFileName) ) ) <> "" then
+ app.kill(ConvertPath(sFileName))
+ endif
+ Dateiname.setText(sFileName)
+ endif
+ Speichern.click
+ sleep(10)
+
+ Kontext "MessageBox"
+ if MessageBox.exists then
+ MessageBox.yes
+ end if
+
+ sleep(5)
+
+ Kontext "ContainerView"
+
+ ViewTables
+
+ sleep(1)
+
+ call fCloseDatabase(true)
+
+endcase
+'-------------------------------------------------------------------------
+testcase tOpenDatabase
+
+ Kontext "DocumentWriter"
+ if (DocumentWriter.exists(1)) then
+ DocumentWriter.UseMenu
+ else
+ Kontext "DocumentBackground"
+ DocumentBackground.UseMenu
+ endif
+ hMenuSelectNr(1)
+ hMenuSelectNr(1)
+ hMenuSelectNr(5)
+
+ sleep(5)
+
+ Kontext "DatabaseWizard"
+ OpenExistingDoc.Check
+ sleep(1)
+ OpenBtn.Click
+ sleep(1)
+
+ Kontext "GeneralFileDialog"
+ printlog "open database from: " + Convertpath(gofficePath + "user/database/biblio.odb")
+ Dateiname.setText(Convertpath(gofficePath + "user/database/biblio.odb"))
+ Oeffnen.click
+ sleep(5)
+
+ Kontext "ContainerView"
+
+ ViewTables
+
+ sleep(1)
+
+ call fCloseDatabase(false)
+
+endcase
+'-------------------------------------------------------------------------
+testcase tOpenNoneDatabaseDocument
+
+ Kontext "DocumentWriter"
+ if (DocumentWriter.exists(1)) then
+ DocumentWriter.UseMenu
+ else
+ Kontext "DocumentBackground"
+ DocumentBackground.UseMenu
+ endif
+ hMenuSelectNr(1)
+ hMenuSelectNr(1)
+ hMenuSelectNr(5)
+
+ sleep(5)
+
+ Kontext "DatabaseWizard"
+ OpenExistingDoc.Check
+ sleep(1)
+ OpenBtn.Click
+ sleep(1)
+
+ Kontext "GeneralFileDialog"
+ printlog "open spreadsheet file from: " + Convertpath(gTesttoolPath + "dbaccess/optional/input/spreadsheet_datasource/TT_Query1.ods")
+ Dateiname.setText(Convertpath(gTesttoolPath + "dbaccess/optional/input/spreadsheet_datasource/TT_Query1.ods"))
+ Oeffnen.click
+ sleep(5)
+
+ Kontext "DocumentCalc"
+ if (DocumentCalc.exists()) then
+ warnlog "the spreadsheet should not appear"
+ call hCloseDocument()
+ else
+ Kontext "MessageBox"
+ if(MessageBox.exists(1)) then
+ printlog "messagebox appear ->> OK"
+ MessageBox.OK
+ Kontext "DatabaseWizard"
+ DatabaseWizard.Cancel
+ else
+ warnlog "there should be a message box about the fact that this is no database"
+ Kontext "DatabaseWizard"
+ DatabaseWizard.Cancel
+ endif
+ endif
+
+endcase
+'-------------------------------------------------------------------------
+testcase tODBC
+qaerrorlog "not yet implemented"
+endcase
+'-------------------------------------------------------------------------
+testcase tEvolution
+
+ if gPlatgroup <> "lin" then
+ printlog "Evolution does only exists under linux."
+ goto endsub
+ end if
+
+ call fCreateEvolutionAddressbookDatasource(gOfficePath + "user/work/tt_evolution.odb")
+ call fOpendatabase(gOfficePath + "user/work/tt_evolution.odb")
+
+ Kontext "ContainerView"
+ ViewTables
+
+ call fCloseDatabase(true)
+
+endcase
+'-------------------------------------------------------------------------
+testcase tMozilla
+
+ if(gPlatform = "osx") then
+ qaerrorlog "Mozilla address book not supported under Mac."
+ else
+ if ( fCreateMozillaAddressbookDatasource(gOfficePath + "user/work/tt_mozilla.odb") = true) then
+ if ( fOpendatabase(gOfficePath + "user/work/tt_mozilla.odb") = true) then
+ Kontext "ContainerView"
+ ViewTables
+ else
+ warnlog "mozilla database could not be open."
+
+ endif
+ else
+ qaerrorlog "mozilla database could not be created. Maybe you have no mozilla installed."
+ Kontext "MessageBox"
+ if (MessageBox.exists(1)) then
+ MessageBox.OK
+ endif
+ endif
+ ' try to close the database
+ call fCloseDatabase(false)
+ endif
+
+endcase
+'-------------------------------------------------------------------------
+testcase tJDBC
+qaerrorlog "not yet implemented"
+endcase
+'-------------------------------------------------------------------------
+testcase tAdabas
+ qaerrorlog "not yet implemented"
+endcase
+'-------------------------------------------------------------------------
+testcase tdBase
+
+ call fCreateDbaseDatasource(gOfficePath + "user/work/tt_dbase.odb",gOfficePath + "user/work/")
+ call fOpendatabase(gOfficePath + "user/work/tt_dbase.odb")
+
+ Kontext "ContainerView"
+ ViewTables
+
+ call fCloseDatabase(true)
+
+endcase
+'-------------------------------------------------------------------------
+testcase tMySQLODBC
+qaerrorlog "not yet implemented"
+endcase
+'-------------------------------------------------------------------------
+testcase tMySQLJDBC
+qaerrorlog "not yet implemented"
+endcase
+'-------------------------------------------------------------------------
+testcase tSpreadsheet
+qaerrorlog "not yet implemented"
+endcase
+'-------------------------------------------------------------------------
+testcase tText
+
+ call fCreateTextDatasource(gOfficePath + "user/work/tt_text.odb",gOfficePath + "user/work/")
+ call fOpendatabase(gOfficePath + "user/work/tt_text.odb")
+
+ Kontext "ContainerView"
+ ViewTables
+
+ call fCloseDatabase(true)
+
+endcase
+'-------------------------------------------------------------------------
+testcase tOracleJDBC
+qaerrorlog "not yet implemented"
+endcase
+'-------------------------------------------------------------------------
+testcase tStartTableWizardFromWizard
+
+ printlog "start database wizard via FILE / NEW / DATABASE"
+ Kontext "DocumentWriter"
+ if (DocumentWriter.exists(1)) then
+ DocumentWriter.UseMenu
+ else
+ Kontext "DocumentBackground"
+ DocumentBackground.UseMenu
+ endif
+ hMenuSelectNr(1)
+ hMenuSelectNr(1)
+ hMenuSelectNr(5)
+
+ sleep(10)
+
+ Kontext "DatabaseWizard"
+ printlog "check create new database"
+ CreateNewDatabase.Check
+ sleep(1)
+ printlog "click next button"
+ NextBtn.Click
+ sleep(1)
+ printlog "check the 'Create Table with wizard' option"
+ StartTableWizard.check()
+ printlog "click finished button"
+ FinishBtn.Click
+ sleep(1)
+
+ Kontext "SpeichernDlg"
+ printlog "click save in the save as dialog"
+ if ( Dateiname.getSelText() = "" ) then
+ warnlog "#i58413# Default filename is missing"
+ Dim sFileName as String
+ sFileName = ConvertPath(gOfficePath + "user/work/TTDB1.odb")
+ if ( app.Dir( ConvertPath(sFileName) ) ) <> "" then
+ app.kill(ConvertPath(sFileName))
+ endif
+ Dateiname.setText(sFileName)
+ endif
+ Speichern.click
+ sleep(10)
+
+ Kontext "MessageBox"
+ if MessageBox.exists then
+ MessageBox.yes
+ end if
+
+ sleep(5)
+
+ Kontext "TableWizard"
+ printlog "check if the table wizard appear"
+ if( TableWizard.exists(10) ) then
+ printlog "the table wizard appear."
+ CancelBtn.click()
+ else
+ warnlog "the table wizard does not appear."
+ endif
+
+ Kontext "ContainerView"
+
+ ViewTables
+
+ sleep(1)
+
+ printlog "close the database"
+ call fCloseDatabase(true)
+
+endcase
+'-------------------------------------------------------------------------
generated by cgit v1.2.3 (git 2.39.1) at 2024-05-21 08:48:10 +0000