diff options
Diffstat (limited to 'testautomation/graphics/required/includes/global/id_009.inc')
| -rw-r--r-- | testautomation/graphics/required/includes/global/id_009.inc | 408 |
1 files changed, 203 insertions, 205 deletions
diff --git a/testautomation/graphics/required/includes/global/id_009.inc b/testautomation/graphics/required/includes/global/id_009.inc index 57ff31138..3680dfafb 100644 --- a/testautomation/graphics/required/includes/global/id_009.inc +++ b/testautomation/graphics/required/includes/global/id_009.inc @@ -30,253 +30,251 @@ '* short description : Testcases to test the Help-Menu. '* '\****************************************************************************** -' -testcase tmHelpHelpAgent +sub id_009 - Call hNewDocument + printLog Chr(13) + "--------- id_009 ----------" - hTBOtypeInDoc + call tCheckIfTheHelpExists + Call tmHelpContents + Call tmHelpHelpAgent + Call tmHelpTips + Call tmHelpExtendedTips + Call tmHelpAboutStarOffice +end sub +'------------------------------------------------------------------------------ + +testcase tmHelpHelpAgent + Call hNewDocument + hTBOtypeInDoc HelpHelpAgent ' it's just a switch sleep 2 HelpHelpAgent - Call hCloseDocument -endcase +endcase 'tmHelpHelpAgent -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpTips Call hNewDocument hTBOtypeInDoc - HelpTips Sleep 2 HelpTips - Call hCloseDocument -endcase +endcase 'tmHelpTips -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpExtendedTips Call hNewDocument hTBOtypeInDoc - HelpEntendedHelp Sleep (2) HelpEntendedHelp - Call hCloseDocument -endcase +endcase 'tmHelpExtendedTips -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpAboutStarOffice Call hNewDocument hTBOtypeInDoc - HelpAboutStarOffice Kontext "UeberStarMath" DialogTest (UeberStarMath) UeberStarMath.OK - Call hCloseDocument -endcase +endcase 'tmHelpAboutStarOffice -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tmHelpContents - goto endsub '"#i84486# - tmHelpContents outcommented due to crash." - dim i as integer + dim i as integer - '/// open application ///' - Call hNewDocument - '/// Help->Contents ///' - HelpContents - sleep(8) - kontext "StarOfficeHelp" - if Not StarOfficeHelp.Exists then - Warnlog "Help is not up!" - else - '/// get the number of entries in the listbox 'select Help modul' ///' - Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" - '################ left half ################ - '/// on the left half of the dialog: ///' - '///+ change to the tabpage 'Contents' ///' - TabControl.SetPage ContentPage - '///+ get the number of entries in the listbox 'MAin help themes' ///' - Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" - '///+ change to the tabpage 'Index' ///' - TabControl.SetPage IndexPage - '///+ get the number of entries in the listbox 'Search term' ///' - Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" - sleep 5 - '///+ click on button 'Display' ///' - DisplayIndex.Click - sleep 5 - '///+ change to the tabpage 'Find' ///' - TabControl.SetPage FindPage - '///+ get the number of entries in the listbox 'Search term' ///' - Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" - '/// If the Search-Text-Field is empty - Check that the Find-button is deactivated ///' - if SearchFind.GetSelText = "" then - if FindButton.IsEnabled then - warnlog " The Find-Button should have been inactive, but was active." - endif - else - warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText - endif - '/// Insert some irrelevant text to get 0 results from the search. ///' - SearchFind.SetText "Doobbidedooo" - '///+ click on button 'Find' ///' - FindButton.Click - kontext - '///+ Messagebox comes up about: 'No topics found.' say OK ///' - if (active.exists (2) )then - Printlog "active came up: '" + active.gettext + "'" - active.ok + printlog "open application" + Call hNewDocument + printlog "Help->Contents" + HelpContents + sleep(8) + kontext "StarOfficeHelp" + if Not StarOfficeHelp.Exists then + Warnlog "Help is not up!" + else + printlog "get the number of entries in the listbox 'select Help modul'" + Printlog "HelpAbout: '" + HelpAbout.GetItemCount +"'" + printlog "on the left half of the dialog:" + printlog "change to the tabpage 'Contents'" + TabControl.SetPage ContentPage + printlog "get the number of entries in the listbox 'MAin help themes'" + Printlog "SearchContent: '" + SearchContent.GetItemCount + "'" + printlog "change to the tabpage 'Index'" + TabControl.SetPage IndexPage + printlog "get the number of entries in the listbox 'Search term'" + Printlog "SearchIndex: '" + SearchIndex.GetItemCount + "'" + sleep 5 + printlog "click on button 'Display'" + DisplayIndex.Click + sleep 5 + printlog "change to the tabpage 'Find'" + TabControl.SetPage FindPage + printlog "get the number of entries in the listbox 'Search term'" + Printlog "SearchFind: '" + SearchFind.GetItemCount + "'" + printlog "If the Search-Text-Field is empty - Check that the Find-button is deactivated" + if SearchFind.GetSelText = "" then + if FindButton.IsEnabled then + warnlog " The Find-Button should have been inactive, but was active." endif - kontext "StarOfficeHelp" - '///+ check checkbox 'Complete words only' ///' - FindFullWords.Check - '///+ check checkbox 'Find in headings only' ///' - FindInHeadingsOnly.Check - '///+ get the number of entries in the listbox 'List of headings' ///' - Printlog "Result: '" + Result.GetItemCount + "'" - '///+ click on button 'Display' ///' - DisplayFind.Click - '///+ change to the tabpage 'Bookmarks' ///' - TabControl.SetPage BookmarksPage - '///+ get the number of entries in the listbox 'Bookmark list' ///' - Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" - '///+ click on button 'Display' ///' - DisplayBookmarks.Click - '################ right half ################ - '/// on the right half of teh dialog: ///' - '################ toolbar ################ - Kontext "TB_Help" - '///+ click on button 'Hide/Show Navigation Pane' ///' - Index.Click + else + warnlog " The Search-Text-Field shouldn't contain any text. But contained: " + SearchFind.GetSelText + endif + printlog "Insert some irrelevant text to get 0 results from the search." + SearchFind.SetText "Doobbidedooo" + printlog "click on button 'Find'" + FindButton.Click + kontext + printlog "Messagebox comes up about: 'No topics found.' say OK" + if (active.exists (2) )then + Printlog "active came up: '" + active.gettext + "'" + active.ok + endif + kontext "StarOfficeHelp" + printlog "check checkbox 'Complete words only' " + FindFullWords.Check + printlog "check checkbox 'Find in headings only' " + FindInHeadingsOnly.Check + printlog "get the number of entries in the listbox 'List of headings'" + Printlog "Result: '" + Result.GetItemCount + "'" + printlog "click on button 'Display'" + DisplayFind.Click + printlog "change to the tabpage 'Bookmarks'" + TabControl.SetPage BookmarksPage + printlog "get the number of entries in the listbox 'Bookmark list'" + Printlog "Bookmarks: '" + Bookmarks.GetItemCount + "'" + printlog "click on button 'Display'" + DisplayBookmarks.Click + printlog "on the right half of teh dialog:" + Kontext "TB_Help" + printlog "click on button 'Hide/Show Navigation Pane'" + Index.Click + sleep 1 + printlog "click on button 'Hide/Show Navigation Pane'" + Index.Click + sleep 1 + printlog "click on button 'First Page'" + GoToStart.Click + sleep 1 + printlog "click on button 'Previous Page'" + Backward.Click + sleep 1 + printlog "click on button 'Next Page'" + Forward.Click + sleep 1 + printlog "click on button 'Print ...'" + PrintButton.Click + sleep (1) + kontext "Active" + if Active.Exists( 2 ) then + qaerrorlog "No default printer defined: " & Active.GetText + Active.Ok + end if + kontext "Printing" + if Printing.Exists( 2 ) then + printlog "In the dialog 'Print' press the button 'Cancel'" + Printing.cancel + else + warnlog "the Print-Dialogue didnt appear." + end if + Kontext "TB_Help" + printlog "click on button 'Add to Bookmarks ...'" + sleep 1 + SetBookmarks.Click + sleep 1 + Kontext "AddBookmark" + printlog "on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel'" + Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'" + AddBookmark.Cancel + sleep 1 + '################ help display ################ + kontext "HelpContent" + printlog "open the Context Menu of the Frame 'Help Content' and count the entries" + HelpContent.OpenContextMenu + sleep 1 + Printlog " i: " + hMenuItemGetCount + hMenuClose() + '################ right scroolbar ################ + kontext "HelpContent" + printlog "click on button 'Previous Page'" + if HelpContentUP.IsVisible then + HelpContentUP.Click sleep 1 - '///+ click on button 'Hide/Show Navigation Pane' ///' - Index.Click - sleep 1 - '///+ click on button 'First Page' ///' - GoToStart.Click - sleep 1 - '///+ click on button 'Previous Page' ///' - Backward.Click - sleep 1 - '///+ click on button 'Next Page' ///' - Forward.Click - sleep 1 - '///+ click on button 'Print ...' ///' - PrintButton.Click - sleep (1) - - kontext "Active" - if Active.Exists( 2 ) then - qaerrorlog "No default printer defined: " & Active.GetText - Active.Ok - end if - - kontext "Printing" - if Printing.Exists( 2 ) then - '/// In the dialog 'Print' press the button 'Cancel' ///' - Printing.cancel - else - warnlog "the Print-Dialogue didnt appear." - end if - Kontext "TB_Help" - '///+ click on button 'Add to Bookmarks ...' ///' - sleep 1 - SetBookmarks.Click - sleep 1 - Kontext "AddBookmark" - '///+ on the dialog 'Add to Bookmarks ...' get the text from the editfield 'Bookmark' and press button 'Cancel' ///' - Printlog "Bookmarkname: '" + Bookmarkname.GetText + "'" - AddBookmark.Cancel - sleep 1 - '################ help display ################ - kontext "HelpContent" - '///+ open the Context Menu of the Frame 'Help Content' and count the entries ///' - HelpContent.OpenContextMenu - - sleep 1 - Printlog " i: " + hMenuItemGetCount - hMenuClose() - '################ right scroolbar ################ - kontext "HelpContent" - '///+ click on button 'Previous Page' ///' - if HelpContentUP.IsVisible then - HelpContentUP.Click - sleep 1 - endif - '///+ click on button 'Navigation' ///' - if HelpContentNAVIGATION.IsVisible then - HelpContentNAVIGATION.Click - sleep 1 - endif - kontext "NavigationsFenster" - '/// on the toolbox 'Navigation' press the window close button 'X' ///' - NavigationsFenster.Close - sleep 1 - kontext "HelpContent" - '///+ click on button 'Next Page' ///' - if HelpContentDOWN.IsVisible then - HelpContentDOWN.Click - sleep 1 - endif - kontext "StarOfficeHelp" - '/// close the help with the keys [strg]+[F4] ///' - Printlog "trying to close the help now" - try - StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586# - catch - Warnlog "failed to close the help window :-(" - endcatch - kontext "StarOfficeHelp" - if StarOfficeHelp.Exists then - warnlog "Help still up!" - endif - endif - '/// close application ///' - Call hCloseDocument -endcase + endif + printlog "click on button 'Navigation'" + if HelpContentNAVIGATION.IsVisible then + HelpContentNAVIGATION.Click + sleep 1 + endif + kontext "NavigationsFenster" + printlog "on the toolbox 'Navigation' press the window close button 'X'" + NavigationsFenster.Close + sleep 1 + kontext "HelpContent" + printlog "click on button 'Next Page'" + if HelpContentDOWN.IsVisible then + HelpContentDOWN.Click + sleep 1 + endif + kontext "StarOfficeHelp" + printlog "close the help with the keys [strg]+[F4]" + Printlog "trying to close the help now" + try + StarOfficeHelp.TypeKeys "<Mod1 F4>" ' strg F4 supported since bug #103586# + catch + Warnlog "failed to close the help window :-(" + endcatch + kontext "StarOfficeHelp" + if StarOfficeHelp.Exists then + warnlog "Help still up!" + endif + endif + printlog "close application" + Call hCloseDocument +endcase 'tmHelpContents -'...---....---.-.-.-.-.....---......--.-.-.-.....----..-........................---....... +'------------------------------------------------------------------------------ testcase tCheckIfTheHelpExists - '/// open application ///' - Call hNewDocument - '/// Bring up the help-window ///' - HelpContents - kontext "HelpContent" - sleep (5) - '/// Press "CTRL A" and "CTRL C" to select all and then copy it. ///' - HelpContent.TypeKeys "<MOD1 A>" - sleep (1) - HelpContent.TypeKeys "<MOD1 C>" - '/// If the clipboard now is empty, then nothing were copied, which means we have a bug. ///' - if GetClipBoard = "" then - Warnlog " No content in the Help-Content -view." - else - Printlog " The Help-Content -view contained content. Good." - endif - kontext "StarOfficeHelp" - '/// Press "CTRL F4" to close the help-window. ///' - try - StarOfficeHelp.TypeKeys "<MOD1 F4>" - catch - Warnlog " Failed to close the help window :-(" - endcatch - kontext "StarOfficeHelp" - if StarOfficeHelp.Exists then - warnlog "Help was still visible!" - endif - '/// And a dot into the main window. Making sure kontext and focus is right. ///' - hTypeKeys "." - '/// Close Application ///' - Call hCloseDocument + printlog "open application" + Call hNewDocument + printlog "Bring up the help-window" + HelpContents + kontext "HelpContent" + sleep (5) + printlog "Press CTRL A and CTRL C to select all and then copy it." + HelpContent.TypeKeys "<MOD1 A>" + sleep (1) + HelpContent.TypeKeys "<MOD1 C>" + printlog "If the clipboard now is empty, then nothing were copied, which means we have a bug." + if GetClipBoard = "" then + Warnlog "No content in the Help-Content -view." + else + Printlog "The Help-Content -view contained content. Good." + endif + kontext "StarOfficeHelp" + printlog "Press CTRL F4 to close the help-window." + try + StarOfficeHelp.TypeKeys "<MOD1 F4>" + catch + Warnlog " Failed to close the help window :-(" + endcatch + kontext "StarOfficeHelp" + if StarOfficeHelp.Exists then + warnlog "Help was still visible!" + endif + printlog "And a dot into the main window. Making sure kontext and focus is right." + hTypeKeys "." + printlog "Close Application" + Call hCloseDocument endcase 'tCheckIfTheHelpExists + +'------------------------------------------------------------------------------
\ No newline at end of file |