| blob | e96c6c8ae5079ce516d00ba68608c61efb81ccfe |
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: sxm7_01.inc,v $
10 '*
11 '* $Revision: 1.2 $
12 '*
13 '* last change: $Author: rt $ $Date: 2008-07-11 07:34:00 $
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 : thorsten.bosbach@sun.com
35 '*
36 '* short description : XML Math Include File
37 '*
38 '************************************************************************
39 '*
40 ' #1 tunary_binary 'Sample document from old office
41 ' #1 trelations 'Sample document from old office
42 ' #1 tset_operations 'Sample document from old office
43 ' #1 tfunctions 'Sample document from old office
44 ' #1 toperators 'Sample document from old office
45 ' #1 tattributes 'Sample document from old office
46 ' #1 tothers 'Sample document from old office
47 ' #1 tbrackets 'Sample document from old office
48 ' #1 tformats 'Sample document from old office
49 ' #1 tall_commands 'Sample document from old office
50 ' #1 tall_commands_star_math_3 'Sample document from old office
51 ' #1 tall_selections 'Sample document from old office
52 ' #1 tannuities 'Sample document from old office
53 ' #1 tcauchy 'Sample document from old office
54 ' #1 tchemicalelement 'Sample document from old office
55 ' #1 tdefinitionstraightline 'Sample document from old office
56 ' #1 teffectiveannualinterestrate 'Sample document from old office
57 ' #1 thamiltonoperator 'Sample document from old office
58 ' #1 tinvestmentreturns 'Sample document from old office
59 ' #1 tlawoferrorpropagation 'Sample document from old office
60 ' #1 tlimes 'Sample document from old office
61 ' #1 tlinearregression 'Sample document from old office
62 ' #1 tmaxwell 'Sample document from old office
63 ' #1 tscalarproduct 'Sample document from old office
64 ' #1 tsinus 'Sample document from old office
65 ' #1 tsquareroot 'Sample document from old office
66 ' #1 tstandarddeviation 'Sample document from old office
67 ' #1 tvectorproduct 'Sample document from old office
68 '*
69 '\***********************************************************************
71 testcase tunary_binary
72 printlog "+- unary-binary.smf"
73 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\1_unary-binary.smf"))
74 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary.sxm") , "StarOffice XML (Math)") then
75 call hCloseDocument
76 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary") )
77 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary\meta.xml")) = FALSE then
78 warnlog "XML-file 'meta.xml' not well formed!"
79 end if
80 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary\settings.xml")) = FALSE then
81 warnlog "XML-file 'settings.xml' not well formed!"
82 end if
83 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary\content.xml")) = FALSE then
84 warnlog "XML-file 'content.xml' not well formed!"
85 else
86 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary.sxm"))
87 sleep(2)
88 call hCloseDocument
89 sleep(2)
90 end if
91 else
92 call hCloseDocument
93 end if
94 endcase
95 '
96 '-------------------------------------------------------------------------
97 '
98 testcase trelations
99 printlog "+- 2_relations.smf"
100 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\2_relations.smf"))
101 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\2_relations.sxm") , "StarOffice XML (Math)") then
102 call hCloseDocument
103 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\2_relations.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\2_relations") )
104 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\2_relations\meta.xml")) = FALSE then
105 warnlog "XML-file 'meta.xml' not well formed!"
106 end if
107 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\2_relations\settings.xml")) = FALSE then
108 warnlog "XML-file 'settings.xml' not well formed!"
109 end if
110 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\2_relations\content.xml")) = FALSE then
111 warnlog "XML-file 'content.xml' not well formed!"
112 else
113 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\2_relations.sxm"))
114 sleep(2)
115 call hCloseDocument
116 sleep(2)
117 end if
118 else
119 call hCloseDocument
120 end if
121 endcase
122 '
123 '-------------------------------------------------------------------------
124 '
125 testcase tset_operations
126 printlog "+- 3_set_operations.smf"
127 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\3_set_operations.smf"))
128 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\3_set_operations.sxm") , "StarOffice XML (Math)") then
129 call hCloseDocument
130 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\3_set_operations.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\3_set_operations") )
131 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\3_set_operations\meta.xml")) = FALSE then
132 warnlog "XML-file 'meta.xml' not well formed!"
133 end if
134 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\3_set_operations\settings.xml")) = FALSE then
135 warnlog "XML-file 'settings.xml' not well formed!"
136 end if
137 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\1_unary-binary\content.xml")) = FALSE then
138 warnlog "XML-file 'content.xml' not well formed!"
139 else
140 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\3_set_operations.sxm"))
141 sleep(2)
142 call hCloseDocument
143 sleep(2)
144 end if
145 else
146 call hCloseDocument
147 end if
148 endcase
149 '
150 '-------------------------------------------------------------------------
151 '
152 testcase tfunctions
153 printlog "+- 4_functions.smf"
154 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\4_functions.smf"))
155 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\4_functions.sxm") , "StarOffice XML (Math)") then
156 call hCloseDocument
157 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\4_functions.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\4_functions") )
158 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\4_functions\meta.xml")) = FALSE then
159 warnlog "XML-file 'meta.xml' not well formed!"
160 end if
161 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\4_functions\settings.xml")) = FALSE then
162 warnlog "XML-file 'settings.xml' not well formed!"
163 end if
164 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\4_functions\content.xml")) = FALSE then
165 warnlog "XML-file 'content.xml' not well formed!"
166 else
167 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\4_functions.sxm"))
168 sleep(2)
169 call hCloseDocument
170 sleep(2)
171 end if
172 else
173 call hCloseDocument
174 end if
175 endcase
176 '
177 '-------------------------------------------------------------------------
178 '
179 testcase toperators
180 printlog "+- 5_operators.smf"
181 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\5_operators.smf"))
182 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\5_operators.sxm") , "StarOffice XML (Math)") then
183 call hCloseDocument
184 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\5_operators.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\5_operators") )
185 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\5_operators\meta.xml")) = FALSE then
186 warnlog "XML-file 'meta.xml' not well formed!"
187 end if
188 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\5_operators\settings.xml")) = FALSE then
189 warnlog "XML-file 'settings.xml' not well formed!"
190 end if
191 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\5_operators\content.xml")) = FALSE then
192 warnlog "XML-file 'content.xml' not well formed!"
193 else
194 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\5_operators.sxm"))
195 sleep(2)
196 call hCloseDocument
197 sleep(2)
198 end if
199 else
200 call hCloseDocument
201 end if
202 endcase
203 '
204 '-------------------------------------------------------------------------
205 '
206 testcase tattributes
207 printlog "+- 6_attributes.smf"
208 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\6_attributes.smf"))
209 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\6_attributes.sxm") , "StarOffice XML (Math)") then
210 call hCloseDocument
211 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\6_attributes.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\6_attributes") )
212 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\6_attributes\meta.xml")) = FALSE then
213 warnlog "XML-file 'meta.xml' not well formed!"
214 end if
215 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\6_attributes\settings.xml")) = FALSE then
216 warnlog "XML-file 'settings.xml' not well formed!"
217 end if
218 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\6_attributes\content.xml")) = FALSE then
219 warnlog "XML-file 'content.xml' not well formed!"
220 else
221 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\6_attributes.sxm"))
222 sleep(2)
223 call hCloseDocument
224 sleep(2)
225 end if
226 else
227 call hCloseDocument
228 end if
229 endcase
230 '
231 '-------------------------------------------------------------------------
232 '
233 testcase tothers
234 printlog "+- 7_others.smf"
235 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\7_others.smf"))
236 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\7_others.sxm") , "StarOffice XML (Math)") then
237 call hCloseDocument
238 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\7_others.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\7_others") )
239 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\7_others\meta.xml")) = FALSE then
240 warnlog "XML-file 'meta.xml' not well formed!"
241 end if
242 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\7_others\settings.xml")) = FALSE then
243 warnlog "XML-file 'settings.xml' not well formed!"
244 end if
245 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\7_others\content.xml")) = FALSE then
246 warnlog "XML-file 'content.xml' not well formed!"
247 else
248 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\7_others.sxm"))
249 sleep(2)
250 call hCloseDocument
251 sleep(2)
252 end if
253 else
254 call hCloseDocument
255 end if
256 endcase
257 '
258 '-------------------------------------------------------------------------
259 '
260 testcase tbrackets
261 printlog "+- 8_brackets.smf"
262 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\8_brackets.smf"))
263 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\8_brackets.sxm") , "StarOffice XML (Math)") then
264 call hCloseDocument
265 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\8_brackets.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\8_brackets") )
266 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\8_brackets\meta.xml")) = FALSE then
267 warnlog "XML-file 'meta.xml' not well formed!"
268 end if
269 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\8_brackets\settings.xml")) = FALSE then
270 warnlog "XML-file 'settings.xml' not well formed!"
271 end if
272 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\8_brackets\content.xml")) = FALSE then
273 warnlog "XML-file 'content.xml' not well formed!"
274 else
275 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\8_brackets.sxm"))
276 sleep(2)
277 call hCloseDocument
278 sleep(2)
279 end if
280 else
281 call hCloseDocument
282 end if
283 endcase
284 '
285 '-------------------------------------------------------------------------
286 '
287 testcase tformats
288 printlog "+- 9_formats.smf"
289 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\9_formats.smf"))
290 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\9_formats.sxm") , "StarOffice XML (Math)") then
291 call hCloseDocument
292 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\9_formats.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\9_formats") )
293 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\9_formats\meta.xml")) = FALSE then
294 warnlog "XML-file 'meta.xml' not well formed!"
295 end if
296 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\9_formats\settings.xml")) = FALSE then
297 warnlog "XML-file 'settings.xml' not well formed!"
298 end if
299 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\9_formats\content.xml")) = FALSE then
300 warnlog "XML-file 'content.xml' not well formed!"
301 else
302 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\9_formats.sxm"))
303 sleep(2)
304 call hCloseDocument
305 sleep(2)
306 end if
307 else
308 call hCloseDocument
309 end if
310 endcase
311 '
312 '-------------------------------------------------------------------------
313 '
314 testcase tall_commands
315 printlog "+- all_commands.smf"
316 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\all_commands.smf"))
317 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands.sxm") , "StarOffice XML (Math)") then
318 call hCloseDocument
319 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands") )
320 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands\meta.xml")) = FALSE then
321 warnlog "XML-file 'meta.xml' not well formed!"
322 end if
323 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands\settings.xml")) = FALSE then
324 warnlog "XML-file 'settings.xml' not well formed!"
325 end if
326 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands\content.xml")) = FALSE then
327 warnlog "XML-file 'content.xml' not well formed!"
328 else
329 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands.sxm"))
330 sleep(2)
331 call hCloseDocument
332 sleep(2)
333 end if
334 else
335 call hCloseDocument
336 end if
337 endcase
338 '
339 '-------------------------------------------------------------------------
340 '
341 testcase tall_commands_star_math_3
342 printlog "+- all_commands_star_math_3.0.smf"
343 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\all_commands_star_math_3.0.smf"))
344 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands_star_math_3.0.sxm") , "StarOffice XML (Math)") then
345 call hCloseDocument
346 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands_star_math_3.0.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands_star_math_3.0") )
347 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands_star_math_3.0\meta.xml")) = FALSE then
348 warnlog "XML-file 'meta.xml' not well formed!"
349 end if
350 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands_star_math_3.0\settings.xml")) = FALSE then
351 warnlog "XML-file 'settings.xml' not well formed!"
352 end if
353 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands_star_math_3.0\content.xml")) = FALSE then
354 warnlog "XML-file 'content.xml' not well formed!"
355 else
356 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\all_commands_star_math_3.0.sxm"))
357 sleep(2)
358 call hCloseDocument
359 sleep(2)
360 end if
361 else
362 call hCloseDocument
363 end if
364 endcase
365 '
366 '-------------------------------------------------------------------------
367 '
368 testcase tall_selections
369 printlog "+- all_selections.smf"
370 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\all_selections.smf"))
371 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\all_selections.sxm") , "StarOffice XML (Math)") then
372 call hCloseDocument
373 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\all_selections.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\all_selections") )
374 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_selections\meta.xml")) = FALSE then
375 warnlog "XML-file 'meta.xml' not well formed!"
376 end if
377 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_selections\settings.xml")) = FALSE then
378 warnlog "XML-file 'settings.xml' not well formed!"
379 end if
380 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\all_selections\content.xml")) = FALSE then
381 warnlog "XML-file 'content.xml' not well formed!"
382 else
383 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\all_selections.sxm"))
384 sleep(2)
385 call hCloseDocument
386 sleep(2)
387 end if
388 else
389 call hCloseDocument
390 end if
391 endcase
392 '
393 '-------------------------------------------------------------------------
394 '
395 testcase tannuities
396 printlog "+- annuities.smf"
397 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\annuities.smf"))
398 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\annuities.sxm") , "StarOffice XML (Math)") then
399 call hCloseDocument
400 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\annuities.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\annuities") )
401 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\annuities\meta.xml")) = FALSE then
402 warnlog "XML-file 'meta.xml' not well formed!"
403 end if
404 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\annuities\settings.xml")) = FALSE then
405 warnlog "XML-file 'settings.xml' not well formed!"
406 end if
407 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\annuities\content.xml")) = FALSE then
408 warnlog "XML-file 'content.xml' not well formed!"
409 else
410 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\annuities.sxm"))
411 sleep(2)
412 call hCloseDocument
413 sleep(2)
414 end if
415 else
416 call hCloseDocument
417 end if
418 endcase
419 '
420 '-------------------------------------------------------------------------
421 '
422 testcase tcauchy
423 printlog "+- cauchy.smf"
424 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\cauchy.smf"))
425 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\cauchy.sxm") , "StarOffice XML (Math)") then
426 call hCloseDocument
427 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\cauchy.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\cauchy") )
428 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\cauchy\meta.xml")) = FALSE then
429 warnlog "XML-file 'meta.xml' not well formed!"
430 end if
431 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\cauchy\settings.xml")) = FALSE then
432 warnlog "XML-file 'settings.xml' not well formed!"
433 end if
434 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\cauchy\content.xml")) = FALSE then
435 warnlog "XML-file 'content.xml' not well formed!"
436 else
437 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\cauchy.sxm"))
438 sleep(2)
439 call hCloseDocument
440 sleep(2)
441 end if
442 else
443 call hCloseDocument
444 end if
445 endcase
446 '
447 '-------------------------------------------------------------------------
448 '
449 testcase tchemicalelement
450 printlog "+- chemicalelement.smf"
451 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\chemicalelement.smf"))
452 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\chemicalelement.sxm") , "StarOffice XML (Math)") then
453 call hCloseDocument
454 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\chemicalelement.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\chemicalelement") )
455 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\chemicalelement\meta.xml")) = FALSE then
456 warnlog "XML-file 'meta.xml' not well formed!"
457 end if
458 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\chemicalelement\settings.xml")) = FALSE then
459 warnlog "XML-file 'settings.xml' not well formed!"
460 end if
461 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\chemicalelement\content.xml")) = FALSE then
462 warnlog "XML-file 'content.xml' not well formed!"
463 else
464 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\chemicalelement.sxm"))
465 sleep(2)
466 call hCloseDocument
467 sleep(2)
468 end if
469 else
470 call hCloseDocument
471 end if
472 endcase
473 '
474 '-------------------------------------------------------------------------
475 '
476 testcase tdefinitionstraightline
477 printlog "+- definitionstraightline.smf"
478 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\definitionstraightline.smf"))
479 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\definitionstraightline.sxm") , "StarOffice XML (Math)") then
480 call hCloseDocument
481 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\definitionstraightline.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\definitionstraightline") )
482 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\definitionstraightline\meta.xml")) = FALSE then
483 warnlog "XML-file 'meta.xml' not well formed!"
484 end if
485 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\definitionstraightline\settings.xml")) = FALSE then
486 warnlog "XML-file 'settings.xml' not well formed!"
487 end if
488 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\definitionstraightline\content.xml")) = FALSE then
489 warnlog "XML-file 'content.xml' not well formed!"
490 else
491 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\definitionstraightline.sxm"))
492 sleep(2)
493 call hCloseDocument
494 sleep(2)
495 end if
496 else
497 call hCloseDocument
498 end if
499 endcase
500 '
501 '-------------------------------------------------------------------------
502 '
503 testcase teffectiveannualinterestrate
504 printlog "+- effectiveannualinterestrate.smf"
505 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\effectiveannualinterestrate.smf"))
506 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\effectiveannualinterestrate.sxm") , "StarOffice XML (Math)") then
507 call hCloseDocument
508 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\effectiveannualinterestrate.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\effectiveannualinterestrate") )
509 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\effectiveannualinterestrate\meta.xml")) = FALSE then
510 warnlog "XML-file 'meta.xml' not well formed!"
511 end if
512 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\effectiveannualinterestrate\settings.xml")) = FALSE then
513 warnlog "XML-file 'settings.xml' not well formed!"
514 end if
515 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\effectiveannualinterestrate\content.xml")) = FALSE then
516 warnlog "XML-file 'content.xml' not well formed!"
517 else
518 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\effectiveannualinterestrate.sxm"))
519 sleep(2)
520 call hCloseDocument
521 sleep(2)
522 end if
523 else
524 call hCloseDocument
525 end if
526 endcase
527 '
528 '-------------------------------------------------------------------------
529 '
530 testcase thamiltonoperator
531 printlog "+- hamiltonoperator.smf"
532 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\hamiltonoperator.smf"))
533 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\hamiltonoperator.sxm") , "StarOffice XML (Math)") then
534 call hCloseDocument
535 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\hamiltonoperator.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\hamiltonoperator") )
536 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\hamiltonoperator\meta.xml")) = FALSE then
537 warnlog "XML-file 'meta.xml' not well formed!"
538 end if
539 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\hamiltonoperator\settings.xml")) = FALSE then
540 warnlog "XML-file 'settings.xml' not well formed!"
541 end if
542 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\hamiltonoperator\content.xml")) = FALSE then
543 warnlog "XML-file 'content.xml' not well formed!"
544 else
545 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\hamiltonoperator.sxm"))
546 sleep(2)
547 call hCloseDocument
548 sleep(2)
549 end if
550 else
551 call hCloseDocument
552 end if
553 endcase
554 '
555 '-------------------------------------------------------------------------
556 '
557 testcase tinvestmentreturns
558 printlog "+- investmentreturns.smf"
559 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\investmentreturns.smf"))
560 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\investmentreturns.sxm") , "StarOffice XML (Math)") then
561 call hCloseDocument
562 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\investmentreturns.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\investmentreturns") )
563 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\investmentreturns\meta.xml")) = FALSE then
564 warnlog "XML-file 'meta.xml' not well formed!"
565 end if
566 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\investmentreturns\settings.xml")) = FALSE then
567 warnlog "XML-file 'settings.xml' not well formed!"
568 end if
569 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\investmentreturns\content.xml")) = FALSE then
570 warnlog "XML-file 'content.xml' not well formed!"
571 else
572 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\investmentreturns.sxm"))
573 sleep(2)
574 call hCloseDocument
575 sleep(2)
576 end if
577 else
578 call hCloseDocument
579 end if
580 endcase
581 '
582 '-------------------------------------------------------------------------
583 '
584 testcase tlawoferrorpropagation
585 printlog "+- lawoferrorpropagation.smf"
586 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\lawoferrorpropagation.smf"))
587 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\lawoferrorpropagation.sxm") , "StarOffice XML (Math)") then
588 call hCloseDocument
589 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\lawoferrorpropagation.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\lawoferrorpropagation") )
590 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\lawoferrorpropagation\meta.xml")) = FALSE then
591 warnlog "XML-file 'meta.xml' not well formed!"
592 end if
593 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\lawoferrorpropagation\settings.xml")) = FALSE then
594 warnlog "XML-file 'settings.xml' not well formed!"
595 end if
596 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\lawoferrorpropagation\content.xml")) = FALSE then
597 warnlog "XML-file 'content.xml' not well formed!"
598 else
599 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\lawoferrorpropagation.sxm"))
600 sleep(2)
601 call hCloseDocument
602 sleep(2)
603 end if
604 else
605 call hCloseDocument
606 end if
607 endcase
608 '
609 '-------------------------------------------------------------------------
610 '
611 testcase tlimes
612 printlog "+- limes.smf"
613 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\limes.smf"))
614 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\limes.sxm") , "StarOffice XML (Math)") then
615 call hCloseDocument
616 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\limes.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\limes") )
617 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\limes\meta.xml")) = FALSE then
618 warnlog "XML-file 'meta.xml' not well formed!"
619 end if
620 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\limes\settings.xml")) = FALSE then
621 warnlog "XML-file 'settings.xml' not well formed!"
622 end if
623 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\limes\content.xml")) = FALSE then
624 warnlog "XML-file 'content.xml' not well formed!"
625 else
626 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\limes.sxm"))
627 sleep(2)
628 call hCloseDocument
629 sleep(2)
630 end if
631 else
632 call hCloseDocument
633 end if
634 endcase
635 '
636 '-------------------------------------------------------------------------
637 '
638 testcase tlinearregression
639 printlog "+- linearregression.smf"
640 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\linearregression.smf"))
641 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\linearregression.sxm") , "StarOffice XML (Math)") then
642 call hCloseDocument
643 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\linearregression.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\linearregression") )
644 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\linearregression\meta.xml")) = FALSE then
645 warnlog "XML-file 'meta.xml' not well formed!"
646 end if
647 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\linearregression\settings.xml")) = FALSE then
648 warnlog "XML-file 'settings.xml' not well formed!"
649 end if
650 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\linearregression\content.xml")) = FALSE then
651 warnlog "XML-file 'content.xml' not well formed!"
652 else
653 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\linearregression.sxm"))
654 sleep(2)
655 call hCloseDocument
656 sleep(2)
657 end if
658 else
659 call hCloseDocument
660 end if
661 endcase
662 '
663 '-------------------------------------------------------------------------
664 '
665 testcase tmaxwell
666 printlog "+- maxwell.smf"
667 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\maxwell.smf"))
668 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\maxwell.sxm") , "StarOffice XML (Math)") then
669 call hCloseDocument
670 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\maxwell.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\maxwell") )
671 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\maxwell\meta.xml")) = FALSE then
672 warnlog "XML-file 'meta.xml' not well formed!"
673 end if
674 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\maxwell\settings.xml")) = FALSE then
675 warnlog "XML-file 'settings.xml' not well formed!"
676 end if
677 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\maxwell\content.xml")) = FALSE then
678 warnlog "XML-file 'content.xml' not well formed!"
679 else
680 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\maxwell.sxm"))
681 sleep(2)
682 call hCloseDocument
683 sleep(2)
684 end if
685 else
686 call hCloseDocument
687 end if
688 endcase
689 '
690 '-------------------------------------------------------------------------
691 '
692 testcase tscalarproduct
693 printlog "+- scalarproduct.smf"
694 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\scalarproduct.smf"))
695 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\scalarproduct.sxm") , "StarOffice XML (Math)") then
696 call hCloseDocument
697 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\scalarproduct.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\scalarproduct") )
698 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\scalarproduct\meta.xml")) = FALSE then
699 warnlog "XML-file 'meta.xml' not well formed!"
700 end if
701 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\scalarproduct\settings.xml")) = FALSE then
702 warnlog "XML-file 'settings.xml' not well formed!"
703 end if
704 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\scalarproduct\content.xml")) = FALSE then
705 warnlog "XML-file 'content.xml' not well formed!"
706 else
707 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\scalarproduct.sxm"))
708 sleep(2)
709 call hCloseDocument
710 sleep(2)
711 end if
712 else
713 call hCloseDocument
714 end if
715 endcase
716 '
717 '-------------------------------------------------------------------------
718 '
719 testcase tsinus
720 printlog "+- sinus.smf"
721 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\sinus.smf"))
722 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\sinus.sxm") , "StarOffice XML (Math)") then
723 call hCloseDocument
724 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\sinus.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\sinus") )
725 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\sinus\meta.xml")) = FALSE then
726 warnlog "XML-file 'meta.xml' not well formed!"
727 end if
728 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\sinus\settings.xml")) = FALSE then
729 warnlog "XML-file 'settings.xml' not well formed!"
730 end if
731 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\sinus\content.xml")) = FALSE then
732 warnlog "XML-file 'content.xml' not well formed!"
733 else
734 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\sinus.sxm"))
735 sleep(2)
736 call hCloseDocument
737 sleep(2)
738 end if
739 else
740 call hCloseDocument
741 end if
742 endcase
743 '
744 '-------------------------------------------------------------------------
745 '
746 testcase tsquareroot
747 printlog "+- squareroot.smf"
748 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\squareroot.smf"))
749 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\squareroot.sxm") , "StarOffice XML (Math)") then
750 call hCloseDocument
751 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\squareroot.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\squareroot") )
752 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\squareroot\meta.xml")) = FALSE then
753 warnlog "XML-file 'meta.xml' not well formed!"
754 end if
755 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\squareroot\settings.xml")) = FALSE then
756 warnlog "XML-file 'settings.xml' not well formed!"
757 end if
758 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\squareroot\content.xml")) = FALSE then
759 warnlog "XML-file 'content.xml' not well formed!"
760 else
761 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\squareroot.sxm"))
762 sleep(2)
763 call hCloseDocument
764 sleep(2)
765 end if
766 else
767 call hCloseDocument
768 end if
769 endcase
770 '
771 '-------------------------------------------------------------------------
772 '
773 testcase tstandarddeviation
774 printlog "+- standarddeviation.smf"
775 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\standarddeviation.smf"))
776 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\standarddeviation.sxm") , "StarOffice XML (Math)") then
777 call hCloseDocument
778 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\standarddeviation.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\standarddeviation") )
779 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\standarddeviation\meta.xml")) = FALSE then
780 warnlog "XML-file 'meta.xml' not well formed!"
781 end if
782 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\standarddeviation\settings.xml")) = FALSE then
783 warnlog "XML-file 'settings.xml' not well formed!"
784 end if
785 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\standarddeviation\content.xml")) = FALSE then
786 warnlog "XML-file 'content.xml' not well formed!"
787 else
788 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\standarddeviation.sxm"))
789 sleep(2)
790 call hCloseDocument
791 sleep(2)
792 end if
793 else
794 call hCloseDocument
795 end if
796 endcase
797 '
798 '-------------------------------------------------------------------------
799 '
800 testcase tvectorproduct
801 printlog "+- vectorproduct.smf"
802 call hFileOpen (gTesttoolPath & ConvertPath("xml\optional\input\math\so_binary\vectorproduct.smf"))
803 if hFileSaveAsWithFilterKill (gOfficePath & ConvertPath("user\work\xml\math\level1\vectorproduct.sxm") , "StarOffice XML (Math)") then
804 call hCloseDocument
805 UnpackStorage( gOfficePath & ConvertPath("user\work\xml\math\level1\vectorproduct.sxm") , gOfficePath & ConvertPath("user\work\xml\math\level1\vectorproduct") )
806 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\vectorproduct\meta.xml")) = FALSE then
807 warnlog "XML-file 'meta.xml' not well formed!"
808 end if
809 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\vectorproduct\settings.xml")) = FALSE then
810 warnlog "XML-file 'settings.xml' not well formed!"
811 end if
812 if XMLWellformed (gOfficePath & ConvertPath("user\work\xml\math\level1\vectorproduct\content.xml")) = FALSE then
813 warnlog "XML-file 'content.xml' not well formed!"
814 else
815 call hFileOpen (gOfficePath & ConvertPath("user\work\xml\math\level1\vectorproduct.sxm"))
816 sleep(2)
817 call hCloseDocument
818 sleep(2)
819 end if
820 else
821 call hCloseDocument
822 end if
823 endcase