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