'encoding UTF-8 Do not remove or change this line!
'*************************************************************************
'
' Licensed to the Apache Software Foundation (ASF) under one
' or more contributor license agreements. See the NOTICE file
' distributed with this work for additional information
' regarding copyright ownership. The ASF licenses this file
' to you under the Apache License, Version 2.0 (the
' "License"); you may not use this file except in compliance
' with the License. You may obtain a copy of the License at
'
' http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing,
' software distributed under the License is distributed on an
' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
' KIND, either express or implied. See the License for the
' specific language governing permissions and limitations
' under the License.
'
'*************************************************************************
'*
'* short description : update and resouce test for all option pages (at tools/options)
'*
'\***********************************************************************
global sErrMes as String
global iSectionNumber as Integer
sub tToolsOptionsTest
' To prevent users from running just a subsection from this file, without THIS
' subroutine, in every subsection the value of 'iSectionNumber' is checked.
' The test will exit with warnlog, if iSectionNumber is 0
sErrMes = ""
select case uCase(gApplication)
case "WRITER","MASTERDOCUMENT","HTML" : iSectionNumber = 8
case "IMPRESS","DRAW","MATH","CALC" : iSectionNumber = 7
end select
' common testcases are placed in this library
' these tab-sets are always available:
Call tToolsOptionsStarOffice
Call tToolsOptionsLoadSave
Call tToolsOptionsLanguageSettings
Call tToolsOptionsDataSources
Call tToolsOptionsChart
Call tToolsOptionsInternet
Call tToolsOptionsImprovementProgram
end sub
'-------------------------------------------------------------------------
testcase tToolsOptionsStarOffice
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean, bSave as Boolean
dim iMenuShould as integer
'/// We have 12 tab pages in this category. If the central configuration feature is being used 13 (Single SignOn)
'/// Tools / Options / OpenOffice.org
PrintLog "- Tools/Options/StarOffice ( Extras/Optionen/StarOffice )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
if ( gApplication = "BACKGROUND" ) then
' Do not open any document
else
Call hNewDocument
endif
ToolsOptions
ToPosInOptionlist ( 1 )
Kontext "ExtrasOptionenDlg"
EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
iMenuShould = 14
if EchteAnzahl <> iMenuShould then
if ((gtplatform = "sol") OR (gtplatform = "x86") OR gOOO) AND EchteAnzahl = 12 then
printLog "One Tabpage is missing. This is ok for a patched Solaris (sparc and x86) or OOo installation."
else
Warnlog "The number of entries is not " + iMenuShould + "! => the current number is " + EchteAnzahl
endif
endif
Kontext "Active"
try
if Active.Exists then Active.OK
catch
if Active.Exists then Active.No
endcatch
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys ""
select case i
case 1 :
Kontext "TabAllgemeines"
'///+- User data
printlog " - Userdata / Benutzerdaten"
if TabAllgemeines.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAllgemeines )
endif
case 2 :
Kontext "TabSonstigesAllgemein"
'///+- General
printlog " - General / Allgemein"
if TabSonstigesAllgemein.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSonstigesAllgemein )
endif
case 3 :
Kontext "TabMemory"
'///+- Memory
printlog " - Memory / Arbeitsspeicher"
if TabMemory.IsVisible then
gefunden = TRUE
Call DialogTest ( TabMemory )
endif
case 4 :
Kontext "TabAnsichtAllgemein"
'///+- View
printlog " - View / Ansicht"
if TabAnsichtAllgemein.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAnsichtAllgemein )
endif
case 5 :
Kontext "TabPrintStarOffice"
'///+- Print
printlog " - Print / Drucken"
if TabPrintStarOffice.IsVisible then
gefunden = TRUE
Call DialogTest ( TabPrintStarOffice )
endif
case 6 :
Kontext "TabPfade"
'///+- Paths
'///+
- Click edit to all list entries and then close the file dialog
printlog " - Paths / Pfade"
if TabPfade.IsVisible then
gefunden = TRUE
Call DialogTest ( TabPfade )
Call DialogeFuerTypenKontrollieren
endif
case 7 :
Kontext "TabFarben"
'///+- Colors
'///+
- Click on Add
'///+- Click OK on message box
'///+- Click cancel> on Name dialog
'///+- Click on Edit
'///+- Click on Close in Colors dialog
printlog " - Color / Farben"
if ( TabFarben.exists( 4 ) ) then
if TabFarben.IsVisible then
gefunden = TRUE
Call DialogTest (TabFarben)
Farbe.Select(1)
Hinzufuegen.Click
Kontext "Active"
Active.OK
Kontext "NameDlg"
Call DialogTest (NameDlg)
NameDlg.Cancel
Kontext "TabFarben"
Bearbeiten.Click
WaitSlot( 3000 )
Kontext "FarbeDlg"
FarbeDlg.Cancel
endif
endif
case 8 :
Kontext "TabSchriftErsetzung"
'///+- Font replacement
printlog " - Font Replacement / Schriftersetzung"
if TabSchriftErsetzung.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSchriftErsetzung )
endif
case 9:
Kontext "TabSecurity"
'///+- Security
printlog " - Security / Sicherheit"
if TabSecurity.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSecurity )
MacroSecurity.click()
kontext "TabSecurityLevel"
if ( TabSecurityLevel.exists( 2 ) ) then
call DialogTest( TabSecurityLevel )
kontext
active.setpage TabTrustedSources
kontext "TabTrustedSources"
call DialogTest( TabTrustedSources )
TabTrustedSources.cancel
else
warnlog( "Macro Security Options dialog is missing" )
qaerrorlog( "#i45295# or office built without mozilla support" )
endif
Kontext "TabSecurity"
if ( TabSecurity.exists( 1 ) ) then
Options.click
Kontext "TabSecurityOptionsAndWarnings"
Call DialogTest(TabSecurityOptionsAndWarnings)
TabSecurityOptionsAndWarnings.cancel
else
warnlog( "Tabsecurity did not open" )
endif
endif
case 10:
Kontext "TabAppearance"
'///+- Appearance
printlog " - Appearance / Aussehen"
if TabAppearance.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAppearance )
endif
case 11:
Kontext "TabAccessibility"
'///+- Accessibility
printlog " - Accessibility"
if TabAccessibility.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAccessibility )
endif
case 12:
Kontext "TabJava"
'///+- Java
printlog " - Java"
if TabJava.IsVisible then
gefunden = TRUE
Call DialogTest ( TabJava )
endif
if useJava.isChecked then
Add.click
Kontext "OeffnenDlg"
if ( OeffnenDlg.exists( 1 ) ) then
OeffnenDlg.Cancel
else
warnlog( "OeffnenDlg is missing" )
endif
Kontext "TabJava"
Parameters.click
Kontext "JavaStartParameter"
Call DialogTest ( JavaStartParameter )
JavaStartParameter.cancel
Kontext "TabJava"
ClassPath.click
Kontext "JavaClassPath"
Call DialogTest ( JavaClassPath )
JavaClassPath.cancel
else
printlog "Use Java is disabled."
endif
case 13:
kontext "TabOnlineUpdate"
'///+Online update
printlog " - Online update"
if TabOnlineUpdate.isVisible then
gefunden = TRUE
Call DialogTest( TabOnlineUpdate )
endif
'CheckNow.click
case 14:
Kontext "TabOOoImprovement"
printlog( " - OpenOffice.org Improvement Program" )
if ( TabOOoImprovement.isVisible() ) then
gefunden = TRUE
Call DialogTest( TabOOoImprovement )
endif
end select
if ( NOT gefunden ) then
Warnlog "Error with the " & i & ".page, perhaps this page has been deleted or changed its position"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 13 then
i=10
else
i=1-1
endif
endif
next i
'/// Close the options dialog
Kontext "OptionenDlg"
if ( OptionenDlg.exists( 1 ) ) then
OptionenDlg.Cancel
else
warnlog( "Options Dialog not ready" )
endif
'/// Close the document
if ( gApplication = "BACKGROUND" ) then
' We should be on the backing window
else
Call hCloseDocument()
endif
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsLoadSave
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/Load Save ( Extras/Optionen/Laden Speichern )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
if gApplication <> "BACKGROUND" then Call hNewDocument
'/// Tools / Options / Load/Save
ToolsOptions
ToPosInOptionlist (2)
EchteAnzahl = OptionTabPageZaehler (4, FALSE)
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys ""
select case i
case 1 :
Kontext "TabSpeichern"
'///+- General
printlog " - General / Save"
if TabSpeichern.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSpeichern )
endif
case 2 :
Kontext "TabMicrosoftOffice97"
'///+- VBA settings
printlog " - VBA Settings / VBA Eigenschaften"
if TabMicrosoftOffice97.IsVisible then
gefunden = TRUE
Call DialogTest ( TabMicrosoftOffice97 )
endif
case 3 :
Kontext "TabMicrosoftOffice2"
'///+- Microsoft Office
printlog " - Microsoft Office"
if TabMicrosoftOffice2.IsVisible then
gefunden = TRUE
Call DialogTest ( TabMicrosoftOffice2 )
endif
case 4 :
Kontext "TabHTML"
'///+- HTML Compatibility
printlog " - HTML Compatibility / HTML Kompatibilitaet"
if TabHTML.IsVisible then
gefunden = TRUE
Call DialogTest ( TabHTML )
endif
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 5 then
i=11
else
i=1-1
endif
endif
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
endif
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsLanguageSettings
dim EchteAnzahl as Integer, i as Integer, j as Integer
dim gefunden as Boolean
dim bAsianSup as Boolean
PrintLog "- Tools/Options/Language Settings ( Extras/Optionen/Spracheinstellungen )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
if gApplication <> "BACKGROUND" then Call hNewDocument
'/// Tools / Options / Language settings
ToolsOptions
ToPosInOptionlist ( 3 )
EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
'/// We only have two tab pages in this section:
'///+ - Languages and Writing Aids
'///+- In asian languages we have two additional tab pages:
'///+
- Japanese Find and Asian Layout
'///+- In languages with CTL (Complex Text Layout) there is also one more:
'///+
select case (EchteAnzahl)
case 2:
printlog "Asian or Complex Text Layout support is not activated (on languages-page)!"
case 3:
printlog "Complex Text Layout support is activated (on languages-page)!"
case 4:
printlog "Asian support is activated (on languages-page)!"
case 5:
if (gAsianSup AND gCTLSup) then
printlog "Asian and Complex Text Layout support is activated (on languages-page)!"
else
Warnlog "There are more than 4 pages!"
endif
case else
Warnlog "There are more than 5 pages!"
end select
Kontext "Active"
try
if Active.Exists then Active.OK
catch
if Active.Exists then Active.No
endcatch
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys ""
select case i
case 1 :
Kontext "TabSprachen"
'Languages
printlog " - Languages / Sprachen"
if TabSprachen.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSprachen )
endif
case 2 :
Kontext "TabLinguistik"
printlog " - Writing Aids / Linguistik"
if TabLinguistik.IsVisible then
gefunden = TRUE
Call DialogTest ( TabLinguistik )
'/// In Writing aids
'///+- On modules click edit
SprachmoduleBearbeiten.Click
Kontext "ModuleBearbeiten"
Call DialogTest ( ModuleBearbeiten )
ModuleBearbeiten.Close
'///+- close dialog
Kontext "TabLinguistik"
'///+- On dictionaries click new
'///+- close dialog
Neu.Click
Kontext "BenutzerwoerterbuchAnlegen"
Call DialogTest ( BenutzerwoerterbuchAnlegen )
BenutzerwoerterbuchAnlegen.Cancel
'///+- On dictionaries click edit
'///+- close dialog
Kontext "TabLinguistik"
for j=1 to 5
if Bearbeiten.IsEnabled then
Bearbeiten.Click
j=6
else
Benutzerwoerterbuch.TypeKeys ""
endif
next j
Kontext "BenutzerwoerterbuchBearbeiten"
if BenutzerwoerterbuchBearbeiten.Exists then
Call DialogTest ( BenutzerwoerterbuchBearbeiten )
BenutzerwoerterbuchBearbeiten.Close
else
warnlog "Edit the 'user-defined dictionary' is not possible => Bug?"
endif
'/// Options
'///+- On 9th, 10th and 11th entry click edit
'///+- close dialog
Kontext "TabLinguistik"
Optionen.TypeKeys "", 3
WaitSlot() ' similar effect as a NOOP
Optionen.TypeKeys "", 6
WaitSlot() ' similar effect as a NOOP
OptionenBearbeiten.Click
Kontext "HyphenationOptions"
Call DialogTest ( HyphenationOptions )
HyphenationOptions.Cancel
Kontext "TabLinguistik"
Optionen.TypeKeys ""
OptionenBearbeiten.Click
Kontext "HyphenationOptions"
Call DialogTest ( HyphenationOptions )
HyphenationOptions.Cancel
Kontext "TabLinguistik"
Optionen.TypeKeys ""
OptionenBearbeiten.Click
Kontext "HyphenationOptions"
Call DialogTest ( HyphenationOptions )
HyphenationOptions.Cancel
endif
case 3,5 :
try
Kontext "TabJapaneseFind"
'Japanese find
if TabJapaneseFind.IsVisible then
printlog " - Japanese Find / Japanische Suche"
gefunden = TRUE
Call DialogTest ( TabJapaneseFind )
endif
catch
endcatch
try
Kontext "TabComplexTextLayout"
'Complex Text Layout
if TabComplexTextLayout.IsVisible then
printlog " - Complex Text Layout"
gefunden = TRUE
Call DialogTest ( TabComplexTextLayout )
endif
catch
endcatch
case 4 :
Kontext "TabAsianLayoutOptions"
'Asian layout
printlog " - Asian Layout / Asiatisches Layout"
if TabAsianLayoutOptions.IsVisible then
gefunden = TRUE
Call DialogTest ( TabAsianLayoutOptions )
endif
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 5 then
i=5
else
i=1-1
endif
endif
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
endif
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsInternet
dim EchteAnzahl as Integer, i as Integer
dim gefunden as Boolean
PrintLog "- Tools/Options/Internet ( Extras/Optionen/Internet )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
if gApplication <> "BACKGROUND" then Call hNewDocument
'/// Tools / Options / Internet
ToolsOptions
'/// (The last section in Tools / Options is Internet)
ToPosInOptionlist ( iSectionNumber)
if gPlatgroup = "w95" OR gPlatform = lcase("osx") then
'/// On MacOS X systems this section includes the tab pages:
'///+- Proxy
'///+- Search
'///+- E-Mai
'/// On Win32 systems this section includes the tab pages:
'///+- Proxy
'///+- Search
'///+- Mozilla Plugin
EchteAnzahl = OptionTabPageZaehler ( 3 , TRUE )
if (EchteAnzahl > 3) then
qaErrorLog ("Due to some installed extensions the tabpage count is not 3 it is: " + EchteAnzahl)
else
if (EchteAnzahl < 3) then
warnlog "Number of tabpages old : 3 new : " + EchteAnzahl
endif
endif
else
'/// On Unix systems this section includes four tab pages.
'///+- Proxy
'///+- Search
'///+- E-Mail
'///+- Mozilla Plugin
EchteAnzahl = OptionTabPageZaehler ( 4 , TRUE )
if (EchteAnzahl > 4) then
qaErrorLog ("Due to some installed extensions the tabpage count is not 3 it is: " + EchteAnzahl)
else
if (EchteAnzahl < 4) then
warnlog "Number of tabpages old : 3 new : " + EchteAnzahl
endif
endif
endif
for i=1 to EchteAnzahl
gefunden = FALSE
Kontext "OptionenDlg"
Optionsliste.TypeKeys ""
select case i
case 1 :
Kontext "TabProxyServer"
'Proxy
printlog " - Proxy / Proxy"
if TabProxyServer.IsVisible then
gefunden = TRUE
Call DialogTest ( TabProxyServer )
endif
case 2 :
Kontext "Active"
'Search
printlog " - Search / Suche"
if Active.Exists then
sErrMes = Active.GetText
Warnlog "A messagebox exists => BUG : " + sErrMes
Active.OK
endif
Kontext "TabSuche"
if TabSuche.IsVisible then
gefunden = TRUE
Call DialogTest ( TabSuche )
endif
case 3 :
if gPlatgroup = "unx" then
Kontext "TabEmail"
'E-mail
printlog " - E-mail"
if TabEmail.IsVisible then
gefunden = TRUE
Call DialogTest ( TabEmail )
endif
endif
if gPlatgroup = "w95" then
Kontext "TabMozillaPlugin"
'Mozilla Plug-in (On Win32)
printlog " - Mozilla Plug-in"
if TabMozillaPlugin.IsVisible then
gefunden = TRUE
Call DialogTest ( TabMozillaPlugin )
endif
endif
case 4 :
if gPlatgroup = "w95" then
warnlog "On Win32 platform there should be only 3 tab pages in section 'Internet'!?"
else
Kontext "TabMozillaPlugin"
printlog " - Mozilla Plug-in"
if TabMozillaPlugin.IsVisible then
gefunden = TRUE
Call DialogTest ( TabMozillaPlugin )
endif
endif
case 5,6 : Kontext "TabMediaWiki"
if TabMediaWiki.exists then
qaerrorlog " - Wiki Publisher"
Call DialogTest ( TabMediaWiki )
gefunden = TRUE
endif
Kontext "TabWeblog"
if TabWeblog.exists then
qaerrorlog " - Weblog Publisher"
Call DialogTest ( TabWeblog )
gefunden = TRUE
endif
end select
if gefunden=FALSE then
Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
EchteAnzahl = EchteAnzahl - 1
if EchteAnzahl < 4 then
i=11
else
i=1-1
endif
endif
next i
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
'/// Close document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
endif
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsImprovementProgram
printlog( "Update test for the tools/options dialog of the OOo Improvement Program" )
if (gOOO AND NOT gOOoImprovementIsEnabled) then
'In StarOffice this test should always work - but on OOo contributet builds the function is not available - only on OOo builds provided by Sun Microsystems
qaErrorlog ("This build does not participate in the OOo Improvement Program - test exit")
goto endsub
endif
dim cLogFile as string
cLogFile = gOfficePath & "user\temp\feedback\Current.csv"
cLogFile = convertpath( cLogFile )
dim bImportDialogHasBeenDisplayed as boolean : bImportDialogHasBeenDisplayed = false
if ( hDeleteFile( cLogFile ) ) then
printlog( "Test environment is clean, no logfile present (anymore)" )
ToolsOptions
hToolsOptions( "StarOffice", "Improvement" )
printlog( "Improvement Program tabpage" )
call DialogTest( TabOOoImprovement )
ParticipateNo.check()
ParticipateYes.check()
if ( ShowData.isEnabled() ) then
ShowData.click()
' Two different IDs for practically the same dialog: FilterAuswahl and TextImport.
' It depends on the application which one comes up. We just handle them both.
Kontext "FilterAuswahl"
if ( FilterAuswahl.exists( 1 ) ) then
printlog( "FilterAuswahl present" )
call DialogTest( FilterAuswahl )
FilterAuswahl.cancel()
bImportDialogHasBeenDisplayed = true
endif
kontext "TextImport"
if ( TextImport.exists() ) then
printlog( "Text Import dialog present" )
call DialogTest( TextImport )
TextImport.cancel()
bImportDialogHasBeenDisplayed = true
endif
else
printlog( "Show data is disabled" )
endif
' Weird messages may appear in any order. We warn about anything
Kontext "Active"
if ( Active.exists( 1 ) ) then
printlog( "Messagebox: " & Active.getText() )
Active.ok()
else
if ( NOT bImportDialogHasBeenDisplayed ) then
warnlog( "#i116461# Show Data button enabled but no logged data found" )
endif
endif
Kontext "Active"
if ( Active.exists( 1 ) ) then
warnlog( "#97342# Second message for missing " & cLogFile )
Active.ok()
endif
Kontext "OptionenDlg"
if OptionenDlg.Exists then
OptionenDlg.cancel()
endif
if GetDocumentCount = 1 then
Call hCloseDocument
endif
else
' hDeleteFile() returns FALSE if the file is still present for some weird reason
' We should warn about this because the test breaks at a later point then.
warnlog( "Logfile present, it could not be deleted. Please check path and accessrights" )
printlog( "Path: " & cLogFile )
endif
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsChart
Dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Chart ( Extras/Optionen/Diagramme )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// Tools / Options / Chart
ToolsOptions
ToPosInOptionlist ( iSectionNumber -1 )
EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
Kontext "OptionenDlg"
Optionsliste.TypeKeys ""
'/// Default colors
printlog " - Default Colors / Grundfarben"
Kontext "TabGrundfarben"
Call DialogTest ( TabGrundfarben )
'/// Close the options dialog
Kontext "OptionenDlg"
OptionenDlg.Cancel
if gApplication <> "BACKGROUND" then
'/// Close bthe document
Call hCloseDocument
end if
endcase
'-------------------------------------------------------------------------
testcase tToolsOptionsDataSources
qaerrorlog "#i104508# crashes on quit or reload if this is run."
goto endsub
Dim EchteAnzahl as Integer, i as Integer
PrintLog "- Tools/Options/Data Sources ( Extras/Optionen/Datenbank )"
if (0 = iSectionNumber) then
warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
goto endsub
endif
'/// Create a new document
if gApplication <> "BACKGROUND" then
Call hNewDocument
end if
'/// Tools / Options / Data source
ToolsOptions
ToPosInOptionlist ( iSectionNumber -2)
EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
Kontext "OptionenDlg"
Optionsliste.TypeKeys ""
printlog " - Connections / Verbindungen"
Kontext "TabConnections"
'/// Connections
Call DialogTest ( TabConnections )
Kontext "OptionenDlg"
Optionsliste.TypeKeys ""
printlog " - Databases / Datenbanken"
Kontext "TabRegisteredDatabase"
'/// Databases
Call DialogTest ( TabRegisteredDatabase )
NewBtn.click
Kontext "CreateDatabaseLink"
call DialogTest( CreateDatabaseLink )
Browse.click
Kontext "OeffnenDlg"
OeffnenDlg.cancel
Kontext "CreateDatabaseLink"
CreateDatabaseLink.cancel
Kontext "OptionenDlg"
'/// Close the options dialog
OptionenDlg.Cancel
'/// Close the document
if gApplication <> "BACKGROUND" then
Call hCloseDocument
end if
endcase