testautomation/chart2/required/includes/ch2_wizard.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_wizard.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 : Create new Chart using the Wizard
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tCreateNewChart
  41 '*
  42 '\************************************************************************
  43
  44 testcase tCreateNewChart
  45 '///<u><b>Test creation of new chart using the Chart Wizard</b></u>
  46    dim sInputFile as string
  47    dim sOutputFile as string
  48    sInputFile = convertpath ( gtesttoolpath & "chart2/required/input/spreadsheetFile.ods" )
  49    sOutputFile = convertpath ( gOfficepath & "user/work/spreadsheetFile.ods" )
  50
  51    '/// Load test document <i>gTesttoolPath</i>/chart2/required/input/spreadsheetFile.ods
  52    call hFileOpen(sInputFile)
  53    sleep(2)
  54    '/// Save the document local <i>gOfficepath</i>user/work/spreadsheetFile[.ods]
  55    if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then
  56        warnlog "Saving test document localy failed -> Aborting"
  57        call hCloseDocument
  58        goto endsub
  59    endif
  60    '/// Insert / Chart
  61    InsertChart
  62    sleep(5)
  63    Kontext "ChartWizard"
  64    Call DialogTest ( ChartWizard )
  65    '/// In the Chart wizard switch to the <i>Chart Type</i> page
  66    Kontext "ChartType"
  67    Call DialogTest ( ChartType )
  68    '/// Switch to the <i>Data Range</i> page using <DOWN>-key
  69    Kontext "ChartWizard"
  70    GoNext.Click
  71    Kontext "TabChartTypeDataRange"
  72    Call DialogTest ( TabChartTypeDataRange )
  73    '/// Switch to the <i>Data Series</i> page using <i>Next >></i> button
  74    Kontext "ChartWizard"
  75    GoNext.Click
  76    Kontext "TabChartTypeDataSeries"
  77    Call DialogTest ( TabChartTypeDataSeries )
  78    '/// Switch to the <i>Chart Elements</i> page using <i>Next >></i> button
  79    Kontext "ChartWizard"
  80    GoNext.Click
  81    Kontext "TabChartTypeChartElements"
  82    Call DialogTest ( TabChartTypeChartElements )
  83    '/// Create Chart using <i>Finish</i> button
  84    Kontext "ChartWizard"
  85    ChartWizard.OK
  86    sleep(2)
  87    Kontext "DocumentCalc"
  88    DocumentCalc.TypeKeys "<Escape>"
  89    '/// Close document
  90    Call hCloseDocument
  91 endcase
  92