testautomation/graphics/optional/includes/global/g_demoguide.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: g_demoguide.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: rt $ $Date: 2008-08-28 11:41:51 $
  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 : wolfram.garten@sun.com
  35 '*
  36 '* short description : testcase to check the demo guide
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 t_Introduction         ' Description
  41 ' #1 t_Interoperability     ' Description
  42 ' #1 t_DrawingEngine        ' Description
  43 '
  44 '*
  45 '\***********************************************************************
  46 testcase t_Introduction
  47
  48     gApplication   = "IMPRESS"
  49
  50     '///Open new presentation
  51     printlog "Open new presentation"
  52     Call hNewDocument
  53
  54     '///Open the Gallery
  55     printlog "Open the Gallery"
  56     ToolsGallery
  57     Sleep (1)
  58     Kontext "Gallery"
  59     if Gallery.NotExists(2) then
  60         ToolsGallery
  61     end if
  62
  63     '///Choose computer theme and insert the third image
  64     printlog "Choose an item from the gallery"
  65     Gallerys.Select(2)
  66     View.TypeKeys "<HOME><RIGHT><RIGHT>"
  67     View.TypeKeys "<SHIFT F10>"    'OpenContextMenu(true)
  68     sleep 2
  69     MenuSelect(MenuGetItemID(1))   'Insert
  70     sleep 2
  71     MenuSelect(MenuGetItemID(1))   'Copy
  72     sleep 2
  73     '///+ - Check that we really got a copy of the object ///'
  74     kontext "DocumentImpress"
  75     DocumentImpress.OpenContextMenu(true)
  76     sleep 2
  77     MenuSelect 27353
  78     sleep 2
  79     Kontext "ExportierenDlg"
  80     if ExportierenDlg.IsVisible(5) then
  81             printlog "   Gallery-object correctly copied into Slide."
  82             ExportierenDlg.Close
  83         else
  84             warnlog "   Doesn't seem like we copied anything from the Gallery... ?"
  85     endif
  86     printlog "Delete the item"
  87     kontext "DocumentImpress"
  88     DocumentImpress.TypeKeys "<DELETE>"
  89     printlog "Close the Gallery"
  90     ToolsGallery
  91     printlog "Insert computergraphic from file"
  92     InsertGraphicsFromFile
  93     try
  94         Kontext "GrafikEinfuegenDlg"
  95         sleep 2
  96         Dateiname.settext Convertpath (gTesttoolPath + "graphics/required/input/screen_white.wmf")
  97         Oeffnen.click
  98     catch
  99         Warnlog "Insert graphic doesn't work"
 100     endcatch
 101
 102     '///Resize object
 103     printlog "Resize object"
 104     Kontext "DocumentImpress"
 105     gMouseClick (10, 10)
 106     sleep 1
 107     EditSelectAll
 108     sleep 1
 109     ContextPositionAndSize                '/// Format-position and size
 110     Kontext
 111     Active.SetPage TabPositionAndSize
 112     Kontext "TabPositionAndSize"
 113     KeepRatio.Check
 114     SizePosition.TypeKeys "<UP> <UP> <LEFT> <LEFT>"
 115     SizePosition.TypeKeys "<DOWN> <RIGHT>"
 116     Width.SetText CStr((CInt(Width.GetText)) * 2)
 117     TabPositionAndSize.OK
 118
 119     '///Break object
 120     printlog "Break object"
 121     Kontext "DocumentImpress"
 122     gMouseClick (10, 10)
 123     sleep 1
 124     EditSelectAll
 125     sleep 1
 126     hOpenContextMenu  '(when the object is marked)
 127     hMenuSelectNr(13)
 128     '///    Select part of object and make it black
 129     printlog "Select part of object and make it black"
 130     DocumentImpress.TypeKeys "<SHIFT TAB>"
 131     FormatArea
 132     Kontext
 133     Active.SetPage TabArea
 134     Kontext "TabArea"
 135     FillOptions.Select 2
 136     ColourList.Select 1
 137     TabArea.OK
 138
 139     '///Group the objects
 140     printlog "Group the object"
 141     kontext "DocumentImpress"
 142     DocumentImpress.TypeKeys "<MOD1 A>"
 143     hOpenContextMenu  '(when the object is marked)
 144     hMenuSelectNr(12)
 145
 146     '///Add Layout "Title Only"
 147     Printlog "Add Layout"
 148     kontext "Tasks"
 149     if (NOT Tasks.exists) then
 150         warnlog "Tasks Panel not visible. Opening now."
 151         ViewTaskPane
 152     endif
 153     Kontext "LayoutsPreview"
 154     LayoutsPreview.TypeKeys "<HOME> <DOWN> <DOWN> <RETURN>"
 155     sleep (5)
 156     '///Add a background
 157     Printlog "Add background"
 158
 159     Kontext "Tasks"
 160     printlog "Deselect all tabs from view menu in task pane except the needed."
 161     View.OpenMenu
 162     MenuSelect(MenuGetItemID(5))
 163     View.OpenMenu
 164     MenuSelect(MenuGetItemID(4))
 165     View.OpenMenu
 166     MenuSelect(MenuGetItemID(3))
 167     View.OpenMenu
 168     MenuSelect(MenuGetItemID(2))
 169     Kontext "AvailableForUsePreview"
 170     AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
 171     sleep (5)
 172     '///Add a transition effect
 173     Printlog "Add a transition effect"
 174     Kontext "Tasks"
 175     View.OpenMenu
 176     MenuSelect(MenuGetItemID(5))
 177     View.OpenMenu
 178     MenuSelect(MenuGetItemID(1))
 179     TransitionSound.GetItemCount   'needed for select
 180     Sleep 1
 181     TransitionSound.Select 4
 182
 183     '///Close the document
 184     Printlog "Close the document"
 185     Call hCloseDocument
 186
 187 endcase 't_Introduction
 188 '--------------------------------------------------------------------
 189 testcase t_Interoperability
 190
 191     Dim sTemplatename as string
 192
 193     gApplication   = "IMPRESS"
 194
 195     '///Open PowerPoint presentation
 196     printlog "Open PowerPoint presentation"
 197     hFileOpen (Convertpath (gTesttoolPath + "graphics/required/input/dotNetOverview.ppt"))
 198
 199     Call sMakeReadOnlyDocumentEditable
 200
 201     'Save the name of the origin background (taken from last slide)
 202         Kontext "DocumentImpress"
 203         DocumentImpress.TypeKeys "<END>"
 204         sleep (4)
 205         sTemplatename = DocumentImpress.StatusGetText (6)
 206         printlog "    Background = " & sTemplatename     'Debugcode
 207
 208     printlog "Choose a masterpage from right pane"
 209
 210     Kontext "Tasks"
 211     printlog "Deselect all tabs accept the Master Pages"
 212     View.OpenMenu
 213     MenuSelect(MenuGetItemID(5))
 214     View.OpenMenu
 215     MenuSelect(MenuGetItemID(4))
 216     View.OpenMenu
 217     MenuSelect(MenuGetItemID(3))
 218     View.OpenMenu
 219     MenuSelect(MenuGetItemID(2))
 220     sleep 2
 221     Kontext "AvailableForUsePreview"
 222     AvailableForUsePreview.TypeKeys "<HOME> <RIGHT> <RETURN>"
 223     sleep (5)
 224     printlog "    Verify that the background has changed"
 225     Kontext "DocumentImpress"
 226     printlog "    Background is " & DocumentImpress.StatusGetText (6)     'Debugcode
 227     if DocumentImpress.StatusGetText (6) = sTemplatename then
 228             warnlog "The background is not changed"
 229         else printlog "    Background has been changed"
 230     endif
 231
 232     '///Switch back to original background
 233     printlog "Switch back to original background"
 234     Kontext "Tasks"
 235     Kontext "AvailableForUsePreview"
 236     AvailableForUsePreview.TypeKeys "<HOME> <RETURN>"
 237     sleep (5)
 238     Kontext "DocumentImpress"
 239     if DocumentImpress.StatusGetText (6) = sTemplatename then
 240             printlog "    The background has been set back to default"
 241         else warnlog "The background is " & DocumentImpress.StatusGetText (6) & " but should be: " & sTemplatename
 242     endif
 243
 244     '///Resort slides
 245     printlog "Resort slides"
 246     Kontext "DocumentImpress"
 247     Kontext "Slides"
 248     Kontext "SlidesControl"
 249     SlidesControl.TypeKeys "<Mod1 X>"
 250     Kontext "DocumentImpress"
 251     DocumentImpress.TypeKeys "<HOME>"
 252     Kontext "Slides"
 253     Kontext "SlidesControl"
 254     SlidesControl.TypeKeys "<Mod1 V>"
 255     kontext "InsertPaste"
 256      if InsertPaste.Exists(1) then
 257         Before.Check
 258         InsertPaste.OK
 259      endif
 260      Printlog "    Verify that the slide was moved correctly"
 261      Kontext "Slides"
 262      SlidesControl.TypeKeys "<PAGEUP>"
 263      SlidesControl.TypeKeys "<SHIFT F10>"
 264      if hMenuFindSelect(27268, true, 3) = false then
 265         Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 266         Call hCloseDocument
 267         Goto Endsub
 268      endif
 269      kontext "NameDlgPage"
 270      if NameField.GetText <> ".NET Enterprise Federation" then
 271         Warnlog "Wrong slide found! Expected no 3, but found " + NameField.GetText + "."
 272      else
 273         Printlog "    The slide was correctly moved"
 274      endif
 275      NameDlgPage.OK
 276      sleep 1
 277
 278     '///Switch views
 279     printlog "Switch views"
 280     ViewWorkspaceOutlineView
 281     sleep (2)
 282     setclipboard("")
 283     try
 284         Kontext "DocumentImpressOutlineView"
 285         DocumentImpressOutlineView.TypeKeys "<MOD1 HOME><SHIFT END>"
 286         DocumentImpressOutlineView.TypeKeys "<Mod1 C>"
 287         sleep (5)
 288         if getclipboard() <> ".NET Enterprise" then
 289                 warnlog "    Wrong selection in outlineview. Should be '.NET Enterprise', but is '" & getclipboard() +"'."
 290             else printlog "    Switching to Outlineview was successfull"
 291         endif
 292     catch
 293         warnlog "Switching to Outlineview was not successfull"
 294     endcatch
 295     ViewWorkspaceNotesView
 296     sleep 1
 297     try
 298         Kontext "DocumentImpressNotesView"
 299         DocumentImpressNotesView.TypeKeys "<TAB><TAB>"
 300         DocumentImpressNotesView.OpenContextMenu(true)
 301         sleep 2
 302         MenuSelect(MenuGetItemID(3))   'Open Contextmenu Line
 303         Kontext "TabLinie"
 304         TabLinie.Cancel
 305         printlog "    Switching to Notesview was successfull"
 306     catch
 307         warnlog "Switching to Notesview was not successfull"
 308     endcatch
 309     ViewWorkspaceHandoutView
 310     sleep 1
 311     try
 312         Kontext "DocumentImpressHandoutView"
 313         DocumentImpressHandoutView.TypeKeys "<TAB>"
 314         printlog "    Switching to Handoutview was successfull"
 315     catch
 316         warnlog "Switching to Handoutview was not successfull"
 317     endcatch
 318     sleep 2
 319     ViewWorkspaceSlidesView
 320     sleep 2
 321     try
 322         Kontext "Slides"
 323         SlidesControl.TypeKeys "<TAB>"
 324         printlog "    Switching to Slideview was successfull"
 325     catch
 326         warnlog "Switching to Slideview was not successfull"
 327     endcatch
 328     sleep 1
 329     ViewWorkspaceDrawingView
 330     sleep 1
 331     try
 332         Kontext "DocumentImpress"
 333         DocumentImpress.TypeKeys "<TAB>"
 334         printlog "    Switching back to Drawingview was successfull"
 335     catch
 336         warnlog "Switching to Drawingview was not successfull"
 337     endcatch
 338
 339     '///Travel through the presentation by left pane
 340     printlog "Travel through the presentation by left pane to slide 7"
 341     Kontext "DocumentImpress"
 342     DocumentImpress.TypeKeys "<HOME><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN><PAGEDOWN>"
 343     Printlog "    Verify that the correct slide (7) is reached"
 344     Kontext "Slides"
 345     Kontext "SlidesControl"
 346     SlidesControl.OpenContextMenu
 347     if hMenuFindSelect(27268, true, 3) = false then
 348     Warnlog "Context-Menu-entry `Rename` was not found. Therefore the test ends."
 349     Call hCloseDocument
 350     Goto Endsub
 351     endif
 352     kontext "NameDlgPage"
 353     if NameField.GetText <> "Visual Studio.NET The complete development environment  for building distributed applications  for Windows and the Web" then
 354             Warnlog "Wrong slide found! Expected no 7, but found " + NameField.GetText + "."
 355         else Printlog "    Slide 7 is reached"
 356     endif
 357     NameDlgPage.OK
 358     sleep 1
 359
 360     printlog "Autoshape support"
 361     Kontext "DocumentImpress"
 362     DocumentImpress.TypeKeys "<TAB>"
 363     try
 364         Kontext "ExtrusionObjectBar"
 365         printlog "Checking if ExtrusionObjectBar is already open."
 366         if ExtrusionObjectBar.Exists then
 367                 printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
 368         else
 369                 printlog "ExtrusionObjectBar Exists = " & ExtrusionObjectBar.Exists
 370                 printlog "Opening ExtrusionObjectBar."
 371                 ViewToolbarsThreeDSettings
 372         endif
 373         ExtrusionTiltRight.Click
 374         printlog "    An autoshape was found and turned right"
 375     catch
 376         warnlog "Turning autoshape was not successfully"
 377     endcatch
 378     printlog "Close document"
 379     Call hCloseDocument
 380
 381 endcase 't_Interoperability
 382 '--------------------------------------------------------------------
 383 testcase t_DrawingEngine
 384
 385     Dim sGroupPosition as string
 386     Dim sObjectPosition as string
 387
 388     gApplication   = "DRAW"
 389
 390     '///Open a drawing
 391     printlog "Open a drawing"
 392     hFileOpen (Convertpath (gTesttoolPath + "graphics/required/input/Blueprint.odg"))
 393
 394     Call sMakeReadOnlyDocumentEditable
 395
 396     '///Select grouped object and enter group
 397     printlog "Select group"
 398     Kontext "DocumentDraw"
 399     DocumentDraw.TypeKeys "<TAB><TAB>"
 400     sleep (5)
 401     printlog "    Save position of group"
 402     ContextPositionAndSize                'Format-position and size
 403     Kontext
 404     Active.SetPage TabPositionAndSize
 405     Kontext "TabPositionAndSize"
 406     sGroupPosition = PositionY.GetText
 407     printlog "    - GroupPosition is " & sGroupPosition
 408     TabPositionAndSize.OK
 409     printlog "Enter group"
 410     Kontext "DocumentDraw"
 411     FormatEditGroupDraw
 412     sleep 1
 413
 414     '///Select and move single object
 415     printlog "Select and move single object"
 416     printlog "    Select object"
 417     Kontext "DocumentDraw"
 418     DocumentDraw.TypeKeys "<TAB><TAB>"
 419     sleep (5)
 420     printlog "    Verify that the wanted object is selected"
 421     DocumentDraw.TypeKeys "<SHIFT F10>"         'Open contextmenu
 422     MenuSelect(MenuGetItemID(15))               'Select NAME from context
 423     kontext "NameDlgObject"
 424     if NameField.GetText <> "Chair" then
 425             Warnlog "Wrong object selected!"
 426         else Printlog "    The correct object is selected"
 427     endif
 428     NameDlgObject.OK
 429     sleep 1
 430     printlog "    Save position of group"
 431     ContextPositionAndSize                'Format-position and size
 432     Kontext
 433     Active.SetPage TabPositionAndSize
 434     Kontext "TabPositionAndSize"
 435     sObjectPosition = PositionY.GetText
 436     printlog "    - ObjectPosition is " & sObjectPosition
 437     TabPositionAndSize.OK
 438     printlog "    Move object"
 439     Kontext "DocumentDraw"
 440     DocumentDraw.TypeKeys "<UP><UP><UP>"
 441     sleep (5)
 442     printlog "    Verify that the object was moved"
 443     ContextPositionAndSize                '/// Format-position and size
 444     Kontext
 445     Active.SetPage TabPositionAndSize
 446     Kontext "TabPositionAndSize"
 447     if PositionY.GetText <> sObjectPosition then
 448             printlog "    Single object was moved"
 449         else warnlog "The object has not been moved"
 450     endif
 451     TabPositionAndSize.OK
 452     printlog "    Exit group"
 453     FormatExitGroupDraw
 454     Printlog "Verify that the group is still on position"
 455     printlog "    Verify position"
 456     ContextPositionAndSize                'Format-position and size
 457     Kontext
 458     Active.SetPage TabPositionAndSize
 459     Kontext "TabPositionAndSize"
 460     if PositionY.GetText = sGroupPosition then
 461             printlog "    Group is still on position"
 462         else warnlog "Group has moved from " & sGroupPosition & " to " & PositionY.GetText
 463     endif
 464     TabPositionAndSize.OK
 465
 466     '///Close document
 467     printlog "Close document"
 468     Call hCloseDocument
 469
 470 endcase 't_DrawingEngine