testautomation/chart2/optional/includes/wizard/ch2_lvl1_wizard2.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_lvl1_wizard2.inc,v $
  10 '*
  11 '* $Revision: 1.2 $
  12 '*
  13 '* last change: $Author: obo $ $Date: 2008-07-22 10:36:56 $
  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 : New chart types
  37 '*
  38 '************************************************************************
  39 '*
  40 ' #1 tCreateNewFilledNetChart      ' Create a new filled netchart and check the preserved values
  41 '*
  42 '\************************************************************************
  43
  44 testcase tCreateNewFilledNetChart
  45     Dim sInputFile as STRING
  46     Dim sOutputFile as STRING
  47     Dim sControlString as STRING
  48     Dim iChartVariant as integer
  49     Dim iChartVariantText as string
  50
  51
  52     sInputFile = convertpath ( gTesttoolPath & "chart2/optional/input/randomData.ods" )
  53     sOutputFile = convertpath ( gOfficePath & "user/work/tCreateNewFilledChart.ods" )
  54
  55
  56     printlog "Load test document TesttoolPath/chart2/optional/input/randomData.ods"
  57     call hFileOpen(sInputFile)
  58     sleep(2)
  59     printlog "Save document as OfficePath/user/work/tCreateNewFilledNetChart.ods"
  60     if NOT hFileSaveAsWithFilterKill ( sOutputFile , "calc8" ) then
  61         warnlog "Saving test document localy failed -> Aborting"
  62         call hCloseDocument
  63         goto endsub
  64     endif
  65     printlog "Insert / Chart"
  66     InsertChart
  67     sleep(5)
  68     Kontext "ChartType"
  69         if NOT ChartType.Exists(5) then
  70                 warnlog "Chart Wizard was not visible. EXITING!"
  71         goto endsub
  72     else
  73         printlog "Chart Wizard visible."
  74     end if
  75     printlog "Choose the Chart type net (should be the eights in the top-down list)"
  76     if fSetChartType( "net" ) > 0 then
  77         warnlog "Something went wrong setting chart type to BAR."
  78     endif
  79     printlog "Select 4th chart variant from left (filled)"
  80     if fSetChartTypeVariant( 4 ) > 0 then
  81         warnlog "Something went wrong setting chart type VARIANT."
  82     endif
  83         printlog "Create Chart by clicking Finish-button"
  84     Kontext "ChartWizard"
  85     ChartWizard.OK
  86     sleep(2)
  87     printlog "File / Save"
  88     FileSave
  89     Kontext "DocumentCalc"
  90     printlog "Press twice <ESCAPE>-key"
  91     DocumentCalc.TypeKeys "<Escape>" , 2
  92     printlog "File / Close document"
  93     Call hCloseDocument
  94     sleep(2)
  95     printlog "Open saved file again"
  96     call hFileOpen(sOutputFile)
  97     sleep(2)
  98     printlog "Open the Navigator (F5)"
  99     printlog "Select the first OLE object in the Navigator"
 100     call fSelectFirstOLE
 101     printlog "Edit / Object / Edit to enter Inplace Mode"
 102     EditObjectEdit
 103     printlog "Format / Chart Type"
 104     FormatChartType
 105     Kontext "ChartType"
 106     if ChartType.Exists(2) then
 107         printlog "Check if chart type is NET CHART"
 108         if ChooseType.GetSelIndex <> 8 then
 109             warnlog "Selected chart type wasn't preserved after save and reload."
 110         endif
 111         printlog "Check if chart variant is Filled Net CHART (4th variant in non-CTL versions from the left)"
 112         if Variant.GetSelIndex <> 4 then
 113             warnlog "Selected chart type variant wasn't preserved after save and reload."
 114         end if
 115         printlog "Leave Chart Type dialog with Cancel"
 116         Kontext "ChartType"
 117         if ChartType.Exists(2) then
 118                 ChartType.Cancel
 119             else
 120                 warnlog "ChartType dialog was not visible!?"
 121             end if
 122     else
 123         warnlog "Chart Type dialog was not up!"
 124     end if
 125         printlog "Press ESCAPE button (deselecting the OLE object)"
 126     Kontext "DocumentCalc"
 127     DocumentCalc.TypeKeys "<Escape>"
 128     printlog "Close document"
 129     Call hCloseDocument
 130 endcase