testautomation/writer/optional/includes/clipboard/w_213_.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_213_.inc,v $
   9 '*
  10 '* $Revision: 1.1 $
  11 '*
  12 '* last change: $Author: fredrikh $ $Date: 2008-06-18 15:03:47 $
  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_213_
  40
  41     Call WriterToDrawText
  42     Call WriterToDrawField
  43     Call WriterToDrawTable
  44     Call WriterToDrawFrame
  45     Call WriterToDrawDrawingObject
  46     Call WriterToDrawGraphicLinked
  47     Call WriterToDrawGraphicEmbedded
  48     Call WriterToDrawOLEObject
  49     Call WriterToDrawControl
  50
  51 end sub
  52
  53 ' ---------------------------------------------------------------------------------
  54
  55 testcase WriterToDrawText
  56   gApplication = "WRITER"
  57   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
  58   printlog " + Jump to beginning of document "
  59   printlog " + Select first paragraph "
  60   printlog " + Copy selected text "
  61   if wSetClipboardtestDefaults("text") = True then
  62     gApplication = "DRAW"
  63     printlog " + Open new document "
  64     Call hNewDocument
  65     printlog " + Edit / Paste Special "
  66     Sleep 2
  67     try
  68         EditPasteSpecial
  69     catch
  70         Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
  71         Call hCloseDocument
  72         wait 500
  73         Call hCloseDocument
  74         goto endsub
  75     endcatch
  76     Wait 500
  77     printlog "  Paste 'Text' in all available clipboard formats "
  78     Kontext "InhaltEinfuegen"
  79     if InhaltEinfuegen.Exists then
  80         Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"text")
  81         printlog " + Write Clipboard format under pasted content "
  82         Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_text.odg", "draw8")
  83         printlog " + Save document as ..\user\work\writer_to_draw_text.odg"
  84         Wait 500
  85         Call hCloseDocument
  86         printlog " + Close saved document "
  87         wait 500
  88         Call hFileOpen (gOfficepath + "user\work\writer_to_draw_text.odg",false)
  89         printlog " + Reopen saved document "
  90         Wait 500
  91         Call hCloseDocument
  92         printlog " + Close saved document "
  93     else
  94         Warnlog "Dialog 'Paste Special' is not up!"
  95         Call hCloseDocument
  96         goto endsub
  97     end if
  98   else
  99       Warnlog "Writer To Draw -> 'Text' failed !"
 100   end if
 101     printlog "  Close active document "
 102     Do Until GetDocumentCount = 0
 103         Call hCloseDocument
 104     Loop
 105 endcase
 106
 107 ' ----------------------------------------------------------------------------------------------
 108
 109 testcase WriterToDrawField
 110   gApplication = "WRITER"
 111   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 112   printlog " + Jump to beginning of document "
 113   printlog " + Select paragraph with 'Date Field' "
 114   printlog " + Copy selected text "
 115   if wSetClipboardtestDefaults("field") = True then
 116     gApplication = "DRAW"
 117     printlog " + Open new document "
 118     Call hNewDocument
 119     printlog " + Edit / Paste Special "
 120     Sleep 2
 121     try
 122         EditPasteSpecial
 123     catch
 124         Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 125         Call hCloseDocument
 126         wait 500
 127         Call hCloseDocument
 128         goto endsub
 129     endcatch
 130     Wait 500
 131     printlog "  Paste 'Field' in all available clipboard formats "
 132     Kontext "InhaltEinfuegen"
 133     if InhaltEinfuegen.Exists then
 134             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"field")
 135             printlog " + Write Clipboard format under pasted content "
 136             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_field.odg", "draw8")
 137             printlog " + Save document as ..\user\work\writer_to_draw_field.odg"
 138             Wait 500
 139             Call hCloseDocument
 140             printlog " + Close saved document "
 141             wait 500
 142             Call hFileOpen (gOfficepath + "user\work\writer_to_draw_field.odg",false)
 143             printlog " + Reopen saved document "
 144             Wait 500
 145             Call hCloseDocument
 146             printlog " + Close saved document "
 147         else
 148             Warnlog "Dialog 'Paste Special' is not up!"
 149             Call hCloseDocument
 150             goto endsub
 151         end if
 152     else
 153         Warnlog "Writer To Draw -> 'Field' failed !"
 154     end if
 155     printlog "  Close active document "
 156     Do Until GetDocumentCount = 0
 157         Call hCloseDocument
 158     Loop
 159 endcase
 160
 161 ' ----------------------------------------------------------------------------------------------
 162
 163 testcase WriterToDrawTable
 164     gApplication = "WRITER"
 165     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 166     printlog " + Jump to beginning of document "
 167     printlog " + Select 'Table' "
 168     printlog " + Copy selected table "
 169     if wSetClipboardtestDefaults("table") = True then
 170         gApplication = "DRAW"
 171         printlog " + Open new document "
 172         Call hNewDocument
 173         printlog " + Edit / Paste Special "
 174         Sleep 2
 175         try
 176             EditPasteSpecial
 177         catch
 178             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 179             Call hCloseDocument
 180             wait 500
 181             Call hCloseDocument
 182             goto endsub
 183         endcatch
 184         Wait 500
 185         printlog "  Paste 'Table' in all available clipboard formats "
 186         Kontext "InhaltEinfuegen"
 187         if InhaltEinfuegen.Exists then
 188             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
 189             printlog " + Write Clipboard format under pasted content "
 190             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_table.odg", "draw8")
 191             printlog " + Save document as ..\user\work\writer_to_draw_table.odg"
 192             Wait 500
 193             Call hCloseDocument
 194             printlog " + Close saved document "
 195             wait 500
 196             Call hFileOpen (gOfficepath + "user\work\writer_to_draw_table.odg",false)
 197             printlog " + Reopen saved document "
 198             Wait 500
 199             Call hCloseDocument
 200             printlog " + Close saved document "
 201         else
 202             Warnlog "Dialog 'Paste Special' is not up!"
 203             Call hCloseDocument
 204             goto endsub
 205         end if
 206     else
 207         Warnlog "Writer To Draw -> 'Table' failed !"
 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 WriterToDrawFrame
 218     gApplication = "WRITER"
 219     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 220     printlog " + Jump to beginning of document "
 221     printlog " + Select 'Frame' "
 222     printlog " + Copy selected frame "
 223     if wSetClipboardtestDefaults("frame") = True then
 224         gApplication = "DRAW"
 225         printlog " + Open new document "
 226         Call hNewDocument
 227         printlog " + Edit / Paste Special "
 228         Sleep 2
 229         try
 230             EditPasteSpecial
 231         catch
 232             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 233             Call hCloseDocument
 234             wait 500
 235             Call hCloseDocument
 236             goto endsub
 237         endcatch
 238         Wait 500
 239         printlog "  Paste 'Table' in all available clipboard formats "
 240         Kontext "InhaltEinfuegen"
 241         if InhaltEinfuegen.Exists then
 242             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
 243             printlog " + Write Clipboard format under pasted content "
 244             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_frame.odg", "draw8")
 245             printlog " + Save document as ..\user\work\writer_to_draw_frame.odg"
 246             Wait 500
 247             Call hCloseDocument
 248             printlog " + Close saved document "
 249             wait 500
 250             Call hFileOpen (gOfficepath + "user\work\writer_to_draw_frame.odg",false)
 251             printlog " + Reopen saved document "
 252             Wait 500
 253             Call hCloseDocument
 254             printlog " + Close saved document "
 255         else
 256             Warnlog "Dialog 'Paste Special' is not up!"
 257             Call hCloseDocument
 258             goto endsub
 259         end if
 260     else
 261         Warnlog "Writer To Draw -> 'Frame' failed !"
 262     end if
 263     printlog "  Close active document "
 264     Do Until GetDocumentCount = 0
 265         Call hCloseDocument
 266     Loop
 267 endcase
 268
 269 ' ----------------------------------------------------------------------------------------------
 270
 271 testcase WriterToDrawDrawingObject
 272     gApplication = "WRITER"
 273     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 274     printlog " + Jump to beginning of document "
 275     printlog " + Select 'Drawing Object' "
 276     printlog " + Copy selected Drawing Object "
 277     if wSetClipboardtestDefaults("DRAW") = True then
 278         gApplication = "DRAW"
 279         printlog " + Open new document "
 280         Call hNewDocument
 281         printlog " + Edit / Paste Special "
 282         Sleep 2
 283         try
 284             EditPasteSpecial
 285         catch
 286             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 287             Call hCloseDocument
 288             wait 500
 289             Call hCloseDocument
 290             goto endsub
 291         endcatch
 292         Wait 500
 293         printlog "  Paste 'Table' in all available clipboard formats "
 294         Kontext "InhaltEinfuegen"
 295         if InhaltEinfuegen.Exists then
 296             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 297             printlog " + Write Clipboard format under pasted content "
 298             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_draw.odg", "draw8")
 299             printlog " + Save document as ..\user\work\writer_to_draw_draw.odg"
 300             Wait 500
 301             Call hCloseDocument
 302             printlog " + Close saved document "
 303             wait 500
 304             Call hFileOpen (gOfficepath + "user\work\writer_to_draw_draw.odg",false)
 305             printlog " + Reopen saved document "
 306             Wait 500
 307             Call hCloseDocument
 308             printlog " + Close saved document "
 309         else
 310             Warnlog "Dialog 'Paste Special' is not up!"
 311             Call hCloseDocument
 312             goto endsub
 313         end if
 314     else
 315         Warnlog "Writer To Draw -> 'Drawing Object' failed !"
 316     end if
 317     printlog "  Close active document "
 318     Do Until GetDocumentCount = 0
 319         Call hCloseDocument
 320     Loop
 321 endcase
 322
 323 ' ----------------------------------------------------------------------------------------------
 324
 325 testcase WriterToDrawGraphicLinked
 326    EnableQaErrors = true
 327    gApplication = "WRITER"
 328    printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 329    printlog " + Jump to beginning of document "
 330    printlog " + Select 'Linked Graphic' "
 331    printlog " + Copy selected Linked Graphic "
 332    if wSetClipboardtestDefaults("graphicL") = True then
 333       gApplication = "DRAW"
 334       printlog " + Open new document "
 335       Call hNewDocument
 336       printlog " + Edit / Paste Special "
 337       Sleep 2
 338       try
 339          EditPasteSpecial
 340       catch
 341          warnlog "Check why linked graphic fails !"
 342          Call hCloseDocument
 343          wait 500
 344          Call hCloseDocument
 345          goto endsub
 346       endcatch
 347       Wait 500
 348       printlog "  Paste 'Linked Graphic' in all available clipboard formats "
 349       Kontext "InhaltEinfuegen"
 350       if InhaltEinfuegen.Exists then
 351          Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
 352          printlog " + Write Clipboard format under pasted content "
 353          Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_graphic1.odg", "draw8")
 354          printlog " + Save document as ..\user\work\writer_to_draw_graphic1.odg"
 355          Wait 500
 356          Call hCloseDocument
 357          printlog " + Close saved document "
 358          wait 500
 359          Call hFileOpen (gOfficepath + "user\work\writer_to_draw_graphic1.odg",false)
 360          printlog " + Reopen saved document "
 361          Wait 500
 362          Call hCloseDocument
 363          printlog " + Close saved document "
 364       else
 365          Warnlog "Dialog 'Paste Special' is not up!"
 366          Call hCloseDocument
 367          goto endsub
 368       end if
 369    else
 370       Warnlog "Writer To Draw -> 'Linked Graphic' failed !"
 371    end if
 372    printlog "  Close active document "
 373     Do Until GetDocumentCount = 0
 374         Call hCloseDocument
 375     Loop
 376     EnableQaErrors = false
 377 endcase
 378
 379 ' ----------------------------------------------------------------------------------------------
 380
 381 testcase WriterToDrawGraphicEmbedded
 382   gApplication = "WRITER"
 383   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 384   printlog " + Jump to beginning of document "
 385   printlog " + Select 'Embedded Graphic' "
 386   printlog " + Copy selected Embedded Graphic "
 387   if wSetClipboardtestDefaults("graphicE") = True then
 388     gApplication = "DRAW"
 389     printlog " + Open new document "
 390     Call hNewDocument
 391     printlog " + Edit / Paste Special "
 392     Sleep 2
 393     try
 394         EditPasteSpecial
 395     catch
 396         Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 397         Call hCloseDocument
 398         wait 500
 399         Call hCloseDocument
 400         goto endsub
 401     endcatch
 402     Wait 500
 403     printlog "  Paste 'Embedded Graphic' in all available clipboard formats "
 404     Kontext "InhaltEinfuegen"
 405     if InhaltEinfuegen.Exists then
 406      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
 407      printlog " + Write Clipboard format under pasted content "
 408      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_graphic2.odg", "draw8")
 409      printlog " + Save document as ..\user\work\writer_to_draw_graphic2.odg"
 410      Wait 500
 411      Call hCloseDocument
 412      printlog " + Close saved document "
 413      wait 500
 414      Call hFileOpen (gOfficepath + "user\work\writer_to_draw_graphic2.odg",false)
 415      printlog " + Reopen saved document "
 416      Wait 500
 417      Call hCloseDocument
 418      printlog " + Close saved document "
 419     else
 420      Warnlog "Dialog 'Paste Special' is not up!"
 421      Call hCloseDocument
 422      goto endsub
 423     end if
 424   else
 425    Warnlog "Writer To Draw -> 'Embedded Graphic' failed !"
 426   end if
 427   printlog "  Close active document "
 428     Do Until GetDocumentCount = 0
 429         Call hCloseDocument
 430     Loop
 431 endcase
 432
 433 ' ----------------------------------------------------------------------------------------------
 434
 435 testcase WriterToDrawOLEObject
 436   gApplication = "WRITER"
 437   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 438   printlog " + Jump to beginning of document "
 439   printlog " + Select 'OLE Object' "
 440   printlog " + Copy selected OLE Object "
 441   if wSetClipboardtestDefaults("ole") = True then
 442     gApplication = "DRAW"
 443     printlog " + Open new document "
 444     Call hNewDocument
 445     printlog " + Edit / Paste Special "
 446     Sleep 2
 447     try
 448         EditPasteSpecial
 449     catch
 450         Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 451         Call hCloseDocument
 452         wait 500
 453         Call hCloseDocument
 454         goto endsub
 455     endcatch
 456     Wait 500
 457     printlog "  Paste 'OLE object' in all available clipboard formats "
 458     Kontext "InhaltEinfuegen"
 459     if InhaltEinfuegen.Exists then
 460      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
 461      printlog " + Write Clipboard format under pasted content "
 462      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_ole.odg", "draw8")
 463      printlog " + Save document as ..\user\work\writer_to_draw_ole.odg"
 464      Wait 500
 465      Call hCloseDocument
 466      printlog " + Close saved document "
 467      wait 500
 468      Call hFileOpen (gOfficepath + "user\work\writer_to_draw_ole.odg",false)
 469      printlog " + Reopen saved document "
 470      Wait 500
 471      Call hCloseDocument
 472      printlog " + Close saved document "
 473     else
 474      Warnlog "Dialog 'Paste Special' is not up!"
 475      Call hCloseDocument
 476      goto endsub
 477     end if
 478   else
 479    Warnlog "Writer To Draw -> 'OLE object' failed !"
 480   end if
 481     printlog "  Close active document "
 482     Do Until GetDocumentCount = 0
 483         Call hCloseDocument
 484     Loop
 485 endcase
 486
 487 ' ----------------------------------------------------------------------------------------------
 488
 489 testcase WriterToDrawControl
 490   gApplication = "WRITER"
 491   printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 492   printlog " + Jump to beginning of document "
 493   printlog " + Select 'Control' "
 494   printlog " + Copy selected Control "
 495   if wSetClipboardtestDefaults("control") = True then
 496     gApplication = "DRAW"
 497     printlog " + Open new document "
 498     Call hNewDocument
 499     printlog " + Edit / Paste Special "
 500     Sleep 2
 501     try
 502         EditPasteSpecial
 503     catch
 504         Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 505         Call hCloseDocument
 506         wait 500
 507         Call hCloseDocument
 508         goto endsub
 509     endcatch
 510     Wait 500
 511     printlog "  Paste 'Control' in all available clipboard formats "
 512     Kontext "InhaltEinfuegen"
 513     if InhaltEinfuegen.Exists then
 514      Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
 515      printlog " + Write Clipboard format under pasted content "
 516      Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_draw_control.odg", "draw8")
 517      printlog " + Save document as ..\user\work\writer_to_draw_control.odg"
 518      Wait 500
 519      Call hCloseDocument
 520      printlog " + Close saved document "
 521      wait 500
 522      Call hFileOpen (gOfficepath + "user\work\writer_to_draw_control.odg",false)
 523      printlog " + Reopen saved document "
 524      Wait 500
 525      Call hCloseDocument
 526      printlog " + Close saved document "
 527     else
 528      Warnlog "Dialog 'Paste Special' is not up!"
 529      Call hCloseDocument
 530      goto endsub
 531     end if
 532   else
 533     Warnlog "Writer To Draw -> 'Control' failed !"
 534   end if
 535     printlog "  Close active document "
 536     Do Until GetDocumentCount = 0
 537         Call hCloseDocument
 538     Loop
 539 endcase