testautomation/writer/optional/includes/clipboard/w_222_.inc

   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_222_.inc,v $
   9 '*
  10 '* $Revision: 1.1 $
  11 '*
  12 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:48 $
  13 '*
  14 '* This file is part of OpenOffice.org.
  15 '*
  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.
  19 '*
  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).
  25 '*
  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.
  30 '*
  31 '/************************************************************************
  32 '*
  33 '* owner : helge.delfs@sun.com
  34 '*
  35 '* short description : CROSS-APPLICATIONS CLIPBOARD TEST (Writer)
  36 '*
  37 '\***********************************************************************
  38
  39 sub w_222_
  40
  41     Call DrawToWriterScrollingText
  42     Call DrawToWriterGroupedObject
  43     Call DrawToWriter3D
  44     Call DrawToWriterFontwork
  45     Call DrawToWriterBullets
  46     Call DrawToWriterDimensionLines
  47     Call DrawToWriterConnectors
  48
  49 end sub
  50
  51 '------------------------------------------------------------------------------
  52
  53 testcase DrawToWriterScrollingText
  54
  55   gApplication = "DRAW"
  56   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
  57   printlog "  Jump to beginning of document "
  58   printlog "  Select Scrolling text "
  59   printlog "  Copy selected text "
  60   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
  61   Call sMakeReadOnlyDocumentEditable
  62   Kontext "DocumentDraw"
  63   printlog "  Jump to beginning of document "
  64   DocumentDraw.TypeKeys "<Tab>"
  65   EditCopy
  66   gApplication = "WRITER"
  67   printlog "  Open a new writerdocument "
  68   Call hNewDocument
  69   Sleep 2
  70   try
  71      EditPasteSpecialWriter
  72   catch
  73      Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
  74      Call hCloseDocument ' Close Source-File
  75      Call hCloseDocument ' Close Target-File
  76      goto endsub
  77   endcatch
  78   Wait 500
  79   printlog "  Paste 'Scrolling Text' in all available clipboard formats "
  80   Kontext "InhaltEinfuegen"
  81   if InhaltEinfuegen.Exists then
  82     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
  83     printlog "  Write Clipboard format under pasted content "
  84     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_scrolling_text.odt", "writer8")
  85     printlog "  Save document as ..\user\work\draw_to_writer_scrolling_text.odt"
  86     Wait 500
  87     Call hCloseDocument
  88     printlog "  Close saved document "
  89     wait 500
  90     Call hFileOpen (gOfficepath + "user\work\draw_to_writer_scrolling_text.odt",false)
  91     printlog "  Reopen saved document "
  92     Wait 500
  93     Call hCloseDocument
  94     printlog "  Close saved document "
  95   else
  96     Warnlog "Dialog 'Paste Special' is not up!"
  97     Call hCloseDocument
  98     goto endsub
  99   end if
 100   printlog "  Close active document "
 101     Do Until GetDocumentCount = 0
 102         Call hCloseDocument
 103     Loop
 104 endcase
 105
 106 ' ---------------------------------------------------------------------------------
 107
 108 testcase DrawToWriterGroupedObject
 109
 110   gApplication = "DRAW"
 111   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
 112   printlog "  Jump to beginning of document "
 113   printlog "  Select Grouped Object "
 114   printlog "  Copy selected Object "
 115   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
 116   Call sMakeReadOnlyDocumentEditable
 117   Kontext "DocumentDraw"
 118   printlog "  Jump to beginning of document "
 119   DocumentDraw.TypeKeys "<Tab>",2
 120   EditCopy
 121   gApplication = "WRITER"
 122   printlog "  Open a new writerdocument "
 123   Call hNewDocument
 124   Sleep 2
 125   try
 126      EditPasteSpecialWriter
 127   catch
 128      Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
 129      Call hCloseDocument ' Close Source-File
 130      Call hCloseDocument ' Close Target-File
 131      goto endsub
 132   endcatch
 133   Wait 500
 134   printlog "  Paste 'Text' in all available clipboard formats "
 135   Kontext "InhaltEinfuegen"
 136   if InhaltEinfuegen.Exists then
 137     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 138     printlog "  Write Clipboard format under pasted content "
 139     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_grouped_object.odt", "writer8")
 140     printlog "  Save document as ..\user\work\draw_to_writer_grouped_object.odt"
 141     Wait 500
 142     Call hCloseDocument
 143     printlog "  Close saved document "
 144     wait 500
 145     Call hFileOpen (gOfficepath + "user\work\draw_to_writer_grouped_object.odt",false)
 146     printlog "  Reopen saved document "
 147     Wait 500
 148     Call hCloseDocument
 149     printlog "  Close saved document "
 150   else
 151     Warnlog "Dialog 'Paste Special' is not up!"
 152     Call hCloseDocument
 153     goto endsub
 154   end if
 155   printlog "  Close active document "
 156     Do Until GetDocumentCount = 0
 157         Call hCloseDocument
 158     Loop
 159 endcase
 160
 161 ' ---------------------------------------------------------------------------------
 162
 163 testcase DrawToWriter3D
 164
 165   gApplication = "DRAW"
 166   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
 167   printlog "  Jump to beginning of document "
 168   printlog "  Select cell <A5:C5> "
 169   printlog "  Copy selected text "
 170   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
 171   Call sMakeReadOnlyDocumentEditable
 172   Kontext "DocumentDraw"
 173   printlog "  Jump to beginning of document "
 174   DocumentDraw.TypeKeys "<Tab>",3
 175   EditCopy
 176   gApplication = "WRITER"
 177   printlog "  Open a new writerdocument "
 178   Call hNewDocument
 179   Sleep 2
 180   try
 181      EditPasteSpecialWriter
 182   catch
 183      Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
 184      Call hCloseDocument ' Close Source-File
 185      Call hCloseDocument ' Close Target-File
 186      goto endsub
 187   endcatch
 188   Wait 500
 189   printlog "  Paste 'Text' in all available clipboard formats "
 190   Kontext "InhaltEinfuegen"
 191   if InhaltEinfuegen.Exists then
 192     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 193     printlog "  Write Clipboard format under pasted content "
 194     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_3d.odt", "writer8")
 195     printlog "  Save document as ..\user\work\draw_to_writer_3d.odt"
 196     Wait 500
 197     Call hCloseDocument
 198     printlog "  Close saved document "
 199     wait 500
 200     Call hFileOpen (gOfficepath + "user\work\draw_to_writer_3d.odt",false)
 201     printlog "  Reopen saved document "
 202     Wait 500
 203     Call hCloseDocument
 204     printlog "  Close saved document "
 205   else
 206     Warnlog "Dialog 'Paste Special' is not up!"
 207     Call hCloseDocument
 208     goto endsub
 209   end if
 210   printlog "  Close active document "
 211     Do Until GetDocumentCount = 0
 212         Call hCloseDocument
 213     Loop
 214 endcase
 215
 216 ' ---------------------------------------------------------------------------------
 217
 218 testcase DrawToWriterFontwork
 219
 220   gApplication = "DRAW"
 221   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
 222   printlog "  Jump to beginning of document "
 223   printlog "  Select Fontwork "
 224   printlog "  Copy selected Fontwork "
 225   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
 226   Call sMakeReadOnlyDocumentEditable
 227   Kontext "DocumentDraw"
 228   printlog "  Jump to beginning of document "
 229   DocumentDraw.TypeKeys "<Tab>",4
 230   EditCopy
 231   gApplication = "WRITER"
 232   printlog "  Open a new writerdocument "
 233   Call hNewDocument
 234   Sleep 2
 235   try
 236      EditPasteSpecialWriter
 237   catch
 238      Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
 239      Call hCloseDocument ' Close Source-File
 240      Call hCloseDocument ' Close Target-File
 241      goto endsub
 242   endcatch
 243   Wait 500
 244   printlog "  Paste 'Text' in all available clipboard formats "
 245   Kontext "InhaltEinfuegen"
 246   if InhaltEinfuegen.Exists then
 247     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 248     printlog "  Write Clipboard format under pasted content "
 249     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_fontwork.odt", "writer8")
 250     printlog "  Save document as ..\user\work\draw_to_writer_fontwork.odt"
 251     Wait 500
 252     Call hCloseDocument
 253     printlog "  Close saved document "
 254     wait 500
 255     Call hFileOpen (gOfficepath + "user\work\draw_to_writer_fontwork.odt",false)
 256     printlog "  Reopen saved document "
 257     Wait 500
 258     Call hCloseDocument
 259     printlog "  Close saved document "
 260   else
 261     Warnlog "Dialog 'Paste Special' is not up!"
 262     Call hCloseDocument
 263     goto endsub
 264   end if
 265   printlog "  Close active document "
 266     Do Until GetDocumentCount = 0
 267         Call hCloseDocument
 268     Loop
 269 endcase
 270
 271 ' ---------------------------------------------------------------------------------
 272
 273 testcase DrawToWriterBullets
 274
 275   gApplication = "DRAW"
 276   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
 277   printlog "  Jump to beginning of document "
 278   printlog "  Select Bullets "
 279   printlog "  Copy selected Bullets "
 280   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
 281   Call sMakeReadOnlyDocumentEditable
 282   Kontext "DocumentDraw"
 283   printlog "  Jump to beginning of document "
 284   DocumentDraw.TypeKeys "<Tab>",5
 285   EditCopy
 286   gApplication = "WRITER"
 287   printlog "  Open a new writerdocument "
 288   Call hNewDocument
 289   Sleep 2
 290   try
 291      EditPasteSpecialWriter
 292   catch
 293      Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
 294      Call hCloseDocument ' Close Source-File
 295      Call hCloseDocument ' Close Target-File
 296      goto endsub
 297   endcatch
 298   Wait 500
 299   printlog "  Paste 'Text' in all available clipboard formats "
 300   Kontext "InhaltEinfuegen"
 301   if InhaltEinfuegen.Exists then
 302     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 303     printlog "  Write Clipboard format under pasted content "
 304     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_bullets.odt", "writer8")
 305     printlog "  Save document as ..\user\work\draw_to_writer_bullets.odt"
 306     Wait 500
 307     Call hCloseDocument
 308     printlog "  Close saved document "
 309     wait 500
 310     Call hFileOpen (gOfficepath + "user\work\draw_to_writer_bullets.odt",false)
 311     printlog "  Reopen saved document "
 312     Wait 500
 313     Call hCloseDocument
 314     printlog "  Close saved document "
 315   else
 316     Warnlog "Dialog 'Paste Special' is not up!"
 317     Call hCloseDocument
 318     goto endsub
 319   end if
 320   printlog "  Close active document "
 321     Do Until GetDocumentCount = 0
 322         Call hCloseDocument
 323     Loop
 324 endcase
 325
 326 ' ---------------------------------------------------------------------------------
 327
 328 testcase DrawToWriterDimensionLines
 329
 330   gApplication = "DRAW"
 331   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
 332   printlog "  Jump to beginning of document "
 333   printlog "  Select Dimension Lines "
 334   printlog "  Copy selected Dimension Lines "
 335   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
 336   Call sMakeReadOnlyDocumentEditable
 337   Kontext "DocumentDraw"
 338   printlog "  Jump to beginning of document "
 339   DocumentDraw.TypeKeys "<PageDown>"
 340   DocumentDraw.TypeKeys "<Tab>"
 341   EditCopy
 342   gApplication = "WRITER"
 343   printlog "  Open a new writerdocument "
 344   Call hNewDocument
 345   Sleep 2
 346   try
 347      EditPasteSpecialWriter
 348   catch
 349      Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
 350      Call hCloseDocument ' Close Source-File
 351      Call hCloseDocument ' Close Target-File
 352      goto endsub
 353   endcatch
 354   Wait 500
 355   printlog "  Paste 'Dimension Lines' in all available clipboard formats "
 356   Kontext "InhaltEinfuegen"
 357   if InhaltEinfuegen.Exists then
 358     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 359     printlog "  Write Clipboard format under pasted content "
 360     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_dim_lines.odt", "writer8")
 361     printlog "  Save document as ..\user\work\draw_to_writer_dim_lines.odt"
 362     Wait 500
 363     Call hCloseDocument
 364     printlog "  Close saved document "
 365     wait 500
 366     Call hFileOpen (gOfficepath + "user\work\draw_to_writer_dim_lines.odt",false)
 367     printlog "  Reopen saved document "
 368     Wait 500
 369     Call hCloseDocument
 370     printlog "  Close saved document "
 371   else
 372     Warnlog "Dialog 'Paste Special' is not up!"
 373     Call hCloseDocument
 374     goto endsub
 375   end if
 376   printlog "  Close active document "
 377     Do Until GetDocumentCount = 0
 378         Call hCloseDocument
 379     Loop
 380 endcase
 381
 382 ' ---------------------------------------------------------------------------------
 383
 384 testcase DrawToWriterConnectors
 385
 386   gApplication = "DRAW"
 387   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\draw.sxd' "
 388   printlog "  Jump to beginning of document "
 389   printlog "  Select Connectors "
 390   printlog "  Copy selected Connectors "
 391   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\draw.sxd")
 392   Call sMakeReadOnlyDocumentEditable
 393   Kontext "DocumentDraw"
 394   printlog "  Jump to beginning of document "
 395   DocumentDraw.TypeKeys "<PageDown>"
 396   DocumentDraw.TypeKeys "<Tab>"
 397   EditCopy
 398   gApplication = "WRITER"
 399   printlog "  Open a new writerdocument "
 400   Call hNewDocument
 401   Sleep 2
 402   try
 403      EditPasteSpecialWriter
 404   catch
 405      Warnlog "Unable to execute 'Edit / Paste Special' ! Test failed!"
 406      Call hCloseDocument ' Close Source-File
 407      Call hCloseDocument ' Close Target-File
 408      goto endsub
 409   endcatch
 410   Wait 500
 411   printlog "  Paste 'Connectors' in all available clipboard formats "
 412   Kontext "InhaltEinfuegen"
 413   if InhaltEinfuegen.Exists then
 414     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 415     printlog "  Write Clipboard format under pasted content "
 416     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\draw_to_writer_connectors.odt", "writer8")
 417     printlog "  Save document as ..\user\work\draw_to_writer_connectors.odt"
 418     Wait 500
 419     Call hCloseDocument
 420     printlog "  Close saved document "
 421     wait 500
 422     Call hFileOpen (gOfficepath + "user\work\draw_to_writer_connectors.odt",false)
 423     printlog "  Reopen saved document "
 424     Wait 500
 425     Call hCloseDocument
 426     printlog "  Close saved document "
 427   else
 428     Warnlog "Dialog 'Paste Special' is not up!"
 429     Call hCloseDocument
 430     goto endsub
 431   end if
 432   printlog "  Close active document "
 433     Do Until GetDocumentCount = 0
 434         Call hCloseDocument
 435     Loop
 436 endcase
 437
 438 '------------------------------------------------------------------------------