1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?>
2cdf0e10cSrcweir<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3cdf0e10cSrcweir<script:module xmlns:script="http://openoffice.org/2000/script" script:name="sheet_XLabelRanges" script:language="StarBasic">
4cdf0e10cSrcweir
5cdf0e10cSrcweir
6cdf0e10cSrcweir'*************************************************************************
7cdf0e10cSrcweir'
8*bfe83eebSAndrew Rist'  Licensed to the Apache Software Foundation (ASF) under one
9*bfe83eebSAndrew Rist'  or more contributor license agreements.  See the NOTICE file
10*bfe83eebSAndrew Rist'  distributed with this work for additional information
11*bfe83eebSAndrew Rist'  regarding copyright ownership.  The ASF licenses this file
12*bfe83eebSAndrew Rist'  to you under the Apache License, Version 2.0 (the
13*bfe83eebSAndrew Rist'  "License"); you may not use this file except in compliance
14*bfe83eebSAndrew Rist'  with the License.  You may obtain a copy of the License at
15*bfe83eebSAndrew Rist'
16*bfe83eebSAndrew Rist'    http://www.apache.org/licenses/LICENSE-2.0
17*bfe83eebSAndrew Rist'
18*bfe83eebSAndrew Rist'  Unless required by applicable law or agreed to in writing,
19*bfe83eebSAndrew Rist'  software distributed under the License is distributed on an
20*bfe83eebSAndrew Rist'  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
21*bfe83eebSAndrew Rist'  KIND, either express or implied.  See the License for the
22*bfe83eebSAndrew Rist'  specific language governing permissions and limitations
23*bfe83eebSAndrew Rist'  under the License.
24cdf0e10cSrcweir'
25cdf0e10cSrcweir'*************************************************************************
26cdf0e10cSrcweir
27cdf0e10cSrcweir
28cdf0e10cSrcweir
29*bfe83eebSAndrew Rist
30*bfe83eebSAndrew Rist
31cdf0e10cSrcweir' Be sure that all variables are dimensioned:
32cdf0e10cSrcweiroption explicit
33cdf0e10cSrcweir
34cdf0e10cSrcweir
35cdf0e10cSrcweir
36cdf0e10cSrcweirSub RunTest()
37cdf0e10cSrcweir
38cdf0e10cSrcweir'*************************************************************************
39cdf0e10cSrcweir' INTERFACE:
40cdf0e10cSrcweir' com.sun.star.sheet.XLabelRanges
41cdf0e10cSrcweir'*************************************************************************
42cdf0e10cSrcweirOn Error Goto ErrHndl
43cdf0e10cSrcweir    Dim bOK As Boolean
44cdf0e10cSrcweir    Dim count As Integer
45cdf0e10cSrcweir    Dim RangeAddress1 As New com.sun.star.table.CellRangeAddress
46cdf0e10cSrcweir    Dim RangeAddress2 As New com.sun.star.table.CellRangeAddress
47cdf0e10cSrcweir
48cdf0e10cSrcweir    Test.StartMethod("addNew()")
49cdf0e10cSrcweir    bOK = true
50cdf0e10cSrcweir
51cdf0e10cSrcweir    count = oObj.count
52cdf0e10cSrcweir    RangeAddress1.Sheet = 0
53cdf0e10cSrcweir    RangeAddress1.StartColumn = 2
54cdf0e10cSrcweir    RangeAddress1.StartRow = 3
55cdf0e10cSrcweir    RangeAddress1.EndColumn = 4
56cdf0e10cSrcweir    RangeAddress1.EndRow = 5
57cdf0e10cSrcweir
58cdf0e10cSrcweir    RangeAddress2.Sheet = 0
59cdf0e10cSrcweir    RangeAddress2.StartColumn = 6
60cdf0e10cSrcweir    RangeAddress2.StartRow = 7
61cdf0e10cSrcweir    RangeAddress2.EndColumn = 8
62cdf0e10cSrcweir    RangeAddress2.EndRow = 9
63cdf0e10cSrcweir    oObj.AddNew(RangeAddress1, RangeAddress2)
64cdf0e10cSrcweir
65cdf0e10cSrcweir    bOK = bOK AND count = oObj.count - 1
66cdf0e10cSrcweir    Test.MethodTested("addNew()", bOK)
67cdf0e10cSrcweir
68cdf0e10cSrcweir    Test.StartMethod("removeByIndex()")
69cdf0e10cSrcweir    bOK = true
70cdf0e10cSrcweir
71cdf0e10cSrcweir    count = oObj.count
72cdf0e10cSrcweir    oObj.removeByIndex(count - 1)
73cdf0e10cSrcweir
74cdf0e10cSrcweir    bOK = bOK AND (count = oObj.count + 1)
75cdf0e10cSrcweir    Test.MethodTested("removeByIndex()", bOK)
76cdf0e10cSrcweir
77cdf0e10cSrcweirExit Sub
78cdf0e10cSrcweirErrHndl:
79cdf0e10cSrcweir    Test.Exception()
80cdf0e10cSrcweir    bOK = false
81cdf0e10cSrcweir    resume next
82cdf0e10cSrcweirEnd Sub
83cdf0e10cSrcweir</script:module>
84