testautomation/writer/optional/includes/clipboard/w_219_.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_219_.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:25:15 $
  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_219_
  40
  41     Call HTMLToIMPRESSText
  42     Call HTMLToIMPRESSField
  43     Call HTMLToIMPRESSTable
  44     Call HTMLToIMPRESSGraphicLinked
  45     Call HTMLToIMPRESSControl
  46     Call HTMLToIMPRESSFloatingFrame
  47
  48 end sub
  49
  50 ' ---------------------------------------------------------------------------------
  51
  52 testcase HTMLToIMPRESSText
  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 = "IMPRESS"
  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_impress_text.odp"
  85    Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_text.odp", "impress8")
  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_impress_text.odp",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 HTMLToIMPRESSField
 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   EditCopy
 131
 132     gApplication = "IMPRESS"
 133     printlog "  Open new document "
 134     Call hNewDocument
 135     printlog "  Edit / Paste Special "
 136     Sleep 2
 137     try
 138         EditPasteSpecial
 139     catch
 140         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 141         Call hCloseDocument
 142         Call hCloseDocument
 143         goto endsub
 144     endcatch
 145     Wait 500
 146     printlog "  Paste 'Field' in all available clipboard formats "
 147     Kontext "InhaltEinfuegen"
 148     if InhaltEinfuegen.Exists then
 149     printlog "  Write Clipboard format under pasted content "
 150     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
 151      printlog "  Save document as ..\user\work\html_to_impress_field.odp"
 152     Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_field.odp", "impress8")
 153      Wait 500
 154      printlog "  Close saved document "
 155      Call hCloseDocument
 156      wait 500
 157      printlog "  Reopen saved document "
 158      Call hFileOpen (gOfficepath + "user\work\html_to_impress_field.odp",false)
 159      Wait 500
 160      printlog "  Close saved document "
 161      Call hCloseDocument
 162     else
 163      Warnlog "Dialog 'Paste Special' is not up!"
 164      Call hCloseDocument
 165      goto endsub
 166     end if
 167   printlog "  Close active document "
 168     Do Until GetDocumentCount = 0
 169         Call hCloseDocument
 170     Loop
 171 endcase
 172
 173 ' ----------------------------------------------------------------------------------------------
 174
 175 testcase HTMLToIMPRESSTable
 176   gApplication = "HTML"
 177   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 178   printlog "  Jump to beginning of document "
 179   printlog "  Select 'Table' "
 180   printlog "  Copy selected table "
 181   Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 182   Call sMakeReadOnlyDocumentEditable
 183   printlog "  Jump to beginning of document "
 184   Call wTypeKeys "<Mod1 Home>"
 185   Call wTypeKeys "<Down>",5
 186   Call wTypeKeys "<Mod1 A>",2
 187   EditCopy
 188
 189   gApplication = "IMPRESS"
 190   printlog "  Open new document "
 191   Call hNewDocument
 192   printlog "  Edit / Paste Special "
 193     Sleep 2
 194     try
 195         EditPasteSpecial
 196     catch
 197         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 198         Call hCloseDocument
 199         Call hCloseDocument
 200         goto endsub
 201     endcatch
 202   Wait 500
 203   printlog "  Paste 'Table' in all available clipboard formats "
 204   Kontext "InhaltEinfuegen"
 205    if InhaltEinfuegen.Exists then
 206      printlog "  Write Clipboard format under pasted content "
 207      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
 208      printlog "  Save document as ..\user\work\html_to_impress_table.odp"
 209      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_table.odp", "impress8")
 210      Wait 500
 211      printlog "  Close saved document "
 212      Call hCloseDocument
 213      wait 500
 214      printlog "  Reopen saved document "
 215      Call hFileOpen (gOfficepath + "user\work\html_to_impress_table.odp",false)
 216      Wait 500
 217      printlog "  Close saved document "
 218      Call hCloseDocument
 219    else
 220      Warnlog "Dialog 'Paste Special' is not up!"
 221      Call hCloseDocument
 222      goto endsub
 223    end if
 224   printlog "  Close active document "
 225     Do Until GetDocumentCount = 0
 226         Call hCloseDocument
 227     Loop
 228 endcase
 229
 230 ' ----------------------------------------------------------------------------------------------
 231
 232 testcase HTMLToIMPRESSGraphicLinked
 233     gApplication = "HTML"
 234     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 235     printlog "  Jump to beginning of document "
 236     printlog "  Select 'Linked Graphic' "
 237     printlog "  Copy selected Linked Graphic "
 238     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 239     Call sMakeReadOnlyDocumentEditable
 240     printlog "  Jump to beginning of document "
 241     Call wTypeKeys "<Mod1 Home>"
 242     Call wTypeKeys ( "<Shift F4>" )
 243     EditCopy
 244
 245     gApplication = "IMPRESS"
 246     printlog "  Open new document "
 247     Call hNewDocument
 248     printlog "  Edit / Paste Special "
 249     Sleep 2
 250     try
 251         EditPasteSpecial
 252     catch
 253         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 254         Call hCloseDocument
 255         Call hCloseDocument
 256         goto endsub
 257     endcatch
 258     Wait 500
 259     printlog "  Paste 'Linked Graphic' in all available clipboard formats "
 260     Kontext "InhaltEinfuegen"
 261     if InhaltEinfuegen.Exists then
 262         printlog "  Write Clipboard format under pasted content "
 263     Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
 264         printlog "  Save document as ..\user\work\html_to_impress_graphic1.odp"
 265         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_graphic1.odp", "impress8")
 266         Wait 500
 267         printlog "  Close saved document "
 268         Call hCloseDocument
 269         wait 500
 270         printlog "  Reopen saved document "
 271         Call hFileOpen (gOfficepath + "user\work\html_to_impress_graphic1.odp",false)
 272         Wait 500
 273         printlog "  Close saved document "
 274         Call hCloseDocument
 275     else
 276         Warnlog "Dialog 'Paste Special' is not up!"
 277         Call hCloseDocument
 278         goto endsub
 279     end if
 280     printlog "  Close active document "
 281     Do Until GetDocumentCount = 0
 282         Call hCloseDocument
 283     Loop
 284 endcase
 285
 286 ' ----------------------------------------------------------------------------------------------
 287
 288 testcase HTMLToIMPRESSControl
 289     gApplication = "HTML"
 290     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 291     printlog "  Jump to beginning of document "
 292     printlog "  Select 'Control' "
 293     printlog "  Copy selected Control "
 294     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 295     Call sMakeReadOnlyDocumentEditable
 296     printlog "  Jump to beginning of document "
 297     Call wTypeKeys "<Mod1 Home>"
 298     Call wTypeKeys ( "<Shift F4>" )
 299     Call wTypeKeys "<Tab>"
 300     EditCopy
 301
 302     gApplication = "IMPRESS"
 303     printlog "  Open new document "
 304     Call hNewDocument
 305     printlog "  Edit / Paste Special "
 306     Sleep 2
 307     try
 308         EditPasteSpecial
 309     catch
 310         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 311         Call hCloseDocument
 312         Call hCloseDocument
 313         goto endsub
 314     endcatch
 315     Wait 500
 316     printlog "  Paste 'Control' in all available clipboard formats "
 317     Kontext "InhaltEinfuegen"
 318     if InhaltEinfuegen.Exists then
 319         printlog "  Write Clipboard format under pasted content "
 320         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
 321         printlog "  Save document as ..\user\work\html_to_impress_control.odp"
 322         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_control.odp", "impress8")
 323         Wait 500
 324         printlog "  Close saved document "
 325         Call hCloseDocument
 326         wait 500
 327         printlog "  Reopen saved document "
 328         Call hFileOpen (gOfficepath + "user\work\html_to_impress_control.odp",false)
 329         Wait 500
 330         printlog "  Close saved document "
 331         Call hCloseDocument
 332     else
 333         Warnlog "Dialog 'Paste Special' is not up!"
 334         Call hCloseDocument
 335         goto endsub
 336     end if
 337     printlog "  Close active document "
 338     Do Until GetDocumentCount = 0
 339         Call hCloseDocument
 340     Loop
 341 endcase
 342
 343 ' ----------------------------------------------------------------------------------------------
 344
 345 testcase HTMLToIMPRESSFloatingFrame
 346     gApplication = "HTML"
 347     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 348     printlog "  Jump to beginning of document "
 349     printlog "  Select 'Floating Frame' "
 350     printlog "  Copy selected Floating Frame "
 351     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html")
 352     Call sMakeReadOnlyDocumentEditable
 353     printlog "  Jump to beginning of document "
 354     Call wTypeKeys "<Mod1 Home>"
 355     Call wTypeKeys ( "<Shift F4>" )
 356     Call wTypeKeys "<Tab>",2
 357     try
 358         EditCopy
 359     catch
 360         Warnlog "Edit / Copy is disabled ! Maybe object not selected!"
 361         Call hCloseDocument
 362         goto endsub
 363     endcatch
 364     gApplication = "IMPRESS"
 365     printlog "  Open new document "
 366     Call hNewDocument
 367     printlog "  Edit / Paste Special "
 368     Sleep 2
 369     try
 370         EditPasteSpecial
 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 'Floating Frame' 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,"control")
 383         printlog "  Save document as ..\user\work\html_to_impress_float.odp"
 384         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_impress_float.odp", "impress8")
 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\html_to_impress_float.odp",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     Do Until GetDocumentCount = 0
 401         Call hCloseDocument
 402     Loop
 403 endcase