automationooo320m6: #i107266# - Try to avoid flase warning because of delayed listbox fillage (is this correct english?<g>)

This commit is contained in:
Joerg Skottke 2009-11-27 12:10:52 +00:00
parent 997788c91a
commit 6cf33af679

View file

@ -39,12 +39,15 @@
testcase tBasicDialogI18nImport
printlog( "Dialogs that show up when importing Multi locale dialogs into BASIC IDE" )
printlog( "Dialogs that show up when importing multi locale dialogs into BASIC IDE" )
dim cDialogPath as string
cDialogPath = gTesttoolPath & "framework\required\input\basic_ide\Dialog5.xdl"
cDialogPath = convertpath( cDialogPath )
dim iNumberOfLanguages as integer
dim iTry as integer
const LANGUAGE_COUNT = 5
printlog( "Open BASIC-IDE" )
@ -85,12 +88,20 @@ testcase tBasicDialogI18nImport
sleep(1)
Kontext "TranslationBar"
if ( TranslationBar.exists() ) then
for iTry = 1 to 5
iNumberOfLanguages = CurrentLanguage.getItemCount()
if ( iNumberOfLanguages = LANGUAGE_COUNT ) then
exit for
endif
wait( 100 )
next iTry
printlog( "Check number of imported languages" )
if ( CurrentLanguage.getItemCount() <> LANGUAGE_COUNT ) then
if ( iNumberOfLanguages <> LANGUAGE_COUNT ) then
warnlog( "Incorrect language count in listbox <CurrentLanguage>" )
printlog( "Expected: " & LANGUAGE_COUNT )
printlog( "Found...: " & CurrentLanguage.getItemCount() )
printlog( "Found...: " & iNumberOfLanguages )
endif
Kontext "DialogBar"