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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/***********************************************************************
  27 '*
  28 '* owner : oliver.craemer@oracle.com
  29 '*
  30 '* short description : Resource Test - Window Menu
  31 '*
  32 '************************************************************************
  33 '*
  34 ' #1 tWindowNewWindow
  35 ' #1 tWindowSplit
  36 ' #1 tWindowFreeze
  37 '*
  38 '\***********************************************************************
  39
  40 sub c_upd_windowmenu
  41
  42     Printlog Chr(13) + "--------- Window Menu (c_upd_windowmenu.inc) ---------"
  43
  44     call tWindowNewWindow
  45     call tWindowSplit
  46     call tWindowFreeze
  47
  48
  49 end sub
  50
  51 '-----------------------------------------------------------
  52
  53 testcase tWindowNewWindow
  54 '///<u><b>Window – New Window</b></u>
  55
  56     Dim iDocumentcount as integer
  57     Dim iDocumentclose as integer
  58
  59     '/// Verify that there is no document open
  60     printlog " Verify that there is no document open"
  61     iDocumentcount = getDocumentCount
  62     If iDocumentcount >0 then
  63         warnlog "There are " & iDocumentcount & " documents open, but there should be none. Closing these documents"
  64         For iDocumentclose = 1 to iDocumentcount
  65             Call hCloseDocument
  66         Next iDocumentclose
  67     end if
  68     '/// Opening new spreadsheet document for getting defined starting environment
  69     printlog " Opening new spreadsheet document for getting defined starting environment"
  70     Call hNewDocument
  71     '/// Open new window by 'Window – New Window'
  72     printlog " Open new window by 'Window – New Window'"
  73     WindowNewWindow
  74     '/// Count amount of windows (must be 2)
  75     printlog " Count amount of windows (must be 2)"
  76     If getDocumentCount <>2 then
  77         warnlog "There should be 2 windows, but there are " & getDocumentCount
  78     end if
  79     '/// Close new window by 'Window – Close Window'
  80     printlog " Close new window by 'Window – Close Window'"
  81     WindowCloseWindow
  82     '/// Count amount of windows (must be one)
  83     printlog " Count amount of windows (must be one)"
  84     If getDocumentCount <>1 then
  85         warnlog "There should be 1 window, but there are " & getDocumentCount
  86     end if
  87     '/// Close starting document
  88     printlog " Close starting document"
  89     Call hCloseDocument
  90
  91 endcase
  92
  93 '-----------------------------------------------------------
  94
  95 testcase tWindowSplit
  96 '///<u><b>Window – Split</b></u>
  97
  98     '/// Open new Spreadsheet document
  99     printlog " Open new Spreadsheet document"
 100     Call hNewDocument
 101     '/// Select cell E15
 102     printlog " Select cell E15"
 103     Call fCalcSelectRange ("E15")
 104     '/// Split window by 'Window – Split'
 105     printlog " Split window by 'Window – Split'"
 106     WindowSplit
 107     '/// Unsplit window by 'Window - Split'
 108     printlog " Unsplit window by 'Window - Split'"
 109     WindowSplit
 110     '/// Close document
 111     printlog " Close document"
 112     Call hCloseDocument
 113
 114 endcase
 115
 116 '-----------------------------------------------------------
 117
 118 testcase tWindowFreeze
 119 '///<u><b>Window – Freeze</b></u>
 120
 121 '/// Open new Spreadsheet document
 122     printlog " Open new Spreadsheet document"
 123     Call hNewDocument
 124     '/// Select cell E15
 125     printlog " Select cell E15"
 126     Call fCalcSelectRange ("E15")
 127     '/// Split window by 'Window – Freeze'
 128     printlog " Split window by 'Window – Freeze'"
 129     WindowFreeze
 130     '/// Unsplit window by 'Window - Freeze'
 131     printlog " Unsplit window by 'Window - Freeze'"
 132     WindowFreeze
 133     '/// Close document
 134     printlog " Close document"
 135     Call hCloseDocument
 136
 137 endcase
 138
 139 '-----------------------------------------------------------
 140
 141