| blob | fae0eadaa83cfd5363b9f3328ef1eb815dd956a9 |
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '*
5 '* Copyright 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: ch2_insert.inc,v $
10 '*
11 '* $Revision: 1.1 $
12 '*
13 '* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $
14 '*
15 '* This file is part of OpenOffice.org.
16 '*
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
20 '*
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
26 '*
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org. If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
31 '*
32 '/************************************************************************
33 '*
34 '* owner : oliver.craemer@sun.com
35 '*
36 '* short description : Chart resource test - Menu INSERT
37 '*
38 '************************************************************************
39 '*
40 ' #1 tInsertTitle
41 ' #1 tInsertAxes
42 ' #1 tInsertGrids
43 ' #1 tInsertLegend
44 ' #1 tInsertDataLabels
45 ' #1 tInsertTrendLines
46 ' #1 tInsertMeanValueLines
47 ' #1 tInsertYErrorBars
48 ' #1 tInsertSpecialCharacter
49 '*
50 '\************************************************************************
52 testcase tInsertTitle
53 '///<u><b>Dialog test after invoking Insert::Title</b></u>
54 '/// Load simple chart document
55 if fLoadVerySimpleChartAndSaveLocal() > 0 then
56 warnlog "Loading test document seems to have failed -> Check this out!"
57 goto endsub
58 endif
59 '/// Select chart using navigator
60 call fSelectFirstOLE
61 '/// Invoke Edit::Object::Edit to enter Inplace Mode
62 EditObjectEdit
63 '/// Convert chart to 3D (this will enable all controls in Titles dialog)
64 if NOT fConvertChartTo3D() then
65 warnlog "Conversion of chart to 3D failed -> Quit testcase"
66 Call hCloseDocument
67 goto endsub
68 endif
69 '/// Invoke Insert::Titles
70 if fInvokeTitlesDialog() > 0 then
71 warnlog "Something went wrong trying to invoke Titles dialog -> Check this out! (Previous log may help you)"
72 Call hCloseDocument
73 goto endsub
74 endif
75 '/// Check existence of dialog
76 Kontext "InsertTitleDialog"
77 Call DialogTest ( InsertTitleDialog )
78 '/// Quit dialog using Cancel button
79 InsertTitleDialog.Cancel
80 '/// Close document
81 Kontext "DocumentCalc"
82 DocumentCalc.TypeKeys "<Escape>"
83 Call hCloseDocument
84 endcase
85 '
86 '-------------------------------------------------------------------------
87 '
88 testcase tInsertAxes
89 '///<u><b>Dialog test after invocation of Insert::Axes</b></u>
90 '/// Load simple test document
91 if fLoadVerySimpleChartAndSaveLocal() > 0 then
92 warnlog "Loading test document seems to have failed -> Check this out!"
93 goto endsub
94 endif
95 '/// Select chart using navigator
96 call fSelectFirstOLE
97 '/// Invoke Edit::Object::Edit to enter Inplace Mode
98 EditObjectEdit
99 '/// Invoke Insert::Axes
100 if fInvokeAxesDialog() > 0 then
101 warnlog "Something went wrong trying to invoke Axes dialog -> Check this out! (Previous log may help you)"
102 Call hCloseDocument
103 goto endsub
104 endif
105 '/// Check existence of dialog
106 Kontext "InsertAxesDialog"
107 Call DialogTest ( InsertAxesDialog )
108 '/// Quit dialog using Cancel button
109 InsertAxesDialog.Cancel
110 Kontext "DocumentCalc"
111 DocumentCalc.TypeKeys "<Escape>"
112 '/// Close document
113 Call hCloseDocument
114 endcase
115 '
116 '-------------------------------------------------------------------------
117 '
118 testcase tInsertGrids
119 '///<u><b>Dialog test after invocation of Insert::Grids</b></u>
120 '/// Load simple test document
121 if fLoadVerySimpleChartAndSaveLocal() > 0 then
122 warnlog "Loading test document seems to have failed -> Check this out!"
123 goto endsub
124 endif
125 '/// Select chart using navigator
126 call fSelectFirstOLE
127 '/// Invoke Edit::Object::Edit to enter Inplace Mode
128 EditObjectEdit
129 '/// Invoke Insert::Grids
130 if fInvokeGridsDialog() > 0 then
131 warnlog "Something went wrong trying to invoke Grids dialog -> Check this out! (Previous log may help you)"
132 Call hCloseDocument
133 goto endsub
134 endif
135 '/// Check existence of dialog
136 Kontext "InsertGridsDialog"
137 Call DialogTest ( InsertGridsDialog )
138 '/// Quit dialog using Cancel button
139 InsertGridsDialog.Cancel
140 Kontext "DocumentCalc"
141 DocumentCalc.TypeKeys "<Escape>"
142 '/// Close document
143 Call hCloseDocument
144 endcase
145 '
146 '-------------------------------------------------------------------------
147 '
148 testcase tInsertLegend
149 '///<u><b>Dialog test after invocation of Insert::Legend</b></u>
150 '/// Load simple test document
151 if fLoadVerySimpleChartAndSaveLocal() > 0 then
152 warnlog "Loading test document seems to have failed -> Check this out!"
153 goto endsub
154 endif
155 '/// Select chart using navigator
156 call fSelectFirstOLE
157 '/// Invoke Edit::Object::Edit to enter Inplace Mode
158 EditObjectEdit
159 '/// Invoke Insert::Legend
160 if fInvokeLegendDialog() > 0 then
161 warnlog "Something went wrong trying to invoke Legend dialog -> Check this out! (Previous log may help you)"
162 Call hCloseDocument
163 goto endsub
164 endif
165 '/// Check existence of dialog
166 Kontext "InsertLegendDialog"
167 Call DialogTest ( InsertLegendDialog )
168 '/// Quit dialog using Cancel button
169 InsertLegendDialog.Cancel
170 Kontext "DocumentCalc"
171 DocumentCalc.TypeKeys "<Escape>"
172 '/// Close document
173 Call hCloseDocument
174 endcase
175 '
176 '-------------------------------------------------------------------------
177 '
178 testcase tInsertDataLabels
179 '///<u><b>Dialog test after invocation of Insert::Data Labels</b></u>
180 '/// Load simple test document
181 if fLoadVerySimpleChartAndSaveLocal() > 0 then
182 warnlog "Loading test document seems to have failed -> Check this out!"
183 goto endsub
184 endif
185 '/// Select chart using navigator
186 call fSelectFirstOLE
187 '/// Invoke Edit::Object::Edit to enter Inplace Mode
188 EditObjectEdit
189 '/// Invoke Insert::Data Labels
190 if fInvokeDataLabelsDialog() > 0 then
191 warnlog "Something went wrong trying to invoke Labels dialog -> Check this out!"
192 Call hCloseDocument
193 goto endsub
194 endif
195 '/// Check 'Show Value' to enable all controls
196 Kontext "InsertLabelsDialog"
197 if fSetShowValue ( TRUE ) > 0 then
198 warnlog "Something went wrong trying to check 'Show Value' -> Check this out!"
199 endif
200 '/// Check existence of dialog
201 Call DialogTest ( InsertLabelsDialog )
202 '/// Quit dialog using Cancel button
203 InsertLabelsDialog.Cancel
204 Kontext "DocumentCalc"
205 DocumentCalc.TypeKeys "<Escape>"
206 '/// Close document
207 Call hCloseDocument
208 endcase
209 '
210 '-------------------------------------------------------------------------
211 '
212 testcase tInsertTrendLines
213 '///<u><b>Dialog test after invocation of Insert::TrendLines</b></u>
214 '/// Load simple test document
215 if fLoadVerySimpleChartAndSaveLocal() > 0 then
216 warnlog "Loading test document seems to have failed -> Check this out!"
217 goto endsub
218 endif
219 '/// Select chart using navigator
220 call fSelectFirstOLE
221 '/// Invoke Edit::Object::Edit to enter Inplace Mode
222 EditObjectEdit
223 Kontext "DocumentChart"
224 printlog "Insert TrendLines"
225 InsertTrendlines
226 '/// Check existence of dialog
227 Kontext "InsertTrendlinesDialog"
228 Call DialogTest ( InsertTrendlinesDialog )
229 '/// Quit dialog using Cancel button
230 InsertTrendlinesDialog.Cancel
231 Kontext "DocumentCalc"
232 DocumentCalc.TypeKeys "<Escape>"
233 '/// Close document
234 Call hCloseDocument
235 endcase
236 '
237 '-------------------------------------------------------------------------
238 '
239 testcase tInsertMeanValueLines
240 '///<u><b>Testing Insert::MeanValueLines</b></u>
241 '/// Load simple test document
242 if fLoadVerySimpleChartAndSaveLocal() > 0 then
243 warnlog "Loading test document seems to have failed -> Check this out!"
244 goto endsub
245 endif
246 '/// Select chart using navigator
247 call fSelectFirstOLE
248 '/// Invoke Edit::Object::Edit to enter Inplace Mode
249 EditObjectEdit
250 '/// Insert::MeanValueLines
251 if fInsertMeanValueLines() > 0 then
252 warnlog "Something went wrong trying to insert mean value lines -> Check this out!"
253 Call hCloseDocument
254 goto endsub
255 endif
256 Kontext "DocumentChart"
257 '/// Close document
258 Call hCloseDocument
259 endcase
260 '
261 '-------------------------------------------------------------------------
262 '
263 testcase tInsertYErrorBars
264 '///<u><b>Dialog test after invocation of Insert::YErrorBars</b></u>
265 '/// Load simple test document
266 if fLoadVerySimpleChartAndSaveLocal() > 0 then
267 warnlog "Loading test document seems to have failed -> Check this out!"
268 goto endsub
269 endif
270 '/// Select chart using navigator
271 call fSelectFirstOLE
272 '/// Invoke Edit::Object::Edit to enter Inplace Mode
273 EditObjectEdit
274 '/// Invoke Insert::TrendLines
275 if fInvokeInsertYErrorBarsDialog() > 0 then
276 warnlog "Something went wrong trying to invoke YErrorBars Lines dialog -> Check this out!"
277 Call hCloseDocument
278 goto endsub
279 endif
280 '/// Check existence of dialog
281 Kontext "InsertYErrorBarsDLG"
282 Call DialogTest ( InsertYErrorBarsDLG )
283 '/// Quit dialog using Cancel button
284 InsertYErrorBarsDLG.Cancel
285 Kontext "DocumentCalc"
286 DocumentCalc.TypeKeys "<Escape>"
287 '/// Close document
288 Call hCloseDocument
289 endcase
290 '
291 '-------------------------------------------------------------
292 '
293 testcase tInsertSpecialCharacter
294 printlog "Load simple chart document"
295 if fLoadVerySimpleChartAndSaveLocal() > 0 then
296 warnlog "Loading test document seems to have failed -> Check this out!"
297 goto endsub
298 endif
299 printlog "Select chart using navigator"
300 call fSelectFirstOLE
301 printlog "Invoke Edit::Object::Edit to enter Inplace Mode"
302 EditObjectEdit
303 printlog "Invoke Insert::Titles"
304 if fInvokeTitlesDialog() > 0 then
305 warnlog "Something went wrong trying to invoke Titles dialog -> Check this out! (Previous log may help you)"
306 Call hCloseDocument
307 goto endsub
308 endif
309 Kontext "InsertTitleDialog"
310 if fSetTitle(MainTitle , "Test title") = 0 then
311 Kontext "InsertTitleDialog"
312 InsertTitleDialog.OK
313 Kontext "DocumentChart"
314 printlog "Type <TAB> to select the title"
315 DocumentChart.TypeKeys "<TAB>" , TRUE
316 DocumentChart.UseMenu
317 printlog "Select menu 'Insert'"
318 hMenuSelectNr(4) 'INSERT
319 printlog "Select menu item 'Special Character'."
320 hMenuSelectNr(9) 'SPECIAL CHARACTER
321 printlog "Close the 'Insert Special Character'-dialog."
322 Kontext "Sonderzeichen"
323 Call Dialogtest( Sonderzeichen )
324 Sonderzeichen.CANCEL
325 else
326 warnlog "It was not possible to set the title. Test aborted!"
327 Kontext "InsertTitleDialog"
328 InsertTitleDialog.Cancel
329 endif
330 Call hCloseDocument
331 endcase