diff options
Diffstat (limited to 'qadevOOo/tests/basic/ifc/drawing')
79 files changed, 3331 insertions, 0 deletions
diff --git a/qadevOOo/tests/basic/ifc/drawing/ConnectorProperties/drawing_ConnectorProperties.xba b/qadevOOo/tests/basic/ifc/drawing/ConnectorProperties/drawing_ConnectorProperties.xba new file mode 100644 index 000000000000..768064a4c1f4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/ConnectorProperties/drawing_ConnectorProperties.xba @@ -0,0 +1,75 @@ +<?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="drawing_ConnectorProperties" 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.drawing.ConnectorProperties +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("EdgeKind") + bOK = true + + oObj.EdgeKind = com.sun.star.drawing.ConnectorType.STANDARD + bOK = bOK AND oObj.EdgeKind = com.sun.star.drawing.ConnectorType.STANDARD + + oObj.EdgeKind = com.sun.star.drawing.ConnectorType.LINES + bOK = bOK AND oObj.EdgeKind = com.sun.star.drawing.ConnectorType.LINES + + Test.MethodTested("EdgeKind", bOK) + + PropertyTester.TestProperty("EdgeNode1HorzDist") + + PropertyTester.TestProperty("EdgeNode1VertDist") + + PropertyTester.TestProperty("EdgeNode2HorzDist") + + PropertyTester.TestProperty("EdgeNode2VertDist") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/ConnectorProperties/script.xlb b/qadevOOo/tests/basic/ifc/drawing/ConnectorProperties/script.xlb new file mode 100644 index 000000000000..8486237b69e7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/ConnectorProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_ConnectorProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_ConnectorProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/ConnectorShape/drawing_ConnectorShape.xba b/qadevOOo/tests/basic/ifc/drawing/ConnectorShape/drawing_ConnectorShape.xba new file mode 100644 index 000000000000..6109e3548b54 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/ConnectorShape/drawing_ConnectorShape.xba @@ -0,0 +1,74 @@ +<?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="drawing_ConnectorShape" 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.drawing.ConnectorShape +'************************************************************************* +On Error Goto ErrHndl + + + PropertyTester.TestProperty("StartShape") + + PropertyTester.TestProperty("StartGluePointIndex", Array(0,1)) + + PropertyTester.TestProperty("StartPosition") + + PropertyTester.TestProperty("EndShape") + + PropertyTester.TestProperty("EndPosition") + + PropertyTester.TestProperty("EndGluePointIndex", Array(0,1)) + + PropertyTester.TestProperty("EdgeLine1Delta") + + PropertyTester.TestProperty("EdgeLine2Delta") + + PropertyTester.TestProperty("EdgeLine3Delta") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/ConnectorShape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/ConnectorShape/script.xlb new file mode 100644 index 000000000000..6043a5acb53b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/ConnectorShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_ConnectorShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_ConnectorShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/DrawingDocument/drawing_DrawingDocument.xba b/qadevOOo/tests/basic/ifc/drawing/DrawingDocument/drawing_DrawingDocument.xba new file mode 100644 index 000000000000..658471297968 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/DrawingDocument/drawing_DrawingDocument.xba @@ -0,0 +1,62 @@ +<?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="drawing_DrawingDocument" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.DrawingDocument +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("TabStop") + + PropertyTester.TestProperty("CharLocale") + + PropertyTester.TestProperty("VisibleArea") + + PropertyTester.TestProperty("ForbiddenCharacters") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/DrawingDocument/script.xlb b/qadevOOo/tests/basic/ifc/drawing/DrawingDocument/script.xlb new file mode 100644 index 000000000000..91f58d890555 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/DrawingDocument/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_DrawingDocument" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_DrawingDocument"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/DrawingDocumentDrawView/drawing_DrawingDocumentDrawView.xba b/qadevOOo/tests/basic/ifc/drawing/DrawingDocumentDrawView/drawing_DrawingDocumentDrawView.xba new file mode 100644 index 000000000000..5a1491b9b715 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/DrawingDocumentDrawView/drawing_DrawingDocumentDrawView.xba @@ -0,0 +1,73 @@ +<?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="drawing_DrawingDocumentDrawView" 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.drawing.DrawingDocumentDrawView +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + PropertyTester.TestProperty("IsMasterPageMode") + + PropertyTester.TestProperty("IsLayerMode") + + PropertyTester.TestProperty("CurrentPage") + + PropertyTester.TestProperty("VisibleArea") + + oObj.IsMasterPageMode = false + oObj.IsLayerMode = false + + PropertyTester.TestProperty("ZoomType") + + PropertyTester.TestProperty("ZoomValue") + + PropertyTester.TestProperty("ViewOffset") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/DrawingDocumentDrawView/script.xlb b/qadevOOo/tests/basic/ifc/drawing/DrawingDocumentDrawView/script.xlb new file mode 100644 index 000000000000..b10a16611319 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/DrawingDocumentDrawView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_DrawingDocumentDrawView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_DrawingDocumentDrawView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/EllipseShape/drawing_EllipseShape.xba b/qadevOOo/tests/basic/ifc/drawing/EllipseShape/drawing_EllipseShape.xba new file mode 100644 index 000000000000..9b26d43e597d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/EllipseShape/drawing_EllipseShape.xba @@ -0,0 +1,71 @@ +<?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="drawing_EllipseShape" 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.drawing.EllipseShape +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("CircleKind") + bOK = true + + oObj.CircleKind = com.sun.star.drawing.CircleKind.FULL + bOK = bOK AND oObj.CircleKind = com.sun.star.drawing.CircleKind.FULL + + oObj.CircleKind = com.sun.star.drawing.CircleKind.SECTION + bOK = bOK AND oObj.CircleKind = com.sun.star.drawing.CircleKind.SECTION + + Test.MethodTested("CircleKind", bOK) + + PropertyTester.TestProperty("CircleStartAngle") + + PropertyTester.TestProperty("CircleEndAngle") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/EllipseShape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/EllipseShape/script.xlb new file mode 100644 index 000000000000..d0870d674175 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/EllipseShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_EllipseShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_EllipseShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/FillProperties/drawing_FillProperties.xba b/qadevOOo/tests/basic/ifc/drawing/FillProperties/drawing_FillProperties.xba new file mode 100644 index 000000000000..c21e4e4e261b --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/FillProperties/drawing_FillProperties.xba @@ -0,0 +1,121 @@ +<?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="drawing_FillProperties" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.FillProperties +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("FillStyle") + oObj.FillStyle = com.sun.star.drawing.FillStyle.SOLID + + PropertyTester.TestProperty("FillColor") + + PropertyTester.TestProperty("FillTransparence") + + Dim aTranspNames(1) As String + aTranspNames(0) = "Transparency 2" + aTranspNames(1) = "Transparency 1" + PropertyTester.TestProperty("FillTransparenceGradientName", aTranspNames()) + + PropertyTester.TestProperty("FillTransparenceGradient") + + Dim aGradientNames(1) As String + aGradientNames(0) = "Gradient 2" + aGradientNames(1) = "Gradient 1" + PropertyTester.TestProperty("FillGradientName", aGradientNames()) + + PropertyTester.TestProperty("FillGradient") + + Dim aHatchNames(1) As String + aHatchNames(0) = "Black 0 Degrees" + aHatchNames(1) = "Black 45 Degrees" + PropertyTester.TestProperty("FillHatchName", aHatchNames()) + + PropertyTester.TestProperty("FillHatch") + + Dim aBitmapNames(1) As String + aBitmapNames(0) = "Sky" + aBitmapNames(1) = "Metal" + PropertyTester.TestProperty("FillBitmapName", aBitmapNames()) + + PropertyTester.TestProperty("FillBitmap") + + Test.StartMethod("FillBitmapURL") + Dim sURL1 As String + Dim sURL2 As String + oObj.setPropertyValue("FillBitmapURL", utils.Path2URL(cTestDocsDir) & "crazy-blue.jpg") + sURL1 = oObj.getPropertyValue("FillBitmapURL") + oObj.setPropertyValue("FillBitmapURL", utils.Path2URL(cTestDocsDir) & "space-metal.jpg") + sURL2 = oObj.getPropertyValue("FillBitmapURL") + Test.MethodTested("FillBitmapURL", sURL1 <> sURL2) + + Dim aOffsets(1) As Integer + aOffsets(0) = 10 + aOffsets(1) = -10 + PropertyTester.TestProperty("FillBitmapOffsetX", aOffsets()) + + PropertyTester.TestProperty("FillBitmapOffsetY", aOffsets()) + + PropertyTester.TestProperty("FillBitmapPositionOffsetX", aOffsets()) + + PropertyTester.TestProperty("FillBitmapPositionOffsetY", aOffsets()) + + PropertyTester.TestProperty("FillBitmapRectanglePoint") + + PropertyTester.TestProperty("FillBitmapLogicalSize") + + PropertyTester.TestProperty("FillBitmapSizeX") + + PropertyTester.TestProperty("FillBitmapSizeY") + + PropertyTester.TestProperty("FillBitmapMode") + + PropertyTester.TestProperty("FillBackground") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/FillProperties/drawing__FillProperties.xba b/qadevOOo/tests/basic/ifc/drawing/FillProperties/drawing__FillProperties.xba new file mode 100644 index 000000000000..153acfcb9ae3 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/FillProperties/drawing__FillProperties.xba @@ -0,0 +1,121 @@ +<?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="drawing__FillProperties" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.FillProperties +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("FillStyle") + oObj.FillStyle = com.sun.star.drawing.FillStyle.SOLID + + PropertyTester.TestProperty("FillColor") + + PropertyTester.TestProperty("FillTransparence") + + Dim aTranspNames(1) As String + aTranspNames(0) = "Transparency 2" + aTranspNames(1) = "Transparency 1" + PropertyTester.TestProperty("FillTransparenceGradientName", aTranspNames()) + + PropertyTester.TestProperty("FillTransparenceGradient") + + Dim aGradientNames(1) As String + aGradientNames(0) = "Gradient 2" + aGradientNames(1) = "Gradient 1" + PropertyTester.TestProperty("FillGradientName", aGradientNames()) + + PropertyTester.TestProperty("FillGradient") + + Dim aHatchNames(1) As String + aHatchNames(0) = "Black 0 Degrees" + aHatchNames(1) = "Black 45 Degrees" + PropertyTester.TestProperty("FillHatchName", aHatchNames()) + + PropertyTester.TestProperty("FillHatch") + + Dim aBitmapNames(1) As String + aBitmapNames(0) = "Sky" + aBitmapNames(1) = "Metal" + PropertyTester.TestProperty("FillBitmapName", aBitmapNames()) + + PropertyTester.TestProperty("FillBitmap") + + Test.StartMethod("FillBitmapURL") + Dim sURL1 As String + Dim sURL2 As String + oObj.setPropertyValue("FillBitmapURL", utils.Path2URL(cTestDocsDir) & "crazy-blue.jpg") + sURL1 = oObj.getPropertyValue("FillBitmapURL") + oObj.setPropertyValue("FillBitmapURL", utils.Path2URL(cTestDocsDir) & "space-metal.jpg") + sURL2 = oObj.getPropertyValue("FillBitmapURL") + Test.MethodTested("FillBitmapURL", sURL1 <> sURL2) + + Dim aOffsets(1) As Integer + aOffsets(0) = 10 + aOffsets(1) = -10 + PropertyTester.TestProperty("FillBitmapOffsetX", aOffsets()) + + PropertyTester.TestProperty("FillBitmapOffsetY", aOffsets()) + + PropertyTester.TestProperty("FillBitmapPositionOffsetX", aOffsets()) + + PropertyTester.TestProperty("FillBitmapPositionOffsetY", aOffsets()) + + PropertyTester.TestProperty("FillBitmapRectanglePoint") + + PropertyTester.TestProperty("FillBitmapLogicalSize") + + PropertyTester.TestProperty("FillBitmapSizeX") + + PropertyTester.TestProperty("FillBitmapSizeY") + + PropertyTester.TestProperty("FillBitmapMode") + + PropertyTester.TestProperty("FillBackground") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/FillProperties/script.xlb b/qadevOOo/tests/basic/ifc/drawing/FillProperties/script.xlb new file mode 100644 index 000000000000..5f614032af7f --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/FillProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing__FillProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing__FillProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/GenericDrawPage/drawing_GenericDrawPage.xba b/qadevOOo/tests/basic/ifc/drawing/GenericDrawPage/drawing_GenericDrawPage.xba new file mode 100644 index 000000000000..5fd135250122 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/GenericDrawPage/drawing_GenericDrawPage.xba @@ -0,0 +1,71 @@ +<?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="drawing_GenericDrawPage" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.GenericDrawPage +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + PropertyTester.TestProperty("BorderBottom") + + PropertyTester.TestProperty("BorderLeft") + + PropertyTester.TestProperty("BorderRight") + + PropertyTester.TestProperty("BorderTop") + + PropertyTester.TestProperty("Height") + + PropertyTester.TestProperty("Width") + + PropertyTester.TestProperty("Number") + + PropertyTester.TestProperty("Orientation") + + PropertyTester.TestProperty("UserDefinedAttributes") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/GenericDrawPage/script.xlb b/qadevOOo/tests/basic/ifc/drawing/GenericDrawPage/script.xlb new file mode 100644 index 000000000000..d8c0d476a667 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/GenericDrawPage/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_GenericDrawPage" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_GenericDrawPage"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/GraphicObjectShape/drawing_GraphicObjectShape.xba b/qadevOOo/tests/basic/ifc/drawing/GraphicObjectShape/drawing_GraphicObjectShape.xba new file mode 100644 index 000000000000..2c2d98de63a8 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/GraphicObjectShape/drawing_GraphicObjectShape.xba @@ -0,0 +1,82 @@ +<?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="drawing_GraphicObjectShape" 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.drawing.GraphicObjectShape +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim bitmapURL As Variant + bitmapURL = Array(Path2URL(cTestDocsDir + "space-metal.jpg")) + PropertyTester.TestProperty("GraphicURL", bitmapURL) + + PropertyTester.TestProperty("GraphicStreamURL", bitmapURL) + + PropertyTester.TestProperty("GraphicObjectFillBitmap") + + PropertyTester.TestProperty("AdjustLuminance") + + PropertyTester.TestProperty("AdjustContrast") + + PropertyTester.TestProperty("AdjustRed") + + PropertyTester.TestProperty("AdjustGreen") + + PropertyTester.TestProperty("AdjustBlue") + + PropertyTester.TestProperty("Gamma") + + PropertyTester.TestProperty("Transparency") + + PropertyTester.TestProperty("GraphicColorMode") + + PropertyTester.TestProperty("ImageMap") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/GraphicObjectShape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/GraphicObjectShape/script.xlb new file mode 100644 index 000000000000..9d98198fb73a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/GraphicObjectShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_GraphicObjectShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_GraphicObjectShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/Layer/drawing_Layer.xba b/qadevOOo/tests/basic/ifc/drawing/Layer/drawing_Layer.xba new file mode 100644 index 000000000000..5f51a9ba1370 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/Layer/drawing_Layer.xba @@ -0,0 +1,62 @@ +<?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="drawing_Layer" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.Layer +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("Name") + + PropertyTester.TestProperty("IsVisible") + + PropertyTester.TestProperty("IsPrintable") + + PropertyTester.TestProperty("IsLocked") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/Layer/script.xlb b/qadevOOo/tests/basic/ifc/drawing/Layer/script.xlb new file mode 100644 index 000000000000..0d4e2808bfae --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/Layer/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_Layer" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_Layer"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/LineProperties/drawing_LineProperties.xba b/qadevOOo/tests/basic/ifc/drawing/LineProperties/drawing_LineProperties.xba new file mode 100644 index 000000000000..753424d0d24d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/LineProperties/drawing_LineProperties.xba @@ -0,0 +1,92 @@ +<?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="drawing_LineProperties" 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.drawing.LineProperties +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim dash As Variant + + PropertyTester.TestProperty("LineStyle") + + dash = oObj.LineDash + dash.Style = com.sun.star.drawing.DashStyle.RECT + dash.Dots = dash.Dots + 1 + PropertyTester.TestProperty("LineDash", Array(dash)) + + PropertyTester.TestProperty("LineColor") + + PropertyTester.TestProperty("LineTransparence") + + Dim aLineWidth(1) As Integer + aLineWidth(0) = 12 + aLineWidth(1) = 7 + PropertyTester.TestProperty("LineWidth", aLineWidth()) + + PropertyTester.TestProperty("LineJoint") + + Dim LineName(0 to 1) As String + LineName(0) = "Arrow" + LineName(1) = "Square" + PropertyTester.TestProperty("LineStartName",LineName()) + + PropertyTester.TestProperty("LineStart") + + PropertyTester.TestProperty("LineEnd") + + PropertyTester.TestProperty("LineStartCenter") + + PropertyTester.TestProperty("LineStartWidth") + + PropertyTester.TestProperty("LineEndCenter") + + PropertyTester.TestProperty("LineEndWidth") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/LineProperties/script.xlb b/qadevOOo/tests/basic/ifc/drawing/LineProperties/script.xlb new file mode 100644 index 000000000000..92aa636c37b4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/LineProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_LineProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_LineProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/MeasureProperties/drawing_MeasureProperties.xba b/qadevOOo/tests/basic/ifc/drawing/MeasureProperties/drawing_MeasureProperties.xba new file mode 100644 index 000000000000..70f7a945d2b4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/MeasureProperties/drawing_MeasureProperties.xba @@ -0,0 +1,120 @@ +<?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="drawing_MeasureProperties" 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.drawing.MeasureProperties +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + + PropertyTester.TestProperty("MeasureBelowReferenceEdge") + + PropertyTester.TestProperty("MeasureHelpLine1Length") + + PropertyTester.TestProperty("MeasureHelpLine2Length") + + PropertyTester.TestProperty("MeasureHelpLineDistance") + + PropertyTester.TestProperty("MeasureHelpLineOverhang") + + Test.StartMethod("MeasureKind") + bOK = true + + oObj.MeasureKind = com.sun.star.drawing.MeasureKind.STANDARD + bOK = bOK AND oObj.MeasureKind = com.sun.star.drawing.MeasureKind.STANDARD + + oObj.MeasureKind = com.sun.star.drawing.MeasureKind.RADIUS + bOK = bOK AND oObj.MeasureKind = com.sun.star.drawing.MeasureKind.RADIUS + + Test.MethodTested("MeasureKind", bOK) + + PropertyTester.TestProperty("MeasureLineDistance") + + PropertyTester.TestProperty("MeasureOverhang") + + PropertyTester.TestProperty("MeasureShowUnit") + + PropertyTester.TestProperty("MeasureTextAutoAngle") + + PropertyTester.TestProperty("MeasureTextAutoAngleView") + + PropertyTester.TestProperty("MeasureTextFixedAngle") + + Test.StartMethod("MeasureTextHorizontalPosition") + bOK = true + + oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.AUTO + bOK = bOK AND oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.AUTO + + oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.LEFTOUTSIDE + bOK = bOK AND oObj.MeasureTextHorizontalPosition = com.sun.star.drawing.MeasureTextHorzPos.LEFTOUTSIDE + + Test.MethodTested("MeasureTextHorizontalPosition", bOK) + + Test.StartMethod("MeasureTextVerticalPosition") + bOK = true + + oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.AUTO + bOK = bOK AND oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.AUTO + + oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.EAST + bOK = bOK AND oObj.MeasureTextVerticalPosition = com.sun.star.drawing.MeasureTextVertPos.EAST + + Test.MethodTested("MeasureTextVerticalPosition", bOK) + + PropertyTester.TestProperty("MeasureTextIsFixedAngle") + + PropertyTester.TestProperty("MeasureTextRotate90") + + PropertyTester.TestProperty("MeasureTextUpsideDown") + + PropertyTester.TestProperty("MeasureDecimalPlaces") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/MeasureProperties/script.xlb b/qadevOOo/tests/basic/ifc/drawing/MeasureProperties/script.xlb new file mode 100644 index 000000000000..5be031e60bb7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/MeasureProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_MeasureProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_MeasureProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/MeasureShape/drawing_MeasureShape.xba b/qadevOOo/tests/basic/ifc/drawing/MeasureShape/drawing_MeasureShape.xba new file mode 100644 index 000000000000..9157106d7201 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/MeasureShape/drawing_MeasureShape.xba @@ -0,0 +1,61 @@ +<?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="drawing_MeasureShape" 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.drawing.MeasureShape +'************************************************************************* +On Error Goto ErrHndl + + Dim bOK As Boolean + + PropertyTester.TestProperty("StartPosition") + + PropertyTester.TestProperty("EndPosition") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/MeasureShape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/MeasureShape/script.xlb new file mode 100644 index 000000000000..6e5ca92a8d58 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/MeasureShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_MeasureShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_MeasureShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/PolyPolygonBezierDescriptor/drawing_PolyPolygonBezierDescriptor.xba b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonBezierDescriptor/drawing_PolyPolygonBezierDescriptor.xba new file mode 100644 index 000000000000..bf855ddd6ddb --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonBezierDescriptor/drawing_PolyPolygonBezierDescriptor.xba @@ -0,0 +1,60 @@ +<?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="drawing_PolyPolygonBezierDescriptor" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.PolyPolygonBezierDescriptor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("PolygonKind") + + PropertyTester.TestProperty("PolyPolygonBezier") + + PropertyTester.TestProperty("Geometry") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/PolyPolygonBezierDescriptor/script.xlb b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonBezierDescriptor/script.xlb new file mode 100644 index 000000000000..6533bbbf6b56 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonBezierDescriptor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_PolyPolygonBezierDescriptor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_PolyPolygonBezierDescriptor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/PolyPolygonDescriptor/drawing_PolyPolygonDescriptor.xba b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonDescriptor/drawing_PolyPolygonDescriptor.xba new file mode 100644 index 000000000000..f98b2c204bb3 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonDescriptor/drawing_PolyPolygonDescriptor.xba @@ -0,0 +1,60 @@ +<?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="drawing_PolyPolygonDescriptor" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.PolyPolygonDescriptor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("PolygonKind") + + PropertyTester.TestProperty("PolyPolygon") + + PropertyTester.TestProperty("Geometry") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/PolyPolygonDescriptor/script.xlb b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonDescriptor/script.xlb new file mode 100644 index 000000000000..78c42a61d5ca --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/PolyPolygonDescriptor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_PolyPolygonDescriptor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_PolyPolygonDescriptor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/RotationDescriptor/drawing_RotationDescriptor.xba b/qadevOOo/tests/basic/ifc/drawing/RotationDescriptor/drawing_RotationDescriptor.xba new file mode 100644 index 000000000000..018b938f8883 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/RotationDescriptor/drawing_RotationDescriptor.xba @@ -0,0 +1,64 @@ +<?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="drawing_RotationDescriptor" 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.drawing.RotationDescriptor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim newRot As Variant + newRot = Array( oObj.RotateAngle + 200 ) + PropertyTester.TestProperty("RotateAngle", newRot) + + Dim newShAn As Variant + newShAn = Array( oObj.ShearAngle + 200 ) + PropertyTester.TestProperty("ShearAngle", newShAn) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/RotationDescriptor/script.xlb b/qadevOOo/tests/basic/ifc/drawing/RotationDescriptor/script.xlb new file mode 100644 index 000000000000..f6f8b90e5734 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/RotationDescriptor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_RotationDescriptor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_RotationDescriptor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/ShadowProperties/drawing_ShadowProperties.xba b/qadevOOo/tests/basic/ifc/drawing/ShadowProperties/drawing_ShadowProperties.xba new file mode 100644 index 000000000000..c69dc78d7615 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/ShadowProperties/drawing_ShadowProperties.xba @@ -0,0 +1,64 @@ +<?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="drawing_ShadowProperties" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.ShadowProperties +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("Shadow") + + PropertyTester.TestProperty("ShadowColor") + + PropertyTester.TestProperty("ShadowTransparence") + + PropertyTester.TestProperty("ShadowXDistance") + + PropertyTester.TestProperty("ShadowYDistance") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/ShadowProperties/script.xlb b/qadevOOo/tests/basic/ifc/drawing/ShadowProperties/script.xlb new file mode 100644 index 000000000000..8ab2fdc4f855 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/ShadowProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_ShadowProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_ShadowProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/Shape/drawing_Shape.xba b/qadevOOo/tests/basic/ifc/drawing/Shape/drawing_Shape.xba new file mode 100644 index 000000000000..5662f10cd1a4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/Shape/drawing_Shape.xba @@ -0,0 +1,93 @@ +<?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="drawing_Shape" 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.drawing.Shape +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim ZOrderArr As Variant + ZOrderArr = Array(1, 0) + PropertyTester.TestProperty("ZOrder",ZOrderArr) + + PropertyTester.TestProperty("LayerID", ZOrderArr) + + Dim aLayersNames As Variant + If oObj.LayerName = "layout" Then + aLayersNames = Array("controls") + Else If oObj.LayerName = "Hell" Then + aLayersNames = Array("Heaven") + Else + aLayersNames = Array("layout") + End If + End If + + PropertyTester.TestProperty("LayerName", aLayersNames) + + PropertyTester.TestProperty("Printable") + + PropertyTester.TestProperty("MoveProtect") + + PropertyTester.TestProperty("Name") + + PropertyTester.TestProperty("SizeProtect") + + PropertyTester.TestProperty("Style") + + If cObjectName = "svx.SvxShapeConnector" Then + Test.StartMethod("Transformation") + Test.MethodTested("Transformation", True) + Else + PropertyTester.TestProperty("Transformation") + End If + + PropertyTester.TestProperty("ShapeUserDefinedAttributes") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/Shape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/Shape/script.xlb new file mode 100644 index 000000000000..7978b2c1b73c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/Shape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_Shape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_Shape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/TextProperties/drawing_TextProperties.xba b/qadevOOo/tests/basic/ifc/drawing/TextProperties/drawing_TextProperties.xba new file mode 100644 index 000000000000..f86a3bc1bdc9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/TextProperties/drawing_TextProperties.xba @@ -0,0 +1,104 @@ +<?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="drawing_TextProperties" 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.drawing.TextProperties +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + PropertyTester.TestProperty("IsNumbering") + + PropertyTester.TestProperty("NumberingRules") + + PropertyTester.TestProperty("TextContourFrame") + + PropertyTester.TestProperty("TextAutoGrowHeight") + + PropertyTester.TestProperty("TextAutoGrowWidth") + + PropertyTester.TestProperty("TextFitToSize") + + PropertyTester.TestProperty("TextHorizontalAdjust") + + PropertyTester.TestProperty("TextVerticalAdjust") + + PropertyTester.TestProperty("TextLeftDistance") + + PropertyTester.TestProperty("TextRightDistance") + + PropertyTester.TestProperty("TextUpperDistance") + + PropertyTester.TestProperty("TextLowerDistance") + + PropertyTester.TestProperty("TextMaximumFrameHeight") + + PropertyTester.TestProperty("TextMaximumFrameWidth") + + PropertyTester.TestProperty("TextMinimumFrameHeight") + + PropertyTester.TestProperty("TextMinimumFrameWidth") + + PropertyTester.TestProperty("TextAnimationAmount") + + PropertyTester.TestProperty("TextAnimationCount") + + PropertyTester.TestProperty("TextAnimationDelay") + + PropertyTester.TestProperty("TextAnimationDirection") + + PropertyTester.TestProperty("TextAnimationKind") + + PropertyTester.TestProperty("TextAnimationStartInside") + + PropertyTester.TestProperty("TextAnimationStopInside") + + PropertyTester.TestProperty("TextWritingMode") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/TextProperties/script.xlb b/qadevOOo/tests/basic/ifc/drawing/TextProperties/script.xlb new file mode 100644 index 000000000000..edd89b72ce37 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/TextProperties/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_TextProperties" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_TextProperties"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/TextShape/drawing_TextShape.xba b/qadevOOo/tests/basic/ifc/drawing/TextShape/drawing_TextShape.xba new file mode 100644 index 000000000000..29dfba17ec86 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/TextShape/drawing_TextShape.xba @@ -0,0 +1,56 @@ +<?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="drawing_TextShape" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' SERVICE: +' com.sun.star.drawing.TextShape +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + PropertyTester.TestProperty("CornerRadius") + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/TextShape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/TextShape/script.xlb new file mode 100644 index 000000000000..4a03ef26f435 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/TextShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_TextShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_TextShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XControlShape/drawing_XControlShape.xba b/qadevOOo/tests/basic/ifc/drawing/XControlShape/drawing_XControlShape.xba new file mode 100644 index 000000000000..194dbef71636 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XControlShape/drawing_XControlShape.xba @@ -0,0 +1,82 @@ +<?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="drawing_XControlShape" 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. +' +'************************************************************************* +'************************************************************************* + + + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oControlToSet As Object + +'************************************************************************* + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XControlShape +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("getControl()") + bOK = true + oControl = oObj.getControl() + bOK = bOK AND NOT isNULL(oControl) + bOK = bOK AND hasUnoInterfaces(oControl, "com.sun.star.awt.XControlModel") + + Test.MethodTested("getControl()", bOK) + + Test.StartMethod("setControl()") + bOK = true + if NOT hasUnoInterfaces(oControlToSet, "com.sun.star.awt.XControlModel") then + Out.Log("oControlToSet wasn't correctly set while object creation ... ") + bOK = false + else + oObj.setControl(oControlToSet) + bOK = bOK AND oControlToSet.implementationName = oObj.getControl().implementationName + end if + + Test.MethodTested("setControl()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XControlShape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XControlShape/script.xlb new file mode 100644 index 000000000000..97e313291ee0 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XControlShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XControlShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XControlShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageDuplicator/drawing_XDrawPageDuplicator.xba b/qadevOOo/tests/basic/ifc/drawing/XDrawPageDuplicator/drawing_XDrawPageDuplicator.xba new file mode 100644 index 000000000000..a1eb32c56bce --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageDuplicator/drawing_XDrawPageDuplicator.xba @@ -0,0 +1,74 @@ +<?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="drawing_XDrawPageDuplicator" 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. +' +'************************************************************************* +'************************************************************************* + + + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oCollection As Object = oDoc.DrawPages(0) + +'************************************************************************* + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XDrawPageDuplicator +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oCopy As Object + + Test.StartMethod("duplicate()") + bOK = true + oCopy = oObj.duplicate(oCollection) + if NOT isNull(oCopy) Then + bOK = bOK AND (oCollection.dbg_properties = oCopy.dbg_properties) + else + bOK = false + end if + Test.MethodTested("duplicate()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageDuplicator/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XDrawPageDuplicator/script.xlb new file mode 100644 index 000000000000..8670b4bbe277 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageDuplicator/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XDrawPageDuplicator" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XDrawPageDuplicator"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageExpander/drawing_XDrawPageExpander.xba b/qadevOOo/tests/basic/ifc/drawing/XDrawPageExpander/drawing_XDrawPageExpander.xba new file mode 100644 index 000000000000..8628c720cf6c --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageExpander/drawing_XDrawPageExpander.xba @@ -0,0 +1,64 @@ +<?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="drawing_XDrawPageExpander" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XDrawPageExpander +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("expand()") + bOK = true + Dim Pages As Object + + Pages = oObj.Expand(oObj(0)) + bOK = bOK AND NOT isNULL(Pages) + bOK = bOK AND hasUnoInterfaces(Pages, "com.sun.star.drawing.XDrawPages") + Test.MethodTested("expand()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageExpander/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XDrawPageExpander/script.xlb new file mode 100644 index 000000000000..4eb58e1452d7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageExpander/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XDrawPageExpander" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XDrawPageExpander"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageSummarizer/drawing_XDrawPageSummarizer.xba b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSummarizer/drawing_XDrawPageSummarizer.xba new file mode 100644 index 000000000000..0b40602ee4e4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSummarizer/drawing_XDrawPageSummarizer.xba @@ -0,0 +1,63 @@ +<?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="drawing_XDrawPageSummarizer" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XDrawPageSummarizer +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oSummary As Object + + + Test.StartMethod("summarize()") + bOK = true + oSummary = oObj.Summarize(oObj) + bOK = NOT isNULL(oSummary) + bOK = bOK AND hasUnoInterfaces(oSummary, "com.sun.star.drawing.XDrawPage") + Test.MethodTested("summarize()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageSummarizer/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSummarizer/script.xlb new file mode 100644 index 000000000000..a3d8a8fd5a86 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSummarizer/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XDrawPageSummarizer" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XDrawPageSummarizer"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageSupplier/drawing_XDrawPageSupplier.xba b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSupplier/drawing_XDrawPageSupplier.xba new file mode 100644 index 000000000000..6e3366aef41f --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSupplier/drawing_XDrawPageSupplier.xba @@ -0,0 +1,57 @@ +<?xml version="1.0" encoding="UTF-8"?> +<script:module xmlns:script="http://openoffice.org/2000/script" script:name="drawing_XDrawPageSupplier" 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.drawing.XDrawPageSupplier +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oDrawPage as Object + + Test.startMethod("getDrawPage()" + bOK = TRUE + oDrawPage = oObj.getDrawPage() + bOK = bOK AND hasUnoInterfaces(oDrawPage, "com.sun.star.drawing.XDrawPage") + Test.MethodTested("getDrawPage()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPageSupplier/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSupplier/script.xlb new file mode 100644 index 000000000000..0c7dd82c381d --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPageSupplier/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> + <library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XDrawPageSupplier" library:readonly="false" library:passwordprotected="false"> + <library:element library:name="drawing_XDrawPageSupplier"/> + </library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPages/drawing_XDrawPages.xba b/qadevOOo/tests/basic/ifc/drawing/XDrawPages/drawing_XDrawPages.xba new file mode 100644 index 000000000000..680eb2d778d3 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPages/drawing_XDrawPages.xba @@ -0,0 +1,71 @@ +<?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="drawing_XDrawPages" 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.drawing.XDrawPages +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim nCount As Integer + Dim oPage As Object + + Test.StartMethod("insertNewByIndex()") + bOK = true + nCount = oObj.Count + oPage = oObj.insertNewByIndex(nCount) + bOK = bOK AND nCount <> oObj.Count() + Test.MethodTested("insertNewByIndex()", bOK) + + Test.StartMethod("remove()") + bOK = true + oObj.remove(oPage) + bOK = bOK AND nCount = oObj.Count + Test.MethodTested("remove()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPages/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XDrawPages/script.xlb new file mode 100644 index 000000000000..13a057bea7ad --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPages/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XDrawPages" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XDrawPages"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPagesSupplier/drawing_XDrawPagesSupplier.xba b/qadevOOo/tests/basic/ifc/drawing/XDrawPagesSupplier/drawing_XDrawPagesSupplier.xba new file mode 100644 index 000000000000..df376a73bea7 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPagesSupplier/drawing_XDrawPagesSupplier.xba @@ -0,0 +1,60 @@ +<?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="drawing_XDrawPagesSupplier" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XDrawPagesSupplier +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Test.StartMethod("getDrawPages()") + bOK = true + oDrawPages = oObj.getDrawPages() + bOK = bOK AND NOT isNull(oDrawPages) + bOK = bOK AND hasUnoInterfaces(oDrawPages, "com.sun.star.drawing.XDrawPages") + Test.MethodTested("getDrawPages()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawPagesSupplier/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XDrawPagesSupplier/script.xlb new file mode 100644 index 000000000000..2f038f684eb3 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawPagesSupplier/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XDrawPagesSupplier" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XDrawPagesSupplier"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawView/drawing_XDrawView.xba b/qadevOOo/tests/basic/ifc/drawing/XDrawView/drawing_XDrawView.xba new file mode 100644 index 000000000000..a68a5bd32bcd --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawView/drawing_XDrawView.xba @@ -0,0 +1,89 @@ +<?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="drawing_XDrawView" 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 + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oPages As Object Collection of pages + +'************************************************************************* + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XDrawView +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oCurrPage As Object + Dim oOldCurPage As Object + Dim newPage As Object + + Test.StartMethod("setCurrentPage()") + bOK = true + oPages.insertNewByIndex(0) + newPage = oPages(0) + oOldCurPage = oObj.getCurrentPage() + oObj.setCurrentPage(newPage) + bOK = bOK AND newPage.dbg_methods = oObj.getCurrentPage().dbg_methods + Test.MethodTested("setCurrentPage()", bOK) + + Test.StartMethod("getCurrentPage()") + bOK = true + oCurrPage = oObj.getCurrentPage() + bOK = bOK AND NOT isNULL(oCurrPage) + bOK = bOK AND hasUnoInterfaces(oCurrPage, "com.sun.star.drawing.XDrawPage") + Test.MethodTested("getCurrentPage()", bOK) + + 'back to the old current page + oObj.setCurrentPage(oOldCurPage) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XDrawView/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XDrawView/script.xlb new file mode 100644 index 000000000000..a0ce1b7caeca --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XDrawView/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XDrawView" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XDrawView"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XGluePointsSupplier/drawing_XGluePointsSupplier.xba b/qadevOOo/tests/basic/ifc/drawing/XGluePointsSupplier/drawing_XGluePointsSupplier.xba new file mode 100644 index 000000000000..5c7ed5e74505 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XGluePointsSupplier/drawing_XGluePointsSupplier.xba @@ -0,0 +1,69 @@ +<?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="drawing_XGluePointsSupplier" 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.drawing.XGluePointsSupplier +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim aPoints As Variant + + Test.StartMethod("getGluePoints()") + bOK = true + aPoints = oObj.getGluePoints() + Out.Log("getGluePoints() returned " & aPoints.getCount()) + if (aPoints.getCount() > 0) then + bOK = bOK AND isUNOStruct(aPoints.getByIndex(0)) + if (bOK) then + Out.Log("First point is: " & aPoints.getByIndex(0).Position.X & ", " & aPoints.getByIndex(0).Position.Y) + end if + end if + Test.MethodTested("getGluePoints()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XGluePointsSupplier/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XGluePointsSupplier/script.xlb new file mode 100644 index 000000000000..60b81fd1245f --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XGluePointsSupplier/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XGluePointsSupplier" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XGluePointsSupplier"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XLayerManager/drawing_XLayerManager.xba b/qadevOOo/tests/basic/ifc/drawing/XLayerManager/drawing_XLayerManager.xba new file mode 100644 index 000000000000..0ac672ca4362 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XLayerManager/drawing_XLayerManager.xba @@ -0,0 +1,94 @@ +<?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="drawing_XLayerManager" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XLayerManager +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim oShape As Variant + Dim oLayer As Variant + Dim nCount As Integer + Dim oDrawPage As Object + Dim oGetLayer As Object + + + bOK = true + 'create a new Shape and add to drawpage + oShape = oDoc.createInstance("com.sun.star.drawing.RectangleShape") + oDrawPage = oDoc.DrawPages.getByIndex(0) + oDrawPage.add(oShape) + 'get Layer from LayerManager + oLayer = oObj.getByIndex(0) + oLayer.Name = cIfcShortName + + Test.StartMethod("attachShapeToLayer()") + oObj.attachShapeToLayer(oShape, oLayer) + oGetLayer = oObj.getLayerForShape(oShape) + bOK = bOK AND (oLayer.Name = oGetLayer.Name) + Test.MethodTested("attachShapeToLayer()", bOK) + + Test.StartMethod("getLayerForShape()") + bOK = bOK AND (oLayer.Name = oGetLayer.Name) + Test.MethodTested("getLayerForShape()", bOK) + + Test.StartMethod("insertNewByIndex()") + bOK = true + nCount = oObj.Count + oObj.insertNewByIndex(nCount) + bOK = bOk AND (nCount <> oObj.Count) + Test.MethodTested("insertNewByIndex()", bOK) + + Test.StartMethod("remove()") + bOK = true + nCount = oObj.Count + oObj.remove(oLayer) + bOK = bOK AND (nCount <> oObj.Count) + Test.MethodTested("remove()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XLayerManager/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XLayerManager/script.xlb new file mode 100644 index 000000000000..553799d022ea --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XLayerManager/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XLayerManager" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XLayerManager"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XLayerSupplier/drawing_XLayerSupplier.xba b/qadevOOo/tests/basic/ifc/drawing/XLayerSupplier/drawing_XLayerSupplier.xba new file mode 100644 index 000000000000..2ebe1ebfbfcc --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XLayerSupplier/drawing_XLayerSupplier.xba @@ -0,0 +1,62 @@ +<?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="drawing_XLayerSupplier" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XLayerSupplier +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("getLayerManager()") + bOK = true + oLayer = oObj.getLayerManager() + bOK = bOK AND NOT isNull(oLayer) + bOK = bOK AND hasUnoInterfaces(oLayer, "com.sun.star.container.XNameAccess") + Test.MethodTested("getLayerManager()", bOK) + + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XLayerSupplier/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XLayerSupplier/script.xlb new file mode 100644 index 000000000000..1f6cb3a085f5 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XLayerSupplier/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XLayerSupplier" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XLayerSupplier"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XMasterPageTarget/drawing_XMasterPageTarget.xba b/qadevOOo/tests/basic/ifc/drawing/XMasterPageTarget/drawing_XMasterPageTarget.xba new file mode 100644 index 000000000000..73b167ef4094 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XMasterPageTarget/drawing_XMasterPageTarget.xba @@ -0,0 +1,74 @@ +<?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="drawing_XMasterPageTarget" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XMasterPageTarget +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + Dim oGetMaster As Object + Dim oNewMaster As Object + Dim oMaster As Object + + + Test.StartMethod("getMasterPage()") + bOK = true + oMaster = oDoc.getMasterPages() + oNewMaster = oMaster.insertNewByIndex(oMaster.getCount()) + oNewMaster.Name = "NewMaster" + bOK = bOK AND NOT isNull(oObj.getMasterPage()) + Test.MethodTested("getMasterPage()", bOK) + + + Test.StartMethod("setMasterPage()") + bOK = true + oObj.setMasterPage(oNewMaster) + oGetMaster = oObj.getMasterPage() + bOK = bOK AND (oGetMaster.Name = oNewMaster.Name) + Test.MethodTested("setMasterPage()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XMasterPageTarget/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XMasterPageTarget/script.xlb new file mode 100644 index 000000000000..e0a12d52bc14 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XMasterPageTarget/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XMasterPageTarget" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XMasterPageTarget"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XMasterPagesSupplier/drawing_XMasterPagesSupplier.xba b/qadevOOo/tests/basic/ifc/drawing/XMasterPagesSupplier/drawing_XMasterPagesSupplier.xba new file mode 100644 index 000000000000..fe02677e8c00 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XMasterPagesSupplier/drawing_XMasterPagesSupplier.xba @@ -0,0 +1,61 @@ +<?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="drawing_XMasterPagesSupplier" 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. +' +'************************************************************************* +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XMasterPagesSupplier +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oMaster As Object + + Test.StartMethod("getMasterPages()") + bOK = true + oMaster = oObj.getMasterPages() + bOK = bOK AND NOT isNull(oMaster) + bOK = bOK AND hasUnoInterfaces(oMaster, "com.sun.star.drawing.XDrawPages") + Test.MethodTested("getMasterPages()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XMasterPagesSupplier/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XMasterPagesSupplier/script.xlb new file mode 100644 index 000000000000..02cac0d66758 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XMasterPagesSupplier/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XMasterPagesSupplier" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XMasterPagesSupplier"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShape/drawing_XShape.xba b/qadevOOo/tests/basic/ifc/drawing/XShape/drawing_XShape.xba new file mode 100644 index 000000000000..cced868bb1aa --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShape/drawing_XShape.xba @@ -0,0 +1,133 @@ +<?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="drawing_XShape" 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.drawing.XShape +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oPosition As Object + Dim oSetPos As New com.sun.star.awt.Point + Dim objPosition As Object + + Dim oSize As Object + Dim oSetSize As New com.sun.star.awt.Size + Dim objSize As Object + Dim bRO As Boolean + + + Test.StartMethod("setPosition()") + Test.StartMethod("getPosition()") + + bOK = true + + if (cObjectName = "sw.SwXTextEmbeddedObject") OR _ + (cObjectName = "sw.SwXTextGraphicObject") OR _ + (cObjectName = "sw.SwXTextFrame") OR _ + (cObjectName = "svx.SvxShapeConnector") then + Out.Log("Methods get/setPosition doesn't work with this object.") + else + oPosition = oObj.getPosition() + Out.Log("Current object's position (" + oPosition.X + ", " + oPosition.Y + ")") + + oSetPos.X = 1234 + oSetPos.Y = 4321 + + Out.Log("Trying to set object's position to (" + oSetPos.X + ", " + oSetPos.Y + ")") + oObj.setPosition(oSetPos) + + objPosition = oObj.getPosition() + Out.Log("Actual position is (" + objPosition.X + ", " + objPosition.Y + ")") + + + bOK = bOK AND ((abs(objPosition.X - oSetPos.X) <= 1) AND (abs(objPosition.Y - oSetPos.Y) <= 1)) + + Out.Log("Return previous position...") + oObj.setPosition(oPosition) + end if + + Test.MethodTested("getPosition()", bOK) + Test.MethodTested("setPosition()", bOK) + + + Test.StartMethod("setSize()") + Test.StartMethod("getSize()") + bOK = true + + bRO = (cObjectName = "sch.ChartLegend") OR _ + (cObjectName = "sch.ChartTitle") OR _ + (cObjectName = "svx.SvxShapeConnector") + if (bRO) then + Out.Log("Size cannot be changed for this object.") + end if + + oSize = oObj.getSize() + Out.Log("Current object's size (" + oSize.Width + " x " + oSize.Height + ")") + + oSetSize.Width = 1235 + oSetSize.Height = 4322 + + Out.Log("Trying to set object's size to (" + oSetSize.Width + " x " + oSetSize.Height + ")") + oObj.setSize(oSetSize) + objSize = oObj.getSize() + Out.Log("Actual size is (" + objSize.Width + " x " + objSize.Height + ")") + + if (bRO) then + bOK = bOK AND ((abs(objSize.Width - oSize.Width) <= 1) AND (abs(objSize.Height - oSize.Height) <= 1)) + else + bOK = bOK AND ((abs(objSize.Width - oSetSize.Width) <= 1) AND (abs(objSize.Height - oSetSize.Height) <= 1)) + end if + + Out.Log("Return previous size...") + oObj.setSize(oSize) + + Test.MethodTested("getSize()", bOK) + Test.MethodTested("setSize()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShape/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XShape/script.xlb new file mode 100644 index 000000000000..44d5e67ace32 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShape/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XShape" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XShape"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeBinder/drawing_XShapeBinder.xba b/qadevOOo/tests/basic/ifc/drawing/XShapeBinder/drawing_XShapeBinder.xba new file mode 100644 index 000000000000..39eeb51dab39 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeBinder/drawing_XShapeBinder.xba @@ -0,0 +1,94 @@ +<?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="drawing_XShapeBinder" 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. +' +'************************************************************************* +'************************************************************************* + + + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oBinderCollection As Object + +'************************************************************************* + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XShapeBinder +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + ReCreateObj() + + Test.StartMethod("bind()") + bOK = true + if hasUnoInterfaces(oObj, "com.sun.star.container.XIndexAccess") then + nCount = oObj.getCount() + Out.Log("" & nCount & " elements in collection") + oBind = oObj.bind(oBinderCollection) + if (isNULL(oBind)) then Out.Log("bind() returned NULL.") + Out.Log("" & oObj.getCount & " elements in collection") + bOK = bOK AND (NOT isNull(oBind)) AND (nCount <> oObj.getCount) + else + oBind = oObj.bind(oBinderCollection) + if (isNULL(oBind)) then Out.Log("bind() returned NULL.") + bOK = bOK AND NOT isNull(oBind) + end if + Test.MethodTested("bind()", bOK) + + Test.StartMethod("unbind()") + if (NOT bOK) then + Out.Log("Can't test unbind() without bind()") + else + if hasUnoInterfaces( oObj, "com.sun.star.container.XIndexAccess" ) then + oObj.unbind(oBind) + Out.Log("" & oObj.count & " elements in collection") + bOK = bOK AND (nCount <= oObj.getCount) + Test.MethodTested("unbind()", bOK) + else + oObj.unbind(oBind) + end if + end if + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeBinder/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XShapeBinder/script.xlb new file mode 100644 index 000000000000..7cfc992216a4 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeBinder/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XShapeBinder" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XShapeBinder"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeCombiner/drawing_XShapeCombiner.xba b/qadevOOo/tests/basic/ifc/drawing/XShapeCombiner/drawing_XShapeCombiner.xba new file mode 100644 index 000000000000..ed74a532fe79 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeCombiner/drawing_XShapeCombiner.xba @@ -0,0 +1,86 @@ +<?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="drawing_XShapeCombiner" 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. +' +'************************************************************************* +'************************************************************************* + + + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oCombinerCollection As Object + +'************************************************************************* + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XShapeCombiner +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oCombine As Object + Dim nCount As Integer + + ReCreateObj() + + Test.StartMethod("combine()") + bOK = true + nCount = oObj.count + Out.Log("" & nCount & " elements in collection") + oCombine = oObj.combine(oCombinerCollection) + if (isNULL(oCombine)) then Out.Log("combine() returned NULL") + bOK = bOK AND (nCount <> oObj.count) AND NOT isNull(oCombine) + bOK = bOK AND hasUnoInterfaces(oCombine, "com.sun.star.drawing.XShape") + Test.MethodTested("combine()", bOK) + + Test.StartMethod("split()") + if (NOT bOK) then + Out.Log("Can't test split() without combine()") + else + oObj.split(oCombine) + Out.Log("" & oObj.count & " elements in collection") + bOK = bOK AND (nCount = oObj.count) + Test.MethodTested("split()", bOK) + end if + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeCombiner/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XShapeCombiner/script.xlb new file mode 100644 index 000000000000..2eb08b47a4f5 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeCombiner/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XShapeCombiner" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XShapeCombiner"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeDescriptor/drawing_XShapeDescriptor.xba b/qadevOOo/tests/basic/ifc/drawing/XShapeDescriptor/drawing_XShapeDescriptor.xba new file mode 100644 index 000000000000..26becd8ce2a3 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeDescriptor/drawing_XShapeDescriptor.xba @@ -0,0 +1,90 @@ +<?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="drawing_XShapeDescriptor" 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 + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global cShapeType As String optional +' expected shape type + +'************************************************************************* + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XShapeDescriptor +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim sType As Variant + + Test.StartMethod("getShapeType()") + bOK = true + + sType = oObj.getShapeType() + bOK = bOK AND (VarType(sType = 8 )) + if bOK then + On Error Goto NocShapeType + if VarType(cShapeType) = 8 then + Out.Log("Comparing expected shape type (" + cShapeType + ")") + Out.Log("with obtained (" + sType + ")") + bOK = bOK AND sType = cShapeType + else + Out.Log("!!! No expected value for shape '" + sType + "'") + endif + endif + +EndTest: + Test.MethodTested("getShapeType()", bOK) + +Exit Sub +NocShapeType: + Out.Log("!!! No expected value for shape '" + sType + "'") + goto EndTest +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeDescriptor/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XShapeDescriptor/script.xlb new file mode 100644 index 000000000000..d6a8efbc2599 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeDescriptor/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XShapeDescriptor" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XShapeDescriptor"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeGroup/drawing_XShapeGroup.xba b/qadevOOo/tests/basic/ifc/drawing/XShapeGroup/drawing_XShapeGroup.xba new file mode 100644 index 000000000000..6f89f6086ad8 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeGroup/drawing_XShapeGroup.xba @@ -0,0 +1,67 @@ +<?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="drawing_XShapeGroup" 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.drawing.XShapeGroup +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + + + Test.StartMethod("enterGroup()") + bOK = true + oObj.enterGroup() + Test.MethodTested("enterGroup()", bOK) + + Test.StartMethod("leaveGroup()") + bOK = true + oObj.leaveGroup() + Test.MethodTested("leaveGroup()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeGroup/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XShapeGroup/script.xlb new file mode 100644 index 000000000000..b61ec7de14e8 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeGroup/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XShapeGroup" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XShapeGroup"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeGrouper/drawing_XShapeGrouper.xba b/qadevOOo/tests/basic/ifc/drawing/XShapeGrouper/drawing_XShapeGrouper.xba new file mode 100644 index 000000000000..6ca918774d38 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeGrouper/drawing_XShapeGrouper.xba @@ -0,0 +1,78 @@ +<?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="drawing_XShapeGrouper" 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. +' +'************************************************************************* +'************************************************************************* + + + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oGrouperCollection As Object groupable objects + +'************************************************************************* + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XShapeGrouper +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim oGroup As Object + Dim nCount As Integer + + Test.StartMethod("group()") + bOK = true + oGroup = oObj.group(oGrouperCollection) + bOK = bOK AND NOT isNull(oGroup) + bOK = bOK AND hasUnoInterfaces(oGroup, "com.sun.star.drawing.XShapeGroup") + Test.MethodTested("group()", bOK) + + Test.StartMethod("ungroup()") + bOK = true + nCount = oObj.Count + oObj.ungroup(oGroup) + bOK = bOK AND nCount <> oObj.Count + Test.MethodTested("ungroup()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapeGrouper/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XShapeGrouper/script.xlb new file mode 100644 index 000000000000..0f605aed8da9 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapeGrouper/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XShapeGrouper" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XShapeGrouper"/> +"</library:library> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapes/drawing_XShapes.xba b/qadevOOo/tests/basic/ifc/drawing/XShapes/drawing_XShapes.xba new file mode 100644 index 000000000000..000e7cf2d010 --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapes/drawing_XShapes.xba @@ -0,0 +1,82 @@ +<?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="drawing_XShapes" 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 + +'************************************************************************* +' This Interface/Service test depends on the following GLOBAL variables, +' which must be specified in the object creation: + +' - Global oXShapeInstance As Object to add/remove + +'************************************************************************* + + + + + + +Sub RunTest() + +'************************************************************************* +' INTERFACE: +' com.sun.star.drawing.XShapes +'************************************************************************* +On Error Goto ErrHndl + Dim bOK As Boolean + Dim nCount As Integer + + Test.StartMethod("add()") + bOK = true + nCount = oObj.Count + + oObj.add(oXShapeInstance) + bOK = bOK AND (nCount <> oObj.Count) + Test.MethodTested("add()", bOK) + + Test.StartMethod("remove()") + bOK = true + oObj.remove(oXShapeInstance) + bOK = bOK AND (nCount = oObj.Count) + Test.MethodTested("remove()", bOK) + +Exit Sub +ErrHndl: + Test.Exception() + bOK = false + resume next +End Sub +</script:module> diff --git a/qadevOOo/tests/basic/ifc/drawing/XShapes/script.xlb b/qadevOOo/tests/basic/ifc/drawing/XShapes/script.xlb new file mode 100644 index 000000000000..87feea7ea29a --- /dev/null +++ b/qadevOOo/tests/basic/ifc/drawing/XShapes/script.xlb @@ -0,0 +1,5 @@ +<?xml version="1.0" encoding="UTF-8"?> +<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd"> +<library:library xmlns:library="http://openoffice.org/2000/library" library:name="drawing_XShapes" library:readonly="false" library:passwordprotected="false"> +"<library:element library:name="drawing_XShapes"/> +"</library:library> |