office-gobmx/testautomation/global/required/includes/g_option.inc

'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 : thorsten.bosbach@oracle.com
'*
'* 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 <i>central configuration</i> feature is being used 13 (<i>Single SignOn</i>)
    '/// <i>Tools</i> / <i>Options</i> / <i>OpenOffice.org</i>
    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 "<Down>"
        select case i
        case 1 :
            Kontext "TabAllgemeines"
            '///+<ul><li>User data</li>
            printlog "  - Userdata / Benutzerdaten"
            if TabAllgemeines.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabAllgemeines )
            endif
        case 2 :
            Kontext "TabSonstigesAllgemein"
            '///+<li>General</li>
            printlog "  - General / Allgemein"
            if TabSonstigesAllgemein.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabSonstigesAllgemein )
            endif
        case 3 :
            Kontext "TabMemory"
            '///+<li>Memory</li>
            printlog "  - Memory / Arbeitsspeicher"
            if TabMemory.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabMemory )
            endif
        case 4 :
            Kontext "TabAnsichtAllgemein"
            '///+<li>View</li>
            printlog "  - View / Ansicht"
            if TabAnsichtAllgemein.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabAnsichtAllgemein )
            endif
        case 5 :
            Kontext "TabPrintStarOffice"
            '///+<li>Print</li>
            printlog "  - Print / Drucken"
            if TabPrintStarOffice.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabPrintStarOffice )
            endif
        case 6 :
            Kontext "TabPfade"
            '///+<li>Paths
            '///+ <ul><li>Click <i>edit</i> to all list entries and then close the file dialog</li></ul></li>
            printlog "  - Paths / Pfade"
            if TabPfade.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabPfade )
                Call DialogeFuerTypenKontrollieren
            endif
        case 7 :
            Kontext "TabFarben"
            '///+<li>Colors
            '///+<ul><li>Click on <i>Add</i></li>
            '///+<li>Click <i>OK</i> on message box</li>
            '///+<li>Click <i>cancel> on <i>Name</i> dialog</li>
            '///+<li>Click on <i>Edit</i></li>
            '///+<li>Click on <i>Close</i> in <i>Colors</i> dialog</li></ul></li>
            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"
            '///+<li>Font replacement</li>
            printlog "  - Font Replacement / Schriftersetzung"
            if TabSchriftErsetzung.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabSchriftErsetzung )
            endif
        case 9:
            Kontext "TabSecurity"
            '///+<li>Security</li>
            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"
            '///+<li>Appearance</li>
            printlog "  - Appearance / Aussehen"
            if TabAppearance.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabAppearance )
            endif
        case 11:
            Kontext "TabAccessibility"
            '///+<li>Accessibility</li>
            printlog "  - Accessibility"
            if TabAccessibility.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabAccessibility )
            endif
        case 12:
            Kontext "TabJava"
            '///+<li>Java</li></ul>
            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"
            '///+<li>Online update</li>
            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
    '/// <i>Tools</i> / <i>Options</i> / <i>Load/Save</i>
    ToolsOptions
    ToPosInOptionlist (2)
    EchteAnzahl = OptionTabPageZaehler (4, FALSE)
    for i=1 to EchteAnzahl
        gefunden = FALSE
        Kontext "OptionenDlg"
        Optionsliste.TypeKeys "<Down>"
        select case i
        case 1 :
            Kontext "TabSpeichern"
            '///+<ul><li>General</li>
            printlog "  - General / Save"
            if TabSpeichern.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabSpeichern )
            endif
        case 2 :
            Kontext "TabMicrosoftOffice97"
            '///+<li>VBA settings</li>
            printlog "  - VBA Settings / VBA Eigenschaften"
            if TabMicrosoftOffice97.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabMicrosoftOffice97 )
            endif
        case 3 :
            Kontext "TabMicrosoftOffice2"
            '///+<li>Microsoft Office</li>
            printlog "  - Microsoft Office"
            if TabMicrosoftOffice2.IsVisible then
                gefunden = TRUE
                Call DialogTest ( TabMicrosoftOffice2 )
            endif
        case 4 :
            Kontext "TabHTML"
            '///+<li>HTML Compatibility</li></ul>
            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
    '/// <i>Tools</i> / <i>Options</i> / <i>Language settings</i>
    ToolsOptions
    ToPosInOptionlist ( 3 )
    EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
    '/// We only have two tab pages in this section:
    '///+ <ul><li><i>Languages</i> and <i>Writing Aids</i></li>
    '///+<ol><li>In asian languages we have two additional tab pages:
    '///+ <ul><li><i>Japanese Find</i> and <i>Asian Layout</i></li></ul></li>
    '///+<li>In languages with CTL (<i>Complex Text Layout</i>) there is also one more:
    '///+<ul><li><i>Complex Text Layout</i></li></ul></li></ol></li></ul>
    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 "<Down>"
        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 <i>Writing aids</i>
                '///+<ul><li> On <i>modules<i> click <i>edit</i></li>
                SprachmoduleBearbeiten.Click
                Kontext "ModuleBearbeiten"
                Call DialogTest ( ModuleBearbeiten )
                ModuleBearbeiten.Close
                '///+<li> close dialog</li></ul>
                Kontext "TabLinguistik"
                '///+<ul><li>On <i>dictionaries</i> click <i>new</i></li>
                '///+<li>close dialog</li></ul>
                Neu.Click
                Kontext "BenutzerwoerterbuchAnlegen"
                Call DialogTest ( BenutzerwoerterbuchAnlegen )
                BenutzerwoerterbuchAnlegen.Cancel

                '///+<ul><li>On <i>dictionaries</i> click <i>edit</i></li>
                '///+<li>close dialog</li></ul>
                Kontext "TabLinguistik"
                for j=1 to 5
                    if Bearbeiten.IsEnabled then
                        Bearbeiten.Click
                        j=6
                    else
                        Benutzerwoerterbuch.TypeKeys "<Down>"
                    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
                '/// <i>Options</i>
                '///+<ul><li>On 9th, 10th and 11th entry click <i>edit</i></li>
                '///+<li>close dialog</li></ul>
                Kontext "TabLinguistik"
                Optionen.TypeKeys "<PageUp>", 3
                WaitSlot() ' similar effect as a NOOP
                Optionen.TypeKeys "<Down>", 6
                WaitSlot() ' similar effect as a NOOP
                OptionenBearbeiten.Click
                Kontext "HyphenationOptions"
                Call DialogTest ( HyphenationOptions )
                HyphenationOptions.Cancel
                Kontext "TabLinguistik"
                Optionen.TypeKeys "<Down>"
                OptionenBearbeiten.Click
                Kontext "HyphenationOptions"
                Call DialogTest ( HyphenationOptions )
                HyphenationOptions.Cancel
                Kontext "TabLinguistik"
                Optionen.TypeKeys "<Down>"
                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
    '/// <i>Tools</i> / <i>Options</i> / <i>Internet</i>
    ToolsOptions
    '/// (The last section in Tools / Options is <i>Internet</i>)
    ToPosInOptionlist ( iSectionNumber)

    if gPlatgroup = "w95" OR gPlatform = lcase("osx") then
        '/// On MacOS X systems this section includes the tab pages:
        '///+<ol><li>Proxy</li>
        '///+<li>Search</li>
        '///+<li>E-Mai</li></ol>
        '/// On Win32 systems this section includes the tab pages:
        '///+<ol><li>Proxy</li>
        '///+<li>Search</li>
        '///+<li>Mozilla Plugin</li></ol>
        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.
        '///+<ol><li>Proxy</li>
        '///+<li>Search</li>
        '///+<li>E-Mail</li>
        '///+<li>Mozilla Plugin</li></ol>
        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 "<Down>"

        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
                qaerrorlog( "#i97340# 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"
        OptionenDlg.cancel()
        
    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
'/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>    
    ToolsOptions
    ToPosInOptionlist ( iSectionNumber -1 )
    EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
    Kontext "OptionenDlg"
    Optionsliste.TypeKeys "<Down>"
'/// 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
    '/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
    ToolsOptions
    ToPosInOptionlist ( iSectionNumber -2)
    EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
    Kontext "OptionenDlg"
    Optionsliste.TypeKeys "<Down>"
    printlog "  - Connections / Verbindungen"
    Kontext "TabConnections"
    '/// Connections
    Call DialogTest ( TabConnections )
    Kontext "OptionenDlg"
    Optionsliste.TypeKeys "<Down>"
    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