diff options
| author | Anshu <anshukhare50@gmail.com> | 2020-11-25 09:19:31 +0530 |
|---|---|---|
| committer | Mike Kaganski <mike.kaganski@collabora.com> | 2020-11-27 10:14:56 +0100 |
| commit | ceb69f85c2c77827642be47aa14cb15ca87f683a (patch) | |
| tree | ef4d9c8aee32e6e1c0afec5b914b3bca5afd44fe /basic | |
| parent | 25bb4c31a68acd4526176580be72a9d4d626d013 (diff) | |
tdf#136801 : IsNumeric("+2") and CInt("+2") return correct values
Change-Id: I036f21c8196530973d2cdc366da7654ccd930892
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106556
Tested-by: Jenkins
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/qa/vba_tests/cint.vb | 4 | ||||
| -rw-r--r-- | basic/qa/vba_tests/isnumeric.vb | 4 | ||||
| -rw-r--r-- | basic/source/sbx/sbxscan.cxx | 4 |
3 files changed, 11 insertions, 1 deletions
diff --git a/basic/qa/vba_tests/cint.vb b/basic/qa/vba_tests/cint.vb index 6c1d53c93c61..a178a0f97d62 100644 --- a/basic/qa/vba_tests/cint.vb +++ b/basic/qa/vba_tests/cint.vb @@ -73,6 +73,10 @@ REM TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1 nr1 = CInt("&H754") TestLog_ASSERT nr1 = nr2, "the return CInt is: " & nr1 + nr2 = 21 + nr1 = CInt("+21") + TestLog_ASSERT nr1 = nr2, "the return CInt is:" & nr1 + result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10) verify_testCInt = result diff --git a/basic/qa/vba_tests/isnumeric.vb b/basic/qa/vba_tests/isnumeric.vb index 2383f4bfe299..511a51bd9106 100644 --- a/basic/qa/vba_tests/isnumeric.vb +++ b/basic/qa/vba_tests/isnumeric.vb @@ -51,6 +51,10 @@ rem TestLog_ASSERT date1 = date2, "the return IsNumeric is: " & date1 date1 = IsNumeric("123") TestLog_ASSERT date1 = date2, "the return IsNumeric is: " & date1 + date2 = True + date1 = IsNumeric("+123") + TestLog_ASSERT date1 = date2, "the return IsNumeric is: " & date1 + result = result & Chr$(10) & "Tests passed: " & passCount & Chr$(10) & "Tests failed: " & failCount & Chr$(10) verify_testIsNumeric = result diff --git a/basic/source/sbx/sbxscan.cxx b/basic/source/sbx/sbxscan.cxx index d2f5c91e3483..de3d50dbed38 100644 --- a/basic/source/sbx/sbxscan.cxx +++ b/basic/source/sbx/sbxscan.cxx @@ -108,7 +108,9 @@ ErrCode ImpScan( const OUString& rWSrc, double& nVal, SbxDataType& rType, SbxDataType eScanType = SbxSINGLE; while( *p == ' ' || *p == '\t' ) p++; - if( *p == '-' ) + if (*p == '+') + p++; + else if( *p == '-' ) { p++; bMinus = true; |