basic/qa/basic_coverage/test_cverr_method.bas

   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 Explicit
  10
  11 Function doUnitTest as String
  12
  13     doUnitTest = "FAIL"
  14
  15     ' CVERR
  16     If (CVerr(100) <> 100) Then Exit Function
  17     ' tdf#79426 - passing an error object to a function
  18     If (TestCVErr(CVErr(2)) <> 2) Then Exit Function
  19     ' tdf#79426 - test with Error-Code 448 ( ERRCODE_BASIC_NAMED_NOT_FOUND )
  20     If (TestCVErr(CVErr(448)) <> 448) Then Exit Function
  21
  22     doUnitTest = "OK"
  23
  24 End Function
  25
  26 Function TestCVErr(vErr As Variant)
  27     Dim nValue As Integer
  28     nValue = vErr
  29     TestCVErr = nValue
  30 End Function