basic/qa/basic_coverage/test_right_method.bas

   1 ' This file is part of the LibreOffice project.
   2 '
   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/.
   6 '
   7
   8 Option Explicit
   9
  10 Function doUnitTest() As String
  11     TestUtil.TestInit
  12     verify_Right_method
  13     doUnitTest = TestUtil.GetResult()
  14 End Function
  15
  16 Sub verify_Right_method
  17     On Error GoTo errorHandler
  18
  19     ' RIGHT
  20     TestUtil.AssertEqual(Right("abc", 2), "bc", "Right(""abc"",2)")
  21
  22     ' tdf#141474 keyword names need to match that of VBA
  23     TestUtil.AssertEqual(Right(Length:=4, String:="sometext"), "text", "Right(Length:=4, String:=""sometext"")")
  24
  25     Exit Sub
  26 errorHandler:
  27     TestUtil.ReportErrorHandler("verify_Right_method", Err, Error$, Erl)
  28 End Sub