basic/qa/basic_coverage/test_non_ascii_names.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   [Prüfung]
  13   doUnitTest = TestUtil.GetResult()
  14 End Function
  15
  16 Function [Функция]([😁])
  17   [Функция] = [😁] & " and some text"
  18 End Function
  19
  20 Function TestNonAsciiNative as Integer
  21     Dim [Абв] as Integer
  22     [Абв] = 5
  23     TestNonAsciiNative = [абв]
  24 End Function
  25
  26 Sub [Prüfung]
  27   On Error GoTo errorHandler
  28
  29   TestUtil.AssertEqual([Функция]("Smiley"), "Smiley and some text", "[Функция](""Smiley"")")
  30
  31   ' tdf#148358 - compare Non-ASCII variable names case-insensitive
  32   TestUtil.AssertEqual(TestNonAsciiNative(), 5, "TestNonAsciiNative()")
  33
  34   Exit Sub
  35 errorHandler:
  36   TestUtil.ReportErrorHandler("Prüfung", Err, Error$, Erl)
  37 End Sub