testautomation/dbaccess/optional/includes/ctrl_Clipboard.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '**************************************************************************
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 '*
   5 '* Copyright 2008 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: ctrl_Clipboard.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:41 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify
  18 '* it under the terms of the GNU Lesser General Public License version 3
  19 '* only, as published by the Free Software Foundation.
  20 '*
  21 '* OpenOffice.org is distributed in the hope that it will be useful,
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 '* GNU Lesser General Public License version 3 for more details
  25 '* (a copy is included in the LICENSE file that accompanied this code).
  26 '*
  27 '* You should have received a copy of the GNU Lesser General Public License
  28 '* version 3 along with OpenOffice.org.  If not, see
  29 '* <http://www.openoffice.org/license.html>
  30 '* for a copy of the LGPLv3 License.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '* owner : marc.neumann@sun.com
  35 '*
  36 '* short description : Clipboard test with controls between all application
  37 '*
  38 '\***********************************************************************
  39
  40 sub ctrl_Clipboard
  41
  42     call tFromText         'copy control from text document and paste it to the other application and check
  43     call tFromCalc         'copy control from calc document and paste it to the other application and check
  44     call tFromDraw         'copy control from draw document and paste it to the other application and check
  45     call tFromImpress      'copy control from impress document and paste it to the other application and check
  46
  47 end sub
  48 '--------------------------------------------------------------------------------------
  49 testcase tFromText
  50
  51     '/// Open a new document and empty clipboard
  52         printlog "Open a new document and empty clipboard"
  53         call hNewDocument
  54     Kontext "DocumentWriter"
  55             DocumentWriter.TypeKeys "tt_doc" , true
  56         sleep(1)
  57         setClipboard(" ")
  58         sleep(1)
  59
  60     call hToolbarSelect("FormControls",true)
  61
  62         Kontext "FormControls"
  63             PushButton.Click
  64         sleep(1)
  65         '/// insert a Push Button
  66         printlog "insert a Push Button"
  67         call hDrawingWithSelection ( 20, 20, 30, 30 )
  68         sleep(2)
  69         Kontext "FormControls"
  70             ControlProperties.Click
  71         sleep (1)
  72     Kontext "ControlPropertiesTabControl"
  73         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
  74         sleep(2)
  75     '/// set control property: Name
  76         printlog "set control property"
  77     Kontext "TabGeneralControl"
  78         if TabGeneralControl.exists(3) then
  79                 NameText.setText("FromText")
  80         else warnlog "control property browser could not be opend"
  81         endif
  82         sleep (1)
  83     '/// copy control to clipboard
  84         printlog "copy control to clipboard"
  85     Kontext "DocumentWriter"
  86         DocumentWriter.TypeKeys "<F6>", TRUE
  87         sleep (1)
  88         DocumentWriter.TypeKeys "<COPY>", TRUE
  89         sleep (1)
  90     '/// close document
  91         printlog "close document"
  92     call hCloseDocument
  93
  94     '/// open new document (to repeat for all documents except the document you copy from)
  95         dim i as integer    'counter
  96     for i = 1 to 3
  97     '/// paste control from clipboard and open control property browser
  98         if i = 1 then
  99             gApplication = "CALC"
 100                 printlog "-- Text to Calc Clipboard Test --"
 101                 printlog "open a new Calc document"
 102                 call hNewDocument
 103                 printlog "paste control from clipboard"
 104             Kontext "DocumentCalc"
 105                 DocumentCalc.TypeKeys "<PASTE>", TRUE
 106                 sleep (1)
 107                 printlog "open control property browser from context"
 108                 DocumentCalc.TypeKeys "<SHIFT F10>", TRUE
 109                 call hMenuSelectNr(4)
 110             endif
 111         if i = 2 then
 112             gApplication = "DRAW"
 113                 printlog "-- Text to Draw Clipboard Test --"
 114                 printlog "open a new Draw document"
 115                 call hNewDocument
 116                 printlog "paste control from clipboard"
 117             Kontext "DocumentDraw"
 118                 DocumentDraw.TypeKeys "<PASTE>", TRUE
 119                 sleep (1)
 120                 printlog "open control property browser from context"
 121                 DocumentDraw.TypeKeys "<SHIFT F10>", TRUE
 122                 call hMenuSelectNr(2)
 123             endif
 124         if i = 3 then
 125             gApplication = "IMPRESS"
 126                 printlog "-- Text to Impress Clipboard Test --"
 127                 printlog "open a new Impress document"
 128                 call hNewDocument
 129                 printlog "paste control from clipboard"
 130             Kontext "DocumentImpress"
 131                 DocumentImpress.TypeKeys "<PASTE>", TRUE
 132                 sleep (1)
 133                 printlog "open control property browser from context"
 134                 DocumentImpress.TypeKeys "<SHIFT F10>", TRUE
 135                 call hMenuSelectNr(2)
 136             endif
 137
 138         Kontext "ControlPropertiesTabControl"
 139             ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 140             sleep(2)
 141         '/// check if control was correctly stored in clipboard
 142         Kontext "TabGeneralControl"
 143             if TabGeneralControl.exists(3) then
 144                 if NameText.getText <> "FromText" then
 145                     warnlog "Control is not saved correctly"
 146                 else printlog "control was saved correctly"
 147                 endif
 148             else warnlog "Control property browser could not be opend"
 149             endif
 150             sleep (1)
 151         '/// Close document
 152             printlog "close document"
 153         call hCloseDocument
 154
 155     next i
 156         printlog "*** Testcase End ***"
 157
 158 endcase
 159
 160 '--------------------------------------------------------------------------------------
 161 testcase tFromCalc
 162
 163     '/// Open a new document and empty clipboard
 164         printlog "Open a new document and empty clipboard"
 165         gApplication = "CALC"
 166         call hNewDocument
 167     Kontext "DocumentCalc"
 168             DocumentCalc.TypeKeys "tt_doc" , true
 169         sleep(1)
 170         setClipboard(" ")
 171         sleep(1)
 172
 173     call hToolbarSelect("FormControls",true)
 174
 175         Kontext "FormControls"
 176             PushButton.Click
 177         sleep(1)
 178         '/// insert a Push Button
 179         printlog "insert a Push Button"
 180         call hDrawingWithSelection ( 20, 20, 30, 30 )
 181         sleep(2)
 182         Kontext "FormControls"
 183             ControlProperties.Click
 184         sleep (1)
 185     Kontext "ControlPropertiesTabControl"
 186         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 187         sleep(2)
 188     '/// set control property: Name
 189         printlog "set control property"
 190     Kontext "TabGeneralControl"
 191         if TabGeneralControl.exists(3) then
 192                 NameText.setText("FromCalc")
 193         else warnlog "control property browser could not be opend"
 194         endif
 195         sleep (1)
 196     '/// copy control to clipboard
 197         printlog "copy control to clipboard"
 198     Kontext "DocumentCalc"
 199         DocumentCalc.TypeKeys "<F6>", TRUE
 200         sleep (1)
 201         DocumentCalc.TypeKeys "<COPY>", TRUE
 202         sleep (1)
 203     '/// close document
 204         printlog "close document"
 205     call hCloseDocument
 206
 207     '/// open new document (to repeat for all documents except the document you copy from)
 208         dim i as integer    'counter
 209     for i = 1 to 3
 210     '/// paste control from clipboard and open control property browser
 211         if i = 1 then
 212             gApplication = "WRITER"
 213                 printlog "-- Calc to Text Clipboard Test --"
 214                 printlog "open a new Text document"
 215                 call hNewDocument
 216                 printlog "paste control from clipboard"
 217             Kontext "DocumentWriter"
 218                 DocumentWriter.TypeKeys "<PASTE>", TRUE
 219                 sleep (1)
 220                 printlog "open control property browser from context"
 221                 DocumentWriter.TypeKeys "<SHIFT F10>", TRUE
 222                 call hMenuSelectNr(4)
 223             endif
 224         if i = 2 then
 225             gApplication = "DRAW"
 226                 printlog "-- Calc to Draw Clipboard Test --"
 227                 printlog "open a new Draw document"
 228                 call hNewDocument
 229                 printlog "paste control from clipboard"
 230             Kontext "DocumentDraw"
 231                 DocumentDraw.TypeKeys "<PASTE>", TRUE
 232                 sleep (1)
 233                 printlog "open control property browser from context"
 234                 DocumentDraw.TypeKeys "<SHIFT F10>", TRUE
 235                 call hMenuSelectNr(2)
 236             endif
 237         if i = 3 then
 238             gApplication = "IMPRESS"
 239                 printlog "-- Calc to Impress Clipboard Test --"
 240                 printlog "open a new Impress document"
 241                 call hNewDocument
 242                 printlog "paste control from clipboard"
 243             Kontext "DocumentImpress"
 244                 DocumentImpress.TypeKeys "<PASTE>", TRUE
 245                 sleep (1)
 246                 printlog "open control property browser from context"
 247                 DocumentImpress.TypeKeys "<SHIFT F10>", TRUE
 248                 call hMenuSelectNr(2)
 249             endif
 250
 251         Kontext "ControlPropertiesTabControl"
 252             ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 253             sleep(2)
 254         '/// check if control was correctly stored in clipboard
 255         Kontext "TabGeneralControl"
 256             if TabGeneralControl.exists(3) then
 257                 if NameText.getText <> "FromCalc" then
 258                     warnlog "Control is not saved correctly. Name should be FromCalc but it is " + NameText.getText
 259                 else
 260                     printlog "control was saved correctly"
 261                 endif
 262             else warnlog "Control property browser could not be opend"
 263             endif
 264             sleep (1)
 265         '/// Close document
 266             printlog "close document"
 267         call hCloseDocument
 268
 269     next i
 270         printlog "*** Testcase End ***"
 271
 272 endcase
 273
 274 '--------------------------------------------------------------------------------------
 275 testcase tFromDraw
 276
 277     '/// Open a new document and empty clipboard
 278         printlog "Open a new document and empty clipboard"
 279         gApplication = "DRAW"
 280         call hNewDocument
 281     Kontext "DocumentDraw"
 282             DocumentDraw.TypeKeys "tt_doc" , true
 283         sleep(1)
 284         setClipboard(" ")
 285         sleep(1)
 286
 287     call hToolbarSelect("FormControls",true)
 288
 289         Kontext "FormControls"
 290             PushButton.Click
 291         sleep(1)
 292         '/// insert a Push Button
 293         printlog "insert a Push Button"
 294         call hDrawingWithSelection ( 20, 20, 30, 30 )
 295         sleep(2)
 296         Kontext "FormControls"
 297             ControlProperties.Click
 298         sleep (1)
 299     Kontext "ControlPropertiesTabControl"
 300         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 301         sleep(2)
 302     '/// set control property: Name
 303         printlog "set control property"
 304     Kontext "TabGeneralControl"
 305         if TabGeneralControl.exists(3) then
 306                 NameText.setText("FromDraw")
 307         else warnlog "control property browser could not be opend"
 308         endif
 309         sleep (1)
 310     '/// copy control to clipboard
 311         printlog "copy control to clipboard"
 312     Kontext "DocumentDraw"
 313         DocumentDraw.TypeKeys "<F6>", TRUE
 314         sleep (1)
 315         DocumentDraw.TypeKeys "<COPY>", TRUE
 316         sleep (1)
 317     '/// close document
 318         printlog "close document"
 319     call hCloseDocument
 320
 321     '/// open new document (to repeat for all documents except the document you copy from)
 322         dim i as integer    'counter
 323     for i = 1 to 3
 324     '/// paste control from clipboard and open control property browser
 325         if i = 1 then
 326             gApplication = "WRITER"
 327                 printlog "-- Draw to Text Clipboard Test --"
 328                 printlog "open a new Text document"
 329                 call hNewDocument
 330                 printlog "paste control from clipboard"
 331             Kontext "DocumentWriter"
 332                 DocumentWriter.TypeKeys "<PASTE>", TRUE
 333                 sleep (1)
 334                 printlog "open control property browser from context"
 335                 DocumentWriter.TypeKeys "<SHIFT F10>", TRUE
 336                 call hMenuSelectNr(4)
 337             endif
 338         if i = 2 then
 339             gApplication = "CALC"
 340                 printlog "-- Draw to Calc Clipboard Test --"
 341                 printlog "open a new Calc document"
 342                 call hNewDocument
 343                 printlog "paste control from clipboard"
 344             Kontext "DocumentCalc"
 345                 DocumentCalc.TypeKeys "<PASTE>", TRUE
 346                 sleep (1)
 347                 printlog "open control property browser from context"
 348                 DocumentCalc.TypeKeys "<SHIFT F10>", TRUE
 349                 call hMenuSelectNr(4)
 350             endif
 351         if i = 3 then
 352             gApplication = "IMPRESS"
 353                 printlog "-- Draw to Impress Clipboard Test --"
 354                 printlog "open a new Impress document"
 355                 call hNewDocument
 356                 printlog "paste control from clipboard"
 357             Kontext "DocumentImpress"
 358                 DocumentImpress.TypeKeys "<PASTE>", TRUE
 359                 sleep (1)
 360                 printlog "open control property browser from context"
 361                 DocumentImpress.TypeKeys "<SHIFT F10>", TRUE
 362                 call hMenuSelectNr(2)
 363             endif
 364
 365         Kontext "ControlPropertiesTabControl"
 366             ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 367             sleep(2)
 368         '/// check if control was correctly stored in clipboard
 369         Kontext "TabGeneralControl"
 370             if TabGeneralControl.exists(3) then
 371                 if NameText.getText <> "FromDraw" then
 372                     warnlog "Control is not saved correctly"
 373                 else printlog "control was saved correctly"
 374                 endif
 375             else warnlog "Control property browser could not be opend"
 376             endif
 377             sleep (1)
 378         '/// Close document
 379             printlog "close document"
 380         call hCloseDocument
 381
 382     next i
 383         printlog "*** Testcase End ***"
 384
 385 endcase
 386
 387 '--------------------------------------------------------------------------------------
 388 testcase tFromImpress
 389
 390     '/// Open a new document and empty clipboard
 391         printlog "Open a new document and empty clipboard"
 392         gApplication = "IMPRESS"
 393         call hNewDocument
 394     Kontext "DocumentImpress"
 395             DocumentImpress.TypeKeys "tt_doc" , true
 396         sleep(1)
 397         setClipboard(" ")
 398         sleep(1)
 399
 400     call hToolbarSelect("FormControls",true)
 401
 402         Kontext "FormControls"
 403             PushButton.Click
 404         sleep(1)
 405         '/// insert a Push Button
 406         printlog "insert a Push Button"
 407         call hDrawingWithSelection ( 20, 20, 30, 30 )
 408         sleep(2)
 409         Kontext "FormControls"
 410             ControlProperties.Click
 411         sleep (1)
 412     Kontext "ControlPropertiesTabControl"
 413         ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 414         sleep(2)
 415     '/// set control property: Name
 416         printlog "set control property"
 417     Kontext "TabGeneralControl"
 418         if TabGeneralControl.exists(3) then
 419                 NameText.setText("FromImpress")
 420         else warnlog "control property browser could not be opend"
 421         endif
 422         sleep (1)
 423     '/// copy control to clipboard
 424         printlog "copy control to clipboard"
 425     Kontext "DocumentImpress"
 426         DocumentImpress.TypeKeys "<F6>", TRUE
 427         sleep (1)
 428         DocumentImpress.TypeKeys "<COPY>", TRUE
 429         sleep (1)
 430     '/// close document
 431         printlog "close document"
 432     call hCloseDocument
 433
 434     '/// open new document (to repeat for all documents except the document you copy from)
 435         dim i as integer    'counter
 436     for i = 1 to 3
 437     '/// paste control from clipboard and open control property browser
 438         if i = 1 then
 439             gApplication = "WRITER"
 440                 printlog "-- Impress to Text Clipboard Test --"
 441                 printlog "open a new Text document"
 442                 call hNewDocument
 443                 printlog "paste control from clipboard"
 444             Kontext "DocumentWriter"
 445                 DocumentWriter.TypeKeys "<PASTE>", TRUE
 446                 sleep (1)
 447                 printlog "open control property browser from context"
 448                 DocumentWriter.TypeKeys "<SHIFT F10>", TRUE
 449                 call hMenuSelectNr(4)
 450             endif
 451         if i = 2 then
 452             gApplication = "CALC"
 453                 printlog "-- Impress to Calc Clipboard Test --"
 454                 printlog "open a new Calc document"
 455                 call hNewDocument
 456                 printlog "paste control from clipboard"
 457             Kontext "DocumentCalc"
 458                 DocumentCalc.TypeKeys "<PASTE>", TRUE
 459                 sleep (1)
 460                 printlog "open control property browser from context"
 461                 DocumentCalc.TypeKeys "<SHIFT F10>", TRUE
 462                 call hMenuSelectNr(4)
 463             endif
 464         if i = 3 then
 465             gApplication = "DRAW"
 466                 printlog "-- Impress to Draw Clipboard Test --"
 467                 printlog "open a new Draw document"
 468                 call hNewDocument
 469                 printlog "paste control from clipboard"
 470             Kontext "DocumentDraw"
 471                 DocumentDraw.TypeKeys "<PASTE>", TRUE
 472                 sleep (1)
 473                 printlog "open control property browser from context"
 474                 DocumentDraw.TypeKeys "<SHIFT F10>", TRUE
 475                 call hMenuSelectNr(2)
 476             endif
 477
 478         Kontext "ControlPropertiesTabControl"
 479             ControlPropertiesTabControl.setPage TabGeneralControl       'make shure that tabpage general in property is choosen
 480             sleep(2)
 481         '/// check if control was correctly stored in clipboard
 482         Kontext "TabGeneralControl"
 483             if TabGeneralControl.exists(3) then
 484                 if NameText.getText <> "FromImpress" then
 485                     warnlog "Control is not saved correctly"
 486                 else printlog "control was saved correctly"
 487                 endif
 488             else warnlog "Control property browser could not be opend"
 489             endif
 490             sleep (1)
 491         '/// Close document
 492             printlog "close document"
 493         call hCloseDocument
 494
 495     next i
 496         printlog "*** Testcase End ***"
 497
 498 endcase