diff options
Diffstat (limited to 'testautomation/global/required/includes/g_option.inc')
-rwxr-xr-x | testautomation/global/required/includes/g_option.inc | 1058 |
1 files changed, 558 insertions, 500 deletions
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 <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 + 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 "<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 ) - end if - case 2 : Kontext "TabSonstigesAllgemein" - '///+<li>General</li> - printlog " - General / Allgemein" - if TabSonstigesAllgemein.IsVisible then - gefunden = TRUE - Call DialogTest ( TabSonstigesAllgemein ) - end if - case 3 : Kontext "TabMemory" - '///+<li>Memory</li> - printlog " - Memory / Arbeitsspeicher" - if TabMemory.IsVisible then - gefunden = TRUE - Call DialogTest ( TabMemory ) - end if - case 4 : Kontext "TabAnsichtAllgemein" - '///+<li>View</li> - printlog " - View / Ansicht" - if TabAnsichtAllgemein.IsVisible then - gefunden = TRUE - Call DialogTest ( TabAnsichtAllgemein ) - end if - case 5 : Kontext "TabPrintStarOffice" - '///+<li>Print</li> - printlog " - Print / Drucken" - if TabPrintStarOffice.IsVisible then - gefunden = TRUE - Call DialogTest ( TabPrintStarOffice ) - end if - 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 - end if - 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" - sleep(4) + 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 - sleep(3) - Kontext "FarbeDlg" - FarbeDlg.Cancel - end if - case 8 : Kontext "TabSchriftErsetzung" - '///+<li>Font replacement</li> - printlog " - Font Replacement / Schriftersetzung" - if TabSchriftErsetzung.IsVisible then - gefunden = TRUE - Call DialogTest ( TabSchriftErsetzung ) - end if - 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 Protect.isEnabled then - Protect.click() - Kontext "PasswordDLG" - call DialogTest( PasswordDLG ) - PasswordDLG.cancel() - else - select case uCase(gApplication) - case "WRITER","MASTERDOCUMENT" :WarnLog "Protect-Button is disabled." - case "MATH","IMPRESS","DRAW","HTML","CALC" :PrintLog "Protect-Button is disabled." - end select - endif - sleep(1) - Kontext "TabSecurity" - Options.click - Kontext "TabSecurityOptionsAndWarnings" - Call DialogTest(TabSecurityOptionsAndWarnings) - TabSecurityOptionsAndWarnings.cancel - sleep(1) - end if - case 10: Kontext "TabAppearance" - '///+<li>Appearance</li> - printlog " - Appearance / Aussehen" - if TabAppearance.IsVisible then - gefunden = TRUE - Call DialogTest ( TabAppearance ) - end if - case 11: Kontext "TabAccessibility" - '///+<li>Accessibility</li> - printlog " - Accessibility" - if TabAccessibility.IsVisible then - gefunden = TRUE - Call DialogTest ( TabAccessibility ) - end if - case 12: Kontext "TabJava" - '///+<li>Java</li></ul> - printlog " - Java" - if TabJava.IsVisible then - gefunden = TRUE - Call DialogTest ( TabJava ) - end if - if useJava.isChecked then - Add.click - Kontext "OeffnenDlg" - Sleep (1) - OeffnenDlg.Cancel - Kontext "TabJava" - Parameters.click - Kontext "JavaStartParameter" - Call DialogTest ( JavaStartParameter ) - JavaStartParameter.cancel - Kontext "TabJava" - ClassPath.click - Kontext "JavaClassPath" - Call DialogTest ( JavaClassPath ) - JavaClassPath.cancel + 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 Protect.isEnabled then + Protect.click() + Kontext "PasswordDLG" + call DialogTest( PasswordDLG ) + PasswordDLG.cancel() + else + select case uCase(gApplication) + case "WRITER","MASTERDOCUMENT" + WarnLog "Protect-Button is disabled." + case "MATH","IMPRESS","DRAW","HTML","CALC" + PrintLog "Protect-Button is disabled." + end select + endif + + Kontext "TabSecurity" + if ( TabSecurity.exists( 1 ) ) then + Options.click + Kontext "TabSecurityOptionsAndWarnings" + Call DialogTest(TabSecurityOptionsAndWarnings) + TabSecurityOptionsAndWarnings.cancel else - printlog "Use Java is disabled." - end if - case 13: kontext "TabOnlineUpdate" - '///+<li>Online update</li> - printlog " - Online update" - if TabOnlineUpdate.isVisible then - gefunden = TRUE - Call DialogTest( TabOnlineUpdate ) + warnlog( "Tabsecurity did not open" ) endif - 'CheckNow.click - case 14: Kontext "TabOOoImprovement" - printlog( " - OpenOffice.org Improvement Program" ) - if ( TabOOoImprovement.isVisible() ) then - gefunden = TRUE - Call DialogTest( TabOOoImprovement ) - 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" @@ -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 -'/// <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 ) - end if - case 2 : Kontext "TabMicrosoftOffice97" - '///+<li>VBA settings</li> - printlog " - VBA Settings / VBA Eigenschaften" - if TabMicrosoftOffice97.IsVisible then - gefunden = TRUE - Call DialogTest ( TabMicrosoftOffice97 ) - end if - case 3 : Kontext "TabMicrosoftOffice2" - '///+<li>Microsoft Office</li> - printlog " - Microsoft Office" - if TabMicrosoftOffice2.IsVisible then - gefunden = TRUE - Call DialogTest ( TabMicrosoftOffice2 ) - end if - case 4 : Kontext "TabHTML" - '///+<li>HTML Compatibility</li></ul> - 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 + '/// <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 + 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 + 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 ) - 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: + '///+ <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" + 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 + 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>" - 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 - '/// <i>Options</i> + 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 - Sleep 1 - Optionen.TypeKeys "<Down>", 6 - Sleep 1 - OptionenBearbeiten.Click - Kontext "SilbentrennungOptionen" - Call DialogTest ( SilbentrennungOptionen ) - SilbentrennungOptionen.Cancel - Kontext "TabLinguistik" - Optionen.TypeKeys "<Down>" - OptionenBearbeiten.Click - Kontext "SilbentrennungOptionen" - Call DialogTest ( SilbentrennungOptionen ) - SilbentrennungOptionen.Cancel - Kontext "TabLinguistik" - Optionen.TypeKeys "<Down>" - 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 "<PageUp>", 3 + WaitSlot() ' similar effect as a NOOP + Optionen.TypeKeys "<Down>", 6 + WaitSlot() ' similar effect as a NOOP + OptionenBearbeiten.Click + Kontext "SilbentrennungOptionen" + Call DialogTest ( SilbentrennungOptionen ) + SilbentrennungOptionen.Cancel + Kontext "TabLinguistik" + Optionen.TypeKeys "<Down>" + OptionenBearbeiten.Click + Kontext "SilbentrennungOptionen" + Call DialogTest ( SilbentrennungOptionen ) + SilbentrennungOptionen.Cancel + Kontext "TabLinguistik" + Optionen.TypeKeys "<Down>" + 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 - '/// <i>Tools</i> / <i>Options</i> / <i>Internet</i> - ToolsOptions - '/// (The last section in Tools / Options is <i>Internet</i>) - ToPosInOptionlist ( iSectionNumber) + 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: @@ -588,87 +644,89 @@ testcase tToolsOptionsInternet '///+<li>E-Mail</li> '///+<li>Mozilla Plugin</li></ol> EchteAnzahl = OptionTabPageZaehler ( 4 , FALSE ) - end if - - for i=1 to EchteAnzahl - gefunden = FALSE - Kontext "OptionenDlg" - Optionsliste.TypeKeys "<Down>" - 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 "<Down>" + 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 |