diff options
author | Xisco Fauli <xiscofauli@libreoffice.org> | 2022-12-19 17:42:36 +0100 |
---|---|---|
committer | Xisco Fauli <xiscofauli@libreoffice.org> | 2022-12-20 07:47:34 +0000 |
commit | c6dc676306d2e507bf57369d02dcaf2408d43eb0 (patch) | |
tree | a9f993ab52018742f4db35c194e1b0cd5305e81a /basic/qa | |
parent | 99b5e216f107259d6e402896800282948997c4fa (diff) |
tdf#152520: basic_macros: Add unittest
Change-Id: I30f6badc620f3932cacff07bd37ef4da96f1bafd
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/144539
Tested-by: Jenkins
Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
Diffstat (limited to 'basic/qa')
-rw-r--r-- | basic/qa/basic_coverage/test_transliteration.bas | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/basic/qa/basic_coverage/test_transliteration.bas b/basic/qa/basic_coverage/test_transliteration.bas new file mode 100644 index 000000000000..01a5705d0a0d --- /dev/null +++ b/basic/qa/basic_coverage/test_transliteration.bas @@ -0,0 +1,52 @@ +' This file is part of the LibreOffice project. +' +' This Source Code Form is subject to the terms of the Mozilla Public +' License, v. 2.0. If a copy of the MPL was not distributed with this +' file, You can obtain one at http://mozilla.org/MPL/2.0/. +' + +Option Explicit + +Function doUnitTest() As String + TestUtil.TestInit + verify_testTransliteration + doUnitTest = TestUtil.GetResult() +End Function + +Sub verify_testTransliteration + On Error GoTo errorHandler + + Dim oTr As Object, s$, oLoc as new com.sun.star.lang.Locale + + With oLoc + .Country="US" + .Language="en" + .Variant="" + End With + + s="AB cd. eF. " + oTr = CreateUnoService("com.sun.star.i18n.Transliteration") + + oTr.LoadModuleByImplName("LOWERCASE_UPPERCASE", oLoc) + TestUtil.AssertEqual(oTr.transliterateString2String(s, 0, Len(s)), "AB CD. EF. ", "LOWERCASE_UPPERCASE") + + oTr.LoadModuleByImplName("UPPERCASE_LOWERCASE", oLoc) + TestUtil.AssertEqual(oTr.transliterateString2String(s, 0, Len(s)), "ab cd. ef. ", "UPPERCASE_LOWERCASE") + + oTr.LoadModuleByImplName("TOGGLE_CASE", oLoc) + TestUtil.AssertEqual(oTr.transliterateString2String(s, 0, Len(s)), "ab CD. Ef. ", "TOGGLE_CASE") + + oTr.LoadModuleByImplName("IGNORE_CASE", oLoc) + TestUtil.AssertEqual(oTr.transliterateString2String(s, 0, Len(s)), "ab cd. ef. ", "IGNORE_CASE") + + ' tdf#152520: Without the fix in place, this test would have crashed here + oTr.LoadModuleByImplName("TITLE_CASE", oLoc) + TestUtil.AssertEqual(oTr.transliterateString2String(s, 0, Len(s)), "Ab cd. ef. ", "TITLE_CASE") + + oTr.LoadModuleByImplName("SENTENCE_CASE", oLoc) + TestUtil.AssertEqual(oTr.transliterateString2String(s, 0, Len(s)), "Ab cd. ef. ", "SENTENCE_CASE") + + Exit Sub +errorHandler: + TestUtil.ReportErrorHandler("verify_testTransliteration", Err, Error$, Erl) +End Sub |