basic/qa/vba_tests/tdf148358_non_ascii_names.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 Function doUnitTest as String
  13   TestUtil.TestInit
  14   verify_testNonAsciiNames
  15   doUnitTest = TestUtil.GetResult()
  16 End Function
  17
  18 Function TestNonAscii as Integer
  19     Dim Абв as Integer
  20     Абв = 10
  21     TestNonAscii = абв
  22 End Function
  23
  24 Sub verify_testNonAsciiNames
  25   On Error GoTo errorHandler
  26
  27   ' tdf#148358 - compare Non-ASCII variable names case-insensitive
  28   TestUtil.AssertEqual(TestNonAscii(), 10, "TestNonAscii()")
  29
  30   Exit Sub
  31 errorHandler:
  32   TestUtil.ReportErrorHandler("verify_testNonAsciiNames", Err, Error$, Erl)
  33 End Sub