testautomation/writer/optional/includes/clipboard/w_217_.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_217_.inc,v $
   9 '*
  10 '* $Revision: 1.2 $
  11 '*
  12 '* last change: $Author: vg $ $Date: 2008-08-18 12:24:52 $
  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_217_
  40
  41     Call HTMLToCALCText
  42     Call HTMLToCALCField
  43     Call HTMLToCALCTable
  44     Call HTMLToCALCGraphicLinked
  45     Call HTMLToCALCControl
  46     Call HTMLToCALCFloatingFrame
  47
  48 end sub
  49
  50 ' ---------------------------------------------------------------------------------
  51
  52 testcase HTMLToCALCText
  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",false)
  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 = "CALC"
  66     printlog "  Open new document "
  67     Call hNewDocument
  68     printlog "  Edit / Paste Special "
  69     Sleep 2
  70     try
  71         EditPasteSpecialCalc
  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_calc_text.ods"
  85         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_text.ods", "calc8")
  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_calc_text.ods",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     Do Until GetDocumentCount = 0
 112         Call hCloseDocument
 113     Loop
 114 endcase
 115
 116 ' ----------------------------------------------------------------------------------------------
 117
 118 testcase HTMLToCALCField
 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",false)
 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 = "CALC"
 133     printlog "  Open new document "
 134     Call hNewDocument
 135     printlog "  Edit / Paste Special "
 136     Sleep 2
 137     try
 138         EditPasteSpecialCalc
 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_calc_field.ods"
 152         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_field.ods", "calc8")
 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_calc_field.ods",true)
 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 HTMLToCALCTable
 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",false)
 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     sleep (1)
 188     EditCopy
 189
 190     gApplication = "CALC"
 191     printlog "  Open new document "
 192     Call hNewDocument
 193     printlog "  Edit / Paste Special "
 194     Sleep 2
 195     try
 196         EditPasteSpecialCalc
 197     catch
 198         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 199         Call hCloseDocument
 200         Call hCloseDocument
 201         goto endsub
 202     endcatch
 203     printlog "  Paste 'Table' in all available clipboard formats "
 204     Kontext "InhaltEinfuegen"
 205     if InhaltEinfuegen.Exists(2) then
 206         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
 207         printlog "  Write Clipboard format under pasted content "
 208         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_table.ods", "calc8")
 209         printlog "  Save document as ..\user\work\html_to_calc_table.ods"
 210         Call hCloseDocument
 211         printlog "  Close saved document "
 212         Call hFileOpen (gOfficepath + "user\work\html_to_calc_table.ods",true)
 213         printlog "  Reopen saved document "
 214         Call hCloseDocument
 215         printlog "  Close saved document "
 216     else
 217         Warnlog "Dialog 'Paste Special' is not up!"
 218         Call hCloseDocument
 219         goto endsub
 220     end if
 221     printlog "  Close active document "
 222     Do Until GetDocumentCount = 0
 223         Call hCloseDocument
 224     Loop
 225 endcase
 226
 227 ' ----------------------------------------------------------------------------------------------
 228
 229 testcase HTMLToCALCGraphicLinked
 230     gApplication = "HTML"
 231     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 232     printlog "  Jump to beginning of document "
 233     printlog "  Select 'Linked Graphic' "
 234     printlog "  Copy selected Linked Graphic "
 235     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
 236     Call sMakeReadOnlyDocumentEditable
 237     printlog "  Jump to beginning of document "
 238     Call wTypeKeys "<Mod1 Home>"
 239     Call wTypeKeys ( "<Shift F4>" )
 240     EditCopy
 241     EditCopy
 242
 243     gApplication = "CALC"
 244     printlog "  Open new document "
 245     Call hNewDocument
 246     printlog "  Edit / Paste Special "
 247     Sleep 2
 248     try
 249         EditPasteSpecialCalc
 250     catch
 251         warnlog "Unable to execute 'Edit / Paste Special'! Test failed! Manually not reproducable"
 252         Call hCloseDocument
 253         Call hCloseDocument
 254         goto endsub
 255     endcatch
 256     Wait 500
 257     printlog "  Paste 'Linked Graphic' in all available clipboard formats "
 258     Kontext "InhaltEinfuegen"
 259     if InhaltEinfuegen.Exists then
 260         printlog "  Write Clipboard format under pasted content "
 261         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
 262         printlog "  Save document as ..\user\work\html_to_calc_graphic1.ods"
 263         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_graphic1.ods", "calc8")
 264         Wait 500
 265         printlog "  Close saved document "
 266         Call hCloseDocument
 267         wait 500
 268         printlog "  Reopen saved document "
 269         Call hFileOpen (gOfficepath + "user\work\html_to_calc_graphic1.ods",false)
 270         Wait 500
 271         printlog "  Close saved document "
 272         Call hCloseDocument
 273     else
 274         Warnlog "Dialog 'Paste Special' is not up!"
 275         Call hCloseDocument
 276         goto endsub
 277     end if
 278     printlog "  Close active document "
 279     Do Until GetDocumentCount = 0
 280         Call hCloseDocument
 281     Loop
 282 endcase
 283
 284 ' ----------------------------------------------------------------------------------------------
 285
 286 testcase HTMLToCALCControl
 287     gApplication = "HTML"
 288     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 289     printlog "  Jump to beginning of document "
 290     printlog "  Select 'Control' "
 291     printlog "  Copy selected Control "
 292     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
 293     Call sMakeReadOnlyDocumentEditable
 294     printlog "  Jump to beginning of document "
 295     Call wTypeKeys "<Mod1 Home>"
 296     Call wTypeKeys ( "<Shift F4>" )
 297     Call wTypeKeys "<Tab>"
 298     EditCopy
 299
 300     gApplication = "CALC"
 301     printlog "  Open new document "
 302     Call hNewDocument
 303     printlog "  Edit / Paste Special "
 304     Sleep 2
 305     try
 306         EditPasteSpecialCalc
 307     catch
 308         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 309         Call hCloseDocument
 310         Call hCloseDocument
 311         goto endsub
 312     endcatch
 313     Wait 500
 314     printlog "  Paste 'Control' in all available clipboard formats "
 315     Kontext "InhaltEinfuegen"
 316     if InhaltEinfuegen.Exists then
 317         printlog "  Write Clipboard format under pasted content "
 318         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
 319         printlog "  Save document as ..\user\work\html_to_calc_control.sxc"
 320         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_control.ods", "calc8")
 321         Wait 500
 322         printlog "  Close saved document "
 323         Call hCloseDocument
 324         wait 500
 325         printlog "  Reopen saved document "
 326         Call hFileOpen (gOfficepath + "user\work\html_to_calc_control.ods",false)
 327         Wait 500
 328         printlog "  Close saved document "
 329         Call hCloseDocument
 330     else
 331         Warnlog "Dialog 'Paste Special' is not up!"
 332         Call hCloseDocument
 333         goto endsub
 334     end if
 335     printlog "  Close active document "
 336     Do Until GetDocumentCount = 0
 337         Call hCloseDocument
 338     Loop
 339 endcase
 340
 341 ' ----------------------------------------------------------------------------------------------
 342
 343 testcase HTMLToCALCFloatingFrame
 344     gApplication = "HTML"
 345     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\html.html' "
 346     printlog "  Jump to beginning of document "
 347     printlog "  Select 'Floating Frame' "
 348     printlog "  Copy selected Floating Frame "
 349     Call hFileOpen (gtesttoolpath & "writer\optional\input\clipboard\html.html",false)
 350     Call sMakeReadOnlyDocumentEditable
 351     printlog "  Jump to beginning of document "
 352     Call wTypeKeys "<Mod1 Home>"
 353     Call wTypeKeys ( "<Shift F4>" )
 354     Call wTypeKeys "<Tab>",2
 355     wait 500
 356     try
 357         EditCopy
 358         EditCopy
 359     catch
 360         Warnlog "Edit / Copy is disabled ! Maybe object not selected!"
 361         Call hCloseDocument
 362         goto endsub
 363     endcatch
 364     gApplication = "CALC"
 365     printlog "  Open new document "
 366     Call hNewDocument
 367     printlog "  Edit / Paste Special "
 368     Sleep 2
 369     try
 370         EditPasteSpecialCalc
 371     catch
 372         Warnlog "Unable to execute 'Edit / Paste Special'! Test failed!"
 373         Call hCloseDocument
 374         Call hCloseDocument
 375         goto endsub
 376     endcatch
 377     printlog "  Paste 'Floating Frame' in all available clipboard formats "
 378     Kontext "InhaltEinfuegen"
 379     if InhaltEinfuegen.Exists(3) then
 380         printlog "  Write Clipboard format under pasted content "
 381         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
 382         printlog "  Save document as ..\user\work\html_to_calc_float.ods"
 383         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\html_to_calc_float.ods", "calc8")
 384         printlog "  Close saved document "
 385         Call hCloseDocument
 386         printlog "  Reopen saved document "
 387         Call hFileOpen (gOfficepath + "user\work\html_to_calc_float.ods",false)
 388         printlog "  Close saved document "
 389         Call hCloseDocument
 390     else
 391         Warnlog "Dialog 'Paste Special' is not up!"
 392         Call hCloseDocument
 393         goto endsub
 394     end if
 395     printlog "  Close active document "
 396     Do Until GetDocumentCount = 0
 397         Call hCloseDocument
 398     Loop
 399 endcase