basic/qa/vba_tests/enum.vb

   1 '
   2 ' This file is part of the LibreOffice project.
   3 '
   4 ' This Source Code Form is subject to the terms of the Mozilla Public
   5 ' License, v. 2.0. If a copy of the MPL was not distributed with this
   6 ' file, You can obtain one at http://mozilla.org/MPL/2.0/.
   7 '
   8
   9 Option VBASupport 1
  10 Option Explicit
  11
  12 Enum CountDown ' Values get ROUNDED to Int32
  13     FIVE = 4.11
  14     FOUR = -4.25
  15     THREE = 5
  16     TWO = -.315E1
  17     ONE = 286.0E-2 ' equals 3
  18     LIFT_OFF = 7
  19 End Enum ' CountDown
  20
  21 Function doUnitTest()
  22     ''' test_vba.cxx main entry point '''
  23     TestUtil.TestInit
  24     Call ENUM_TestCases
  25     doUnitTest = TestUtil.GetResult()
  26 End Function
  27
  28 Sub ENUM_TestCases()
  29 try:
  30     On Error Goto catch
  31
  32     With CountDown
  33
  34 a:      TestUtil.AssertEqual(.ONE, 3, ".ONE")
  35
  36 b:      TestUtil.AssertEqual(.TWO, -3, ".TWO")
  37
  38 c:      TestUtil.AssertEqual(TypeName(.FOUR), "Long", "TypeName(.FOUR)")
  39
  40 d:      Dim sum As Double
  41         sum = .FIVE + .FOUR + .THREE + .TWO + .ONE + .LIFT_OFF
  42         TestUtil.AssertEqual(sum, 12, "sum")
  43
  44     End With
  45
  46 finally:
  47     Exit Sub
  48
  49 catch:
  50     TestUtil.ReportErrorHandler("ENUM_TestCases", Err, Error$, Erl)
  51     Resume Next
  52 End Sub