AOO410/main/qadevOOo/tests/basic/ifc/formula/FormulaProperties/formula_FormulaProperties.xba

<?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="formula_FormulaProperties" script:language="StarBasic">


'*************************************************************************
'
'  Licensed to the Apache Software Foundation (ASF) under one
'  or more contributor license agreements.  See the NOTICE file
'  distributed with this work for additional information
'  regarding copyright ownership.  The ASF licenses this file
'  to you under the Apache License, Version 2.0 (the
'  "License"); you may not use this file except in compliance
'  with the License.  You may obtain a copy of the License at
'  
'    http://www.apache.org/licenses/LICENSE-2.0
'  
'  Unless required by applicable law or agreed to in writing,
'  software distributed under the License is distributed on an
'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
'  KIND, either express or implied.  See the License for the
'  specific language governing permissions and limitations
'  under the License.
'
'*************************************************************************





' Be sure that all variables are dimensioned:
option explicit



Sub RunTest()

'*************************************************************************
' SERVICE: 
' com.sun.star.formula.FormulaProperties
'*************************************************************************
On Error Goto ErrHndl
    Dim bOK As Boolean
    Dim align(1) As Integer

    align(0) = 1
    align(1) = 0
    
    PropertyTester.TestProperty("Alignment",align())

    PropertyTester.TestProperty("BaseFontHeight")

    PropertyTester.TestProperty("CustomFontNameFixed")

    PropertyTester.TestProperty("FontFixedIsItalic")

    PropertyTester.TestProperty("FontFixedIsBold")

    PropertyTester.TestProperty("CustomFontNameSans")

    PropertyTester.TestProperty("FontSansIsItalic")

    PropertyTester.TestProperty("FontSansIsBold")

    PropertyTester.TestProperty("CustomFontNameSerif")

    PropertyTester.TestProperty("FontSerifIsItalic")

    PropertyTester.TestProperty("FontSerifIsBold")

    PropertyTester.TestProperty("FontNameFunctions")

    PropertyTester.TestProperty("FontFunctionsIsItalic")

    PropertyTester.TestProperty("FontFunctionsIsBold")

    PropertyTester.TestProperty("FontNameNumbers")

    PropertyTester.TestProperty("FontNumbersIsItalic")

    PropertyTester.TestProperty("FontNumbersIsBold")

    PropertyTester.TestProperty("FontNameText")

    PropertyTester.TestProperty("FontTextIsItalic")

    PropertyTester.TestProperty("FontTextIsBold")

    PropertyTester.TestProperty("FontNameVariables")

    PropertyTester.TestProperty("FontVariablesIsItalic")

    PropertyTester.TestProperty("FontVariablesIsBold")

    PropertyTester.TestProperty("Formula")

    PropertyTester.TestProperty("IsScaleAllBrackets")

    PropertyTester.TestProperty("IsTextMode")

    PropertyTester.TestProperty("RelativeFontHeightFunctions")

    PropertyTester.TestProperty("RelativeFontHeightIndices")

    PropertyTester.TestProperty("RelativeFontHeightLimits")

    PropertyTester.TestProperty("RelativeFontHeightOperators")

    PropertyTester.TestProperty("RelativeFontHeightText")

    PropertyTester.TestProperty("RelativeBracketDistance")

    PropertyTester.TestProperty("RelativeBracketExcessSize")

    PropertyTester.TestProperty("RelativeFractionBarExcessLength")

    PropertyTester.TestProperty("RelativeFractionBarLineWeight")

    PropertyTester.TestProperty("RelativeFractionDenominatorDepth")

    PropertyTester.TestProperty("RelativeFractionNumeratorHeight")

    PropertyTester.TestProperty("RelativeIndexSubscript")

    PropertyTester.TestProperty("RelativeIndexSuperscript")

    PropertyTester.TestProperty("RelativeLineSpacing")

    PropertyTester.TestProperty("RelativeLowerLimitDistance")

    PropertyTester.TestProperty("RelativeMatrixColumnSpacing")

    PropertyTester.TestProperty("RelativeMatrixLineSpacing")

    PropertyTester.TestProperty("RelativeOperatorExcessSize")

    PropertyTester.TestProperty("RelativeOperatorSpacing")

    PropertyTester.TestProperty("RelativeRootSpacing")

    PropertyTester.TestProperty("RelativeScaleBracketExcessSize")

    PropertyTester.TestProperty("RelativeSpacing")

    PropertyTester.TestProperty("RelativeSymbolMinimumHeight")

    PropertyTester.TestProperty("RelativeSymbolPrimaryHeight")

    PropertyTester.TestProperty("RelativeUpperLimitDistance")

    PropertyTester.TestProperty("TopMargin")

    PropertyTester.TestProperty("BottomMargin")

    PropertyTester.TestProperty("LeftMargin")

    PropertyTester.TestProperty("RightMargin")

Exit Sub
ErrHndl:
    Test.Exception()
    bOK = false
    resume next
End Sub
</script:module>