1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
' This file is part of the LibreOffice project.
'
' This Source Code Form is subject to the terms of the Mozilla Public
' License, v. 2.0. If a copy of the MPL was not distributed with this
' file, You can obtain one at http://mozilla.org/MPL/2.0/.
'
Option Explicit
Function doUnitTest as String
TestUtil.TestInit
verify_testStr
doUnitTest = TestUtil.GetResult()
End Function
Dim failedAssertion As Boolean, messages As String
Sub verify_testStr
On Error GoTo errorHandler
' If a string is passed as argument, it is returned without any changes
TestUtil.AssertEqualStrict(Str(""), "", "Str("""")")
TestUtil.AssertEqualStrict(Str(" "), " ", "Str("" "")")
TestUtil.AssertEqualStrict(Str(" 00 "), " 00 ", "Str("" 00 "")")
' Non-negative numbers are preceded by a blank space
TestUtil.AssertEqualStrict(Str(0), " 0", "Str(0)")
TestUtil.AssertEqualStrict(Str(1 / 10), " 0.1", "Str(1 / 10)")
' Negative numbers are preceded by a minus sign
TestUtil.AssertEqualStrict(Str(-1 / 10), "-0.1", "Str(-1 / 10)")
' Dates are converted into locale-dependent strings (test uses en-US)
TestUtil.AssertEqualStrict(Str(CDate("2025-09-26")), "09/26/2025", "Str(CDate(""2025-09-26""))")
TestUtil.AssertEqualStrict(Str(#2025-09-26#), "09/26/2025", "Str(#2025-09-26#)")
TestUtil.AssertEqualStrict(Str(true), "True", "Str(true)")
Exit Sub
errorHandler:
TestUtil.ReportErrorHandler("verify_testStr", Err, Error$, Erl)
End Sub
|
