Fix some changed constants

This commit is contained in:
Thorsten Bosbach 2011-02-02 11:03:16 +01:00
parent c5f65c1463
commit 5404b53cab
2 changed files with 6 additions and 8 deletions

View file

@ -40,8 +40,8 @@ testcase tOOoColors
dim currentColor(4) as String
dim chColor(4) as String
const DEFAULT_COLOR_COUNT = 99
const CHANGED_COLOR_COUNT = 100
const DEFAULT_COLOR_COUNT = 100
const CHANGED_COLOR_COUNT = DEFAULT_COLOR_COUNT +1
const USER_COLOR = "TT-Test-Color"
myColor(1) = USER_COLOR
@ -66,10 +66,8 @@ testcase tOOoColors
printlog( "Check the number of currently registered colors - cancel test on error" )
Kontext "TabFarben"
if ( Farbe.GetItemCount() <> DEFAULT_COLOR_COUNT ) then
warnlog( "The number of colors has changed, stopping test" )
printlog( "Expected: " & DEFAULT_COLOR_COUNT )
printlog( "Found...: " & Farbe.getItemCount() )
printlog( "Close the Tools/Options dialog with OK" )
warnlog "The number of colors has changed, stopping test; Expected: " & DEFAULT_COLOR_COUNT & "; Found...: " & Farbe.getItemCount()
printlog "Close the Tools/Options dialog with OK"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
WaitSlot( 2000 )

View file

@ -453,8 +453,8 @@ testcase tToolsCatalog
next j
next i
if (listCount(lAllSymbols()) <> 106) then
warnlog "There have to be 106 Symbols, but there are: " + listCount(lAllSymbols())
if (listCount(lAllSymbols()) <> 108) then
warnlog "There have to be 108 Symbols, but there are: " + listCount(lAllSymbols())
endif
' TODO: check sAllSymbols for not allowed characters!
listCopy(lAllSymbols(),lAllSymbolsSort())