diff options
Diffstat (limited to 'testautomation/framework/required/includes/basic_dialog_i18n.inc')
-rwxr-xr-x[-rw-r--r--] | testautomation/framework/required/includes/basic_dialog_i18n.inc | 54 |
1 files changed, 23 insertions, 31 deletions
diff --git a/testautomation/framework/required/includes/basic_dialog_i18n.inc b/testautomation/framework/required/includes/basic_dialog_i18n.inc index bb1f0cf496ce..590c45a5f58a 100644..100755 --- a/testautomation/framework/required/includes/basic_dialog_i18n.inc +++ b/testautomation/framework/required/includes/basic_dialog_i18n.inc @@ -34,54 +34,53 @@ testcase tUpdtBasicDialogI18n printlog( "BASIC IDE Dialog i18n." ) + const MODULE_NAME = "tUpdtBasicDialogI18n" + const DIALOG_DEFAULT_TIMEOUT = 2 - dim brc as boolean + kontext "Navigator" + hCloseDialog( Navigator, "close,optional" ) + hCreateDocument() - hCloseNavigator() - hCreateDocument()' - - brc = hInitFormControls( "tDialogI18n" ) - if ( not brc ) then + if ( not hInitFormControls( MODULE_NAME ) ) then warnlog( "Failed to open Basic IDE / Dialogs / ToolsCollectionBar" ) goto endsub endif printlog( "Click Manage Languages on ToolsCollectionBar") kontext "ToolsCollectionBar" - sleep(1) - if ( ToolsCollectionBar.exists() ) then - ManageLanguage.click() + if ( ToolsCollectionBar.exists( DIALOG_DEFAULT_TIMEOUT ) ) then + hClickButton( ManageLanguage ) else warnlog( "<ToolsCollectionBar> is not open, is the test environment dirty?" ) endif kontext "ManageUILanguages" - if ( ManageUILanguages.exists( 2 ) ) then + if ( ManageUILanguages.exists( DIALOG_DEFAULT_TIMEOUT ) ) then call dialogtest( ManageUILanguages ) printlog( "Add default language, choose preselection") kontext "ManageUILanguages" - Add.click() + hClickButton( Add ) kontext "SetDefaultLanguage" - if ( SetDefaultLanguage.exists( 2 ) ) then + if ( SetDefaultLanguage.exists( DIALOG_DEFAULT_TIMEOUT ) ) then call dialogtest( SetDefaultLanguage ) kontext "SetDefaultLanguage" DefaultLanguageListbox.select( 3 ) kontext "SetDefaultLanguage" - SetDefaultLanguage.ok() + hCloseDialog( SetDefaultLanguage, "ok" ) else warnlog( "Dialog <SetDefaultLanguage> did not open" ) - endif + endif printlog( "Back on Manage UI Languages Dialog we click <Add>") kontext "ManageUILanguages" - Add.click() + hClickButton( Add ) kontext "AddUserInterface" - if ( AddUserInterface.exists( 2 ) ) then + if ( AddUserInterface.exists( DIALOG_DEFAULT_TIMEOUT ) ) then call dialogtest( AddUserInterface ) printlog( "Add just another language at random") @@ -90,7 +89,7 @@ testcase tUpdtBasicDialogI18n AddNewControl.typeKeys( "<SPACE>" ) ' check it kontext "AddUserInterface" - AddUserInterface.ok() + hCloseDialog( AddUserInterface, "ok" ) else warnlog( "Dialog <AddUserInterface> did not open" ) endif @@ -100,39 +99,32 @@ testcase tUpdtBasicDialogI18n printlog( "Back on Manage UI Languages Dialog, delete selected language") kontext "ManageUILanguages" - Delete.click() - sleep(1) + hClickButton( Delete ) + printlog( "Confirm delete") kontext "active" - if ( Active.exists( 1 ) ) then + if ( Active.exists( DIALOG_DEFAULT_TIMEOUT ) ) then call dialogtest( active ) kontext "active" - active.ok() + hCloseDialog( active, "ok" ) else warnlog( "Confirm delete messagebox is missing" ) endif printlog( "Leave Manage UI Languages Dialog") kontext "ManageUILanguages" - ManageUILanguages.ok() + hCloseDialog( ManageUILanguages, "ok" ) else warnlog( "Manage UI languages did not open" ) endif printlog( "Verify that the translationbar is visible") kontext "TranslationBar" - if ( not TranslationBar.exists() ) then - warnlog( "The IDE Translation Toolbar is not visible" ) - endif + if ( not TranslationBar.exists() ) then warnlog( "The IDE Translation Toolbar is not visible" ) kontext "ToolsCollectionBar" - if ( not ToolsCollectionBar.exists() ) then - warnlog( "The ToolsCollectionBar is not visible" ) - endif - - printlog( "Cleanup" ) - ToolsCollectionBar.Close + hCloseDialog( ToolsCollectionBar, "close" ) hClosebasicIDE() hDestroyDocument() |