testautomation/writer/optional/includes/clipboard/w_211_.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_211_.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_211_
  40
  41     Call WriterToCalcText
  42     Call WriterToCalcField
  43     Call WriterToCalcTable
  44     Call WriterToCalcFrame
  45     Call WriterToCalcDrawingObject
  46     Call WriterToCalcGraphicLinked  'wrn:1
  47     Call WriterToCalcGraphicEmbedded
  48     Call WriterToCalcOLEObject
  49     Call WriterToCalcControl
  50
  51 end sub
  52
  53 ' ---------------------------------------------------------------------------------
  54
  55 testcase WriterToCalcText
  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 = "CALC"
  63         printlog "  Open new document "
  64         Call hNewDocument
  65         printlog "  Edit / Paste Special "
  66         Sleep 2
  67         try
  68             EditPasteSpecialCalc
  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_calc_text.ods", "calc8")
  83             printlog "  Save document as ..\user\work\writer_to_calc_text.ods"
  84             Wait 500
  85             Call hCloseDocument
  86             printlog "  Close saved document "
  87             wait 500
  88             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_text.ods",true)
  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 Calc -> '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 WriterToCalcField
 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 = "CALC"
 117         printlog "  Open new document "
 118         Call hNewDocument
 119         printlog "  Edit / Paste Special "
 120         Sleep 2
 121         try
 122             EditPasteSpecialCalc
 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_calc_field.ods", "calc8")
 137             printlog "  Save document as ..\user\work\writer_to_calc_field.ods"
 138             Wait 500
 139             Call hCloseDocument
 140             printlog "  Close saved document "
 141             wait 500
 142             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_field.ods",true)
 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 Calc -> '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 WriterToCalcTable
 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 = "CALC"
 171         printlog "  Open new document "
 172         Call hNewDocument
 173         printlog "  Edit / Paste Special "
 174         Sleep 2
 175         try
 176             EditPasteSpecialCalc
 177         catch
 178             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 179             Call hCloseDocument
 180             wait 500
 181             goto endsub
 182         endcatch
 183         Wait 500
 184         printlog "  Paste 'Table' in all available clipboard formats "
 185         Kontext "InhaltEinfuegen"
 186         if InhaltEinfuegen.Exists then
 187             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"table")
 188             kontext "navigator"
 189             if navigator.exists then navigator.close
 190             printlog "  Write Clipboard format under pasted content "
 191
 192             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_table.ods", "calc8")
 193             printlog "  Save document as ..\user\work\writer_to_calc_table.ods"
 194             Wait 500
 195             printlog "  Close saved document "
 196             Call hCloseDocument
 197             wait 500
 198             kontext "navigator"
 199             if navigator.exists then navigator.close
 200
 201             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_table.ods",false)
 202             printlog "  Reopen saved document "
 203             Wait 500
 204             Call hCloseDocument
 205             printlog "  Close saved document "
 206             kontext "navigator"
 207             if navigator.exists then navigator.close
 208         else
 209             Warnlog "Dialog 'Paste Special' is not up!"
 210             Call hCloseDocument
 211             goto endsub
 212         end if
 213     else
 214         Warnlog "Writer To Calc -> 'Table' failed !"
 215     end if
 216     printlog "  Close active document "
 217     Do Until GetDocumentCount = 0
 218         Call hCloseDocument
 219     Loop
 220 endcase
 221
 222 ' ----------------------------------------------------------------------------------------------
 223
 224 testcase WriterToCalcFrame
 225     gApplication = "WRITER"
 226     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 227     printlog "  Jump to beginning of document "
 228     printlog "  Select 'Frame' "
 229     printlog "  Copy selected frame "
 230     if wSetClipboardtestDefaults("frame") = True then
 231         gApplication = "CALC"
 232         printlog "  Open new document "
 233         Call hNewDocument
 234         printlog "  Edit / Paste Special "
 235         Sleep 2
 236         try
 237             EditPasteSpecialCalc
 238         catch
 239             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 240             Call hCloseDocument
 241             wait 500
 242             Call hCloseDocument
 243             goto endsub
 244         endcatch
 245         Wait 500
 246         printlog "  Paste 'Table' in all available clipboard formats "
 247         Kontext "InhaltEinfuegen"
 248         if InhaltEinfuegen.Exists then
 249             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"frame")
 250             printlog "  Write Clipboard format under pasted content "
 251             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_frame.ods", "calc8")
 252             printlog "  Save document as ..\user\work\writer_to_calc_frame.ods"
 253             Wait 500
 254             Call hCloseDocument
 255             printlog "  Close saved document "
 256             wait 500
 257             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_frame.ods",false)
 258             printlog "  Reopen saved document "
 259             Wait 500
 260             Call hCloseDocument
 261             printlog "  Close saved document "
 262         else
 263             Warnlog "Dialog 'Paste Special' is not up!"
 264             Call hCloseDocument
 265             goto endsub
 266         end if
 267     else
 268         Warnlog "Writer To Calc -> 'Frame' failed !"
 269     end if
 270     printlog "  Close active document "
 271     Do Until GetDocumentCount = 0
 272         Call hCloseDocument
 273     Loop
 274 endcase
 275
 276 ' ----------------------------------------------------------------------------------------------
 277
 278 testcase WriterToCalcDrawingObject
 279     gApplication = "WRITER"
 280     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 281     printlog "  Jump to beginning of document "
 282     printlog "  Select 'Drawing Object' "
 283     printlog "  Copy selected Drawing Object "
 284     if wSetClipboardtestDefaults("DRAW") = True then
 285         gApplication = "CALC"
 286         printlog "  Open new document "
 287         Call hNewDocument
 288         printlog "  Edit / Paste Special "
 289         Sleep 2
 290         try
 291             EditPasteSpecialCalc
 292         catch
 293             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 294             Call hCloseDocument
 295             wait 500
 296             Call hCloseDocument
 297             goto endsub
 298         endcatch
 299         Wait 500
 300         printlog "  Paste 'Table' in all available clipboard formats "
 301         Kontext "InhaltEinfuegen"
 302         if InhaltEinfuegen.Exists then
 303             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"DRAW")
 304             printlog "  Write Clipboard format under pasted content "
 305             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_draw.ods", "calc8")
 306             printlog "  Save document as ..\user\work\writer_to_calc_draw.ods"
 307             Wait 500
 308             Call hCloseDocument
 309             printlog "  Close saved document "
 310             wait 500
 311             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_draw.ods",false)
 312             printlog "  Reopen saved document "
 313             Wait 500
 314             Call hCloseDocument
 315             printlog "  Close saved document "
 316         else
 317             Warnlog "Dialog 'Paste Special' is not up!"
 318             Call hCloseDocument
 319             goto endsub
 320         end if
 321     else
 322         Warnlog "Writer To Calc -> 'Drawing Object' failed !"
 323     end if
 324     printlog "  Close active document "
 325     Do Until GetDocumentCount = 0
 326         Call hCloseDocument
 327     Loop
 328 endcase
 329
 330 ' ----------------------------------------------------------------------------------------------
 331
 332 testcase WriterToCalcGraphicLinked
 333     EnableQaErrors = true
 334     gApplication = "WRITER"
 335     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 336     printlog "  Jump to beginning of document "
 337     printlog "  Select 'Linked Graphic' "
 338     printlog "  Copy selected Linked Graphic "
 339     if wSetClipboardtestDefaults("graphicL") = True then
 340         gApplication = "CALC"
 341         printlog "  Open new document "
 342         Call hNewDocument
 343         printlog "  Edit / Paste Special "
 344         Sleep 2
 345         try
 346             EditPasteSpecialCalc
 347         catch
 348             warnlog "Check why linked graphic fails !"
 349             Call hCloseDocument
 350             wait 500
 351             Call hCloseDocument
 352             goto endsub
 353         endcatch
 354         Wait 500
 355         printlog "  Paste 'Linked Graphic' in all available clipboard formats "
 356         Kontext "InhaltEinfuegen"
 357         if InhaltEinfuegen.Exists then
 358             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicL")
 359             printlog "  Write Clipboard format under pasted content "
 360             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_graphic1.ods", "calc8")
 361             printlog "  Save document as ..\user\work\writer_to_calc_graphic1.ods"
 362             Wait 500
 363             Call hCloseDocument
 364             printlog "  Close saved document "
 365             wait 500
 366             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_graphic1.ods",false)
 367             printlog "  Reopen saved document "
 368             Wait 500
 369             Call hCloseDocument
 370             printlog "  Close saved document "
 371         else
 372             Warnlog "Dialog 'Paste Special' is not up!"
 373             Call hCloseDocument
 374             goto endsub
 375         end if
 376     else
 377         Warnlog "Writer To Calc -> 'Linked Graphic' failed !"
 378     end if
 379     printlog "  Close active document "
 380     Do Until GetDocumentCount = 0
 381         Call hCloseDocument
 382     Loop
 383     EnableQaErrors = false
 384 endcase
 385
 386 ' ----------------------------------------------------------------------------------------------
 387
 388 testcase WriterToCalcGraphicEmbedded
 389     gApplication = "WRITER"
 390     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 391     printlog "  Jump to beginning of document "
 392     printlog "  Select 'Embedded Graphic' "
 393     printlog "  Copy selected Embedded Graphic "
 394     if wSetClipboardtestDefaults("graphicE") = True then
 395         gApplication = "CALC"
 396         printlog "  Open new document "
 397         Call hNewDocument
 398         printlog "  Edit / Paste Special "
 399         Sleep 2
 400         try
 401             EditPasteSpecialCalc
 402         catch
 403             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 404             Call hCloseDocument
 405             wait 500
 406             Call hCloseDocument
 407             goto endsub
 408         endcatch
 409         Wait 500
 410         printlog "  Paste 'Embedded Graphic' in all available clipboard formats "
 411         Kontext "InhaltEinfuegen"
 412         if InhaltEinfuegen.Exists then
 413             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"graphicE")
 414             printlog "  Write Clipboard format under pasted content "
 415             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_graphic2.ods", "calc8")
 416             printlog "  Save document as ..\user\work\writer_to_calc_graphic2.ods"
 417             Wait 500
 418             Call hCloseDocument
 419             printlog "  Close saved document "
 420             wait 500
 421             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_graphic2.ods",false)
 422             printlog "  Reopen saved document "
 423             Wait 500
 424             Call hCloseDocument
 425             printlog "  Close saved document "
 426         else
 427             Warnlog "Dialog 'Paste Special' is not up!"
 428             Call hCloseDocument
 429             goto endsub
 430         end if
 431     else
 432         Warnlog "Writer To Calc -> 'Embedded Graphic' failed !"
 433     end if
 434     printlog "  Close active document "
 435     Do Until GetDocumentCount = 0
 436         Call hCloseDocument
 437     Loop
 438 endcase
 439
 440 ' ----------------------------------------------------------------------------------------------
 441
 442 testcase WriterToCalcOLEObject
 443     gApplication = "WRITER"
 444     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 445     printlog "  Jump to beginning of document "
 446     printlog "  Select 'OLE Object' "
 447     printlog "  Copy selected OLE Object "
 448     if wSetClipboardtestDefaults("ole") = True then
 449         gApplication = "CALC"
 450         printlog "  Open new document "
 451         Call hNewDocument
 452         printlog "  Edit / Paste Special "
 453         Sleep 2
 454         try
 455             EditPasteSpecialCalc
 456         catch
 457             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 458             Call hCloseDocument
 459             wait 500
 460             Call hCloseDocument
 461             goto endsub
 462         endcatch
 463         Wait 500
 464         printlog "  Paste 'OLE object' in all available clipboard formats "
 465         Kontext "InhaltEinfuegen"
 466         if InhaltEinfuegen.Exists then
 467             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"ole")
 468             printlog "  Write Clipboard format under pasted content "
 469             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_ole.ods", "calc8")
 470             printlog "  Save document as ..\user\work\writer_to_calc_ole.ods"
 471             Wait 500
 472             Call hCloseDocument
 473             printlog "  Close saved document "
 474             wait 500
 475             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_ole.ods",false)
 476             printlog "  Reopen saved document "
 477             Wait 500
 478             Call hCloseDocument
 479             printlog "  Close saved document "
 480         else
 481             Warnlog "Dialog 'Paste Special' is not up!"
 482             Call hCloseDocument
 483             goto endsub
 484         end if
 485     else
 486         Warnlog "Writer To Calc -> 'OLE object' failed !"
 487     end if
 488     printlog "  Close active document "
 489     Do Until GetDocumentCount = 0
 490         Call hCloseDocument
 491     Loop
 492 endcase
 493
 494 ' ----------------------------------------------------------------------------------------------
 495
 496 testcase WriterToCalcControl
 497     gApplication = "WRITER"
 498     printlog "  Open File '..\\writer\\optional\\input\\clipboard\\writer.sxw' "
 499     printlog "  Jump to beginning of document "
 500     printlog "  Select 'Control' "
 501     printlog "  Copy selected Control "
 502     if wSetClipboardtestDefaults("control") = True then
 503         gApplication = "CALC"
 504         printlog "  Open new document "
 505         Call hNewDocument
 506         printlog "  Edit / Paste Special "
 507         Sleep 2
 508         try
 509             EditPasteSpecialCalc
 510         catch
 511             Warnlog "Unable to execute 'Edit / Paste / Special' -> Disabled !"
 512             Call hCloseDocument
 513             wait 500
 514             Call hCloseDocument
 515             goto endsub
 516         endcatch
 517         Wait 500
 518         printlog "  Paste 'Control' in all available clipboard formats "
 519         Kontext "InhaltEinfuegen"
 520         if InhaltEinfuegen.Exists then
 521             Call wPasteAvailableClipboardFormats(Auswahl.GetItemCount,"control")
 522             printlog "  Write Clipboard format under pasted content "
 523             Call hFileSaveAsWithFilterKill (gOfficepath + "user\work\writer_to_calc_control.ods", "calc8")
 524             printlog "  Save document as ..\user\work\writer_to_calc_control.ods"
 525             Wait 500
 526             Call hCloseDocument
 527             printlog "  Close saved document "
 528             wait 500
 529             Call hFileOpen (gOfficepath + "user\work\writer_to_calc_control.ods",false)
 530             printlog "  Reopen saved document "
 531             Wait 500
 532             Call hCloseDocument
 533             printlog "  Close saved document "
 534         else
 535             Warnlog "Dialog 'Paste Special' is not up!"
 536             Call hCloseDocument
 537             goto endsub
 538         end if
 539     else
 540         Warnlog "Writer To Calc -> 'Control' failed !"
 541     end if
 542     printlog "  Close active document "
 543     Do Until GetDocumentCount = 0
 544         Call hCloseDocument
 545     Loop
 546 endcase