diff options
Diffstat (limited to 'basic/qa/basic_coverage/test_instr_method.vb')
-rw-r--r-- | basic/qa/basic_coverage/test_instr_method.vb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/basic/qa/basic_coverage/test_instr_method.vb b/basic/qa/basic_coverage/test_instr_method.vb index 47fa7a94ede1..630db562d261 100644 --- a/basic/qa/basic_coverage/test_instr_method.vb +++ b/basic/qa/basic_coverage/test_instr_method.vb @@ -16,6 +16,12 @@ Function doUnitTest as Integer ' tdf#139840 - case-insensitive operation for non-ASCII characters If (InStr(1, "α", "Α", 1) <> 1) Then Exit Function + ' tdf#139840 - German Eszett is uppercased to a two-character 'SS'. + ' This test should fail after tdf#110003 has been fixed. + If (InStr(2, "Straße", "s", 1) <> 5) Then Exit Function + + ' Start position is greater than the length of the string being searched. + If (InStr(2, "α", "Α", 1) <> 0) Then Exit Function doUnitTest = 1 |