testautomation/global/required/includes/g_option.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: g_option.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-07-31 19:25:49 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : thorsten.bosbach@sun.com
  35 '*
  36 '* short description : update and resouce test for all option pages (at tools/options)
  37 '*
  38 '\***********************************************************************
  39
  40 global sErrMes as String
  41 global iSectionNumber as Integer
  42
  43 sub tToolsOptionsTest
  44     ' To prevent users from running just a subsection from this file, without THIS
  45     ' subroutine, in every subsection the value of 'iSectionNumber' is checked.
  46     ' The test will exit with warnlog, if iSectionNumber is 0
  47     sErrMes = ""
  48     select case uCase(gApplication)
  49        case "WRITER","MASTERDOCUMENT","HTML"   : iSectionNumber = 8
  50        case "IMPRESS","DRAW","MATH","CALC"     : iSectionNumber = 7
  51     end select
  52     ' common testcases are placed in this library
  53     ' these tab-sets are always available:
  54     Call tToolsOptionsStarOffice
  55     Call tToolsOptionsLoadSave
  56     Call tToolsOptionsLanguageSettings
  57     Call tToolsOptionsDataSources
  58     Call tToolsOptionsChart
  59     Call tToolsOptionsInternet
  60     Call tToolsOptionsImprovementProgram
  61 end sub
  62
  63 '-------------------------------------------------------------------------
  64
  65 testcase tToolsOptionsStarOffice
  66
  67     dim EchteAnzahl as Integer, i as Integer
  68     dim gefunden as Boolean, bSave as Boolean
  69     dim iMenuShould as integer
  70     '/// We have 12 tab pages in this category. If the <i>central configuration</i> feature is being used 13 (<i>Single SignOn</i>)
  71     '/// <i>Tools</i> / <i>Options</i> / <i>OpenOffice.org</i>
  72     PrintLog "- Tools/Options/StarOffice  ( Extras/Optionen/StarOffice )"
  73     if (0 = iSectionNumber) then
  74         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
  75         goto endsub
  76     endif
  77
  78     if ( gApplication = "BACKGROUND" ) then
  79         ' Do not open any document
  80     else
  81         Call hNewDocument
  82     endif
  83
  84     ToolsOptions
  85     ToPosInOptionlist ( 1 )
  86     Kontext "ExtrasOptionenDlg"
  87     EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
  88     iMenuShould = 14
  89
  90     if EchteAnzahl <> iMenuShould then
  91         if ((gtplatform = "sol") OR (gtplatform = "x86") OR gOOO) AND EchteAnzahl = 12 then
  92             printLog "One Tabpage is missing. This is ok for a patched Solaris (sparc and x86) or OOo installation."
  93         else
  94             Warnlog "The number of entries is not " + iMenuShould + "! => the current number is " + EchteAnzahl
  95         endif
  96     endif
  97
  98     Kontext "Active"
  99     try
 100         if Active.Exists then Active.OK
 101     catch
 102         if Active.Exists then Active.No
 103     endcatch
 104
 105     for i=1 to EchteAnzahl
 106         gefunden = FALSE
 107         Kontext "OptionenDlg"
 108         Optionsliste.TypeKeys "<Down>"
 109         select case i
 110         case 1 :
 111             Kontext "TabAllgemeines"
 112             '///+<ul><li>User data</li>
 113             printlog "  - Userdata / Benutzerdaten"
 114             if TabAllgemeines.IsVisible then
 115                 gefunden = TRUE
 116                 Call DialogTest ( TabAllgemeines )
 117             endif
 118         case 2 :
 119             Kontext "TabSonstigesAllgemein"
 120             '///+<li>General</li>
 121             printlog "  - General / Allgemein"
 122             if TabSonstigesAllgemein.IsVisible then
 123                 gefunden = TRUE
 124                 Call DialogTest ( TabSonstigesAllgemein )
 125             endif
 126         case 3 :
 127             Kontext "TabMemory"
 128             '///+<li>Memory</li>
 129             printlog "  - Memory / Arbeitsspeicher"
 130             if TabMemory.IsVisible then
 131                 gefunden = TRUE
 132                 Call DialogTest ( TabMemory )
 133             endif
 134         case 4 :
 135             Kontext "TabAnsichtAllgemein"
 136             '///+<li>View</li>
 137             printlog "  - View / Ansicht"
 138             if TabAnsichtAllgemein.IsVisible then
 139                 gefunden = TRUE
 140                 Call DialogTest ( TabAnsichtAllgemein )
 141             endif
 142         case 5 :
 143             Kontext "TabPrintStarOffice"
 144             '///+<li>Print</li>
 145             printlog "  - Print / Drucken"
 146             if TabPrintStarOffice.IsVisible then
 147                 gefunden = TRUE
 148                 Call DialogTest ( TabPrintStarOffice )
 149             endif
 150         case 6 :
 151             Kontext "TabPfade"
 152             '///+<li>Paths
 153             '///+ <ul><li>Click <i>edit</i> to all list entries and then close the file dialog</li></ul></li>
 154             printlog "  - Paths / Pfade"
 155             if TabPfade.IsVisible then
 156                 gefunden = TRUE
 157                 Call DialogTest ( TabPfade )
 158                 Call DialogeFuerTypenKontrollieren
 159             endif
 160         case 7 :
 161             Kontext "TabFarben"
 162             '///+<li>Colors
 163             '///+<ul><li>Click on <i>Add</i></li>
 164             '///+<li>Click <i>OK</i> on message box</li>
 165             '///+<li>Click <i>cancel> on <i>Name</i> dialog</li>
 166             '///+<li>Click on <i>Edit</i></li>
 167             '///+<li>Click on <i>Close</i> in <i>Colors</i> dialog</li></ul></li>
 168             printlog "  - Color / Farben"
 169             if ( TabFarben.exists( 4 ) ) then
 170                 if TabFarben.IsVisible then
 171                     gefunden = TRUE
 172                     Call DialogTest (TabFarben)
 173                     Farbe.Select(1)
 174                     Hinzufuegen.Click
 175                     Kontext "Active"
 176                     Active.OK
 177                     Kontext "NameDlg"
 178                     Call DialogTest (NameDlg)
 179                     NameDlg.Cancel
 180                     Kontext "TabFarben"
 181                     Bearbeiten.Click
 182                     WaitSlot( 3000 )
 183                     Kontext "FarbeDlg"
 184                     FarbeDlg.Cancel
 185                 endif
 186             endif
 187         case 8 :
 188             Kontext "TabSchriftErsetzung"
 189             '///+<li>Font replacement</li>
 190             printlog "  - Font Replacement / Schriftersetzung"
 191             if TabSchriftErsetzung.IsVisible then
 192                 gefunden = TRUE
 193                 Call DialogTest ( TabSchriftErsetzung )
 194             endif
 195         case 9:
 196             Kontext "TabSecurity"
 197             '///+<li>Security</li>
 198             printlog "  - Security / Sicherheit"
 199             if TabSecurity.IsVisible then
 200                 gefunden = TRUE
 201                 Call DialogTest ( TabSecurity )
 202                 MacroSecurity.click()
 203
 204                 kontext "TabSecurityLevel"
 205                 if ( TabSecurityLevel.exists( 2 ) ) then
 206                     call DialogTest( TabSecurityLevel )
 207                     kontext
 208                     active.setpage TabTrustedSources
 209                     kontext "TabTrustedSources"
 210                     call DialogTest( TabTrustedSources )
 211                     TabTrustedSources.cancel
 212                 else
 213                     warnlog( "Macro Security Options dialog is missing" )
 214                     qaerrorlog( "#i45295# or office built without mozilla support" )
 215                 endif
 216
 217                 Kontext "TabSecurity"
 218                 if Protect.isEnabled then
 219                     Protect.click()
 220                     Kontext "PasswordDLG"
 221                     call DialogTest( PasswordDLG )
 222                     PasswordDLG.cancel()
 223                 else
 224                     select case uCase(gApplication)
 225                     case "WRITER","MASTERDOCUMENT"
 226                         WarnLog "Protect-Button is disabled."
 227                     case "MATH","IMPRESS","DRAW","HTML","CALC"
 228                         PrintLog "Protect-Button is disabled."
 229                     end select
 230                 endif
 231
 232                 Kontext "TabSecurity"
 233                 if ( TabSecurity.exists( 1 ) ) then
 234                     Options.click
 235                     Kontext "TabSecurityOptionsAndWarnings"
 236                     Call DialogTest(TabSecurityOptionsAndWarnings)
 237                     TabSecurityOptionsAndWarnings.cancel
 238                 else
 239                     warnlog( "Tabsecurity did not open" )
 240                 endif
 241
 242             endif
 243         case 10:
 244             Kontext "TabAppearance"
 245             '///+<li>Appearance</li>
 246             printlog "  - Appearance / Aussehen"
 247             if TabAppearance.IsVisible then
 248                 gefunden = TRUE
 249                 Call DialogTest ( TabAppearance )
 250             endif
 251         case 11:
 252             Kontext "TabAccessibility"
 253             '///+<li>Accessibility</li>
 254             printlog "  - Accessibility"
 255             if TabAccessibility.IsVisible then
 256                 gefunden = TRUE
 257                 Call DialogTest ( TabAccessibility )
 258             endif
 259         case 12:
 260             Kontext "TabJava"
 261             '///+<li>Java</li></ul>
 262             printlog "  - Java"
 263             if TabJava.IsVisible then
 264                 gefunden = TRUE
 265                 Call DialogTest ( TabJava )
 266             endif
 267             if useJava.isChecked then
 268                 Add.click
 269                 Kontext "OeffnenDlg"
 270                 if ( OeffnenDlg.exists( 1 ) ) then
 271                     OeffnenDlg.Cancel
 272                 else
 273                     warnlog( "OeffnenDlg is missing" )
 274                 endif
 275                 Kontext "TabJava"
 276                 Parameters.click
 277                 Kontext "JavaStartParameter"
 278                 Call DialogTest ( JavaStartParameter )
 279                 JavaStartParameter.cancel
 280                 Kontext "TabJava"
 281                 ClassPath.click
 282                 Kontext "JavaClassPath"
 283                 Call DialogTest ( JavaClassPath )
 284                 JavaClassPath.cancel
 285             else
 286                 printlog "Use Java is disabled."
 287             endif
 288         case 13:
 289             kontext "TabOnlineUpdate"
 290             '///+<li>Online update</li>
 291             printlog "  - Online update"
 292             if TabOnlineUpdate.isVisible then
 293                 gefunden = TRUE
 294                 Call DialogTest( TabOnlineUpdate )
 295             endif
 296             'CheckNow.click
 297         case 14:
 298             Kontext "TabOOoImprovement"
 299             printlog( "  - OpenOffice.org Improvement Program" )
 300             if ( TabOOoImprovement.isVisible() ) then
 301                 gefunden = TRUE
 302                 Call DialogTest( TabOOoImprovement )
 303             endif
 304         end select
 305         if ( NOT gefunden ) then
 306             Warnlog "Error with the " & i & ".page, perhaps this page has been deleted or changed its position"
 307             EchteAnzahl = EchteAnzahl - 1
 308             if EchteAnzahl < 13 then
 309                 i=10
 310             else
 311                 i=1-1
 312             endif
 313         endif
 314     next i
 315     '/// Close the options dialog
 316     Kontext "OptionenDlg"
 317     if ( OptionenDlg.exists( 1 ) ) then
 318         OptionenDlg.Cancel
 319     else
 320         warnlog( "Options Dialog not ready" )
 321     endif
 322     '/// Close the document
 323     if ( gApplication = "BACKGROUND" ) then
 324         ' We should be on the backing window
 325     else
 326         Call hCloseDocument()
 327     endif
 328
 329 endcase
 330
 331 '-------------------------------------------------------------------------
 332
 333 testcase tToolsOptionsLoadSave
 334
 335     dim EchteAnzahl as Integer, i as Integer
 336     dim gefunden as Boolean
 337     PrintLog "- Tools/Options/Load Save  ( Extras/Optionen/Laden Speichern )"
 338     if (0 = iSectionNumber) then
 339         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 340         goto endsub
 341     endif
 342     if gApplication <> "BACKGROUND" then Call hNewDocument
 343     '/// <i>Tools</i> / <i>Options</i> / <i>Load/Save</i>
 344     ToolsOptions
 345     ToPosInOptionlist (2)
 346     EchteAnzahl = OptionTabPageZaehler (4, FALSE)
 347     for i=1 to EchteAnzahl
 348         gefunden = FALSE
 349         Kontext "OptionenDlg"
 350         Optionsliste.TypeKeys "<Down>"
 351         select case i
 352         case 1 :
 353             Kontext "TabSpeichern"
 354             '///+<ul><li>General</li>
 355             printlog "  - General / Save"
 356             if TabSpeichern.IsVisible then
 357                 gefunden = TRUE
 358                 Call DialogTest ( TabSpeichern )
 359             endif
 360         case 2 :
 361             Kontext "TabMicrosoftOffice97"
 362             '///+<li>VBA settings</li>
 363             printlog "  - VBA Settings / VBA Eigenschaften"
 364             if TabMicrosoftOffice97.IsVisible then
 365                 gefunden = TRUE
 366                 Call DialogTest ( TabMicrosoftOffice97 )
 367             endif
 368         case 3 :
 369             Kontext "TabMicrosoftOffice2"
 370             '///+<li>Microsoft Office</li>
 371             printlog "  - Microsoft Office"
 372             if TabMicrosoftOffice2.IsVisible then
 373                 gefunden = TRUE
 374                 Call DialogTest ( TabMicrosoftOffice2 )
 375             endif
 376         case 4 :
 377             Kontext "TabHTML"
 378             '///+<li>HTML Compatibility</li></ul>
 379             printlog "  - HTML Compatibility / HTML Kompatibilitaet"
 380             if TabHTML.IsVisible then
 381                 gefunden = TRUE
 382                 Call DialogTest ( TabHTML )
 383             endif
 384         end select
 385         if gefunden=FALSE then
 386             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 387             EchteAnzahl = EchteAnzahl - 1
 388             if EchteAnzahl < 5 then
 389                 i=11
 390             else
 391                 i=1-1
 392             endif
 393         endif
 394     next i
 395     '/// Close the options dialog
 396     Kontext "OptionenDlg"
 397     OptionenDlg.Cancel
 398     '/// Close the document
 399     if gApplication <> "BACKGROUND" then
 400         Call hCloseDocument
 401     endif
 402 endcase
 403
 404 '-------------------------------------------------------------------------
 405
 406 testcase tToolsOptionsLanguageSettings
 407
 408     dim EchteAnzahl as Integer, i as Integer, j as Integer
 409     dim gefunden as Boolean
 410     dim bAsianSup as Boolean
 411
 412     PrintLog "- Tools/Options/Language Settings  ( Extras/Optionen/Spracheinstellungen )"
 413     if (0 = iSectionNumber) then
 414         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 415         goto endsub
 416     endif
 417     if gApplication <> "BACKGROUND" then Call hNewDocument
 418     '/// <i>Tools</i> / <i>Options</i> / <i>Language settings</i>
 419     ToolsOptions
 420     ToPosInOptionlist ( 3 )
 421     EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber
 422     '/// We only have two tab pages in this section:
 423     '///+ <ul><li><i>Languages</i> and <i>Writing Aids</i></li>
 424     '///+<ol><li>In asian languages we have two additional tab pages:
 425     '///+ <ul><li><i>Japanese Find</i> and <i>Asian Layout</i></li></ul></li>
 426     '///+<li>In languages with CTL (<i>Complex Text Layout</i>) there is also one more:
 427     '///+<ul><li><i>Complex Text Layout</i></li></ul></li></ol></li></ul>
 428     select case (EchteAnzahl)
 429     case 2:
 430         printlog "Asian or Complex Text Layout support is not activated (on languages-page)!"
 431     case 3:
 432         printlog "Complex Text Layout support is activated (on languages-page)!"
 433     case 4:
 434         printlog "Asian support is activated (on languages-page)!"
 435     case 5:
 436         if (gAsianSup AND gCTLSup) then
 437             printlog "Asian and Complex Text Layout support is activated (on languages-page)!"
 438         else
 439             Warnlog "There are more than 4 pages!"
 440         endif
 441     case else
 442         Warnlog "There are more than 5 pages!"
 443     end select
 444     Kontext "Active"
 445     try
 446         if Active.Exists then Active.OK
 447     catch
 448         if Active.Exists then Active.No
 449     endcatch
 450     for i=1 to EchteAnzahl
 451         gefunden = FALSE
 452         Kontext "OptionenDlg"
 453         Optionsliste.TypeKeys "<Down>"
 454         select case i
 455         case 1 :
 456             Kontext "TabSprachen"
 457             'Languages
 458             printlog "  - Languages / Sprachen"
 459             if TabSprachen.IsVisible then
 460                 gefunden = TRUE
 461                 Call DialogTest ( TabSprachen )
 462             endif
 463         case 2 :
 464             Kontext "TabLinguistik"
 465             printlog "  - Writing Aids / Linguistik"
 466             if TabLinguistik.IsVisible then
 467                 gefunden = TRUE
 468                 Call DialogTest ( TabLinguistik )
 469                 '/// In <i>Writing aids</i>
 470                 '///+<ul><li> On <i>modules<i> click <i>edit</i></li>
 471                 SprachmoduleBearbeiten.Click
 472                 Kontext "ModuleBearbeiten"
 473                 Call DialogTest ( ModuleBearbeiten )
 474                 ModuleBearbeiten.Close
 475                 '///+<li> close dialog</li></ul>
 476                 Kontext "TabLinguistik"
 477                 '///+<ul><li>On <i>dictionaries</i> click <i>new</i></li>
 478                 '///+<li>close dialog</li></ul>
 479                 Neu.Click
 480                 Kontext "BenutzerwoerterbuchAnlegen"
 481                 Call DialogTest ( BenutzerwoerterbuchAnlegen )
 482                 BenutzerwoerterbuchAnlegen.Cancel
 483
 484                 '///+<ul><li>On <i>dictionaries</i> click <i>edit</i></li>
 485                 '///+<li>close dialog</li></ul>
 486                 Kontext "TabLinguistik"
 487                 for j=1 to 5
 488                     if Bearbeiten.IsEnabled then
 489                         Bearbeiten.Click
 490                         j=6
 491                     else
 492                         Benutzerwoerterbuch.TypeKeys "<Down>"
 493                     endif
 494                 next j
 495                 Kontext "BenutzerwoerterbuchBearbeiten"
 496                 if BenutzerwoerterbuchBearbeiten.Exists then
 497                     Call DialogTest ( BenutzerwoerterbuchBearbeiten )
 498                     BenutzerwoerterbuchBearbeiten.Close
 499                 else
 500                     warnlog "Edit the 'user-defined dictionary' is not possible => Bug?"
 501                 endif
 502                 '/// <i>Options</i>
 503                 '///+<ul><li>On 9th, 10th and 11th entry click <i>edit</i></li>
 504                 '///+<li>close dialog</li></ul>
 505                 Kontext "TabLinguistik"
 506                 Optionen.TypeKeys "<PageUp>", 3
 507                 WaitSlot() ' similar effect as a NOOP
 508                 Optionen.TypeKeys "<Down>", 6
 509                 WaitSlot() ' similar effect as a NOOP
 510                 OptionenBearbeiten.Click
 511                 Kontext "SilbentrennungOptionen"
 512                 Call DialogTest ( SilbentrennungOptionen )
 513                 SilbentrennungOptionen.Cancel
 514                 Kontext "TabLinguistik"
 515                 Optionen.TypeKeys "<Down>"
 516                 OptionenBearbeiten.Click
 517                 Kontext "SilbentrennungOptionen"
 518                 Call DialogTest ( SilbentrennungOptionen )
 519                 SilbentrennungOptionen.Cancel
 520                 Kontext "TabLinguistik"
 521                 Optionen.TypeKeys "<Down>"
 522                 OptionenBearbeiten.Click
 523                 Kontext "SilbentrennungOptionen"
 524                 Call DialogTest ( SilbentrennungOptionen )
 525                 SilbentrennungOptionen.Cancel
 526             endif
 527         case 3,5 :
 528             try
 529                 Kontext "TabJapaneseFind"
 530                 'Japanese find
 531                 if TabJapaneseFind.IsVisible then
 532                     printlog "  - Japanese Find / Japanische Suche"
 533                     gefunden = TRUE
 534                     Call DialogTest ( TabJapaneseFind )
 535                 endif
 536             catch
 537             endcatch
 538             try
 539                 Kontext "TabComplexTextLayout"
 540                 'Complex Text Layout
 541                 if TabComplexTextLayout.IsVisible then
 542                     printlog "  - Complex Text Layout"
 543                     gefunden = TRUE
 544                     Call DialogTest ( TabComplexTextLayout )
 545                 endif
 546             catch
 547             endcatch
 548         case 4 :
 549             Kontext "TabAsianLayoutOptions"
 550             'Asian layout
 551             printlog "  - Asian Layout / Asiatisches Layout"
 552             if TabAsianLayoutOptions.IsVisible then
 553                 gefunden = TRUE
 554                 Call DialogTest ( TabAsianLayoutOptions )
 555             endif
 556         end select
 557         if gefunden=FALSE then
 558             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 559             EchteAnzahl = EchteAnzahl - 1
 560             if EchteAnzahl < 5 then
 561                 i=5
 562             else
 563                 i=1-1
 564             endif
 565         endif
 566     next i
 567     '/// Close the options dialog
 568     Kontext "OptionenDlg"
 569     OptionenDlg.Cancel
 570     '/// Close the document
 571     if gApplication <> "BACKGROUND" then
 572         Call hCloseDocument
 573     endif
 574 endcase
 575
 576 '-------------------------------------------------------------------------
 577
 578 testcase tToolsOptionsInternet
 579
 580     dim EchteAnzahl as Integer, i as Integer
 581     dim gefunden as Boolean
 582
 583     PrintLog "- Tools/Options/Internet  ( Extras/Optionen/Internet )"
 584     if (0 = iSectionNumber) then
 585         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 586         goto endsub
 587     endif
 588     if gApplication <> "BACKGROUND" then Call hNewDocument
 589     '/// <i>Tools</i> / <i>Options</i> / <i>Internet</i>
 590     ToolsOptions
 591     '/// (The last section in Tools / Options is <i>Internet</i>)
 592     ToPosInOptionlist ( iSectionNumber)
 593
 594     if gPlatgroup = "w95" OR gPlatform = lcase("osx") then
 595         '/// On MacOS X systems this section includes the tab pages:
 596         '///+<ol><li>Proxy</li>
 597         '///+<li>Search</li>
 598         '///+<li>E-Mai</li></ol>
 599         '/// On Win32 systems this section includes the tab pages:
 600         '///+<ol><li>Proxy</li>
 601         '///+<li>Search</li>
 602         '///+<li>Mozilla Plugin</li></ol>
 603         EchteAnzahl = OptionTabPageZaehler ( 3 , FALSE )
 604     else
 605         '/// On Unix systems this section includes four tab pages.
 606         '///+<ol><li>Proxy</li>
 607         '///+<li>Search</li>
 608         '///+<li>E-Mail</li>
 609         '///+<li>Mozilla Plugin</li></ol>
 610         EchteAnzahl = OptionTabPageZaehler ( 4 , FALSE )
 611     endif
 612
 613     for i=1 to EchteAnzahl
 614         gefunden = FALSE
 615         Kontext "OptionenDlg"
 616         Optionsliste.TypeKeys "<Down>"
 617         Kontext "ProxyWarnung"
 618         if ProxyWarnung.Exists(1) then
 619             NichtMehrAnzeigen.Check
 620             ProxyWarnung.OK
 621         endif
 622
 623         select case i
 624         case 1 :
 625             Kontext "TabProxyServer"
 626             'Proxy
 627             printlog "  - Proxy / Proxy"
 628             if TabProxyServer.IsVisible then
 629                 gefunden = TRUE
 630                 Call DialogTest ( TabProxyServer )
 631             endif
 632         case 2 :
 633             Kontext "Active"
 634             'Search
 635             printlog "  - Search / Suche"
 636             if Active.Exists then
 637                 sErrMes = Active.GetText
 638                 Warnlog "A messagebox exists => BUG  : " + sErrMes
 639                 Active.OK
 640             endif
 641             Kontext "TabSuche"
 642             if TabSuche.IsVisible then
 643                 gefunden = TRUE
 644                 Call DialogTest ( TabSuche )
 645             endif
 646         case 3 :
 647             if gPlatgroup = "unx" then
 648                 Kontext "TabEmail"
 649                 'E-mail
 650                 printlog "  - E-mail"
 651                 if TabEmail.IsVisible then
 652                     gefunden = TRUE
 653                     Call DialogTest ( TabEmail )
 654                 endif
 655             endif
 656             if gPlatgroup = "w95" then
 657                 Kontext "TabMozillaPlugin"
 658                 'Mozilla Plug-in (On Win32)
 659                 printlog "  - Mozilla Plug-in"
 660                 if TabMozillaPlugin.IsVisible then
 661                     gefunden = TRUE
 662                     Call DialogTest ( TabMozillaPlugin )
 663                 endif
 664             endif
 665         case 4 :
 666             if gPlatgroup = "w95" then
 667                 warnlog "On Win32 platform there should be only 3 tab pages in section 'Internet'!?"
 668             else
 669                 Kontext "TabMozillaPlugin"
 670                 printlog "  - Mozilla Plug-in"
 671                 if TabMozillaPlugin.IsVisible then
 672                     gefunden = TRUE
 673                     Call DialogTest ( TabMozillaPlugin )
 674                 endif
 675             endif
 676         end select
 677         if gefunden=FALSE then
 678             Warnlog "Error with the " + i + ".page, perhaps this page is deleted or change the place!"
 679             EchteAnzahl = EchteAnzahl - 1
 680             if EchteAnzahl < 4 then
 681                 i=11
 682             else
 683                 i=1-1
 684             endif
 685         endif
 686     next i
 687     '/// Close the options dialog
 688     Kontext "OptionenDlg"
 689     OptionenDlg.Cancel
 690     '/// Close document
 691     if gApplication <> "BACKGROUND" then
 692         Call hCloseDocument
 693     endif
 694 endcase
 695
 696 '-------------------------------------------------------------------------
 697
 698 testcase tToolsOptionsImprovementProgram
 699
 700     printlog( "Update test for the tools/options dialog of the OOo Improvement Program" )
 701
 702     dim cLogFile as string
 703         cLogFile = gOfficePath & "user\temp\feedback\Current.csv"
 704         cLogFile = convertpath( cLogFile )
 705
 706     if ( hDeleteFile( cLogFile ) ) then
 707
 708         printlog( "Test environment is clean, no logfile present (anymore)" )
 709
 710         ToolsOptions
 711         hToolsOptions( "StarOffice", "Improvement" )
 712         printlog( "Improvement Program tabpage" )
 713
 714         call DialogTest( TabOOoImprovement )
 715
 716         ParticipateNo.check()
 717         ParticipateYes.check()
 718
 719         if ( ShowData.isEnabled() ) then
 720
 721             ShowData.click()
 722
 723             Kontext "FilterAuswahl"
 724             if ( FilterAuswahl.exists( 1 ) ) then
 725                 printlog( "Text import dialog/FilterAuswahl" )
 726
 727                 call DialogTest( FilterAuswahl )
 728                 FilterAuswahl.cancel()
 729             else
 730                 qaerrorlog( "#i97340# Show Data button enabled but no logged data found" )
 731             endif
 732
 733             Kontext "Active"
 734             if ( Active.exists( 1 ) ) then
 735                 printlog( "Messagebox: " & Active.getText() )
 736                 Active.ok()
 737             else
 738                 warnlog( "No warning for missing file: " & cLogFile )
 739             endif
 740
 741             Kontext "Active"
 742             if ( Active.exists( 1 ) ) then
 743                 warnlog( "#97342# Second message for missing " & cLogFile )
 744                 Active.ok()
 745             endif
 746         else
 747             printlog( "Show data is disabled" )
 748         endif
 749
 750         Kontext "OptionenDlg"
 751         OptionenDlg.cancel()
 752
 753     else
 754         ' hDeleteFile() returns FALSE if the file is still present for some weird reason
 755         ' We should warn about this because the test breaks at a later point then.
 756         warnlog( "Logfile present, it could not be deleted. Please check path and accessrights" )
 757         printlog( "Path: " & cLogFile )
 758     endif
 759
 760 endcase
 761
 762 '-------------------------------------------------------------------------
 763
 764 testcase tToolsOptionsChart
 765     Dim EchteAnzahl as Integer, i as Integer
 766
 767     PrintLog "- Tools/Options/Chart  ( Extras/Optionen/Diagramme )"
 768     if (0 = iSectionNumber) then
 769         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 770         goto endsub
 771     endif
 772 '/// Create a new document
 773     if gApplication <> "BACKGROUND" then
 774         Call hNewDocument
 775     end if
 776 '/// <i>Tools</i> / <i>Options</i> / <i>Chart</i>
 777     ToolsOptions
 778     ToPosInOptionlist ( iSectionNumber -1 )
 779     EchteAnzahl = OptionTabPageZaehler ( 1, FALSE )
 780     Kontext "OptionenDlg"
 781     Optionsliste.TypeKeys "<Down>"
 782 '/// Default colors
 783     printlog "  - Default Colors / Grundfarben"
 784     Kontext "TabGrundfarben"
 785     Call DialogTest ( TabGrundfarben )
 786 '/// Close the options dialog
 787     Kontext "OptionenDlg"
 788     OptionenDlg.Cancel
 789     if gApplication <> "BACKGROUND" then
 790 '/// Close bthe document
 791         Call hCloseDocument
 792     end if
 793 endcase
 794
 795 '-------------------------------------------------------------------------
 796
 797 testcase tToolsOptionsDataSources
 798    qaerrorlog "#i104508# crashes on quit or reload if this is run."
 799    goto endsub
 800
 801    Dim EchteAnzahl as Integer, i as Integer
 802
 803    PrintLog "- Tools/Options/Data Sources  ( Extras/Optionen/Datenbank )"
 804     if (0 = iSectionNumber) then
 805         warnlog "You can't run this testcase seperated! Ending now! Please run it via: tToolsOptionsTest"
 806         goto endsub
 807     endif
 808     '/// Create a new document
 809     if gApplication <> "BACKGROUND" then
 810         Call hNewDocument
 811     end if
 812     '/// <i>Tools</i> / <i>Options</i> / <i>Data source</i>
 813     ToolsOptions
 814     ToPosInOptionlist ( iSectionNumber -2)
 815     EchteAnzahl = OptionTabPageZaehler ( 2 , FALSE )
 816     Kontext "OptionenDlg"
 817     Optionsliste.TypeKeys "<Down>"
 818     printlog "  - Connections / Verbindungen"
 819     Kontext "TabConnections"
 820     '/// Connections
 821     Call DialogTest ( TabConnections )
 822     Kontext "OptionenDlg"
 823     Optionsliste.TypeKeys "<Down>"
 824     printlog "  - Databases / Datenbanken"
 825     Kontext "TabRegisteredDatabase"
 826     '/// Databases
 827     Call DialogTest ( TabRegisteredDatabase )
 828     NewBtn.click
 829     Kontext "CreateDatabaseLink"
 830     call DialogTest( CreateDatabaseLink )
 831     Browse.click
 832     Kontext "OeffnenDlg"
 833     OeffnenDlg.cancel
 834     Kontext "CreateDatabaseLink"
 835     CreateDatabaseLink.cancel
 836     Kontext "OptionenDlg"
 837     '/// Close the options dialog
 838     OptionenDlg.Cancel
 839     '/// Close the document
 840     if gApplication <> "BACKGROUND" then
 841         Call hCloseDocument
 842     end if
 843 endcase
 844