diff options
Diffstat (limited to 'testautomation/framework/optional/includes/help_search.inc')
-rwxr-xr-x[-rw-r--r--] | testautomation/framework/optional/includes/help_search.inc | 52 |
1 files changed, 23 insertions, 29 deletions
diff --git a/testautomation/framework/optional/includes/help_search.inc b/testautomation/framework/optional/includes/help_search.inc index 2e37fe58562e..92243b538c4f 100644..100755 --- a/testautomation/framework/optional/includes/help_search.inc +++ b/testautomation/framework/optional/includes/help_search.inc @@ -25,7 +25,7 @@ ' '/****************************************************************************** '* -'* owner : joerg.skottke@sun.com +'* owner : joerg.skottke@oracle.com '* '* short description : Search for a string, apply restrictions, verify '* @@ -38,6 +38,8 @@ testcase tHelpSearch goto endsub endif + const RC_LISTS_IDENTICAL = 0 + dim brc as boolean dim irc as integer @@ -48,16 +50,16 @@ testcase tHelpSearch dim cBasePath as string cBasePath = gTesttoolPath & "framework\optional\input\help_browser\" dim cDataFile as string - - brc = hOpenHelp() - if ( not brc ) then + dim sProductName as string : sProductName = hStringReplaceChar( gProductName, " ", "_" ) + + printlog( "Open Help Browser" ) + if ( not hOpenHelp() ) then warnlog( "Help not open, aborting test" ) goto endsub endif - - brc = hSelectHelpTab( "find" ) - if ( not brc ) then + printlog( "Go to the Find-Tabpage" ) + if ( not hSelectHelpTab( "find" ) ) then warnlog( "Could not access requested TabPage, aborting test" ) call hClosehelp() goto endsub @@ -75,15 +77,14 @@ testcase tHelpSearch ListAllDelete( aUIList() ) hGetListItems( Result, aUIList() ) - - cDataFile = gProductName & "_search_without_filter_" & gIsoLang & ".txt" + + + cDataFile = sProductName & "_search_without_filter_" & gIsoLang & ".txt" sFileOut = hGetWorkFile( cDataFile ) sFileIn = convertpath( cBasePath & cDataFile ) - irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) - if ( irc <> 0 ) then - warnlog( "Lists are not identical, please review the log" ) - endif + irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) + hListResultEvaluation( irc , RC_LISTS_IDENTICAL ) ' ------------ Search whole words only ------------------------------------- printlog( "" ) @@ -98,14 +99,12 @@ testcase tHelpSearch ListAllDelete( aUIList() ) hGetListItems( Result, aUIList() ) - cDataFile = gProductName & "_search_whole_words_only_" & gIsoLang & ".txt" + cDataFile = sProductName & "_search_whole_words_only_" & gIsoLang & ".txt" sFileOut = hGetWorkFile( cDataFile ) sFileIn = convertpath( cBasePath & cDataFile ) - irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) - if ( irc <> 0 ) then - warnlog( "Lists are not identical, please review the log" ) - endif + irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) + hListResultEvaluation( irc , RC_LISTS_IDENTICAL ) ' ------------ Search headings only ---------------------------------------- printlog( "" ) @@ -120,14 +119,12 @@ testcase tHelpSearch ListAllDelete( aUIList() ) hGetListItems( Result, aUIList() ) - cDataFile = gProductName & "_search_headings_only_" & gIsoLang & ".txt" + cDataFile = sProductName & "_search_headings_only_" & gIsoLang & ".txt" sFileOut = hGetWorkFile( cDataFile ) sFileIn = convertpath( cBasePath & cDataFile ) - irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) - if ( irc <> 0 ) then - warnlog( "Lists are not identical, please review the log" ) - endif + irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) + hListResultEvaluation( irc , RC_LISTS_IDENTICAL ) ' ------------ Search headings and whole words ----------------------------- printlog( "" ) @@ -142,15 +139,12 @@ testcase tHelpSearch ListAllDelete( aUIList() ) hGetListItems( Result, aUIList() ) - cDataFile = gProductName & "_search_headings_and_whole_words_" & gIsoLang & ".txt" + cDataFile = sProductName & "_search_headings_and_whole_words_" & gIsoLang & ".txt" sFileOut = hGetWorkFile( cDataFile ) sFileIn = convertpath( cBasePath & cDataFile ) - irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) - if ( irc <> 0 ) then - warnlog( "Lists are not identical, please review the log" ) - endif - + irc = hManageComparisionList( sFileIn, sFileOut, aUIList() ) + hListResultEvaluation( irc , RC_LISTS_IDENTICAL ) hCloseHelp() |