diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/text/TextTable/text_TextTable.xba')
-rw-r--r-- | qadevOOo/tests/basic/ifc/text/TextTable/text_TextTable.xba | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/text/TextTable/text_TextTable.xba b/qadevOOo/tests/basic/ifc/text/TextTable/text_TextTable.xba new file mode 100644 index 000000000000..96432c262f90 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/text/TextTable/text_TextTable.xba @@ -0,0 +1,128 @@ +<?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="text_TextTable" 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() + +'************************************************************************* +' SERVICE: +' com.sun.star.text.TextTable +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim border As Variant + Dim oldVal As Variant, newVal As Variant, getVal As Variant + + + PropertyTester.TestProperty("BreakType") + + PropertyTester.TestProperty("LeftMargin") + + PropertyTester.TestProperty("RightMargin") + + PropertyTester.TestProperty("HoriOrient", Array( _ + com.sun.star.text.HoriOrientation.NONE, _ + com.sun.star.text.HoriOrientation.RIGHT, _ + com.sun.star.text.HoriOrientation.CENTER, _ + com.sun.star.text.HoriOrientation.LEFT, _ + com.sun.star.text.HoriOrientation.INSIDE, _ + com.sun.star.text.HoriOrientation.OUTSIDE, _ + com.sun.star.text.HoriOrientation.FULL, _ + com.sun.star.text.HoriOrientation.LEFT_AND_WIDTH)) + + PropertyTester.TestProperty("KeepTogether") + + PropertyTester.TestProperty("Split") + + PropertyTester.TestProperty("PageNumberOffset", Array(1, 2)) + + PropertyTester.TestProperty("PageDescName", Array("First Page")) + + PropertyTester.TestProperty("RelativeWidth", Array(50, 100)) + + PropertyTester.TestProperty("RepeatHeadline") + + PropertyTester.TestProperty("ShadowFormat") + + PropertyTester.TestProperty("TopMargin") + + PropertyTester.TestProperty("BottomMargin") + + PropertyTester.TestProperty("BackTransparent") + + PropertyTester.TestProperty("Width") + + oldVal = oObj.ChartRowAsLabel + PropertyTester.TestProperty("ChartRowAsLabel") + oObj.ChartRowAsLabel = oldVal + + oldVal = oObj.ChartColumnAsLabel + PropertyTester.TestProperty("ChartColumnAsLabel") + oObj.ChartColumnAsLabel = oldVal + + border = oObj.TableBorder + oldVal = border.Distance + newVal = oldVal + 200 + border.Distance = newVal + + PropertyTester.TestProperty("TableBorder", Array(border)) + + PropertyTester.TestProperty("TableColumnSeparators") + + PropertyTester.TestProperty("TableColumnRelativeSum") + + PropertyTester.TestProperty("BackColor") + + PropertyTester.TestProperty("BackGraphicURL") + + PropertyTester.TestProperty("BackGraphicFilter") + + PropertyTester.TestProperty("BackGraphicLocation") + + oObj.HoriOrient = com.sun.star.text.HoriOrientation.CENTER + oObj.RelativeWidth = 50 + PropertyTester.TestProperty("IsWidthRelative", Array(FALSE)) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> |