2 ' This file is part of the LibreOffice project.
4 ' This Source Code Form is subject to the terms of the Mozilla Public
5 ' License, v. 2.0. If a copy of the MPL was not distributed with this
6 ' file, You can obtain one at http://mozilla.org/MPL/2.0/.
12 Function doUnitTest() As String
15 doUnitTest
= TestUtil
.GetResult()
19 On Error GoTo errorHandler
23 TestUtil
.AssertEqual(CStr(n
), "437.324", "CStr(n)")
24 TestUtil
.AssertEqual(CStr(500), "500", "CStr(500)")
26 ' tdf#143575 - round string to their nearest double representation
27 ' N.B.: check also how current conversion rounds a close number
28 ' Without the fix in place, this test would have failed with:
30 ' - Actual : 691.2000000000001
31 TestUtil
.AssertEqual(CStr(691.2), "691.2", "CStr(691.2)")
32 ' Without the fix in place, this test would have failed with:
34 ' - Actual : 691.1999999999999
35 TestUtil
.AssertEqual(CStr(123.4 + 567.8), "691.2", "CStr(123.4 + 567.8)")
39 TestUtil
.ReportErrorHandler("verify_testCStr", Err
, Error$, Erl
)