diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/chart/XChartDocument/chart_XChartDocument.xba')
-rw-r--r-- | qadevOOo/tests/basic/ifc/chart/XChartDocument/chart_XChartDocument.xba | 129 |
1 files changed, 0 insertions, 129 deletions
diff --git a/qadevOOo/tests/basic/ifc/chart/XChartDocument/chart_XChartDocument.xba b/qadevOOo/tests/basic/ifc/chart/XChartDocument/chart_XChartDocument.xba deleted file mode 100644 index a3db3fdd658f..000000000000 --- a/qadevOOo/tests/basic/ifc/chart/XChartDocument/chart_XChartDocument.xba +++ /dev/null @@ -1,129 +0,0 @@ -<?xml version="1.0" encoding="UTF-8"?> -<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> -<script:module xmlns:script="http://openoffice.org/2000/script" script:name="chart_XChartDocument" script:language="StarBasic"> - - -'************************************************************************* -' -' 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. -' -'************************************************************************* -'************************************************************************* - - - -' Be sure that all variables are dimensioned: -option explicit - - - -Sub RunTest() - -'************************************************************************* -' INTERFACE: -' com.sun.star.chart.XChartDocument -'************************************************************************* -On Error Goto ErrHndl - - Dim bOK As Boolean - Dim oGetArea As Object - Dim oGetData As Object - Dim oGetDiagram As Object, oNewDiagram As Object - Dim oGetLegend As Object - Dim oGetSubTitle As Object - Dim oGetTitle As Object - Dim oSetDiagram As Object - Dim oAttachData As Object - Dim oRange As Object - Dim oXChartData As Variant - Dim sColumn As Variant, sColumnNew As Variant - Dim vColumnNew As Variant, vColumn As Variant - - - Test.StartMethod("getArea()") - bOK = true - oGetArea = oObj.GetArea - bOK = bOK AND isNumeric(oGetArea.fillStyle) - Test.MethodTested("getArea()", bOK) - - Test.StartMethod("getData()") - bOK = true - oGetData = oObj.getData() - bOK = bOK AND (oGetData.RowDescriptions(0) > "") - Test.MethodTested("getData()", bOK) - - Test.StartMethod("getDiagram()") - bOK = true - oGetDiagram = oObj.getDiagram - bOK = bOK AND isNumeric(oGetDiagram.constantErrorHigh) - Test.MethodTested("getDiagram()", bOK) - - Test.StartMethod("getLegend()") - bOK = true - oGetLegend = oObj.getLegend - bOK = bOK AND isNumeric(oGetLegend.fillStyle) - Test.MethodTested("getLegend()", bOK) - - Test.StartMethod("getSubTitle()") - bOK = true - oGetSubTitle = oObj.getSubTitle - bOK = bOK AND isNumeric(ogetSubTitle.fillStyle) - Test.MethodTested("getSubTitle()", bOK) - - Test.StartMethod("getTitle()") - bOK = true - oGetTitle = oObj.getTitle() - bOK = bOK AND isNumeric(oGetTitle.fillStyle) - Test.MethodTested("getTitle()", bOK) - - Test.StartMethod("setDiagram()") - bOK = true - 'oGetDiagram = oObj.GetDiagram - oNewDiagram = oDoc.createInstance("com.sun.star.chart.PieDiagram") - oNewDiagram.DataCaption = oGetDiagram.DataCaption + 1 - oObj.setDiagram(oNewDiagram) - oGetDiagram = oObj.GetDiagram - bOK = bOK AND oGetDiagram.DataCaption = oNewDiagram.DataCaption - Test.MethodTested("setDiagram()", bOK) - - Test.StartMethod("attachData()") - bOK = true - oXChartData = oObj.getData() - vColumn = oXChartData.ColumnDescriptions - sColumn = vColumn(0) - vColumnNew = vColumn - vColumnNew(0) = vColumnNew(0) + cIfcShortName - oXChartData.ColumnDescriptions = vColumnNew - oObj.attachData(oXChartData) - sColumnNew = oXChartData.ColumnDescriptions - bOK = bOK AND (sColumn <> vColumnNew(0)) - Test.MethodTested("attachData()", bOK) - -Exit Sub -ErrHndl: - Test.Exception() - bOK = false - resume next -End Sub -</script:module> |