From 7fd7c0f1978bd577410409ecf011f38f4bf99e82 Mon Sep 17 00:00:00 2001 From: Ivo Hinkelmann Date: Wed, 1 Apr 2009 17:35:56 +0000 Subject: CWS-TOOLING: integrate CWS automation003 2009-04-01 09:25:55 +0200 hde r270300 : #i100664# 2009-03-31 14:45:05 +0200 jsk r270280 : #i96838 2009-03-31 14:37:11 +0200 jsk r270279 : #i96838 2009-03-31 12:47:41 +0200 jsk r270275 : #i100584 2009-03-31 12:44:46 +0200 jsk r270272 : #i96838 2009-03-31 11:42:57 +0200 jsk r270269 : #i100584 2009-03-31 11:37:16 +0200 jsk r270268 : #i96838 2009-03-31 08:43:06 +0200 jsk r270260 : #i99713 - continued 2009-03-31 08:38:12 +0200 hde r270259 : #i100664# 2009-03-31 07:50:01 +0200 jsk r270257 : #i99713 - continued 2009-03-30 15:40:05 +0200 jsk r270237 : #i96838 2009-03-30 15:17:58 +0200 jsk r270236 : #i100584 2009-03-30 15:05:31 +0200 hde r270235 : #i100664# 2009-03-30 14:56:58 +0200 hde r270234 : #i100664# 2009-03-30 11:43:04 +0200 oc r270206 : i100669 2009-03-30 09:54:46 +0200 jsk r270199 : #i99713 - partly done, needs checking 2009-03-30 09:46:25 +0200 hde r270198 : #i100664# 2009-03-30 09:46:05 +0200 hde r270197 : #i100664# 2009-03-30 09:45:09 +0200 hde r270196 : #i100664# 2009-03-30 08:07:38 +0200 jsk r270193 : #i99713 - partly done, needs checking 2009-03-27 11:46:19 +0100 jsk r270143 : #i99713 2009-03-27 07:03:47 +0100 jsk r270128 : #i100602 2009-03-27 06:59:28 +0100 jsk r270122 : #i100602 2009-03-26 13:46:17 +0100 jsk r270077 : #i100584 - graphics tests 2009-03-26 13:07:02 +0100 jsk r270073 : #i100584 - hToolsOptions()/framework tools 2009-03-26 12:09:37 +0100 jsk r270065 : #i100581 - Fix outdated gApplication names in config files --- .../global/required/includes/g_option.inc | 1058 +++++++++++--------- 1 file changed, 558 insertions(+), 500 deletions(-) (limited to 'testautomation/global/required/includes/g_option.inc') diff --git a/testautomation/global/required/includes/g_option.inc b/testautomation/global/required/includes/g_option.inc index a9f5a2b72550..fe3fb9b23236 100755 --- a/testautomation/global/required/includes/g_option.inc +++ b/testautomation/global/required/includes/g_option.inc @@ -1,7 +1,7 @@ 'encoding UTF-8 Do not remove or change this line! '************************************************************************** '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. -'* +'* '* Copyright 2008 by Sun Microsystems, Inc. '* '* OpenOffice.org - a multi-platform office productivity suite @@ -39,27 +39,26 @@ global sErrMes as String global iSectionNumber as Integer -sub ExtrasOptionenTest - Call tToolsOptionsTest -end sub +'******************************************************************************* sub tToolsOptionsTest - dim sApplication as string - - sApplication = gApplication + + dim sPreviousApplication as string + + sPreviousApplication = gApplication ' Document- and database related options are placed in the g_option2.inc library use "global\required\includes\g_option2.inc" ' subs and functions has been placed there use "global/tools/includes/required/t_option2.inc" - ' To prevent users from running just a subsection from this file, without THIS + ' 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 exist with warnlog, if iSectionNumber is 0 + ' 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 + 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 @@ -74,235 +73,270 @@ sub tToolsOptionsTest gApplication = "WRITER" iSectionNumber = 8 Call tToolsOptionsTextdocument - + gApplication = "HTML" Call tToolsOptionsHTMLDocument - + gApplication = "CALC" iSectionNumber = 7 Call tToolsOptionsSpreadsheet - + gApplication = "IMPRESS" iSectionNumber = 7 Call tToolsOptionsPresentation - + gApplication = "DRAW" iSectionNumber = 7 Call tToolsOptionsDrawing - + gApplication = "MATH" iSectionNumber = 7 Call tToolsOptionsFormula - gApplication = sApplication + gApplication = sPreviousApplication 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 + 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 + + 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." + 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 - end if + 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" - '///+ + 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" @@ -311,265 +345,287 @@ testcase tToolsOptionsStarOffice i=10 else i=1-1 - end if - end if + endif + endif next i -'/// Close the options dialog - Kontext "OptionenDlg" - OptionenDlg.Cancel -'/// Close the document - if gApplication <> "BACKGROUND" then - Call hCloseDocument - end if + '/// 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 + + 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 ) - end if - case 2 : Kontext "TabMicrosoftOffice97" - '///+
    • VBA settings
      • - printlog " - VBA Settings / VBA Eigenschaften" - if TabMicrosoftOffice97.IsVisible then - gefunden = TRUE - Call DialogTest ( TabMicrosoftOffice97 ) - end if - case 3 : Kontext "TabMicrosoftOffice2" - '///+
    • Microsoft Office
      • - printlog " - Microsoft Office" - if TabMicrosoftOffice2.IsVisible then - gefunden = TRUE - Call DialogTest ( TabMicrosoftOffice2 ) - end if - case 4 : Kontext "TabHTML" - '///+
    • HTML Compatibility
    - printlog " - HTML Compatibility / HTML Kompatibilitaet" - if TabHTML.IsVisible then - gefunden = TRUE - Call DialogTest ( TabHTML ) - end if - 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 - end if - end if - next i -'/// Close the options dialog - Kontext "OptionenDlg" - OptionenDlg.Cancel -'/// Close the document - if gApplication <> "BACKGROUND" then - Call hCloseDocument - end if + 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 + 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 + 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
      • - '///+
      1. In asian languages we have two additional tab pages: - '///+
        • Japanese Find and Asian Layout
        2. - '///+
      2. In languages with CTL (Complex Text Layout) there is also one more: - '///+
        • Complex Text Layout
    - 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 ) - end if - case 2 : Kontext "TabLinguistik" - printlog " - Writing Aids / Linguistik" - if TabLinguistik.IsVisible then - gefunden = TRUE - Call DialogTest ( TabLinguistik ) + EchteAnzahl = Optionsliste.GetItemCount - iSectionNumber + '/// We only have two tab pages in this section: + '///+
    • Languages and Writing Aids
      • + '///+
      1. In asian languages we have two additional tab pages: + '///+
        • Japanese Find and Asian Layout
        2. + '///+
      2. In languages with CTL (Complex Text Layout) there is also one more: + '///+
        • Complex Text Layout
    + 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" + 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 + 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 "" - end if - next j - Kontext "BenutzerwoerterbuchBearbeiten" - if BenutzerwoerterbuchBearbeiten.Exists then - Call DialogTest ( BenutzerwoerterbuchBearbeiten ) - BenutzerwoerterbuchBearbeiten.Close - else - warnlog "Edit the 'user-defined dictionary' is not possible => Bug?" - end if - '/// Options + 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 - Sleep 1 - Optionen.TypeKeys "", 6 - Sleep 1 - OptionenBearbeiten.Click - Kontext "SilbentrennungOptionen" - Call DialogTest ( SilbentrennungOptionen ) - SilbentrennungOptionen.Cancel - Kontext "TabLinguistik" - Optionen.TypeKeys "" - OptionenBearbeiten.Click - Kontext "SilbentrennungOptionen" - Call DialogTest ( SilbentrennungOptionen ) - SilbentrennungOptionen.Cancel - Kontext "TabLinguistik" - Optionen.TypeKeys "" - OptionenBearbeiten.Click - Kontext "SilbentrennungOptionen" - Call DialogTest ( SilbentrennungOptionen ) - SilbentrennungOptionen.Cancel - end if - case 3,5 : try - Kontext "TabJapaneseFind" - 'Japanese find - if TabJapaneseFind.IsVisible then - printlog " - Japanese Find / Japanische Suche" - gefunden = TRUE - Call DialogTest ( TabJapaneseFind ) - end if - catch - endcatch - try - Kontext "TabComplexTextLayout" - 'Complex Text Layout - if TabComplexTextLayout.IsVisible then - printlog " - Complex Text Layout" - gefunden = TRUE - Call DialogTest ( TabComplexTextLayout ) - end if - catch - endcatch - case 4 : Kontext "TabAsianLayoutOptions" - 'Asian layout - printlog " - Asian Layout / Asiatisches Layout" - if TabAsianLayoutOptions.IsVisible then - gefunden = TRUE - Call DialogTest ( TabAsianLayoutOptions ) - end if - 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 - end if - end if - next i -'/// Close the options dialog - Kontext "OptionenDlg" - OptionenDlg.Cancel -'/// Close the document - if gApplication <> "BACKGROUND" then - Call hCloseDocument - end if + Kontext "TabLinguistik" + Optionen.TypeKeys "", 3 + WaitSlot() ' similar effect as a NOOP + Optionen.TypeKeys "", 6 + WaitSlot() ' similar effect as a NOOP + OptionenBearbeiten.Click + Kontext "SilbentrennungOptionen" + Call DialogTest ( SilbentrennungOptionen ) + SilbentrennungOptionen.Cancel + Kontext "TabLinguistik" + Optionen.TypeKeys "" + OptionenBearbeiten.Click + Kontext "SilbentrennungOptionen" + Call DialogTest ( SilbentrennungOptionen ) + SilbentrennungOptionen.Cancel + Kontext "TabLinguistik" + Optionen.TypeKeys "" + OptionenBearbeiten.Click + Kontext "SilbentrennungOptionen" + Call DialogTest ( SilbentrennungOptionen ) + SilbentrennungOptionen.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 + 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 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: @@ -588,87 +644,89 @@ testcase tToolsOptionsInternet '///+
  • E-Mail
    • '///+
  • Mozilla Plugin
    • EchteAnzahl = OptionTabPageZaehler ( 4 , FALSE ) - end if - - for i=1 to EchteAnzahl - gefunden = FALSE - Kontext "OptionenDlg" - Optionsliste.TypeKeys "" - Kontext "ProxyWarnung" - if ProxyWarnung.Exists(1) then - NichtMehrAnzeigen.Check - ProxyWarnung.OK - end if - - select case i - case 1 : Kontext "TabProxyServer" - 'Proxy - printlog " - Proxy / Proxy" - if TabProxyServer.IsVisible then - gefunden = TRUE - Call DialogTest ( TabProxyServer ) - end if - case 2 : Kontext "Active" - 'Search - printlog " - Search / Suche" - if Active.Exists then - sErrMes = Active.GetText - Warnlog "A messagebox exists => BUG : " + sErrMes - Active.OK - end if - Kontext "TabSuche" - if TabSuche.IsVisible then - gefunden = TRUE - Call DialogTest ( TabSuche ) - end if - case 3 : - if gPlatgroup = "unx" then - Kontext "TabEmail" - 'E-mail - printlog " - E-mail" - if TabEmail.IsVisible then - gefunden = TRUE - Call DialogTest ( TabEmail ) - end if - end if - if gPlatgroup = "w95" then - Kontext "TabMozillaPlugin" - 'Mozilla Plug-in (On Win32) - printlog " - Mozilla Plug-in" - if TabMozillaPlugin.IsVisible then - gefunden = TRUE - Call DialogTest ( TabMozillaPlugin ) - end if - end if - 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 ) - end if - end if - 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 - end if - end if - next i -'/// Close the options dialog - Kontext "OptionenDlg" - OptionenDlg.Cancel -'/// Close document - if gApplication <> "BACKGROUND" then - Call hCloseDocument - end if + endif + + for i=1 to EchteAnzahl + gefunden = FALSE + Kontext "OptionenDlg" + Optionsliste.TypeKeys "" + Kontext "ProxyWarnung" + if ProxyWarnung.Exists(1) then + NichtMehrAnzeigen.Check + ProxyWarnung.OK + endif + + 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 + 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 '------------------------------------------------------------------------- @@ -676,10 +734,10 @@ endcase testcase tToolsOptionsImprovementProgram printlog( "Update test for the tools/options dialog of the OOo Improvement Program" ) - + dim cLogFile as string - cLogFile = gOfficePath & "user\temp\feedback\Current.csv" - cLogFile = convertpath( cLogFile ) + cLogFile = gOfficePath & "user\temp\feedback\Current.csv" + cLogFile = convertpath( cLogFile ) if ( hDeleteFile( cLogFile ) ) then printlog( "Test environment is clean, no logfile present (anymore)" ) @@ -693,15 +751,15 @@ testcase tToolsOptionsImprovementProgram ParticipateNo.check() ParticipateYes.check() - - if ( ShowData.isEnabled() ) then + + if ( ShowData.isEnabled() ) then ShowData.click() Kontext "TextImport" if ( TextImport.exists( 1 ) ) then printlog( "Text import dialog" ) - + call DialogTest( TextImport ) TextImport.cancel() else -- cgit