summaryrefslogtreecommitdiff
path: root/basic/qa
diff options
context:
space:
mode:
authorAndreas Heinisch <andreas.heinisch@yahoo.de>2019-11-25 15:14:53 +0100
committerMike Kaganski <mike.kaganski@collabora.com>2019-11-28 10:21:25 +0100
commit4fdc90c51e6a1bbb83c1f1826ad5b90dc1ff0ad6 (patch)
tree17737dea4d38b97e6247d7d0c5daac270c04e55c /basic/qa
parentfc34df00c47e97fa1a9633c1e14e8b9df52f77f5 (diff)
tdf#97983 - Added localization for numeric types
For numeric types, take into consideration different locales Change-Id: I815c195e7ef53a7b958f85932415a16c9a8a1e35 Reviewed-on: https://gerrit.libreoffice.org/83683 Tested-by: Jenkins Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>
Diffstat (limited to 'basic/qa')
-rw-r--r--basic/qa/basic_coverage/test_types_conversion.vb11
1 files changed, 6 insertions, 5 deletions
diff --git a/basic/qa/basic_coverage/test_types_conversion.vb b/basic/qa/basic_coverage/test_types_conversion.vb
index 0de109bc984f..0868f4d3e50a 100644
--- a/basic/qa/basic_coverage/test_types_conversion.vb
+++ b/basic/qa/basic_coverage/test_types_conversion.vb
@@ -11,6 +11,7 @@ Dim nTotalCount As Integer
Dim nPassCount As Integer
Dim nFailCount As Integer
+' For the following tests the en-US (English - United States) locale is required
Function doUnitTest() As Integer
nTotalCount = 0
nPassCount = 0
@@ -35,13 +36,13 @@ Function doUnitTest() As Integer
' Negative floating-point with leading and trailing spaces
StartTest()
- nVal = " -123.45 "
- AssertTest(nVal = -123.45)
+ nVal = " -123.456 "
+ AssertTest(nVal = -123.456)
- ' Wrong decimal separator
+ ' Wrong decimal separator (interpreted as group separator)
StartTest()
- nVal = " -123,45 "
- AssertTest(nVal = -123)
+ nVal = " -123,456 "
+ AssertTest(nVal = -123456)
If ((nFailCount > 0) Or (nPassCount <> nTotalCount)) Then
doUnitTest = 0