1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org. If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* owner : thorsten.bosbach@oracle.com
'*
'* short description : Tools->Options: OpenOffice.org Colors
'*
'\******************************************************************************
testcase tOOoColors
printlog( "OOo color palette" )
dim myColor(4) as String
dim oldColor(4) as String
dim currentColor(4) as String
dim chColor(4) as String
const DEFAULT_COLOR_COUNT = 99
const CHANGED_COLOR_COUNT = 100
const USER_COLOR = "TT-Test-Color"
myColor(1) = USER_COLOR
myColor(2) = "255"
myColor(3) = "245"
myColor(4) = "200"
printlog( "Check if all settings are saved in configuration ( StarOffice / Colors )" )
printlog( "Open Tools / Options / StarOffice / Colors" )
ToolsOptions
Kontext "ExtrasOptionenDlg"
if ( ExtrasOptionenDlg.exists( 1 ) ) then
hToolsOptions ( "StarOffice", "Colors" )
printlog( "Delete the userdefined color if it exists" )
if ( Farbe.GetItemCount() <> DEFAULT_COLOR_COUNT + 1 ) then
call DeleteColor( USER_COLOR )
endif
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" )
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
WaitSlot( 2000 )
goto endsub
else
printlog( "Number of colors is ok: " & DEFAULT_COLOR_COUNT )
endif
printlog( "Jump to the last color in the list." )
Kontext "TabFarben"
Farbe.Select( Farbe.GetItemCount() )
printlog( "Get the settings for the current selected color" )
call getColorRGB(oldColor()) '(204,204,255)
printlog( "Change settings for last color and press 'modify'" )
call ModifyColorRGB_PGUP( DEFAULT_COLOR_COUNT ) '(255,255,255)
printlog( "Get the changed colors (Sun 4,255,255,255)" )
call GetColorRGB(chColor())
printlog( "Change the settings again and save it as TT-Test (adding to the list)" )
call CreateNewColor(myColor()) '(255,245,200)
printlog( "Check the number of currently registered colors" )
Kontext "TabFarben"
if ( Farbe.getItemCount() <> CHANGED_COLOR_COUNT ) then
warnlog( "The number of colors has changed" )
printlog( "Expected: " & CHANGED_COLOR_COUNT )
printlog( "Found...: " & Farbe.getItemCount() )
else
printlog( "Number of colors is ok: " & DEFAULT_COLOR_COUNT )
endif
printlog( "Close the Tools/Options dialog with OK" )
Kontext "ExtrasOptionenDlg"
hCloseDialog( ExtrasOptionenDlg, "ok" )
else
warnlog( "Tools/Options dialog not open" )
endif
printlog( "Exit and restart the office" )
ExitRestartTheOffice
printlog( "Check the changes" )
ToolsOptions
Kontext "ExtrasOptionenDlg"
if ( ExtrasOptionenDlg.exists( 1 ) ) then
hToolsOptions ( "StarOffice", "Colors" )
printlog( "Check the number of colors (Plus one color)" )
Kontext "TabFarben"
if ( Farbe.getItemCount() <> CHANGED_COLOR_COUNT ) then
warnlog( "The number of colors has changed" )
printlog( "Expected: " & CHANGED_COLOR_COUNT )
printlog( "Found...: " & Farbe.getItemCount() )
else
printlog( "Number of colors is ok: " & DEFAULT_COLOR_COUNT )
endif
printlog( "Select the changed color and check the changes" )
Kontext "TabFarben"
Farbe.Select( DEFAULT_COLOR_COUNT )
call compareTwoColorsRGB(chColor())
printlog( "Select the new color ( TT-Test ) and check the name and the settings" )
Kontext "TabFarben"
Farbe.Select( CHANGED_COLOR_COUNT )
call CompareTwoColorsRGB(myColor())
printlog( "Delete the new userdefined color" )
call deleteColor( USER_COLOR )
printlog( "Check the number of colors (One removed)" )
Kontext "TabFarben"
if ( Farbe.getItemCount() <> DEFAULT_COLOR_COUNT ) then
warnlog( "The number of colors has changed" )
printlog( "Expected: " & DEFAULT_COLOR_COUNT )
printlog( "Found...: " & Farbe.getItemCount() )
else
printlog( "Number of colors is ok: " & DEFAULT_COLOR_COUNT )
endif
printlog( "reset the modified color to default" )
Kontext "TabFarben"
Farbe.Select( DEFAULT_COLOR_COUNT )
call ModifyColorRGB(oldColor())
printlog( "Close options dialog with OK" )
Kontext "ExtrasOptionenDlg"
hCloseDialog( ExtrasOptionenDlg, "ok" )
else
warnlog( "Tools/Options dialog not open" )
endif
printlog( "Reopen options dialog and check the reset" )
ToolsOptions
Kontext "ExtrasOptionenDlg"
if ( ExtrasOptionenDlg.exists( 1 ) ) then
hToolsOptions ( "StarOffice", "Colors" )
printlog( "Check if the number of colors in the list has been restored" )
Kontext "TabFarben"
if ( Farbe.getItemCount() <> DEFAULT_COLOR_COUNT ) then
warnlog( "The number of colors has changed" )
printlog( "Expected: " & DEFAULT_COLOR_COUNT )
printlog( "Found...: " & Farbe.getItemCount() )
else
printlog( "Number of colors is ok: " & DEFAULT_COLOR_COUNT )
endif
printlog( "Check if the last color has been reset to defaults." )
Kontext "TabFarben"
Farbe.Select( DEFAULT_COLOR_COUNT )
call compareTwoColorsRGB(oldColor())
printlog( "Close options dialog with OK" )
Kontext "ExtrasOptionenDlg"
hCloseDialog( ExtrasOptionenDlg, "ok" )
else
warnlog( "Tools/Options dialog not open" )
endif
endcase
|
