testautomation/chart2/required/includes/ch2_view.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: ch2_view.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-13 14:27:01 $
  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 : Chart resource test - Menu VIEW
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tViewToolbars
  41 ' #1 tViewToolbarsCustomize
  42 ' #1 tViewFullScreen
  43 '*
  44 '\************************************************************************
  45
  46 testcase tViewToolbars
  47     '///<u><b>Check invocation of View::Toolbars::*</b></u>
  48     '/// Load simple chart document and save it in user's work dorectory
  49     if fLoadVerySimpleChartAndSaveLocal() > 0 then
  50         warnlog "Loading test document seems to have failed -> Check this out!"
  51         goto endsub
  52     endif
  53     '/// Select chart using the navigator
  54     call fSelectFirstOLE
  55     '/// Edit / Object / Edit
  56     EditObjectEdit
  57     '/// Convert chart to 3D
  58     if NOT fConvertChartTo3D() then
  59         warnlog "Conversion of chart to 3D failed -> Quit testcase"
  60         Call hCloseDocument
  61         goto endsub
  62     else
  63         printlog "Converting chart into 3D was successful."
  64     endif
  65     Kontext "Standardbar"
  66     if Standardbar.Exists then
  67         '/// View / Toolbars / Standard
  68         ViewToolbarsStandard
  69         Kontext "Standardbar"
  70         '/// Verifying that the toolbar 'Standard' is disabled
  71         if Standardbar.Exists then
  72             QAErrorLog "#i72537 - Disabling 'Standard' toolbar does not work."
  73             Call hCloseDocument
  74             goto endsub
  75         else
  76             '/// Enabling the toolbar again
  77             ViewToolbarsStandard
  78         end if
  79     else
  80         warnlog "'Standard' toolbar was not visible by default as expected!"
  81     end if
  82     Kontext "Toolbar"
  83     if Toolbar.Exists then
  84         '/// View / Toolbars / Formatting
  85         ViewToolbarsTools
  86         Kontext "Toolbar"
  87         '/// Verifying that the toolbar 'Formatting' is disabled
  88         if Toolbar.Exists then
  89             QAErrorLog "#i72537 - Disabling 'Formatting' toolbar does not work."
  90             Call hCloseDocument
  91             goto endsub
  92         else
  93             '/// Enabling the toolbar again
  94             ViewToolbarsTools
  95         end if
  96     else
  97         warnlog "'Standard' toolbar was not visible by default as expected!"
  98     end if
  99    '/// Close document
 100    Call hCloseDocument
 101 endcase
 102
 103 '-------------------------------------------------------------
 104
 105 testcase tViewToolbarsCustomize
 106 '///<u><b>Check Dialog after invocation of View::Toolbars::Customize</b></u>
 107
 108 '///<ul>
 109    '///+<li>Load simple chart document</li>
 110    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 111        warnlog "Loading test document seems to have failed -> Check this out!"
 112        goto endsub
 113    endif
 114    '///+<li>Select chart using navigator</li>
 115    call fSelectFirstOLE
 116    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 117    EditObjectEdit
 118    '///+<li>Invoke View::Toolbars::Customize</li>
 119    ViewToolbarsCustomize
 120    '///+<li>Change to Menus tab-page</li>
 121    Kontext
 122    Active.SetPage TabCustomizeMenu
 123    '///+<li>Check existence of dialog</li>
 124    Call DialogTest ( TabCustomizeMenu )
 125    '///+<li>Change to Keyboard tab-page</li>
 126    Kontext
 127    Active.SetPage TabTastatur
 128    '///+<li>Check existence of dialog</li>
 129    Call DialogTest ( TabTastatur )
 130    '///+<li>Change to Toolbars tab-page</li>
 131    Kontext
 132    Active.SetPage TabCustomizeToolbars
 133    '///+<li>Check existence of dialog</li>
 134    Call DialogTest ( TabCustomizeToolbars )
 135    '///+<li>Change to Events tab-page</li>
 136    Kontext
 137    Active.SetPage TabCustomizeEvents
 138    '///+<li>Check existence of dialog</li>
 139    Call DialogTest ( TabCustomizeEvents )
 140    '///+<li>Quit dialog</li>
 141    TabCustomizeEvents.cancel
 142    '///+<li>Close document</li>
 143    Kontext "DocumentCalc"
 144    DocumentCalc.TypeKeys "<Escape>"
 145    Call hCloseDocument
 146 '///</ul>
 147
 148 endcase
 149 '-------------------------------------------------------------
 150 testcase tViewFullScreen
 151 '///<u><b>Check invocation of View::Fullscren</b></u>
 152
 153 '///<ul>
 154    '///+<li>Load simple chart document</li>
 155    if fLoadVerySimpleChartAndSaveLocal() > 0 then
 156        warnlog "Loading test document seems to have failed -> Check this out!"
 157        goto endsub
 158    endif
 159    '///+<li>Select chart using navigator</li>
 160    call fSelectFirstOLE
 161    '///+<li>Invoke Edit::Object::Edit to enter Inplace Mode</li>
 162    EditObjectEdit
 163    '///+<li>Convert chart to 3D (this probably makes the test more risky)</li>
 164    if NOT fConvertChartTo3D() then
 165        warnlog "Conversion of chart to 3D failed -> Quit testcase"
 166        Call hCloseDocument
 167        goto endsub
 168    endif
 169    '///+<li>Invoke View::Fullscren</li>
 170    ViewFullScreen
 171    '///+<li>Quit fullscreen using CTRL+SHIFT+J</li>
 172    Kontext "DocumentCalc"
 173    DocumentCalc.TypeKeys "<Mod1 Shift J>"
 174    sleep (2)
 175    '///+<li>Enter fullscreen using CTRL+SHIFT+J</li>
 176    DocumentCalc.TypeKeys "<Mod1 Shift J>"
 177    '///+<li>Quit fullscreen using View::Fullscren</li>
 178    ViewFullScreen
 179    '///<li>Close document</li>
 180    Kontext "DocumentCalc"
 181    DocumentCalc.TypeKeys "<Escape>"
 182    Call hCloseDocument
 183 '///</ul>
 184
 185 endcase
 186 '
 187 '-----------------------------------------------------------
 188 '