forked from amazingfate/loongoffice
3ff159d357
Support case-insensitive operation for non-ASCII characters in the Replace function in Basic. Change-Id: I48069ad7be1ae0f012c52f595cc44e6b50580b94 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/94580 Tested-by: Jenkins Reviewed-by: Noel Grandin <noel.grandin@collabora.co.uk>
38 lines
1.2 KiB
VB.net
38 lines
1.2 KiB
VB.net
Dim passCount As Integer
|
|
Dim failCount As Integer
|
|
Dim result As String
|
|
|
|
Function doUnitTest() As String
|
|
result = verify_stringReplace()
|
|
If failCount <> 0 Or passCount = 0 Then
|
|
doUnitTest = 0
|
|
Else
|
|
doUnitTest = 1
|
|
End If
|
|
End Function
|
|
|
|
Function verify_stringReplace() As String
|
|
passCount = 0
|
|
failCount = 0
|
|
|
|
result = "Test Results" & Chr$(10) & "============" & Chr$(10)
|
|
|
|
' tdf#132389 - case-insensitive operation for non-ASCII characters
|
|
retStr = Replace("ABCabc", "b", "*")
|
|
TestLog_ASSERT retStr, "A*Ca*c", "case-insensitive ASCII: " & retStr
|
|
retStr = Replace("АБВабв", "б", "*")
|
|
TestLog_ASSERT retStr, "А*Ва*в", "case-insensitive non-ASCII: " & retStr
|
|
|
|
result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10)
|
|
verify_stringReplace = result
|
|
End Function
|
|
|
|
Sub TestLog_ASSERT(actual As Variant, expected As Variant, testName As String)
|
|
If expected = actual Then
|
|
passCount = passCount + 1
|
|
Else
|
|
result = result & Chr$(10) & "Failed: " & testName & " returned " & actual & ", expected " & expected
|
|
failCount = failCount + 1
|
|
End If
|
|
End Sub
|