diff options
Diffstat (limited to 'testautomation/framework/required/includes/window_functions.inc')
| -rwxr-xr-x[-rw-r--r--] | testautomation/framework/required/includes/window_functions.inc | 26 |
1 files changed, 5 insertions, 21 deletions
diff --git a/testautomation/framework/required/includes/window_functions.inc b/testautomation/framework/required/includes/window_functions.inc index cd9e0ee7b7c2..6efeb70b0b6f 100644..100755 --- a/testautomation/framework/required/includes/window_functions.inc +++ b/testautomation/framework/required/includes/window_functions.inc @@ -148,7 +148,7 @@ endcase sub sAllWindowTitle - printlog( "Window titles for the applications" ) + printlog( "Window titles for the applications: " & gProductName ) printlog( "Writer" ) gApplication = "WRITER" @@ -230,7 +230,7 @@ testcase tCheckWindowTitle(sApplication as string, sReference as string) dim sTemp as string dim saTemp() as string dim brc as boolean - gApplication = UCase (gApplication) + gApplication = gApplication printlog " - Application: " + sApplication + "; Title should be: " + sReference printlog( "Ensure that exactly one document is open" ) @@ -250,46 +250,33 @@ testcase tCheckWindowTitle(sApplication as string, sReference as string) case"smath": case"basic": ToolsMacroMacro - kontext "makro" - if Makro.exists(5) then MakroAus.typeKeys "<end>" - if (Neu.isEnabled) then Neu.click - kontext "basicide" - if BasicIDE.exists(5) then printlog( "Basic IDE open. Good." ) else warnlog( "Basic IDE not open. This is unexpected" ) endif - else warnlog( "New-button is unexpectedly disabled." ) endif - - try - kontext "neuesmodul" - if NeuesModul.exists(5) then NeuesModul.OK else warnlog( "New module naming dialog is not open" ) endif - catch warnlog( "Accessing <New module> dialog failed" ) endcatch - else warnlog( "Couldn't open Tools->Macros->Organize Macros...->StarOffice Basic..." ) endif - case"chart": case"DATABASE": case"soffice": @@ -306,14 +293,12 @@ testcase tCheckWindowTitle(sApplication as string, sReference as string) printlog( "Compare the string to a reference" ) if (ubound(saTemp()) > 0) then - if (saTemp(1) <> sReference) then - warnlog "Applicationname not as expected. Sould be: '" & sReference & "', is: '" & saTemp(1) & "'" + warnlog "Applicationname not as expected. Should be: '" & sReference & "', is: '" & saTemp(1) & "'" endif - - printlog "Productname: '" & saTemp(2) & "'" + printlog "Productname: '" + saTemp(2) + "'" else - warnlog "#i36173# - Applicationname not as expected. Should be: '" & sReference & "', is: '" & "'" + warnlog "#i36173# - Applicationname not as expected. Should be: '" & sReference & "', is: '" & saTemp(1) + "'" endif printlog( "Cleanup after test" ) @@ -336,6 +321,5 @@ testcase tCheckWindowTitle(sApplication as string, sReference as string) printlog( "Close all open documents" ) hFileCloseAll() - endcase |