Update ooo320-m1
[ooovba.git] / testautomation / writer / optional / includes / clipboard / w_214_.inc
blob4c23e760ea7b032310230c17730a3ef22a4ca279
1 '**************************************************************************
2 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
3 '* 
4 '* Copyright 2008 by Sun Microsystems, Inc.
5 '*
6 '* OpenOffice.org - a multi-platform office productivity suite
7 '*
8 '* $RCSfile: w_214_.inc,v $
9 '*
10 '* $Revision: 1.1 $
12 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $
14 '* This file is part of OpenOffice.org.
16 '* OpenOffice.org is free software: you can redistribute it and/or modify
17 '* it under the terms of the GNU Lesser General Public License version 3
18 '* only, as published by the Free Software Foundation.
20 '* OpenOffice.org is distributed in the hope that it will be useful,
21 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
22 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23 '* GNU Lesser General Public License version 3 for more details
24 '* (a copy is included in the LICENSE file that accompanied this code).
26 '* You should have received a copy of the GNU Lesser General Public License
27 '* version 3 along with OpenOffice.org.  If not, see
28 '* <http://www.openoffice.org/license.html>
29 '* for a copy of the LGPLv3 License.
31 '/************************************************************************
33 '* owner : helge.delfs@sun.com
35 '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
37 '\***********************************************************************
39 sub w_214_
41     Call WriterToHTMLText
42     Call WriterToHTMLField
43     Call WriterToHTMLTable
44     Call WriterToHTMLFrame
45     Call WriterToHTMLDrawingObject
46     Call WriterToHTMLGraphicLinked
47     Call WriterToHTMLGraphicEmbedded
48     Call WriterToHTMLOLEObject
49     Call WriterToHTMLControl
51 end sub
53 ' ---------------------------------------------------------------------------------
55 testcase WriterToHTMLText
56   gApplication = "WRITER"
57   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
58   printlog " + Jump to beginning of document "
59   printlog " + Select first paragraph "
60   printlog " + Copy selected text "
61   if wSetClipboardtestDefaults("text") = True then
62     gApplication = "HTML"
63     printlog " + Open new document "
64     Call hNewDocument
65     printlog " + Edit / Paste Special "
66     Sleep 2
67     try
68        EditPasteSpecialWriter
69     catch
70        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
71        Call hCloseDocument ' Close Source-File
72        Call hCloseDocument ' Close Target-File
73        goto endsub
74     endcatch
75     Wait 500
76     printlog "  Paste 'Text' in all available clipboard formats "
77     Kontext "InhaltEinfuegen"
78     if InhaltEinfuegen.Exists then
79      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
80     printlog " + Write Clipboard format under pasted content "
81      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_text.html", "HTML")
82      printlog " + Save document as ..\user\work\writer_to_html_text.html"
83      Wait 500
84      Call hCloseDocument
85      printlog " + Close saved document "
86      wait 500
87      Call hFileOpen (gOfficepath + "user\work\writer_to_html_text.html")
88      printlog " + Reopen saved document "
89      Wait 500
90      Call hCloseDocument
91      printlog " + Close saved document "
92     else
93      Warnlog "Dialog 'Paste Special' is not up!"
94      Call hCloseDocument
95      goto endsub
96     end if
97   else
98    Warnlog "Writer To HTML -> 'Text' failed !"
99   end if
100   printlog "  Close active document "
101     Do Until GetDocumentCount = 0
102         Call hCloseDocument
103     Loop
104 endcase
106 ' ----------------------------------------------------------------------------------------------
108 testcase WriterToHTMLField
109   gApplication = "WRITER"
110   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
111   printlog " + Jump to beginning of document "
112   printlog " + Select paragraph with 'Date Field' "
113   printlog " + Copy selected text "
114   if wSetClipboardtestDefaults("field") = True then
115     gApplication = "HTML"
116     printlog " + Open new document "
117     Call hNewDocument
118     printlog " + Edit / Paste Special "
119     Sleep 2
120     try
121        EditPasteSpecialWriter
122     catch
123        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
124        Call hCloseDocument ' Close Source-File
125        Call hCloseDocument ' Close Target-File
126        goto endsub
127     endcatch
128     Wait 500
129     printlog "  Paste 'Field' in all available clipboard formats "
130     Kontext "InhaltEinfuegen"
131     if InhaltEinfuegen.Exists then
132      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
133     printlog " + Write Clipboard format under pasted content "
134      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_field.html", "HTML")
135      printlog " + Save document as ..\user\work\writer_to_html_field.html"
136      Wait 500
137      Call hCloseDocument
138      printlog " + Close saved document "
139      wait 500
140      Call hFileOpen (gOfficepath + "user\work\writer_to_html_field.html")
141      printlog " + Reopen saved document "
142      Wait 500
143      Call hCloseDocument
144      printlog " + Close saved document "
145     else
146      Warnlog "Dialog 'Paste Special' is not up!"
147      Call hCloseDocument
148      goto endsub
149     end if
150   else
151    Warnlog "Writer To HTML -> 'Field' failed !"
152   end if
153     printlog "  Close active document "
154     Do Until GetDocumentCount = 0
155         Call hCloseDocument
156     Loop
157 endcase
159 ' ----------------------------------------------------------------------------------------------
161 testcase WriterToHTMLTable
162   gApplication = "WRITER"
163   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
164   printlog " + Jump to beginning of document "
165   printlog " + Select 'Table' "
166   printlog " + Copy selected table "
167   if wSetClipboardtestDefaults("table") = True then
168     gApplication = "HTML"
169     printlog " + Open new document "
170     Call hNewDocument
171     printlog " + Edit / Paste Special "
172     Sleep 2
173     try
174        EditPasteSpecialWriter
175     catch
176        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
177        Call hCloseDocument ' Close Source-File
178        Call hCloseDocument ' Close Target-File
179        goto endsub
180     endcatch
181     Wait 500
182     printlog "  Paste 'Table' in all available clipboard formats "
183     Kontext "InhaltEinfuegen"
184     if InhaltEinfuegen.Exists then
185      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
186      printlog " + Write Clipboard format under pasted content "
187      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_table.html", "HTML")
188      printlog " + Save document as ..\user\work\writer_to_html_table.html"
189      Wait 500
190      Call hCloseDocument
191      printlog " + Close saved document "
192      wait 500
193      Call hFileOpen (gOfficepath + "user\work\writer_to_html_table.html")
194      printlog " + Reopen saved document "
195      Wait 500
196      Call hCloseDocument
197      printlog " + Close saved document "
198     else
199      Warnlog "Dialog 'Paste Special' is not up!"
200      Call hCloseDocument
201      goto endsub
202     end if
203   else
204    Warnlog "Writer To HTML -> 'Table' failed !"
205   end if
206   printlog "  Close active document "
207     Do Until GetDocumentCount = 0
208         Call hCloseDocument
209     Loop
210 endcase
212 ' ----------------------------------------------------------------------------------------------
214 testcase WriterToHTMLFrame
215   gApplication = "WRITER"
216   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
217   printlog " + Jump to beginning of document "
218   printlog " + Select 'Frame' "
219   printlog " + Copy selected frame "
220   if wSetClipboardtestDefaults("frame") = True then
221     gApplication = "HTML"
222     printlog " + Open new document "
223     Call hNewDocument
224     printlog " + Edit / Paste Special "
225     Sleep 2
226     try
227        EditPasteSpecialWriter
228     catch
229        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
230        Call hCloseDocument ' Close Source-File
231        Call hCloseDocument ' Close Target-File
232        goto endsub
233     endcatch
234     Wait 500
235     printlog "  Paste 'Table' in all available clipboard formats "
236     Kontext "InhaltEinfuegen"
237     if InhaltEinfuegen.Exists then
238      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
239      printlog " + Write Clipboard format under pasted content "
240      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_frame.html", "HTML")
241      printlog " + Save document as ..\user\work\writer_to_html_frame.html"
242      Wait 500
243      Call hCloseDocument
244      printlog " + Close saved document "
245      wait 500
246      Call hFileOpen (gOfficepath + "user\work\writer_to_html_frame.html")
247      printlog " + Reopen saved document "
248      Wait 500
249      Call hCloseDocument
250      printlog " + Close saved document "
251     else
252      Warnlog "Dialog 'Paste Special' is not up!"
253      Call hCloseDocument
254      goto endsub
255     end if
256   else
257    Warnlog "Writer To HTML -> 'Frame' failed !"
258   end if
259   printlog "  Close active document "
260     Do Until GetDocumentCount = 0
261         Call hCloseDocument
262     Loop
263 endcase
265 ' ----------------------------------------------------------------------------------------------
267 testcase WriterToHTMLDrawingObject
268   gApplication = "WRITER"
269   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
270   printlog " + Jump to beginning of document "
271   printlog " + Select 'Drawing Object' "
272   printlog " + Copy selected Drawing Object "
273   if wSetClipboardtestDefaults("DRAW") = True then
274     gApplication = "HTML"
275     printlog " + Open new document "
276     Call hNewDocument
277     printlog " + Edit / Paste Special "
278     Sleep 2
279     try
280        EditPasteSpecialWriter
281     catch
282        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
283        Call hCloseDocument ' Close Source-File
284        Call hCloseDocument ' Close Target-File
285        goto endsub
286     endcatch
287     Wait 500
288     printlog "  Paste 'Table' in all available clipboard formats "
289     Kontext "InhaltEinfuegen"
290     if InhaltEinfuegen.Exists then
291      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
292      printlog " + Write Clipboard format under pasted content "
293      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_draw.html", "HTML")
294      printlog " + Save document as ..\user\work\writer_to_html_draw.html"
295      Wait 500
296      Call hCloseDocument
297      printlog " + Close saved document "
298      wait 500
299      Call hFileOpen (gOfficepath + "user\work\writer_to_html_draw.html")
300      printlog " + Reopen saved document "
301      Wait 500
302      Call hCloseDocument
303      printlog " + Close saved document "
304     else
305      Warnlog "Dialog 'Paste Special' is not up!"
306      Call hCloseDocument
307      goto endsub
308     end if
309   else
310    Warnlog "Writer To HTML -> 'Drawing Object' failed !"
311   end if
312   printlog "  Close active document "
313     Do Until GetDocumentCount = 0
314         Call hCloseDocument
315     Loop
316 endcase
318 ' ----------------------------------------------------------------------------------------------
320 testcase WriterToHTMLGraphicLinked
321   gApplication = "WRITER"
322   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
323   printlog " + Jump to beginning of document "
324   printlog " + Select 'Linked Graphic' "
325   printlog " + Copy selected Linked Graphic "
326   if wSetClipboardtestDefaults("graphicL") = True then
327     gApplication = "HTML"
328     printlog " + Open new document "
329     Call hNewDocument
330     printlog " + Edit / Paste Special "
331     Sleep 2
332     try
333        EditPasteSpecialWriter
334     catch
335        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
336        Call hCloseDocument ' Close Source-File
337        Call hCloseDocument ' Close Target-File
338        goto endsub
339     endcatch
340     Wait 500
341     printlog "  Paste 'Linked Graphic' in all available clipboard formats "
342     Kontext "InhaltEinfuegen"
343     if InhaltEinfuegen.Exists then
344      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
345      printlog " + Write Clipboard format under pasted content "
346      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_graphic1.html", "HTML")
347      printlog " + Save document as ..\user\work\writer_to_html_graphic1.html"
348      Wait 500
349      Call hCloseDocument
350      printlog " + Close saved document "
351      wait 500
352      Call hFileOpen (gOfficepath + "user\work\writer_to_html_graphic1.html")
353      printlog " + Reopen saved document "
354      Wait 500
355      Call hCloseDocument
356      printlog " + Close saved document "
357     else
358      Warnlog "Dialog 'Paste Special' is not up!"
359      Call hCloseDocument
360      goto endsub
361     end if
362   else
363    Warnlog "Writer To HTML -> 'Linked Graphic' failed !"
364   end if
365   printlog "  Close active document "
366     Do Until GetDocumentCount = 0
367         Call hCloseDocument
368     Loop
369 endcase
371 ' ----------------------------------------------------------------------------------------------
373 testcase WriterToHTMLGraphicEmbedded
374   gApplication = "WRITER"
375   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
376   printlog " + Jump to beginning of document "
377   printlog " + Select 'Embedded Graphic' "
378   printlog " + Copy selected Embedded Graphic "
379   if wSetClipboardtestDefaults("graphicE") = True then
380     gApplication = "HTML"
381     printlog " + Open new document "
382     Call hNewDocument
383     printlog " + Edit / Paste Special "
384     Sleep 2
385     try
386        EditPasteSpecialWriter
387     catch
388        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
389        Call hCloseDocument ' Close Source-File
390        Call hCloseDocument ' Close Target-File
391        goto endsub
392     endcatch
393     Wait 500
394     printlog "  Paste 'Embedded Graphic' in all available clipboard formats "
395     Kontext "InhaltEinfuegen"
396     if InhaltEinfuegen.Exists then
397      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
398      printlog " + Write Clipboard format under pasted content "
399      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_graphic2.html", "HTML")
400      printlog " + Save document as ..\user\work\writer_to_html_graphic2.html"
401      Wait 500
402      Call hCloseDocument
403      printlog " + Close saved document "
404      wait 500
405      Call hFileOpen (gOfficepath + "user\work\writer_to_html_graphic2.html")
406      printlog " + Reopen saved document "
407      Wait 500
408      Call hCloseDocument
409      printlog " + Close saved document "
410     else
411      Warnlog "Dialog 'Paste Special' is not up!"
412      Call hCloseDocument
413      goto endsub
414     end if
415   else
416    Warnlog "Writer To HTML -> 'Embedded Graphic' failed !"
417   end if
418   printlog "  Close active document "
419     Do Until GetDocumentCount = 0
420         Call hCloseDocument
421     Loop
422 endcase
424 ' ----------------------------------------------------------------------------------------------
426 testcase WriterToHTMLOLEObject
427   gApplication = "WRITER"
428   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
429   printlog " + Jump to beginning of document "
430   printlog " + Select 'OLE Object' "
431   printlog " + Copy selected OLE Object "
432   if wSetClipboardtestDefaults("ole") = True then
433     gApplication = "HTML"
434     printlog " + Open new document "
435     Call hNewDocument
436     printlog " + Edit / Paste Special "
437     Sleep 2
438     try
439        EditPasteSpecialWriter
440     catch
441        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
442        Call hCloseDocument ' Close Source-File
443        Call hCloseDocument ' Close Target-File
444        goto endsub
445     endcatch
446     Wait 500
447     printlog "  Paste 'OLE object' in all available clipboard formats "
448     Kontext "InhaltEinfuegen"
449     if InhaltEinfuegen.Exists then
450      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
451      printlog " + Write Clipboard format under pasted content "
452      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_ole.html", "HTML")
453      printlog " + Save document as ..\user\work\writer_to_html_ole.html"
454      Wait 500
455      Call hCloseDocument
456      printlog " + Close saved document "
457      wait 500
458      Call hFileOpen (gOfficepath + "user\work\writer_to_html_ole.html")
459      printlog " + Reopen saved document "
460      Wait 500
461      Call hCloseDocument
462      printlog " + Close saved document "
463     else
464      Warnlog "Dialog 'Paste Special' is not up!"
465      Call hCloseDocument
466      goto endsub
467     end if
468   else
469    Warnlog "Writer To HTML -> 'OLE object' failed !"
470   end if
471   printlog "  Close active document "
472     Do Until GetDocumentCount = 0
473         Call hCloseDocument
474     Loop
475 endcase
477 ' ----------------------------------------------------------------------------------------------
479 testcase WriterToHTMLControl
480   gApplication = "WRITER"
481   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
482   printlog " + Jump to beginning of document "
483   printlog " + Select 'Control' "
484   printlog " + Copy selected Control "
485   if wSetClipboardtestDefaults("control") = True then
486     gApplication = "HTML"
487     printlog " + Open new document "
488     Call hNewDocument
489     printlog " + Edit / Paste Special "
490     Sleep 2
491     try
492        EditPasteSpecialWriter
493     catch
494        Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
495        Call hCloseDocument ' Close Source-File
496        Call hCloseDocument ' Close Target-File
497        goto endsub
498     endcatch
499     Wait 500
500     printlog "  Paste 'Control' in all available clipboard formats "
501     Kontext "InhaltEinfuegen"
502     if InhaltEinfuegen.Exists then
503      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
504      printlog " + Write Clipboard format under pasted content "
505      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_html_control.html", "HTML")
506      printlog " + Save document as ..\user\work\writer_to_html_control.html"
507      Wait 500
508      Call hCloseDocument
509      printlog " + Close saved document "
510      wait 500
511      Call hFileOpen (gOfficepath + "user\work\writer_to_html_control.html")
512      printlog " + Reopen saved document "
513      Wait 500
514      Call hCloseDocument
515      printlog " + Close saved document "
516     else
517      Warnlog "Dialog 'Paste Special' is not up!"
518      Call hCloseDocument
519      goto endsub
520     end if
521   else
522    Warnlog "Writer To HTML -> 'Control' failed !"
523   end if
524   printlog "  Close active document "
525     Do Until GetDocumentCount = 0
526         Call hCloseDocument
527     Loop
528 endcase
530 '------------------------------------------------------------------------------------------------------