chenxuewei/loongoffice
1
0
Fork 0
forked from amazingfate/loongoffice
Code Pull Requests Activity

tdf#102872 Add qa unit test for BASIC methods

Browse Source 
Add test if several methods still works

Change-Id: I8d26e5e3555dbbc0f07152138e1bc0cd65d90998
Reviewed-on: https://gerrit.libreoffice.org/30166
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: jan iversen <jani@documentfoundation.org>
Tested-by: jan iversen <jani@documentfoundation.org>
Reviewed-by: Laurent BP <laurent.balland-poirier@laposte.net>
This commit is contained in:
Laurent Balland-Poirier
2016-10-22 21:54:37 +02:00
committed by Laurent BP
parent f9f7a4ddae
commit 8a50ea5454
7 changed files with 439 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
basic/qa/basic_coverage/test_array_methods.vb Normal file
View File

@ -0,0 +1,38 @@
'
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'
Function doUnitTest as Integer
dim aVector as Variant
' ARRAY
aVector = Array( Date(), Time(), "Hello", -3.14)
If (aVector(2) <> "Hello") Then
doUnitTest = 0
' LBOUND
Else If ( LBound( aVector() ) <> 0 ) Then
doUnitTest = 0
' TYPELEN
Else If ( TypeLen(aVector(2)) <> 5 ) Then
doUnitTest = 0
' TYPENAME
Else If ( TypeName(aVector(2)) <> "String" ) Then
doUnitTest = 0
' UBOUND
Else If ( UBound( aVector() ) <> 3 ) Then
doUnitTest = 0
' VARTYPE
Else If ( VarType(aVector(2)) <> 8 ) Then
doUnitTest = 0
Else
doUnitTest = 1
End If
End If
End If
End If
End If
End If
End Function