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
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
'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 : oliver.craemer@Sun.COM
'**
'** short description : Test IBIS bug fixes
'**
'************************************************************************
' **
' #1 tIBIS111099 ' Disable design mode of form controls after loading excel file
' #1 tIBIS111158 ' Lost properties of form controls
' #1 tIBIS111711 ' Crash when deleting chart in Menu->Window->New Window
' **
'\***********************************************************************
testcase tIBIS111099
Dim testdoc as string
testdoc = convertpath(gOfficePath & "user/work/111099.xls")
Printlog "Copy testdocument locally"
app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111099.xls"),gOfficePath + ConvertPath("user/work/111099.xls")
printlog " Open the test document"
Call hFileOpen(testdoc)
Call sMakeReadOnlyDocumentEditable
'/// Invoke Control Toolbar
'///+ Try to click control 'Push Button'
'///+> <ul><li>Click successful - BUG #111099#</li>
'///+ <li>Click fails - document opened as expected in non-design mode</li>
Call hToolbarSelect("CONTROLS", true)
sleep(2)
Kontext "FormControls"
if SwitchControlDesignMode.IsEnabled then
if SwitchControlDesignMode.getState(2) = 0 then
printlog "OK, design mode is disabled"
else
warnlog "Document is opened in design mode -> #111099#"
end if
else
printlog "Form controls toolbar was not enabled."
end if
call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tIBIS111158
Dim testdoc as string
Dim testString as string
testdoc = convertpath(gOfficePath & "user/work/111158.xls")
Printlog "Copy testdocument locally"
app.FileCopy convertpath(gTesttoolpath & "spreadsheet\optional\input\111158.xls"),gOfficePath + ConvertPath("user/work/111158.xls")
printlog " Open the test document"
Call hFileOpen(testdoc)
Call sMakeReadOnlyDocumentEditable
Kontext "Standardbar"
'/// If 'Form Controls' toolbar is not visible: View / Toolbars / Form Controls
Call hToolbarSelect("CONTROLS", true)
sleep(2)
Kontext "FormControls"
try
if SwitchControlDesignMode.IsEnabled then
'/// Click on 'Design Mode on/off' button on 'Form Controls'-toolbar
SwitchControlDesignMode.click
sleep(2)
'/// Click on 'Form Design' button on 'Form Controls'-toolbar
FormDesignTools.Click
sleep(2)
else
printlog "Form controls toolbar was not enabled."
end if
catch
QAErrorlog "Document is opened in design mode -> #111099#"
QAErrorlog "No need to test if that one isn't fixed -> aborted"
call hCloseDocument
goto endsub
endcatch
Kontext "FormDesignTools"
if FormDesignTools.Exists(2) then
If ShowFmExplorer.IsEnabled then
'/// Show Form Navigator
ShowFmExplorer.Click
else
warnlog "Button was not enabled!"
end if
else
warnlog "'Form Design'-toolbar did not come up."
Call hCloseDocument
goto endsub
end if
'/// Select the first 'ComboxBox' (9th entry from the top)
'/// Open context menu
Kontext "FormularNavigator"
Liste.TypeKeys "<HOME>" , true
sleep(1)
Liste.TypeKeys "<DOWN>" , 9 , true
sleep(1)
Liste.OpenContextmenu
sleep(2)
'/// Open 'Properties' (last entry)
hMenuSelectNr(5)
sleep(2)
Kontext "ControlPropertiesDialog"
Kontext "ControlPropertiesTabControl"
ControlPropertiesTabControl.SetPage TabGeneralControl
Kontext "TabGeneralControl"
'/// Enter in 'Help URL' as value exactly 'HID:123456'
TabGeneralControl.TypeKeys "<TAB>" , true
HelpURL.setText "HID:123456"
HelpURL.TypeKeys "<RETURN>",true
if HelpURL.GetText <> "HID:123456" then
warnlog "'HID:123456' has not been accepted as 'Help URL' value."
end if
'/// Close all disturbing menus
Kontext "ControlPropertiesDialog"
sleep(1)
ControlPropertiesDialog.close
sleep(2)
Kontext "FormularNavigator"
FormularNavigator.close
Kontext "FormDesignTools"
FormDesignTools.close
Kontext "FormControls"
'/// Switch back from the design mode
SwitchControlDesignMode.click
FormControls.close
sleep(1)
'/// Check for right initial string ('Please select one:')in control
Kontext "MSC_Special_Dialog"
if MSC_Special_Dialog.Exists(3) then
testString = MSC_Special_Dialog.getSelText
if testString = "Please select one:" then
printlog "OK, the right string was found in control"
else
warnlog "Wrong string found in Control: " & testString
end if
else
warnlog "The control seems to be not named in the document?! Verify! If Solaris: #i100870#"
end if
call hCloseDocument
endcase
'-------------------------------------------------------------------------
testcase tIBIS111711
printlog "iBIS Task 111711"
printlog " Create a new document"
call hNewDocument
printlog " Enter some numbers as content"
Kontext "DocumentCalc"
DocumentCalc.typekeys "1<RETURN>2<RETURN><UP>"
sleep(2)
'/// create a chart from the content
'/// + NOTE: Do NOT leave the Implace mode
InsertChartCalc
'/// The Chart wizard occours
Kontext "ChartWizard"
'/// On the chart wizard press OK button
if ChartWizard.Exists(2) then
printlog "Create chart"
ChartWizard.OK
sleep(2)
else
warnlog "Chart wizard did not occour! Exiting test case."
call hCloseDocument
goto endsub
end if
'/// Call slot Window->New Window
Kontext "DocumentCalc"
DocumentCalc.typekeys "<ESCAPE>"
WindowNewWindow
sleep(2)
call gMouseClick(95,95)
'/// Select chart in new window
Kontext "DocumentCalc"
call fselectFirstOLE
sleep(2)
'/// Delete chart in new window ...
'/// ... and check for crash
Kontext "DocumentCalc"
try
DocumentCalc.typekeys "<DELETE>"
sleep (2)
printlog "OK, there are still " & GetDocumentCount & " documents open"
catch
warnlog "Probably the office did crash -> #111711#"
call hCloseDocument
goto endsub
endcatch
call hCloseDocument
endcase
|
