testautomation/writer/optional/includes/clipboard/w_215_.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_215_.inc,v $
   9 '*
  10 '* $Revision: 1.1 $
  11 '*
  12 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $
  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_215_
  40
  41     Call CalcToWriterText1
  42     Call CalcToWriterText2
  43     Call CalcToWriterCalculation
  44     Call CalcToWriterHyperlink1
  45     Call CalcToWriterHyperlink2
  46     Call CalcToWriterDrawObject
  47     Call CalcToWriterOLE
  48
  49 end sub
  50
  51 '--------------------------------------------------------
  52
  53 testcase CalcToWriterText1
  54   gApplication = "CALC"
  55   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
  56   printlog "  Jump to beginning of document "
  57   printlog "  Select cell <A2> "
  58   printlog "  Copy selected text "
  59   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
  60   Call sMakeReadOnlyDocumentEditable
  61   Kontext "DocumentCalc"
  62   printlog "  Jump to beginning of document "
  63   DocumentCalc.TypeKeys "<Mod1 Home>"
  64   DocumentCalc.TypeKeys "<Down>"
  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
  75      Call hCloseDocument
  76      goto endsub
  77   endcatch
  78   Wait 500
  79   printlog "  Paste 'Text' in all available clipboard formats "
  80   Kontext "InhaltEinfuegen"
  81   if InhaltEinfuegen.Exists then
  82     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
  83     printlog "  Write Clipboard format under pasted content "
  84     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_textformat_wholecell.odt", "writer8")
  85     printlog "  Save document as ..\user\work\writer_to_writer_textformat_wholecell.odt"
  86     Wait 500
  87     Call hCloseDocument
  88     printlog "  Close saved document "
  89     wait 500
  90     printlog "  Reopen saved document "
  91     if hFileOpen (gOfficepath + "user\work\writer_to_writer_textformat_wholecell.odt",true) = false then
  92         Kontext "Active"
  93         if Active.Exists then
  94             try
  95                 Active.Yes
  96             catch
  97                 Warnlog "Unable to remove checkbox: " + Active.Gettext
  98                 Active.ok
  99             endcatch
 100         end if
 101     end if
 102     Wait 500
 103     printlog "  Close saved document "
 104     Call hCloseDocument
 105   else
 106     Warnlog "Dialog 'Paste Special' is not up!"
 107     Call hCloseDocument
 108     goto endsub
 109   end if
 110   printlog "  Close active document "
 111   Call hCloseDocument
 112 endcase
 113
 114 ' ---------------------------------------------------------------------------------
 115
 116 testcase CalcToWriterText2
 117   gApplication = "CALC"
 118   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
 119   printlog "  Jump to beginning of document "
 120   printlog "  Select cell <A1>, press F2 and select all "
 121   printlog "  Copy selected text "
 122   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
 123   Call sMakeReadOnlyDocumentEditable
 124   Kontext "DocumentCalc"
 125   printlog "  Jump to beginning of document "
 126   DocumentCalc.TypeKeys "<Mod1 Home>"
 127   DocumentCalc.TypeKeys "<Down>"
 128   DocumentCalc.TypeKeys "<F2>"
 129   DocumentCalc.TypeKeys "<Mod1 A>"
 130   EditCopy
 131   gApplication = "WRITER"
 132   printlog "  Open a new writerdocument "
 133   Call hNewDocument
 134   Sleep 2
 135   try
 136      EditPasteSpecialWriter
 137   catch
 138      Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 139      Call hCloseDocument
 140      Call hCloseDocument
 141      goto endsub
 142   endcatch
 143   Wait 500
 144   printlog "  Paste 'Text' in all available clipboard formats "
 145   Kontext "InhaltEinfuegen"
 146   if InhaltEinfuegen.Exists then
 147     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
 148     printlog "  Write Clipboard format under pasted content "
 149     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_textformat_cellcontent.odt", "writer8")
 150     printlog "  Save document as ..\user\work\writer_to_writer_textformat_cellcontent.odt"
 151     Wait 500
 152     printlog "  Close saved document "
 153     Call hCloseDocument
 154     wait 500
 155     printlog "  Reopen saved document "
 156     Call hFileOpen (gOfficepath + "user\work\writer_to_writer_textformat_cellcontent.odt",false)
 157     Wait 500
 158     printlog "  Close saved document "
 159     Call hCloseDocument
 160   else
 161     Warnlog "Dialog 'Paste Special' is not up!"
 162     Call hCloseDocument
 163     goto endsub
 164   end if
 165   printlog "  Close active document "
 166   Call hCloseDocument
 167 endcase
 168
 169 ' ---------------------------------------------------------------------------------
 170
 171 testcase CalcToWriterCalculation
 172   gApplication = "CALC"
 173   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
 174   printlog "  Jump to beginning of document "
 175   printlog "  Select cell <A5:C5> "
 176   printlog "  Copy selected text "
 177   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
 178   Call sMakeReadOnlyDocumentEditable
 179   Kontext "DocumentCalc"
 180   printlog "  Jump to beginning of document "
 181   DocumentCalc.TypeKeys "<Mod1 Home>"
 182   DocumentCalc.TypeKeys "<Down>",4
 183   DocumentCalc.TypeKeys "<Shift Right>", 2
 184   EditCopy
 185   gApplication = "WRITER"
 186   printlog "  Open a new writerdocument "
 187   Call hNewDocument
 188   Sleep 2
 189   try
 190      EditPasteSpecialWriter
 191   catch
 192      Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 193      Call hCloseDocument
 194      Call hCloseDocument
 195      goto endsub
 196   endcatch
 197   Wait 500
 198   printlog "  Paste 'Text' in all available clipboard formats "
 199   Kontext "InhaltEinfuegen"
 200   if InhaltEinfuegen.Exists then
 201     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
 202     printlog "  Write Clipboard format under pasted content "
 203     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_calculation_cellformat.odt", "writer8")
 204     printlog "  Save document as ..\user\work\writer_to_writer_calculation_cellformat.odt"
 205     Wait 500
 206     Call hCloseDocument
 207     printlog "  Close saved document "
 208     wait 500
 209     printlog "  Reopen saved document "
 210     if hFileOpen (gOfficepath + "user\work\writer_to_writer_calculation_cellformat.odt",true) = false then
 211         Kontext "Active"
 212         if Active.Exists then
 213             try
 214                 Active.Yes
 215             catch
 216                 Warnlog "Unable to remove checkbox: " + Active.Gettext
 217                 Active.ok
 218             endcatch
 219         end if
 220     end if
 221     Wait 500
 222     printlog "  Close saved document "
 223     Call hCloseDocument
 224   else
 225     Warnlog "Dialog 'Paste Special' is not up!"
 226     Call hCloseDocument
 227     goto endsub
 228   end if
 229   printlog "  Close active document "
 230   Call hCloseDocument
 231 endcase
 232
 233 ' ---------------------------------------------------------------------------------
 234
 235 testcase CalcToWriterHyperlink1
 236   gApplication = "CALC"
 237   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
 238   printlog "  Jump to beginning of document "
 239   printlog "  Select cell <A8> "
 240   printlog "  Copy selected text "
 241   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
 242   Call sMakeReadOnlyDocumentEditable
 243   Kontext "DocumentCalc"
 244   printlog "  Jump to beginning of document "
 245   DocumentCalc.TypeKeys "<Mod1 Home>"
 246   DocumentCalc.TypeKeys "<Down>",7
 247   EditCopy
 248   gApplication = "WRITER"
 249   printlog "  Open a new writerdocument "
 250   Call hNewDocument
 251   Sleep 2
 252   try
 253      EditPasteSpecialWriter
 254   catch
 255      Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 256      Call hCloseDocument
 257      Call hCloseDocument
 258      goto endsub
 259   endcatch
 260   Wait 500
 261   printlog "  Paste 'Text' in all available clipboard formats "
 262   Kontext "InhaltEinfuegen"
 263   if InhaltEinfuegen.Exists then
 264     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
 265     printlog "  Write Clipboard format under pasted content "
 266     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_hyperlink_wholecell.odt", "writer8")
 267     printlog "  Save document as ..\user\work\writer_to_writer_hyperlink_wholecell.odt"
 268     Wait 500
 269     Call hCloseDocument
 270     printlog "  Close saved document "
 271     wait 500
 272     printlog "  Reopen saved document "
 273     if hFileOpen (gOfficepath + "user\work\writer_to_writer_hyperlink_wholecell.odt",true) = false then
 274         Kontext "Active"
 275         if Active.Exists then
 276             try
 277                 Active.Yes
 278             catch
 279                 Warnlog "Unable to remove checkbox: " + Active.Gettext
 280                 Active.ok
 281             endcatch
 282         end if
 283     end if
 284     Wait 500
 285     printlog "  Close saved document "
 286     Call hCloseDocument
 287   else
 288     Warnlog "Dialog 'Paste Special' is not up!"
 289     Call hCloseDocument
 290     goto endsub
 291   end if
 292   printlog "  Close active document "
 293   Call hCloseDocument
 294 endcase
 295
 296 ' ---------------------------------------------------------------------------------
 297
 298 testcase CalcToWriterHyperlink2
 299   gApplication = "CALC"
 300   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
 301   printlog "  Jump to beginning of document "
 302   printlog "  Select cell <A8> "
 303   printlog "  Copy selected text "
 304   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
 305   Call sMakeReadOnlyDocumentEditable
 306   Kontext "DocumentCalc"
 307   printlog "  Jump to beginning of document "
 308   DocumentCalc.TypeKeys "<Mod1 Home>"
 309   DocumentCalc.TypeKeys "<Down>",7
 310   DocumentCalc.TypeKeys "<F2>"
 311   DocumentCalc.TypeKeys "<Mod1 A>"
 312   EditCopy
 313   gApplication = "WRITER"
 314   printlog "  Open a new writerdocument "
 315   Call hNewDocument
 316   Sleep 2
 317   try
 318      EditPasteSpecialWriter
 319   catch
 320      Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 321      Call hCloseDocument
 322      Call hCloseDocument
 323      goto endsub
 324   endcatch
 325   Wait 500
 326   printlog "  Paste 'Text' in all available clipboard formats "
 327   Kontext "InhaltEinfuegen"
 328   if InhaltEinfuegen.Exists then
 329     printlog "  Write Clipboard format under pasted content "
 330     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
 331     printlog "  Save document as ..\user\work\writer_to_writer_hyperlink_cellcontent.odt"
 332     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_hyperlink_cellcontent.odt", "writer8")
 333     Wait 500
 334     printlog "  Close saved document "
 335     Call hCloseDocument
 336     wait 500
 337     printlog "  Reopen saved document "
 338     Call hFileOpen (gOfficepath + "user\work\writer_to_writer_hyperlink_cellcontent.odt",false)
 339     Wait 500
 340     printlog "  Close saved document "
 341     Call hCloseDocument
 342   else
 343     Warnlog "Dialog 'Paste Special' is not up!"
 344     Call hCloseDocument
 345     goto endsub
 346   end if
 347   printlog "  Close active document "
 348   Call hCloseDocument
 349 endcase
 350
 351 ' ---------------------------------------------------------------------------------
 352
 353 testcase CalcToWriterDrawObject
 354   gApplication = "CALC"
 355   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
 356   printlog "  Jump to beginning of document "
 357   printlog "  Select Drawing object "
 358   printlog "  Copy selected object "
 359   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
 360   Call sMakeReadOnlyDocumentEditable
 361   Kontext "DocumentCalc"
 362   printlog "  Jump to beginning of document "
 363   Call wNavigatorAuswahl(8,1)
 364   EditCopy
 365   gApplication = "WRITER"
 366   printlog "  Open a new writerdocument "
 367   Call hNewDocument
 368   Sleep 2
 369   try
 370      EditPasteSpecialWriter
 371   catch
 372      Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 373      Call hCloseDocument
 374      Call hCloseDocument
 375      goto endsub
 376   endcatch
 377   Wait 500
 378   printlog "  Paste 'Text' in all available clipboard formats "
 379   Kontext "InhaltEinfuegen"
 380   if InhaltEinfuegen.Exists then
 381     printlog "  Write Clipboard format under pasted content "
 382     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
 383     printlog "  Save document as ..\user\work\writer_to_writer_draw.odt"
 384     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_draw.odt", "writer8")
 385     Wait 500
 386     printlog "  Close saved document "
 387     Call hCloseDocument
 388     wait 500
 389     printlog "  Reopen saved document "
 390     Call hFileOpen (gOfficepath + "user\work\writer_to_writer_draw.odt",false)
 391     Wait 500
 392     printlog "  Close saved document "
 393     Call hCloseDocument
 394   else
 395     Warnlog "Dialog 'Paste Special' is not up!"
 396     Call hCloseDocument
 397     goto endsub
 398   end if
 399   printlog "  Close active document "
 400   Call hCloseDocument
 401 endcase
 402
 403 ' ---------------------------------------------------------------------------------
 404
 405 testcase CalcToWriterOLE
 406   gApplication = "CALC"
 407   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\calc.sxc' "
 408   printlog "  Jump to beginning of document "
 409   printlog "  Select OLE-Object "
 410   printlog "  Copy selected object "
 411   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\calc.sxc")
 412   Call sMakeReadOnlyDocumentEditable
 413   Kontext "DocumentCalc"
 414   printlog "  Jump to beginning of document "
 415   Call wNavigatorAuswahl(6,1)
 416   EditCopy
 417   gApplication = "WRITER"
 418   printlog "  Open a new writerdocument "
 419   Call hNewDocument
 420   Sleep 2
 421   try
 422      EditPasteSpecialWriter
 423   catch
 424      Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 425      Call hCloseDocument
 426      Call hCloseDocument
 427      goto endsub
 428   endcatch
 429   Wait 500
 430   printlog "  Paste 'Text' in all available clipboard formats "
 431   Kontext "InhaltEinfuegen"
 432   if InhaltEinfuegen.Exists then
 433     printlog "  Write Clipboard format under pasted content "
 434     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ctext")
 435     printlog "  Save document as ..\user\work\writer_to_writer_ole.odt"
 436     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_writer_ole.odt", "writer8")
 437     Wait 500
 438     printlog "  Close saved document "
 439     Call hCloseDocument
 440     wait 500
 441     printlog "  Reopen saved document "
 442     Call hFileOpen (gOfficepath + "user\work\writer_to_writer_ole.odt",false)
 443     Wait 500
 444     printlog "  Close saved document "
 445     Call hCloseDocument
 446   else
 447     Warnlog "Dialog 'Paste Special' is not up!"
 448     Call hCloseDocument
 449     goto endsub
 450   end if
 451   printlog "  Close active document "
 452   Call hCloseDocument
 453 endcase
 454