testautomation/framework/required/includes/standard_toolbar_3.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: standard_toolbar_3.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:03 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '* short description : global update test (Standardbar)
  37 '*
  38 '\***************************************************************************
  39
  40 testcase tStandardBar_3
  41
  42     dim sFileOut as String
  43     dim HyperlinkTabID as integer
  44     dim iTabPage as integer
  45
  46     printlog( "Icons on the standardbar" )
  47
  48     gApplication = "CALC"
  49
  50     printlog( "Cleanup test environment - delete files" )
  51     sFileOut = hGetWorkPath() & "FWK-update-functionbar" & hGetSuffix( "current" )
  52     ConvertPath ( sFileOut )
  53     hDeleteFile( sFileOut )
  54
  55     printlog( "Reset the standardbar to defaults" )
  56     hResetStandardBar()
  57
  58     printlog( "New Spreadsheet document" )
  59     hCreateDocument()
  60
  61     Kontext "Navigator"
  62     if ( Navigator.Exists() ) then
  63         Navigator.close()
  64     endif
  65
  66     printlog( "Insert text into a random cell, press <Enter>" )
  67     Kontext "DocumentCalc"
  68     DocumentCalc.TypeKeys( "Only for a test.<Return>" )
  69
  70     Kontext "Standardbar"
  71     printlog( "Press the 'Save' button" )
  72     hWaitForObject( Speichern , 1000 )
  73     Speichern.click()
  74
  75
  76     Kontext "SpeichernDlg"
  77     printlog( "- Save the file to: " & sFileOut )
  78     Dateiname.SetText( sFileOut )
  79     Speichern.Click()
  80
  81     printlog( "Close the document" )
  82     hDestroyDocument()
  83
  84     printlog( "Click the 'File Open' button" )
  85     hUseAsyncSlot( "FileOpen" )
  86
  87     Kontext "OeffnenDlg"
  88     Printlog( "Load test file in read-only mode" )
  89     if ( OeffnenDlg.exists( 2 ) ) then
  90         Dateiname.SetText( sFileOut )
  91         NurLesen.Check()
  92         oeffnen.click()
  93     else
  94         warnlog( "File Open dialog is missing" )
  95     endif
  96
  97     wait( 2000 )
  98
  99     Kontext "DocumentCalc"
 100     printlog( "Try to insert a chart to verify that the document is read-only (this should fail)" )
 101     try
 102         InsertChartCalc
 103         warnlog( "The document is not read-only" )
 104     catch
 105     endcatch
 106
 107     Kontext "Standardbar"
 108     printlog( "Click the <Edit File> button" )
 109     hWaitForObject( Bearbeiten , 1000 )
 110     Bearbeiten.click() : WaitSlot()
 111
 112     printlog( "Try to insert a chart (should work this time)" )
 113     InsertChartCalc
 114
 115     Kontext "ChartWizard"
 116     if ( ChartWizard.exists( 2 ) ) then
 117         printlog( "Cancel Chart Wizard" )
 118         ChartWizard.cancel()
 119         WaitSlot()
 120     else
 121         warnlog( "Chart Wizard should be open" )
 122     endif
 123
 124     printlog( "Select a few cells for Cut/Copy/Paste test" )
 125     Kontext "DocumentCalc"
 126     DocumentCalc.TypeKeys( "<Up>", 7 )
 127     DocumentCalc.TypeKeys( "<Shift Down>", 5 )
 128
 129     printlog( "Cut" )
 130     Kontext "Standardbar"
 131     hWaitForObject( Ausschneiden , 1000 )
 132     Ausschneiden.Click()
 133     WaitSlot()
 134
 135     Kontext "DocumentCalc"
 136     printlog( "Move down one cell" )
 137     DocumentCalc.TypeKeys( "<Down>" )
 138
 139     printlog( "Paste" )
 140     Kontext "Standardbar"
 141     sleep( 3 ) ' No better solution found yet.
 142     Einfuegen.Click()
 143
 144     Kontext "DocumentCalc"
 145     printlog( "Move up 7 cells, then do <shift down>" )
 146     DocumentCalc.TypeKeys( "<Up>", 7 )
 147     DocumentCalc.TypeKeys( "<Shift Down>", 5 )
 148     WaitSlot()
 149
 150     printlog( "Copy" )
 151     Kontext "Standardbar"
 152     hWaitForObject( Kopieren , 1000 )
 153     Kopieren.Click()
 154     WaitSlot()
 155
 156     Kontext "DocumentCalc"
 157     printlog( "Press right arrow and RETURN" )
 158     DocumentCalc.TypeKeys( "<Right><Return>" )
 159     WaitSlot()
 160
 161     printlog( "Paste again" )
 162     Kontext "Standardbar"
 163     hWaitForObject( Einfuegen , 1000 )
 164     Einfuegen.Click()
 165
 166     printlog( "Undo" )
 167     hWaitForObject( Undo , 2000 )
 168     Undo.Click()
 169     WaitSlot()
 170
 171     printlog( "Redo" )
 172     hWaitForObject( Redo , 2000 )
 173     Redo.Click()
 174     WaitSlot()
 175
 176     Kontext "Standardbar"
 177     printlog( "Open Navigator" )
 178     hWaitForObject( NavigatorButton , 1000 )
 179     NavigatorButton.Click()
 180
 181     Kontext "Navigator"
 182     if ( Navigator.Exists( 1 ) ) then
 183         printlog( "Close Navigator" )
 184         Kontext "Standardbar"
 185         NavigatorButton.Click()
 186     else
 187         warnlog( "Navigator did not open" )
 188     endif
 189
 190     Kontext "Navigator"
 191     if ( Navigator.exists() ) then
 192         warnlog( "The navigator should not be visible" )
 193     endif
 194
 195     Kontext "Standardbar"
 196     printlog( "Click <HyperLink> to open the dialog" )
 197     hWaitForObject( HyperlinkDialog , 1000 )
 198     HyperlinkDialog.Click()
 199
 200     for iTabPage = 1 to 4
 201         select case iTabPage
 202         case 1: Kontext "Hyperlink"
 203             if ( Hyperlink.exists() ) then HyperlinkTabID = 1
 204             exit for
 205         case 2: kontext "TabHyperlinkMailUndNews"
 206             if ( TabHyperlinkMailUndNews.exists() ) then HyperlinkTabID = 2
 207             exit for
 208         case 3: kontext "TabHyperlinkDokument"
 209             if ( TabHyperlinkDokument.exists() ) then HyperlinkTabID = 3
 210             exit for
 211         case 4: kontext "TabHyperlinkNeuesDokument"
 212             if ( TabHyperlinkNeuesDokument.exists() ) then HyperlinkTabID = 4
 213             exit for
 214         case default:
 215             HyperlinkTabID = 0
 216         end select
 217     next iTabPage
 218
 219     if ( HyperlinkTabID > 0 ) then
 220
 221         if ( HyperlinkTabID <> 1 ) then
 222             qaerrorlog( "This is not the internet tabpage, did you " & _
 223                         "kill the userlayer before running the test?" )
 224         endif
 225
 226         kontext "Standardbar"
 227         printlog( "Click <HyperLink> to close" )
 228         HyperlinkDialog.Click()
 229         WaitSlot()
 230     else
 231         warnlog( "#i104704# - Insert Hyperlink dialog cannot be accessed" )
 232         Kontext "Standardbar"
 233         HyperlinkDialog.Click()
 234     endif
 235
 236     Kontext "Standardbar"
 237     printlog( "Gallery button" )
 238     hWaitForObject( GalleryButton , 1000 )
 239     GalleryButton.Click()
 240
 241     kontext "Gallery"
 242     if ( Gallery.exists( 3 ) ) then
 243         printlog( "Gallery button again, to close" )
 244         kontext "StandardBar"
 245         GalleryButton.click()
 246         WaitSlot()
 247
 248         kontext "Gallery"
 249         if ( Gallery.exists() ) then
 250             warnlog( "Gallery did not close " )
 251         endif
 252     else
 253         warnlog( "The Gallery did not open" )
 254     endif
 255
 256     printlog( "Close all documents and delete files" )
 257     hDestroyDocument()
 258     hDeleteFile( sFileOut )
 259
 260 endcase
 261
 262