Quelle  stringplusdouble.vb   Sprache: unbekannt

'
' 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 VBASupport 1
Option Explicit

Function doUnitTest() As String
    TestUtil.TestInit
    DSD ' double = string + double
    SSD ' string = string + double
    DSS ' double = string + string
    doUnitTest = TestUtil.GetResult()
End Function

Sub DSD()
    Dim s As String
    Dim d As Double
    Dim r As Double

    On Error GoTo ErrorHandler

    r = s + d
    TestUtil.AssertEqual(r, -1, "s = null, d = null, r = s + d")

    r = s & d
    TestUtil.AssertEqual(r, 0, "s = null, d = null, r = s & d")

    d = 20
    r = s + d
    TestUtil.AssertEqual(r, -1, "s = null, d = 20, r = s + d")

    d = 20
    r = s & d
    TestUtil.AssertEqual(r, 20, "s = null, d = 20, r = s & d")

    ''''''''''''''
    s = "10"
    Dim d2 As Double
    r = s + d2
    TestUtil.AssertEqual(r, 10, "s = '10', d = null, r = s + d")

    r = s & d2
    TestUtil.AssertEqual(r, 100, "s = '10', d = null, r = s & d")

    d2 = 20
    r = s + d2
    TestUtil.AssertEqual(r, 30, "s = '10', d = 20, r = s + d")

    d2 = 20
    r = s & d2
    TestUtil.AssertEqual(r, 1020, "s = '10', d = 20, r = s & d")

     ''''''''''''''
    s = "abc"
    Dim d3 As Double
    r = s + d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s + d")

    r = s & d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s & d")

    d3 = 20
    r = s + d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s + d")

    d3 = 20
    r = s & d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s & d")

    Exit Sub

ErrorHandler:
    r = -1
    Resume Next
End Sub

Sub SSD()
    Dim s As String
    Dim d As Double
    Dim r As String

    On Error GoTo ErrorHandler

    r = s + d
    TestUtil.AssertEqual(r, "-1", "s = null, d = null, r = s + d")

    r = s & d
    TestUtil.AssertEqual(r, "0", "s = null, d = null, r = s & d")

    d = 20
    r = s + d
    TestUtil.AssertEqual(r, "-1", "s = null, d = 20, r = s + d")

    d = 20
    r = s & d
    TestUtil.AssertEqual(r, "20", "s = null, d = 20, r = s & d")

    ''''''''''''''
    s = "10"
    Dim d2 As Double
    r = s + d2
    TestUtil.AssertEqual(r, "10", "s = '10', d = null, r = s + d")

    r = s & d2
    TestUtil.AssertEqual(r, "100", "s = '10', d = null, r = s & d")

    d2 = 20
    r = s + d2
    TestUtil.AssertEqual(r, "30", "s = '10', d = 20, r = s + d")

    d2 = 20
    r = s & d2
    TestUtil.AssertEqual(r, "1020", "s = '10', d = 20, r = s & d")

     ''''''''''''''
    s = "abc"
    Dim d3 As Double
    r = s + d3
    TestUtil.AssertEqual(r, "-1", "s = 'abc', d = null, r = s + d")

    r = s & d3
    TestUtil.AssertEqual(r, "abc0", "s = 'abc', d = null, r = s & d")

    d3 = 20
    r = s + d3
    TestUtil.AssertEqual(r, "-1", "s = 'abc', d = 20, r = s + d")

    d3 = 20
    r = s & d3
    TestUtil.AssertEqual(r, "abc20", "s = 'abc', d = 20, r = s & d")
    Exit Sub

ErrorHandler:
    r = "-1"
    Resume Next
End Sub

Sub DSS()
    Dim s As String
    Dim d As String
    Dim r As Double

    On Error GoTo ErrorHandler

    r = s + d
    TestUtil.AssertEqual(r, -1, "s = null, d = null, r = s + d")

    r = s & d
    TestUtil.AssertEqual(r, -1, "s = null, d = null, r = s & d")

    d = "20"
    r = s + d
    TestUtil.AssertEqual(r, 20, "s = null, d = 20, r = s + d")

    d = "20"
    r = s & d
    TestUtil.AssertEqual(r, 20, "s = null, d = 20, r = s & d")

    ''''''''''''''
    s = "10"
    Dim d2 As String
    r = s + d2
    TestUtil.AssertEqual(r, 10, "s = '10', d = null, r = s + d")

    r = s & d2
    TestUtil.AssertEqual(r, 10, "s = '10', d = null, r = s & d")

    d2 = "20"
    r = s + d2
    TestUtil.AssertEqual(r, 1020, "s = '10', d = 20, r = s + d")

    d2 = "20"
    r = s & d2
    TestUtil.AssertEqual(r, 1020, "s = '10', d = 20, r = s & d")

     ''''''''''''''
    s = "abc"
    Dim d3 As String
    r = s + d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s + d")

    r = s & d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s & d")

    d3 = "20"
    r = s + d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s + d")

    d3 = "20"
    r = s & d3
    TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s & d")
    Exit Sub

ErrorHandler:
    r = -1
    Resume Next
End Sub

Sub test2()
    Dim s As String
    Dim d As Double
    s = ""
    d = s ' fail in MSO
    MsgBox d
End Sub

Sub testBoolean()
    Dim a As String
    Dim b As Boolean
    Dim c As Boolean
    Dim d As String

    b = True

    a = "1"
    c = a + b ' c = false
    MsgBox c

    d = a + b 'd = 0
    MsgBox d
End Sub

Sub testCurrency()
    Dim a As String
    Dim b As Currency
    Dim c As Currency
    Dim d As String

    a = "10"
    b = 30.3

    c = a + b ' c = 40.3
    MsgBox c

    d = a + b ' c =40.3
    MsgBox d

End Sub