testautomation/chart2/optional/includes/ch2_lvl1a.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 2009 by Sun Microsystems, Inc.
   6 '*
   7 '* OpenOffice.org - a multi-platform office productivity suite
   8 '*
   9 '* $RCSfile: ch2_lvl1a.inc,v $
  10 '*
  11 '* $Revision: 1.0 $
  12 '*
  13 '* last change: $Author: hde $ $Date: 2009-04-14 15:12: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 : Chart2 functional tests
  37 '*
  38 '\************************************************************************
  39
  40 sub ch2_lvl1a
  41
  42         Call tPlotOptions
  43
  44 end sub
  45
  46
  47 testcase tPlotOptions
  48
  49         Dim sOutputFile as string
  50         sOutputFile = convertpath(gOfficepath & "user\work\hiddenCells.ods")
  51
  52         printlog "Load simple chart document"
  53         if fLoadVerySimpleChartAndSaveLocal() > 0 then
  54                 warnlog "Loading test document seems to have failed -> Check this out!"
  55                 goto endsub
  56         endif
  57         printlog "Select chart using navigator"
  58         if fSelectFirstOLE = -1 then
  59                 warnlog "It was not possible to select the chart object!"
  60                 Call hCloseDocument
  61                 goto endsub
  62         endif
  63
  64         printlog "Edit / Object / Edit"
  65         EditObjectEdit
  66
  67     printlog "Select DataSeries A by toolbar selectorbox"
  68         Kontext "DocumentChart"
  69         call fChartSelectElement (8)
  70
  71         printlog "Invoke Format::ObjectProperties"
  72         Kontext "Toolbar"
  73         FormatSelection.Click
  74
  75         printlog "Select tab page Options"
  76         Kontext
  77         Active.SetPage TabDataSeriesOptions
  78         Kontext "TabDataSeriesOptions"
  79         printlog "activate checkbox 'Include values from hidden cells'"
  80         try
  81                 IncludeHiddenCells.Check
  82         catch
  83                 Warnlog "checkbox hidden or disabled"
  84                 Call hCloseDocument
  85                 goto endsub
  86         endcatch
  87
  88         printlog "Close and reopen data series dialog - checkbox should be still activated"
  89         TabDataSeriesOptions.Ok
  90         Kontext "DocumentChart"
  91         FormatSelection
  92         printlog "Select tab page Options"
  93         Kontext
  94         Active.SetPage TabDataSeriesOptions
  95         Kontext "TabDataSeriesOptions"
  96         if Not IncludeHiddenCells.IsChecked then
  97                 Warnlog "After closing and reopening of Data-Series dialog the checkbox isn't checked anymore"
  98                 TabDataSeriesOptions.Cancel
  99                 Kontext "DocumentCalc"
 100                 DocumentCalc.TypeKeys "<Escape>"
 101                 call hCloseDocument
 102                 goto endsub
 103         endif
 104
 105         TabDataSeriesOptions.Ok
 106
 107         printlog "save and reopen file - checkbox still must be checked"
 108         if NOT hFileSaveAsKill (sOutputFile) then
 109                 warnlog "Saving test document failed -> Aborting"
 110                 Kontext "DocumentCalc"
 111                 DocumentCalc.TypeKeys "<Escape>"
 112                 call hCloseDocument
 113                 goto endsub
 114         endif
 115         Call hCloseDocument
 116
 117     Call hFileOpen(sOutputFile)
 118         if fSelectFirstOLE = -1 then
 119                 warnlog "It was not possible to select the chart object!"
 120                 Call hCloseDocument
 121                 goto endsub
 122         endif
 123
 124         EditObjectEdit
 125
 126     printlog "Select DataSeries A by toolbar selectorbox"
 127         call fChartSelectElement (8)
 128
 129         printlog "Invoke Format::ObjectProperties"
 130         Kontext "Toolbar"
 131         FormatSelection.Click
 132         Kontext
 133         Active.SetPage TabDataSeriesOptions
 134         Kontext "TabDataSeriesOptions"
 135         if Not IncludeHiddenCells.IsChecked then
 136                 Warnlog "After closing and reopening of Data-Series dialog the checkbox isn't checked anymore"
 137                 TabDataSeriesOptions.Cancel
 138                 Kontext "DocumentCalc"
 139                 DocumentCalc.TypeKeys "<Escape>"
 140                 call hCloseDocument
 141                 goto endsub
 142         endif
 143
 144         '/// Close dialog with Cancel-button
 145         TabDataSeriesOptions.Cancel
 146         '/// Close document
 147         Kontext "DocumentCalc"
 148         DocumentCalc.TypeKeys "<Escape>"
 149
 150         Call hCloseDocument
 151 endcase