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