LanguageTool: don't crash if REST protocol isn't set
[LibreOffice.git] / basic / qa / basic_coverage / test_dimarray_method.bas
blobc5f268b12c075cbbdb41f4970082369fa2671309
1 ' This file is part of the LibreOffice project.
3 ' This Source Code Form is subject to the terms of the Mozilla Public
4 ' License, v. 2.0. If a copy of the MPL was not distributed with this
5 ' file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 Option Explicit
10 Function doUnitTest as String
11 Dim aValue as variant
12 aValue = DimArray( 1, 2, 4 )
13 aValue( 1, 2, 4 ) = 3
14 ' DIMARRAY
15 If ( aValue( 1, 2, 4 ) <> 3 ) Then
16 doUnitTest = "FAIL"
17 Else
18 doUnitTest = "OK"
19 End If
20 End Function