'************************************************************************* ' ' 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.text.TextGraphicObject '************************************************************************* On Error Goto ErrHndl Dim bOK As Boolean PropertyTester.TestProperty("ContentProtected") PropertyTester.TestProperty("SurroundContour") PropertyTester.TestProperty("ContourOutside") Test.StartMethod("ContourPolyPolygon") ' Because in additional parameters we must to ' pass an array of values, we need such array. Dim aPParr1(1) As Variant Dim aPol1(3) As new com.sun.star.awt.Point Dim gArr As Variant bOK = true aPol1(0).x = 0 : aPol1(0).y = 0 aPol1(1).x = 101 : aPol1(1).y = 0 aPol1(2).x = 101 : aPol1(2).y = 101 aPol1(3).x = 0 : aPol1(3).y = 101 Dim aPol2(3) As new com.sun.star.awt.Point aPol2(0).x = 11 : aPol2(0).y = 11 aPol2(1).x = 90 : aPol2(1).y = 11 aPol2(2).x = 90 : aPol2(2).y = 90 aPol2(3).x = 11 : aPol2(3).y = 90 aPParr1(0) = aPol1() : aPParr1(1) = aPol2() oObj.setPropertyValue("ContourPolyPolygon", aPParr1()) gArr = oObj.getPropertyValue("ContourPolyPolygon") if isArray(gArr) AND ubound(gArr) >= 1 then Dim aP1 As Variant, aP2 As Variant aP1 = gArr(0) aP2 = gArr(1) bOK = bOK AND comparePointArrays(aPol1(), aP1, 0, 0, 4) bOK = bOK AND comparePointArrays(aPol2(), aP2, 0, 0, 4) ' One more point must be added to close the polygon bOK = bOK AND comparePointArrays(aPol1(), aP1, 0, 4, 1) bOK = bOK AND comparePointArrays(aPol2(), aP2, 0, 4, 1) else Out.Log("Returned value is invalid") Out.Log = false endif Test.MethodTested("ContourPolyPolygon", bOK) ' PropertyTester.TestProperty("ContourPolyPolygon",testArr()) Dim aCropArr(1) As Variant Dim Crop1 As Object Dim Crop2 As Object Crop1 = createUnoStruct("com.sun.star.text.GraphicCrop") Crop2 = createUnoStruct("com.sun.star.text.GraphicCrop") Crop1.Top = 11 : Crop1.Bottom = 11 : Crop1.Left = 11 : Crop1.Right = 11 Crop2.Top = -11 : Crop2.Bottom = 11 : Crop2.Left = -11 : Crop2.Right = 11 aCropArr(0) = Crop1 : aCropArr(1) = Crop2 PropertyTester.TestProperty("GraphicCrop",aCropArr()) PropertyTester.TestProperty("HoriMirroredOnEvenPages") PropertyTester.TestProperty("HoriMirroredOnOddPages") PropertyTester.TestProperty("VertMirrored") PropertyTester.TestProperty("GraphicURL") PropertyTester.TestProperty("GraphicFilter") PropertyTester.TestProperty("ActualSize") Dim oAdjustArr(4) As Integer oAdjustArr(0) = -100 oAdjustArr(1) = -50 oAdjustArr(2) = 0 oAdjustArr(3) = 50 oAdjustArr(4) = 100 PropertyTester.TestProperty("AdjustLuminance",oAdjustArr()) PropertyTester.TestProperty("AdjustContrast",oAdjustArr()) PropertyTester.TestProperty("AdjustRed",oAdjustArr()) PropertyTester.TestProperty("AdjustGreen",oAdjustArr()) PropertyTester.TestProperty("AdjustBlue",oAdjustArr()) PropertyTester.TestProperty("Gamma",oAdjustArr()) PropertyTester.TestProperty("GraphicIsInverted") PropertyTester.TestProperty("Transparency",oAdjustArr()) PropertyTester.TestProperty("GraphicColorMode") PropertyTester.TestProperty("ImageMap") PropertyTester.TestProperty("ActualSize") Exit Sub ErrHndl: Test.Exception() bOK = false resume next End Sub Function comparePointArrays(arr1 As Variant, arr2 As Variant, fromIdx1 As Integer, fromIdx2 As Integer, count As Integer) As Boolean On Error Goto ErrHndl Dim bOK As Boolean Dim i As Integer if NOT isArray(arr1) then Out.Log("First parameter is not Array.") comparePointArrays() = false exit Function endif if NOT isArray(arr2) then Out.Log("Second parameter is not Array.") comparePointArrays() = false exit Function endif if (lbound(arr1) > fromIdx1 OR ubound(arr1) < (fromIdx1 + count - 1)) then Out.Log("Invalid bounds of the first array") comparePointArrays() = false exit Function endif if (lbound(arr2) > fromIdx2 OR ubound(arr2) < (fromIdx2 + count - 1)) then Out.Log("Invalid bounds of the second array") comparePointArrays() = false exit Function endif bOK = true for i = 0 to count - 1 if arr1(fromIdx1 + i).x <> arr2(fromIdx2 + i).x OR _ arr1(fromIdx1 + i).y <> arr2(fromIdx2 + i).y then Out.Log("Points #" + i + " are different : (" + _ arr1(fromIdx1 + i).x + "," + arr1(fromIdx1 + i).y + "), (" + _ arr2(fromIdx2 + i).x + "," + arr2(fromIdx2 + i).y + ")." bOK = false end if next i comparePointArrays() = bOK exit Function ErrHndl: Test.Exception() comparePointArrays() = false End Function