diff options
Diffstat (limited to 'basic/qa/basic_coverage/test_types_conversion.vb')
-rw-r--r-- | basic/qa/basic_coverage/test_types_conversion.vb | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/basic/qa/basic_coverage/test_types_conversion.vb b/basic/qa/basic_coverage/test_types_conversion.vb index 0868f4d3e50a..68b28b1afc0a 100644 --- a/basic/qa/basic_coverage/test_types_conversion.vb +++ b/basic/qa/basic_coverage/test_types_conversion.vb @@ -39,10 +39,17 @@ Function doUnitTest() As Integer nVal = " -123.456 " AssertTest(nVal = -123.456) - ' Wrong decimal separator (interpreted as group separator) - StartTest() - nVal = " -123,456 " - AssertTest(nVal = -123456) + If LibreOffice6FloatingPointMode() Then + ' Wrong decimal separator (and not even interpreted as group separator) + StartTest() + nVal = " -123,45 " + AssertTest(nVal = -123) + Else + ' Wrong decimal separator (interpreted as group separator) + StartTest() + nVal = " -123,456 " + AssertTest(nVal = -123456) + End If If ((nFailCount > 0) Or (nPassCount <> nTotalCount)) Then doUnitTest = 0 |