diff options
Diffstat (limited to 'testautomation/framework/optional')
6 files changed, 115 insertions, 108 deletions
diff --git a/testautomation/framework/optional/includes/basic_delete_modules.inc b/testautomation/framework/optional/includes/basic_delete_modules.inc index b5c1f12a101d..3fe642ea8ec6 100644 --- a/testautomation/framework/optional/includes/basic_delete_modules.inc +++ b/testautomation/framework/optional/includes/basic_delete_modules.inc @@ -37,20 +37,20 @@ testcase tDeleteModulesAtRunningBasic dim brc as boolean const MAX_WAIT = 3000 - + dim iMenuItemCount as integer printlog( "Open a new writer-doc" ) gApplication = "WRITER" - Call hNewDocument() - printlog( "Create a new module " ) + printlog( "Open the BASIC Organizer" ) brc = hOpenBasicOrganizerFromDoc() if ( not brc ) then warnlog( "Unable to open BASIC organizer for the document" ) goto endsub endif - + + printlog( "Create a new module for the current document" ) brc = hCreateModuleForDoc() if ( not brc ) then warnlog( "Unable to create a basic module for the document" ) @@ -76,15 +76,14 @@ testcase tDeleteModulesAtRunningBasic Tabbar.OpenContextMenu() try - if ( hMenuItemGetCount() = 5 ) then - warnlog( "#i101972# - Disabled entries are shown in context menu on tab bar" ) - end if - - - if ( hMenuItemGetCount() = 3 ) then - warnlog( "Delete is active in context menu for a running macro => BUG!" ) - end if - + iMenuItemCount = hMenuItemGetCount() + + select case ( iMenuItemCount ) + case 2 : printlog( "Correct number of items in menu: " & iMenuItemCount ) + case 3 : warnlog ( "Delete is active in context menu for a running macro => BUG!" ) + case 5 : warnlog ( "#i101972# - Disabled entries are shown in context menu on tab bar" ) + default : warnlog ( "Incorrect itemcount in context menu: " & iMenuItemCount ) + end select catch warnlog( "Unable to retrieve the number of menuitems" ) endcatch @@ -98,8 +97,7 @@ testcase tDeleteModulesAtRunningBasic warnlog( "Slot not finished, timeout reached" ) endif - Call hCloseDocument() - Call hCloseDocument() + Call hFileCloseAll() endcase diff --git a/testautomation/framework/optional/includes/basic_documents.inc b/testautomation/framework/optional/includes/basic_documents.inc index 47173efb8ef5..d5d12b1aa12f 100644 --- a/testautomation/framework/optional/includes/basic_documents.inc +++ b/testautomation/framework/optional/includes/basic_documents.inc @@ -35,12 +35,8 @@ private const IDOCS = 5 testcase tBasicDocuments - qaerrorlog( "#i90435# Untitled documents unnumbered in BASIC organizer" ) - goto endsub - const CFN = "tBasicDocuments::" - dim brc as boolean dim sFileWriter as string dim sFileCalc as string @@ -55,61 +51,66 @@ testcase tBasicDocuments ' in the Macro Organizer const DOC_NAME = "basic" - printlog( "" ) + printlog( "Set macro security level to medium" ) iSecLevel = hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_MEDIUM ) - + + printlog( "Open one single unchanged Writer document" ) hInitSingleDoc() kontext "DocumentWriter" DocumentWriter.typeKeys( "tBasicDocuments - initial document - discard after test" ) gApplication = "WRITER" - printlog( "" ) + printlog( "Create a Writer workfilename (build path and filename)" ) brc = hCreateBasicWorkFiles() sFileWriter = hGetBasicWorkFile( "current" ) gApplication = "CALC" - printlog( "" ) + printlog( "Create a Calc workfilename (build path and filename)" ) brc = hCreateBasicWorkFiles() sFileCalc = hGetBasicWorkFile( "current" ) - printlog( "" ) + printlog( "Open the writer file" ) brc = hFileOpen( sFileWriter ) brc = hAllowMacroExecution() if ( not brc ) then warnlog( "Missing Macro execution dialog. Please check the file/security settings" ) endif + + printlog( "Open the Calc file" ) brc = hFileOpen( sFileCalc ) brc = hAllowMacroExecution() if ( not brc ) then warnlog( "Missing Macro execution dialog. Please check the file/security settings" ) endif - printlog( "" ) + printlog( "Open the BASIC organizer" ) brc = hOpenBasicOrganizerFromDoc() + printlog( "Retreive the names of all nodes from the treelist" ) hGetVisibleNodeNames( MakroAus , cNodeListA() ) - printlog( "" ) + printlog( "Verify that both documents are listed - one Writer, one Calc with identical names" ) iHitCount = hCountMatchesInList( cNodeListA() , DOC_NAME ) if ( iHitCount <> 2 ) then warnlog( "There should be two documents with the name " & DOC_NAME & "listed." ) endif - + + printlog( "Click Manage..." ) verwalten.click() - printlog( "" ) + printlog( "Get the nodes list from the object organizer tabs - first tab" ) brc = hSelectBasicObjectOrganizerTab( 1 ) ListAllDelete( cNodeListB() ) hGetVisibleNodeNames( ModulListe , cNodeListB() ) - printlog( "" ) + printlog( "Verify that both documents are listed on both relevant tabpages" ) iHitCount = hCountMatchesInList( cNodeListA() , DOC_NAME ) if ( iHitCount <> 2 ) then warnlog( "There should be two documents with the name " & DOC_NAME & "listed." ) endif - printlog( "" ) + printlog( "Switch to second tab" ) brc = hSelectBasicObjectOrganizerTab( 2 ) ListAllDelete( cNodeListB() ) hGetVisibleNodeNames( ModuleList , cNodeListB() ) @@ -118,34 +119,33 @@ testcase tBasicDocuments hListPrint( cNodeListB() , "List of objects found in treelist" ) endif - printlog( "" ) + printlog( "Verify" ) iHitCount = hCountMatchesInList( cNodeListB() , DOC_NAME ) if ( iHitCount <> 2 ) then warnlog( "There should be two documents with the name " & DOC_NAME & "listed." ) endif - printlog( "" ) + printlog( "Third tab (should not list the document" ) brc = hSelectBasicObjectOrganizerTab( 3 ) brc = hTestLibraryListBox( cNodeListA() ) - printlog( "" ) printlog( CFN & "Closing dialogs..." ) TabBibliotheken.cancel() - + + printlog( "Cleanup: Close macro organizer" ) Kontext "Makro" Makro.cancel() - brc = hDestroyDocument() - brc = hDestroyDocument() - + printlog( "Cleanup: Close all files" ) + hFileCloseAll() + + printlog( "Cleanup: Remove workfiles" ) brc = hDeleteFile( sFileWriter ) brc = hDeleteFile( sFileCalc ) - + + printlog( "Rest macro security level" ) hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT ) - hDestroyDocument() - - endcase '******************************************************************************* @@ -154,15 +154,11 @@ function hTestLibraryListBox( cNodeList() ) as boolean const CFN = "hTestLibraryListBox::" - - dim iEntry as integer dim cEntry as string - dim brc as boolean + dim brc as boolean : brc = true dim irc as integer - brc = true - if ( bibliothek.getItemCount() <> IDOCS ) then warnlog( CFN & "Incorrect number of items in listbox" ) printlog( CFN & "Expected: " & bibliothek.getItemCount() ) @@ -186,5 +182,4 @@ function hTestLibraryListBox( cNodeList() ) as boolean next iEntry - end function diff --git a/testautomation/framework/optional/includes/f_usage_tracking.inc b/testautomation/framework/optional/includes/f_usage_tracking.inc index 5abdade49ccf..7ea54855eb5d 100644 --- a/testautomation/framework/optional/includes/f_usage_tracking.inc +++ b/testautomation/framework/optional/includes/f_usage_tracking.inc @@ -31,22 +31,19 @@ '* '\****************************************************************************** -' Concept -' The usage tracking functionality is disabled during test init. -' Configuration is done in Tools/Options. There a tabpage must exist that -' offers the functionality to enable/disable tracking and to show what has -' logged. - private const LOGFILE = "user\temp\Feedback\Current.csv" '******************************************************************************* testcase tUsageTracking1 - printlog( "Test case 1: Presence of the Usage Tracking featureset (API)" ) + printlog( "Test case 1: Presence of the Usage Tracking featureset" ) + + ' Broken in CWS sb111' + ' Currently missing: Check for Office brand, StarOffice should always have OOoImp enabled' if ( not gOOoImprovementIsEnabled ) then - warnlog( "Could not access API for usage tracking program" ) + warnlog( "Usage tracking program is not enabled for this build" ) endif endcase @@ -87,14 +84,20 @@ testcase tUsageTracking3 if ( TabOOoImprovement.exists( 1 ) ) then if ( not ParticipateNo.isChecked() ) then - qaerrorlog( "#i98736# - UI should reflect current status for usage tracking: No" ) + warnlog( "#i98736# - UI should reflect current status for usage tracking: No" ) endif if ( ShowData.isEnabled() ) then - qaerrorlog( "#i97340# - Show data button should not be enabled if nothing is logged" ) + warnlog( "#i97340# - Show data button should not be enabled if nothing is logged" ) ShowData.click() + kontext "FilterAuswahl" + if ( FilterAuswahl.exists( 2 ) ) then + warnlog( "Filter Selection dialog is not expected at this point, ") + FilterAuswahl.cancel() + endif + kontext "Active" if ( Active.exists( 2 ) ) then qaerrorlog( "Messagebox not required as control should not be enabled (see #i97340#)" ) @@ -118,7 +121,7 @@ testcase tUsageTracking3 else warnlog( "OOo Improvement Tabpage (Tools/Options) is missing" ) endif - + kontext "OptionenDlg" OptionenDlg.cancel() diff --git a/testautomation/framework/optional/includes/help_bookmarks.inc b/testautomation/framework/optional/includes/help_bookmarks.inc index bfa2384c8eca..c4aebad1af9d 100644 --- a/testautomation/framework/optional/includes/help_bookmarks.inc +++ b/testautomation/framework/optional/includes/help_bookmarks.inc @@ -155,23 +155,27 @@ testcase tHelpBookmarks printlog( "Verify that the renamed bookmark still exists") Kontext "BookmarksPage" - Bookmarks.select( 1 ) - cStringBookmark = Bookmarks.getSelText() - if ( cStringBookmark = MYBOOKMARK ) then - printlog( "The bookmark has the correct name") - else - warnlog( "Incorrect name displayed in bookmarks list") - endif - - printlog( "Delete the Bookmark (using context menu)") - hUseBookmarksContextMenu( "delete") - - printlog( "verify that the bookmark has been deleted (none left)") - kontext "Bookmarks" - if ( bookmarks.getItemCount = 0 ) then - printlog( "Bookmark has been deleted") + if ( Bookmarks.getItemCount() > 0 ) then + Bookmarks.select( 1 ) + cStringBookmark = Bookmarks.getSelText() + if ( cStringBookmark = MYBOOKMARK ) then + printlog( "The bookmark has the correct name") + else + warnlog( "Incorrect name displayed in bookmarks list") + endif + + printlog( "Delete the Bookmark (using context menu)") + hUseBookmarksContextMenu( "delete") + + printlog( "verify that the bookmark has been deleted (none left)") + kontext "Bookmarks" + if ( bookmarks.getItemCount = 0 ) then + printlog( "Bookmark has been deleted") + else + warnlog( "There are bookmarks left over, please check") + endif else - warnlog( "There are bookmarks left over, please check") + warnlog( "Bookmarks are lost on program restart") endif printlog( "Close the help") diff --git a/testautomation/framework/optional/includes/ole_1.inc b/testautomation/framework/optional/includes/ole_1.inc index 3e5d7af304a1..a90d517620a1 100644 --- a/testautomation/framework/optional/includes/ole_1.inc +++ b/testautomation/framework/optional/includes/ole_1.inc @@ -41,13 +41,13 @@ testcase tOLEWriter Call hNewDocument PrintLog "- Writer : Chart without table" - InsertObjectChart - sleep(4) + hUseAsyncSlot( "InsertObjectChart" ) + Kontext "DocumentChart" - if DocumentChart.Exists(5) then + if ( DocumentChart.Exists( 5 ) ) then FormatChartType Kontext "ChartType" - if ChartType.Exists(5) then + if ( ChartType.Exists( 5 ) ) then ChartType.Cancel else warnlog "Chart Type dialog did bot occour." @@ -56,18 +56,22 @@ testcase tOLEWriter DocumentChart.TypeKeys "<ESCAPE>" Kontext "DocumentWriter" DocumentWriter.TypeKeys "<DELETE>" - sleep(1) else warnlog "Chart has not been inserted." end if - sleep(4) + PrintLog "- Writer : Chart out of a table only with numbers" - InsertTableWriter + hUseAsyncSlot( "InsertTableWriter" ) Kontext "TabelleEinfuegenWriter" - Spalten.SetText "3" - Zeilen.SetText "10" - TabelleEinfuegenWriter.OK + if ( TabelleEinfuegenWriter.exists( 1 ) ) then + Spalten.SetText "3" + Zeilen.SetText "10" + TabelleEinfuegenWriter.OK + TabelleEinfuegenWriter.notExists( 2 ) + else + warnlog( "Dialog <TabelleEinfuegenWriter> did not open" ) + endif Kontext "DocumentWriter" for i%=1 to 10 @@ -80,7 +84,7 @@ testcase tOLEWriter DocumentWriter.TypeKeys "<Left>", 3 next i% - InsertObjectChart + hUseAsyncSlot( "InsertObjectChart" ) hStepThroughChartWizard() Kontext "DocumentChart" @@ -90,16 +94,19 @@ testcase tOLEWriter Sleep 1 DocumentWriter.TypeKeys "<Down>", 20 DocumentWriter.TypeKeys "<Return>", 2 - Sleep 1 - PrintLog "- Writer : Chart out of a table only with chars" - InsertTableWriter + hUseAsyncSlot( "InsertTableWriter" ) Kontext "TabelleEinfuegenWriter" - Spalten.SetText "3" - Zeilen.SetText "10" - TabelleEinfuegenWriter.OK + if ( TabelleEinfuegenWriter.exists( 1 ) ) then + Spalten.SetText "3" + Zeilen.SetText "10" + TabelleEinfuegenWriter.OK + TabelleEinfuegenWriter.notExists( 2 ) + else + warnlog( "Dialog <TabelleEinfuegenWriter> did not open" ) + endif Kontext "DocumentWriter" for i%=1 to 10 @@ -112,8 +119,7 @@ testcase tOLEWriter DocumentWriter.TypeKeys "<Left>", 3 next i% - InsertObjectChart - + hUseAsyncSlot( "InsertObjectChart" ) hStepThroughChartWizard() Kontext "DocumentChart" @@ -123,30 +129,32 @@ testcase tOLEWriter Sleep 1 DocumentWriter.TypeKeys "<Down>", 20 DocumentWriter.TypeKeys "<Return>", 2 - Sleep 1 PrintLog "- Writer : Math" - InsertObjectFormulaWriter + hUseAsyncSlot( "InsertObjectFormulaWriter" ) gMouseClick ( 1, 1) Kontext "DocumentWriter" DocumentWriter.TypeKeys "<Delete>" - Sleep 1 PrintLog "- Writer : floating frame" + hUseAsyncSlot( "InsertFloatingFrame" ) - 'warnlog( "#148094# - Crash when deselecting floating frame in Writer" ) - - InsertFloatingFrame - + printlog( "Properties dialog for floating frame should open" ) Kontext "TabEigenschaften" - FrameName.SetText "Hallo" - Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" ) - - TabEigenschaften.OK - Sleep 2 + if ( TabEigenschaften.exists( 1 ) and TabEigenschaften.isVisible() ) then + + printlog( "Name the floating frame, close the dialog" ) + FrameName.SetText "Hallo" + Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" ) + + TabEigenschaften.OK + TabEigenSchaften.notExists( 2 ) + + endif + printlog( "Close the writer document" ) Kontext "DocumentWriter" DocumentWriter.TypeKeys "<Delete>" Sleep 1 @@ -327,7 +335,7 @@ testcase tOLEDraw MenuSelect(0) try - InsertObjectChart + hUseAsyncSlot( "InsertObjectChart" ) Sleep ( 2 ) Kontext "DocumentChart" @@ -407,7 +415,7 @@ testcase tOLEImpress PrintLog "- Impress : Chart" try - InsertObjectChart + hUseAsyncSlot( "InsertObjectChart" ) sleep 2 gMouseClick ( 1 , 1 ) diff --git a/testautomation/framework/optional/includes/security_recommend_password.inc b/testautomation/framework/optional/includes/security_recommend_password.inc index 33811d35a7b7..eaceab3691b9 100644 --- a/testautomation/framework/optional/includes/security_recommend_password.inc +++ b/testautomation/framework/optional/includes/security_recommend_password.inc @@ -81,7 +81,6 @@ testcase tRecommendPassword( filetypeID as string ) if ( rc = 0 ) then if AutomatischeDateinamenserweiterung.Exists then - QAErrorLog "OBSOLETE: Check-box Automatic file extension in file dialog will be removed soon!" AutomatischeDateinamenserweiterung.Uncheck endif |