testautomation/spreadsheet/required/includes/c_upd_windowmenu.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: c_upd_windowmenu.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 08:06:08 $
  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 : oliver.craemer@sun.com
  35 '*
  36 '* short description : Resource Test - Window Menu
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tWindowNewWindow
  41 ' #1 tWindowSplit
  42 ' #1 tWindowFreeze
  43 '*
  44 '\***********************************************************************
  45
  46 sub c_upd_windowmenu
  47
  48     Printlog Chr(13) + "--------- Window Menu (c_upd_windowmenu.inc) ---------"
  49
  50     call tWindowNewWindow
  51     call tWindowSplit
  52     call tWindowFreeze
  53
  54
  55 end sub
  56
  57 '-----------------------------------------------------------
  58
  59 testcase tWindowNewWindow
  60 '///<u><b>Window – New Window</b></u>
  61
  62     Dim iDocumentcount as integer
  63     Dim iDocumentclose as integer
  64
  65     '/// Verify that there is no document open
  66     printlog " Verify that there is no document open"
  67     iDocumentcount = getDocumentCount
  68     If iDocumentcount >0 then
  69         warnlog "There are " & iDocumentcount & " documents open, but there should be none. Closing these documents"
  70         For iDocumentclose = 1 to iDocumentcount
  71             Call hCloseDocument
  72         Next iDocumentclose
  73     end if
  74     '/// Opening new spreadsheet document for getting defined starting environment
  75     printlog " Opening new spreadsheet document for getting defined starting environment"
  76     Call hNewDocument
  77     '/// Open new window by 'Window – New Window'
  78     printlog " Open new window by 'Window – New Window'"
  79     WindowNewWindow
  80     '/// Count amount of windows (must be 2)
  81     printlog " Count amount of windows (must be 2)"
  82     If getDocumentCount <>2 then
  83         warnlog "There should be 2 windows, but there are " & getDocumentCount
  84     end if
  85     '/// Close new window by 'Window – Close Window'
  86     printlog " Close new window by 'Window – Close Window'"
  87     WindowCloseWindow
  88     '/// Count amount of windows (must be one)
  89     printlog " Count amount of windows (must be one)"
  90     If getDocumentCount <>1 then
  91         warnlog "There should be 1 window, but there are " & getDocumentCount
  92     end if
  93     '/// Close starting document
  94     printlog " Close starting document"
  95     Call hCloseDocument
  96
  97 endcase
  98
  99 '-----------------------------------------------------------
 100
 101 testcase tWindowSplit
 102 '///<u><b>Window – Split</b></u>
 103
 104     '/// Open new Spreadsheet document
 105     printlog " Open new Spreadsheet document"
 106     Call hNewDocument
 107     '/// Select cell E15
 108     printlog " Select cell E15"
 109     Call fCalcSelectRange ("E15")
 110     '/// Split window by 'Window – Split'
 111     printlog " Split window by 'Window – Split'"
 112     WindowSplit
 113     '/// Unsplit window by 'Window - Split'
 114     printlog " Unsplit window by 'Window - Split'"
 115     WindowSplit
 116     '/// Close document
 117     printlog " Close document"
 118     Call hCloseDocument
 119
 120 endcase
 121
 122 '-----------------------------------------------------------
 123
 124 testcase tWindowFreeze
 125 '///<u><b>Window – Freeze</b></u>
 126
 127 '/// Open new Spreadsheet document
 128     printlog " Open new Spreadsheet document"
 129     Call hNewDocument
 130     '/// Select cell E15
 131     printlog " Select cell E15"
 132     Call fCalcSelectRange ("E15")
 133     '/// Split window by 'Window – Freeze'
 134     printlog " Split window by 'Window – Freeze'"
 135     WindowFreeze
 136     '/// Unsplit window by 'Window - Freeze'
 137     printlog " Unsplit window by 'Window - Freeze'"
 138     WindowFreeze
 139     '/// Close document
 140     printlog " Close document"
 141     Call hCloseDocument
 142
 143 endcase
 144
 145 '-----------------------------------------------------------
 146
 147