testautomation/writer/optional/includes/clipboard/w_218_.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_218_.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:25:03 $
  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_218_
  40
  41     Call HTMLToDRAWText
  42     Call HTMLToDRAWField
  43     Call HTMLToDRAWTable
  44     Call HTMLToDRAWGraphicLinked
  45     Call HTMLToDRAWControl
  46     Call HTMLToDRAWFloatingFrame
  47
  48 end sub
  49
  50 ' ---------------------------------------------------------------------------------
  51
  52 testcase HTMLToDRAWText
  53     gApplication = "HTML"
  54     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
  55     printlog " + Jump to beginning of document "
  56     printlog " + Select first paragraph "
  57     printlog " + Copy selected text "
  58     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
  59     Call sMakeReadOnlyDocumentEditable
  60     printlog "  Jump to beginning of document "
  61     Call wTypeKeys "<Mod1 Home>"
  62     Call wTypeKeys "<Shift Down><Shift End>"
  63     EditCopy
  64
  65     gApplication = "DRAW"
  66     printlog " + Open new document "
  67     Call hNewDocument
  68     printlog " + Edit / Paste Special "
  69     Sleep 2
  70     try
  71         EditPasteSpecial
  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         printlog " + Write Clipboard format under pasted content "
  83         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
  84         printlog " + Save document as ..\user\work\html_to_draw_text.odg"
  85         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_text.odg", "draw8")
  86         Wait 500
  87         printlog " + Close saved document "
  88         Call hCloseDocument
  89         wait 500
  90         printlog " + Reopen saved document "
  91         if hFileOpen (gOfficepath + "user\work\html_to_draw_text.odg",false) = 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     Do Until GetDocumentCount = 0
 112         Call hCloseDocument
 113     Loop
 114 endcase
 115
 116 ' ----------------------------------------------------------------------------------------------
 117
 118 testcase HTMLToDRAWField
 119     gApplication = "HTML"
 120     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 121     printlog " + Jump to beginning of document "
 122     printlog " + Select paragraph with 'Date Field' "
 123     printlog " + Copy selected text "
 124     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 125     Call sMakeReadOnlyDocumentEditable
 126     printlog "  Jump to beginning of document "
 127     Call wTypeKeys "<Mod1 Home>"
 128     Call wTypeKeys "<Down>",2
 129     Call wTypeKeys "<Home><Shift End>"
 130     try
 131         EditCopy
 132     catch
 133         Call wTypeKeys "<Down>",1
 134         Call wTypeKeys "<Home><Shift End>"
 135         EditCopy
 136     endcatch
 137     gApplication = "DRAW"
 138     printlog " + Open new document "
 139     Call hNewDocument
 140     printlog " + Edit / Paste Special "
 141     Sleep 2
 142     try
 143         EditPasteSpecial
 144     catch
 145         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 146         Call hCloseDocument
 147         Call hCloseDocument
 148         goto endsub
 149     endcatch
 150     Wait 500
 151     printlog "  Paste 'Field' in all available clipboard formats "
 152     Kontext "InhaltEinfuegen"
 153     if InhaltEinfuegen.Exists then
 154         printlog " + Write Clipboard format under pasted content "
 155         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
 156         printlog " + Save document as ..\user\work\html_to_draw_field.odg"
 157         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_field.odg", "draw8")
 158         Wait 500
 159         printlog " + Close saved document "
 160         Call hCloseDocument
 161         sleep (2)
 162         printlog " + Reopen saved document "
 163         Call hFileOpen (gOfficepath + "user\work\html_to_draw_field.odg",false)
 164         Wait 500
 165         printlog " + Close saved document "
 166         Call hCloseDocument
 167     else
 168         Warnlog "Dialog 'Paste Special' is not up!"
 169         Call hCloseDocument
 170         goto endsub
 171     end if
 172     printlog "  Close active document "
 173     Do Until GetDocumentCount = 0
 174         Call hCloseDocument
 175     Loop
 176 endcase
 177
 178 ' ----------------------------------------------------------------------------------------------
 179
 180 testcase HTMLToDRAWTable
 181   gApplication = "HTML"
 182   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 183   printlog " + Jump to beginning of document "
 184   printlog " + Select 'Table' "
 185   printlog " + Copy selected table "
 186   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 187   Call sMakeReadOnlyDocumentEditable
 188   printlog "  Jump to beginning of document "
 189   Call wTypeKeys "<Mod1 Home>"
 190   Call wTypeKeys "<Down>",5
 191   Call wTypeKeys "<Mod1 A>",2
 192   EditCopy
 193
 194   gApplication = "DRAW"
 195   printlog " + Open new document "
 196   Call hNewDocument
 197   printlog " + Edit / Paste Special "
 198     Sleep 2
 199     try
 200         EditPasteSpecial
 201     catch
 202         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 203         Call hCloseDocument
 204         Call hCloseDocument
 205         goto endsub
 206     endcatch
 207   Wait 500
 208   printlog "  Paste 'Table' in all available clipboard formats "
 209   Kontext "InhaltEinfuegen"
 210    if InhaltEinfuegen.Exists then
 211      printlog " + Write Clipboard format under pasted content "
 212      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
 213      printlog " + Save document as ..\user\work\html_to_draw_table.odg"
 214      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_table.odg", "draw8")
 215      Wait 500
 216      printlog " + Close saved document "
 217      Call hCloseDocument
 218      wait 500
 219      printlog " + Reopen saved document "
 220      Call hFileOpen (gOfficepath + "user\work\html_to_draw_table.odg",false)
 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     Do Until GetDocumentCount = 0
 231         Call hCloseDocument
 232     Loop
 233 endcase
 234
 235 ' ----------------------------------------------------------------------------------------------
 236
 237 testcase HTMLToDRAWGraphicLinked
 238     gApplication = "HTML"
 239     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 240     printlog " + Jump to beginning of document "
 241     printlog " + Select 'Linked Graphic' "
 242     printlog " + Copy selected Linked Graphic "
 243     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 244     Call sMakeReadOnlyDocumentEditable
 245     printlog "  Jump to beginning of document "
 246     Call wTypeKeys "<Mod1 Home>"
 247     Call wTypeKeys ( "<Shift F4>" )
 248     EditCopy
 249
 250     gApplication = "DRAW"
 251     printlog " + Open new document "
 252     Call hNewDocument
 253     printlog " + Edit / Paste Special "
 254     Sleep 2
 255     try
 256         EditPasteSpecial
 257     catch
 258         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 259         Call hCloseDocument
 260         Call hCloseDocument
 261         goto endsub
 262     endcatch
 263     Wait 500
 264     printlog "  Paste 'Linked Graphic' in all available clipboard formats "
 265     Kontext "InhaltEinfuegen"
 266     if InhaltEinfuegen.Exists then
 267         printlog " + Write Clipboard format under pasted content "
 268         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
 269         printlog " + Save document as ..\user\work\html_to_draw_graphic1.odg"
 270         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_graphic1.odg", "draw8")
 271         Wait 500
 272         printlog " + Close saved document "
 273         Call hCloseDocument
 274         wait 500
 275         printlog " + Reopen saved document "
 276         Call hFileOpen (gOfficepath + "user\work\html_to_draw_graphic1.odg",false)
 277         Wait 500
 278         printlog " + Close saved document "
 279         Call hCloseDocument
 280     else
 281         Warnlog "Dialog 'Paste Special' is not up!"
 282         Call hCloseDocument
 283         goto endsub
 284     end if
 285     printlog "  Close active document "
 286     Do Until GetDocumentCount = 0
 287         Call hCloseDocument
 288     Loop
 289 endcase
 290
 291 ' ----------------------------------------------------------------------------------------------
 292
 293 testcase HTMLToDRAWControl
 294     gApplication = "HTML"
 295     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 296     printlog " + Jump to beginning of document "
 297     printlog " + Select 'Control' "
 298     printlog " + Copy selected Control "
 299     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 300     Call sMakeReadOnlyDocumentEditable
 301     printlog "  Jump to beginning of document "
 302     Call wTypeKeys "<Mod1 Home>"
 303     Call wTypeKeys ( "<Shift F4>" )
 304     Call wTypeKeys "<Tab>"
 305     EditCopy
 306
 307     gApplication = "DRAW"
 308     printlog " + Open new document "
 309     Call hNewDocument
 310     printlog " + Edit / Paste Special "
 311     Sleep 2
 312     try
 313         EditPasteSpecial
 314     catch
 315         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 316         Call hCloseDocument
 317         Call hCloseDocument
 318         goto endsub
 319     endcatch
 320     Wait 500
 321     printlog "  Paste 'Control' in all available clipboard formats "
 322     Kontext "InhaltEinfuegen"
 323     if InhaltEinfuegen.Exists then
 324         printlog " + Write Clipboard format under pasted content "
 325         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
 326         printlog " + Save document as ..\user\work\html_to_draw_control.odg"
 327         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_control.odg", "draw8")
 328         Wait 500
 329         printlog " + Close saved document "
 330         Call hCloseDocument
 331         wait 500
 332         printlog " + Reopen saved document "
 333         Call hFileOpen (gOfficepath + "user\work\html_to_draw_control.odg",false)
 334         Wait 500
 335         printlog " + Close saved document "
 336         Call hCloseDocument
 337     else
 338         Warnlog "Dialog 'Paste Special' is not up!"
 339         Call hCloseDocument
 340         goto endsub
 341     end if
 342     printlog "  Close active document "
 343     Do Until GetDocumentCount = 0
 344         Call hCloseDocument
 345     Loop
 346 endcase
 347
 348 ' ----------------------------------------------------------------------------------------------
 349
 350 testcase HTMLToDRAWFloatingFrame
 351     gApplication = "HTML"
 352     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 353     printlog " + Jump to beginning of document "
 354     printlog " + Select 'Floating Frame' "
 355     printlog " + Copy selected Floating Frame "
 356     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 357     Call sMakeReadOnlyDocumentEditable
 358     printlog "  Jump to beginning of document "
 359     Call wTypeKeys "<Mod1 Home>"
 360     Call wTypeKeys ( "<Shift F4>" )
 361     Call wTypeKeys "<Tab>",2
 362     try
 363         EditCopy
 364     catch
 365         Warnlog "Edit / Copy is disabled ! Maybe object not selected!"
 366         Call hCloseDocument
 367         goto endsub
 368     endcatch
 369     gApplication = "DRAW"
 370     printlog " + Open new document "
 371     Call hNewDocument
 372     printlog " + Edit / Paste Special "
 373     Sleep 2
 374     try
 375         EditPasteSpecial
 376     catch
 377         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 378         Call hCloseDocument
 379         Call hCloseDocument
 380         goto endsub
 381     endcatch
 382     Wait 500
 383     printlog "  Paste 'Floating Frame' in all available clipboard formats "
 384     Kontext "InhaltEinfuegen"
 385     if InhaltEinfuegen.Exists then
 386         printlog " + Write Clipboard format under pasted content "
 387         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
 388         printlog " + Save document as ..\user\work\html_to_draw_float.odg"
 389         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_draw_float.odg", "draw8")
 390         Wait 500
 391         printlog " + Close saved document "
 392         Call hCloseDocument
 393         wait 500
 394         printlog " + Reopen saved document "
 395         Call hFileOpen (gOfficepath + "user\work\html_to_draw_float.odg",false)
 396         Wait 500
 397         printlog " + Close saved document "
 398         Call hCloseDocument
 399     else
 400         Warnlog "Dialog 'Paste Special' is not up!"
 401         Call hCloseDocument
 402         goto endsub
 403     end if
 404     printlog "  Close active document "
 405     Do Until GetDocumentCount = 0
 406         Call hCloseDocument
 407     Loop
 408 endcase