diff options
Diffstat (limited to 'basic/qa/basic_coverage/test_non_ascii_names.bas')
-rw-r--r-- | basic/qa/basic_coverage/test_non_ascii_names.bas | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/basic/qa/basic_coverage/test_non_ascii_names.bas b/basic/qa/basic_coverage/test_non_ascii_names.bas index a9ef0f159da2..c85c9cae12cb 100644 --- a/basic/qa/basic_coverage/test_non_ascii_names.bas +++ b/basic/qa/basic_coverage/test_non_ascii_names.bas @@ -17,11 +17,20 @@ Function [Функция]([😁]) [Функция] = [😁] & " and some text" End Function +Function TestNonAsciiNative as Integer + Dim [Абв] as Integer + [Абв] = 5 + TestNonAsciiNative = [абв] +End Function + Sub [Prüfung] On Error GoTo errorHandler TestUtil.AssertEqual([Функция]("Smiley"), "Smiley and some text", "[Функция](""Smiley"")") + ' tdf#148358 - compare Non-ASCII variable names case-insensitive + TestUtil.AssertEqual(TestNonAsciiNative(), 5, "TestNonAsciiNative()") + Exit Sub errorHandler: TestUtil.ReportErrorHandler("Prüfung", Err, Error$, Erl) |