1 files changed, 208 insertions, 0 deletions
diff --git a/testautomation/chart2/tools/ch_tools_common.inc b/testautomation/chart2/tools/ch_tools_common.inc
new file mode 100644
index 000000000000..ad9f2108f024
--- /dev/null
+++ b/testautomation/chart2/tools/ch_tools_common.inc
@@ -0,0 +1,208 @@
+'encoding UTF-8  Do not remove or change this line!
+'**************************************************************************
+' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+'
+' Copyright 2000, 2010 Oracle and/or its affiliates.
+'
+' OpenOffice.org - a multi-platform office productivity suite
+'
+' This file is part of OpenOffice.org.
+'
+' OpenOffice.org is free software: you can redistribute it and/or modify
+' it under the terms of the GNU Lesser General Public License version 3
+' only, as published by the Free Software Foundation.
+'
+' OpenOffice.org is distributed in the hope that it will be useful,
+' but WITHOUT ANY WARRANTY; without even the implied warranty of
+' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+' GNU Lesser General Public License version 3 for more details
+' (a copy is included in the LICENSE file that accompanied this code).
+'
+' You should have received a copy of the GNU Lesser General Public License
+' version 3 along with OpenOffice.org.  If not, see
+' <http://www.openoffice.org/license.html>
+' for a copy of the LGPLv3 License.
+'
+'/************************************************************************
+'*
+'* owner : oliver.craemer@oracle.com
+'*
+'* short description : Chart2 Tool library
+'*
+'\************************************************************************************************
+
+sub fInsertOLE() as boolean
+
+    ' Insert an OLE object (the name is localized)
+    call GetOleDefaultNames()
+
+    '/// Insert / Object / OLE
+    InsertObjectOLEObject
+
+    Kontext "OLEObjektEinfuegen"
+    if ( OLEObjektEinfuegen.exists( 1 ) ) then
+
+        if ( Objekttyp.getItemcount() = 0 ) then
+
+            warnlog( "fInsertOLE(): There are no OLE-Objects in the <Objekttyp> listbox" )
+            OLEObjektEinfuegen.cancel()
+            fInsertOLE() = false
+
+        else
+
+            try
+                Objekttyp.Select gOLEChart
+                OLEObjektEinfuegen.ok()
+                sleep( 2 )
+                fInsertOLE() = true
+            catch
+                warnlog( "fInsertOLE(): Invalid OLE Object selected: " & gOLEChart )
+                OLEObjektEinfuegen.cancel()
+                fInsertOLE() = false
+            endcatch
+
+        endif
+
+    else
+        warnlog( "fInsertOLE(): Failed to open <Insert OLE object> dialog" )
+        fInsertOLE() = false
+    endif
+    
+end sub
+'
+'--------------------------------------------------------------------
+'
+function fLoadVerySimpleChart() as INTEGER
+    fLoadVerySimpleChart = 99
+    'Load file with a very simple chart
+    'No Input
+    'Returns error-code:
+    '+ 0 := Sucess
+    '+ 1 := Serious problem trying to load the document
+    '+99 := Unexpected error
+
+    dim sInputFile as string
+    sInputFile = convertpath( gtesttoolpath & "chart2/required/input/verySimpleChart.ods" )
+    '/// Load file <i>gTesttoolpath</i>/chart2/required/input/verySimpleChart.ods
+    try
+        call hFileOpen ( sInputFile )
+        printlog "File with very simple chart loaded"
+        fLoadVerySimpleChart = 0
+    catch
+        qaErrorLog "Loading file with very simple chart seems to fail"
+        fLoadVerySimpleChart = 1
+    endcatch
+end function
+'
+'--------------------------------------------------------------------
+'
+function fLoadVerySimpleChartAndSaveLocal() as INTEGER
+    fLoadVerySimpleChartAndSaveLocal = 99
+    'Load file with a very simple chart and save it loacally
+    'No Input
+    'Returns error-code:
+    '+ 0 := Sucess
+    '+ 1 := Serious problem trying to load the document
+    '+ 2 := Serious problem trying to save the document
+
+    dim iCheckIsFileLoaded as INTEGER
+    dim sOutputFile as STRING
+    sOutputFile = convertpath( gOfficepath & "user/work/verySimpleChart.ods" )
+    iCheckIsFileLoaded = fLoadVerySimpleChart()
+    if iCheckIsFileLoaded > 0 then
+        'When loading fails pass error code to current function
+        fLoadVerySimpleChartAndSaveLocal = iCheckIsFileLoaded
+        exit function
+    else
+        printlog "File with very simple chart loaded successfully."
+    endif
+    '/// Save document local
+    Kontext "DocumentCalc"
+    DocumentCalc.TypeKeys "<ESCAPE>"
+    DocumentCalc.TypeKeys "<MOD1 HOME>"
+    if NOT hFileSaveAsKill (sOutputFile) then
+        fLoadVerySimpleChartAndSaveLocal = 2
+        qaErrorLog "Saving test document localy failed -> Aborting"
+        call hCloseDocument
+        exit function
+    else
+        printlog "File with very simple chart saved successfully."
+    endif
+    fLoadVerySimpleChartAndSaveLocal = 0
+end function
+'
+'--------------------------------------------------------------------
+'
+function fConvertChartTo3D() as BOOLEAN
+    fConvertChartTo3D = FALSE
+    'Function to invoke the 'Insert::Titles...' dialog
+    'No Input
+    'Returns TRUE on success
+
+    '/// Invoke Format::Chart Type...
+    if fInvokeChartTypeDialog() > 0 then
+        warnlog "Invoking 'Format::Chart Type...' seems to cause an Error"
+        exit function
+    endif
+    '/// Check 3D box
+    if fSetChartType3D ( TRUE ) = 0 then
+        fConvertChartTo3D = TRUE
+    else
+        warnlog "Converting chart to 3D seems to cause an Error"
+        exit function
+    endif
+    '/// Close Chart Type dialog with OK
+    if fCloseChartTypeDialogOK() > 0 then
+        warnlog "Closing Chart Type dialog seems to cause an Error"
+        fConvertChartTo3D = FALSE
+    endif
+end function
+'
+'-------------------------------------------------------------------------
+'
+function fOpenTestDocumentAndSelectDataRange(sInputFile as string) as BOOLEAN
+    fOpenTestDocumentAndSelectDataRange = FALSE
+    hFileOpenLocally(sInputFile)
+    '/// Select chart using navigator
+    printlog "Select chart using navigator"
+    call fSelectFirstOLE
+    '/// Edit / Object / Edit
+    printlog "Edit / Object / Edit"
+    EditObjectEdit
+    '///Open FORMAT / DATA RANGES
+    printlog "Open FORMAT / DATA RANGES"
+    FormatDataRanges
+    WaitSlot()
+    '///Switch to tabpage Data Range
+    printlog "Switch to tabpage Data Range"
+    Kontext
+    'Switching tabpages as workaround for #i77237#
+    Active.SetPage TabChartTypeDataSeries
+    QAErrorLog "#i77237#-Testtool can't access OK after switching tabpage"
+    Active.SetPage TabChartTypeDataRange
+    Kontext "TabChartTypeDataRange"
+    call DialogTest ( TabChartTypeDataRange )
+    fOpenTestDocumentAndSelectDataRange = TRUE
+end function
+'
+'-------------------------------------------------------------------------
+'
+function fOpenTestDocumentAndInsertChart(sInputFile as string) as BOOLEAN
+    fOpenTestDocumentAndInsertChart = FALSE
+    hFileOpenLocally(sInputFile)
+    Kontext "DocumentCalc"
+    printlog "Type <STRG+HOME>"
+    DocumentCalc.TypeKeys "<MOD1 HOME>"
+    printlog "Type twice <RIGHT> cursor key"
+    DocumentCalc.TypeKeys "<RIGHT>" , 2
+    printlog "Type thrice <DOWN> cursor key"
+    DocumentCalc.TypeKeys "<DOWN>" , 3
+    printlog "Menu Insert chart to open chart wizard"
+    InsertChart
+    try
+        WaitSlot()
+        fOpenTestDocumentAndInsertChart = TRUE
+    catch
+        fOpenTestDocumentAndInsertChart = FALSE
+    endcatch
+end function