diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 09:06:44 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-07 09:06:44 +0000 |
commit | ed5640d8b587fbcfed7dd7967f3de04b37a76f26 (patch) | |
tree | 7a5f7c6c9d02226d7471cb3cc8fbbf631b415303 /basic/qa/basic_coverage/test_typelen_method.bas | |
parent | Initial commit. (diff) | |
download | libreoffice-upstream.tar.xz libreoffice-upstream.zip |
Adding upstream version 4:7.4.7.upstream/4%7.4.7upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'basic/qa/basic_coverage/test_typelen_method.bas')
-rw-r--r-- | basic/qa/basic_coverage/test_typelen_method.bas | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/basic/qa/basic_coverage/test_typelen_method.bas b/basic/qa/basic_coverage/test_typelen_method.bas new file mode 100644 index 000000000..cb86d1569 --- /dev/null +++ b/basic/qa/basic_coverage/test_typelen_method.bas @@ -0,0 +1,58 @@ +' +' 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/. +' + +Option Explicit + +Dim int16 As Integer, int32 As Long, flt32 As Single, flt64 As Double, _ + curr As Currency, dat As Date, str As String, _ + myErr As Variant, var As Variant, byt3 As Byte, bool As Boolean + +Dim int_%, long_&, single_!, double_#, currency_@, string_$, array_ + +Function doUnitTest + ' TypeLen() + + dat = #02/17/2012# : myErr = CVErr("errMsg") + assert( TypeLen(int16) = 2 , "TypeLen(int16) is not 2") + assert( TypeLen(int32) = 4 , "TypeLen(int32) is not 4") + assert( TypeLen(flt32) = 4 , "TypeLen(flt32) is not 4" ) + assert( TypeLen(flt64) = 8 , "TypeLen(flt64) is not 8" ) + assert( TypeLen(curr) = 8 , "TypeLen(curr) is not 8" ) + assert( TypeLen(dat) = 8 , "TypeLen(dat) is not 8" ) + assert( TypeLen(str) = 0 , "TypeLen(str) is not 0" ) ' when empty + assert( TypeLen(myErr) = 2 , "TypeLen(myErr) is not 2" ) + assert( TypeLen(bool) = 1 , "TypeLen(bool) is not 1" ) + assert( TypeLen(var) = 0 , "TypeLen(var) is not 0" ) ' when empty + assert( TypeLen(byt3) = 1 , "TypeLen(byt3) is not 1" ) + + assert( TypeLen(int_) = 2 , "TypeLen(int_) is not 2" ) + assert( TypeLen(long_) = 4 , "TypeLen(long_) is not 4" ) + assert( TypeLen(single_) = 4 , "TypeLen(single_) is not 4" ) + assert( TypeLen(double_) = 8 , "TypeLen(double_) is not 8" ) + assert( TypeLen(currency_) = 8 , "TypeLen(currency_) is not 8" ) + assert( TypeLen(string_) = 0 , "TypeLen(string_) is not 0" ) + + If FailedAssertion Then + doUnitTest = "test_typelen_method.vb fails" + messages + Exit Function + EndIf + doUnitTest = "OK" ' All checks passed +End Function + +Sub DEV_TEST + MsgBox doUnitTest +End Sub + +Dim failedAssertion As Boolean, messages As String + +Sub assert(expression As Boolean, errMessage As String) + If ( Not expression ) Then + messages = messages + Chr(10) + ErrMessage + failedAssertion = True + EndIf +End Sub |