testautomation/math/required/includes/m_003_.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: m_003_.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 11:51:23 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '\*****************************************************************
  39
  40 sub M_003_
  41    printlog Chr(13)+"--  File_View  m_003_ --"
  42
  43    Call tViewZoom
  44    Call tViewUpdate
  45    Call tViewAutomaticRepaint
  46    Call tViewBars
  47    ' ^ View->Status bar
  48    Call tViewOperators
  49    Call tViewEntireDesktop
  50 end sub
  51
  52 testcase tViewZoom
  53 '/// open application ///'
  54    Call hNewDocument
  55    '/// type something into the document ///'
  56    Call SchreibenInMathdok "What's the matter?"
  57    sleep 2
  58    UseBindings
  59   '/// View -> Zoom ///'
  60    ViewZoom
  61    Kontext "Massstab"
  62       DialogTest ( Massstab )
  63       '/// check checkbox 'Entire Page' ///'
  64       GanzeSeite.check
  65       '/// check checkbox 'Page Width' ///'
  66       Seitenbreite.check
  67       '/// check checkbox 'Optmal' ///'
  68       Optimal.check
  69       '/// check checkbox 'Variable' ///'
  70       VergroesserungStufenlos.check
  71    '/// cancel dialog 'Zoom' ///'
  72    Massstab.Cancel
  73   '///View -> Zoom In ///
  74    ViewZoomIn
  75    sleep (2)
  76   '///View -> Zoom Out ///
  77    ViewZoomAll
  78    sleep (2)
  79   '///View -> Show All ///
  80    ViewShowAll
  81    sleep (2)
  82    '/// close application ///'
  83    Call  hCloseDocument
  84 endcase
  85
  86 testcase tViewUpdate
  87 '/// open application ///'
  88    Call hNewDocument
  89    '/// type something into the document ///'
  90    Call SchreibenInMathdok "a sup b"
  91    '/// Edit->Paste ///'
  92    EditPaste
  93    '/// View->Update ///'
  94    ViewUpdate
  95    sleep (2)
  96    '/// close application ///'
  97    Call  hCloseDocument
  98 endcase
  99
 100 testcase tViewAutomaticRepaint
 101 '/// open application ///'
 102    Call hNewDocument
 103    '/// type something into the document ///'
 104    Call SchreibenInMathdok "a sup b"
 105    '/// View->AutoUpdate Display ///'
 106    ViewAutoUpdateDisplay
 107    '/// Edit->Paste ///'
 108    EditPaste
 109    sleep (2)
 110    '/// View->AutoUpdate Display ///'
 111    ViewAutoUpdateDisplay
 112    sleep (2)
 113    '/// close application ///'
 114    Call  hCloseDocument
 115 endcase
 116
 117 testcase tViewBars
 118 '/// open application ///'
 119    Call hNewDocument
 120    '/// type something into the document ///'
 121    SchreibenInMathdok "a sup b"
 122    try
 123    '/// View->Toolbars->Function bar ///'
 124    ViewToolbarsStandard
 125    sleep (2)
 126    '/// View->Toolbars->Function bar ///'
 127    ViewToolbarsStandard
 128    sleep (1)
 129    '/// View->Toolbars->Main Toolbar ///'
 130    ViewToolbarsTools
 131    sleep (2)
 132    '/// View->Toolbars->Main Toolbar ///'
 133    ViewToolbarsTools
 134    sleep (1)
 135    '/// View->Status bar ///'
 136    ViewToolbarsStatusbar
 137    sleep (1)
 138    '/// View->Status bar ///'
 139    ViewToolbarsStatusbar
 140    sleep (1)
 141    catch
 142                 warnlog "toolbar slots not accessible"
 143    endcatch
 144    '/// close application ///'
 145    Call  hCloseDocument
 146 endcase
 147
 148 testcase tViewOperators
 149 '/// open application ///'
 150    Call hNewDocument
 151    '/// type something into the document ///'
 152    Call SchreibenInMathdok "a over b"
 153    '/// View->Selection ///'
 154    ViewSelection
 155    sleep (2)
 156    '/// View->Selection ///'
 157    ViewSelection
 158    Kontext "OperatorenMath"
 159    if (NOT OperatorenMath.Exists (2)) then
 160       ViewSelection
 161       printlog "View Selection wasn't visible :-( now is!"
 162    endif
 163    Call DialogTest ( OperatorenMath )
 164    '/// close application ///'
 165    Call hCloseDocument
 166 endcase
 167
 168 testcase tViewEntireDesktop
 169 '/// open application ///'
 170    Call hNewDocument
 171    '/// type something into the document ///'
 172    Call SchreibenInMathdok "(a over ba) over (a + 1/2 * b )"
 173    '/// View->Full Screen ///'
 174    ViewFullScreen
 175    sleep 2
 176    '/// View->Full Screen ///'
 177    ViewFullScreen
 178    sleep 1
 179    '/// close application ///'
 180    Call  hCloseDocument
 181 endcase
 182
 183