testautomation/framework/required/includes/standard_toolbar_6.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_6.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_6
  41
  42     '///<h1>Update test: &quot;New-Button&quot; on Standard Bar for all applications</h1>
  43     '///<ul>
  44
  45     '///+<li>Disable the Impress Autopilot</li>
  46     hUseImpressAutopilot( false )
  47
  48     gApplication = "WRITER"
  49
  50     '///+<li>Check the 'New'-menu-button in Standardbar in each application</li>
  51     printlog "Check the 'New'-menu-button in Standardbar in each application"
  52     printlog "- click on menu-button -> open a new document as same document-type"
  53
  54     '///+<li>Open a new writer doc</li>
  55     printlog "   - Writer"
  56     gApplication = "WRITER"
  57     hCreateDocument()
  58     '///+click on 'new'
  59
  60     kontext "standardbar"
  61     Neu.Click()
  62
  63     '///+<li>Check if the new document is a writer-doc</li>
  64     kontext "documentwriter"
  65     DocumentWriter.TypeKeys( "Hallo" )
  66
  67     '///+<li>Close both new docs</li>
  68     hDestroyDocument()
  69     hDestroyDocument()
  70
  71     '///+<li>Open a new calc doc</li>
  72     printlog "   - Calc"
  73     gApplication = "CALC"
  74     hCreateDocument()
  75
  76     '///+<li>Click on 'new'</li>
  77     kontext "standardbar"
  78     Neu.Click()
  79
  80     '///+<li>Check if the new document is a calc-doc</li>
  81     kontext "documentcalc"
  82     DocumentCalc.TypeKeys( "Hallo" )
  83
  84     '///+<li>Close both new docs</li>
  85     hDestroyDocument()
  86     hDestroyDocument()
  87
  88     '///+<li>Open a new draw doc</li>
  89     printlog "   - Draw"
  90     gApplication = "DRAW"
  91     hCreateDocument()
  92
  93     kontext "standardbar"
  94     '///+<li>Click on 'new'</li>
  95     Neu.Click()
  96
  97     '///+<li>Check if the new document is a draw-doc</li>
  98     gMouseClick ( 50, 50 )
  99
 100     '///+<li>Close both new docs</li>
 101     hDestroyDocument()
 102     hDestroyDocument()
 103
 104     '///+<li>Open a new impress doc</li>
 105     printlog "   - Impress"
 106     gApplication = "IMPRESS"
 107     hCreateDocument()
 108
 109     kontext "standardbar"
 110     '///+<li>Click on 'new'</li>
 111     Neu.Click()
 112
 113     '///+<li>Check if the new document is a impress-doc</li>
 114     gMouseClick ( 50, 50 )
 115
 116     '///+<li>Close both new docs</li>
 117     hDestroyDocument()
 118     hDestroyDocument()
 119
 120     '///+<li>Open a new HTML doc</li>
 121     printlog "   - HTML-document"
 122     gApplication = "HTML"
 123     hCreateDocument()
 124     '///+click on 'new'
 125
 126     kontext "standardbar"
 127     Neu.Click()
 128     '///+<li>Check if the new document is a HTML-doc</li>
 129
 130     kontext "documentwriter"
 131     DocumentWriter.TypeKeys( "Hallo" )
 132
 133     '///+<li>Close both new docs</li>
 134     hDestroyDocument()
 135     hDestroyDocument()
 136
 137     '///+<li>Open a new master document</li>
 138     printlog "   - Master-document"
 139     gApplication = "MASTERDOCUMENT"
 140     hCreateDocument()
 141     '///+<li>Click on &quot;new&quot;</li>
 142
 143     kontext "standardbar"
 144     Neu.Click()
 145     '///+<li>Check if the new document is a master doc</li>
 146
 147     kontext "documentwriter"
 148     DocumentWriter.TypeKeys( "Hallo" )
 149
 150     '///+<li>Close the navigator</li>
 151     '///+<li>Close the document</li>
 152     hCloseNavigator()
 153     hDestroyDocument()
 154
 155     '///+<li>Close the navigator</li>
 156     '///+<li>Close the second document</li>
 157     hCloseNavigator()
 158     hDestroyDocument()
 159
 160     '///+<li>Open a new math document</li>
 161     printlog "   - Math"
 162     gApplication = "MATH"
 163     hCreateDocument()
 164     '///+<li>Click on 'new'</li>
 165
 166     kontext "standardbar"
 167     Neu.Click()
 168
 169     '///+<li>Check if the new document is a math document</li>
 170     SchreibenInMathdok "a over b"
 171
 172     '///+<li>Close both new documents</li>
 173     hDestroyDocument()
 174     hDestroyDocument()
 175     '///</ul>
 176
 177 endcase
 178
 179