basic/qa/vba_tests/stringplusdouble.vb

   1 '
   2 ' This file is part of the LibreOffice project.
   3 '
   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/.
   7 '
   8
   9 Option VBASupport 1
  10 Option Explicit
  11
  12 Function doUnitTest() As String
  13     TestUtil.TestInit
  14     DSD ' double = string + double
  15     SSD ' string = string + double
  16     DSS ' double = string + string
  17     doUnitTest = TestUtil.GetResult()
  18 End Function
  19
  20 Sub DSD()
  21     Dim s As String
  22     Dim d As Double
  23     Dim r As Double
  24
  25     On Error GoTo ErrorHandler
  26
  27     r = s + d
  28     TestUtil.AssertEqual(r, -1, "s = null, d = null, r = s + d")
  29
  30     r = s & d
  31     TestUtil.AssertEqual(r, 0, "s = null, d = null, r = s & d")
  32
  33     d = 20
  34     r = s + d
  35     TestUtil.AssertEqual(r, -1, "s = null, d = 20, r = s + d")
  36
  37     d = 20
  38     r = s & d
  39     TestUtil.AssertEqual(r, 20, "s = null, d = 20, r = s & d")
  40
  41     ''''''''''''''
  42     s = "10"
  43     Dim d2 As Double
  44     r = s + d2
  45     TestUtil.AssertEqual(r, 10, "s = '10', d = null, r = s + d")
  46
  47     r = s & d2
  48     TestUtil.AssertEqual(r, 100, "s = '10', d = null, r = s & d")
  49
  50     d2 = 20
  51     r = s + d2
  52     TestUtil.AssertEqual(r, 30, "s = '10', d = 20, r = s + d")
  53
  54     d2 = 20
  55     r = s & d2
  56     TestUtil.AssertEqual(r, 1020, "s = '10', d = 20, r = s & d")
  57
  58      ''''''''''''''
  59     s = "abc"
  60     Dim d3 As Double
  61     r = s + d3
  62     TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s + d")
  63
  64     r = s & d3
  65     TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s & d")
  66
  67     d3 = 20
  68     r = s + d3
  69     TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s + d")
  70
  71     d3 = 20
  72     r = s & d3
  73     TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s & d")
  74
  75     Exit Sub
  76
  77 ErrorHandler:
  78     r = -1
  79     Resume Next
  80 End Sub
  81
  82 Sub SSD()
  83     Dim s As String
  84     Dim d As Double
  85     Dim r As String
  86
  87     On Error GoTo ErrorHandler
  88
  89     r = s + d
  90     TestUtil.AssertEqual(r, "-1", "s = null, d = null, r = s + d")
  91
  92     r = s & d
  93     TestUtil.AssertEqual(r, "0", "s = null, d = null, r = s & d")
  94
  95     d = 20
  96     r = s + d
  97     TestUtil.AssertEqual(r, "-1", "s = null, d = 20, r = s + d")
  98
  99     d = 20
 100     r = s & d
 101     TestUtil.AssertEqual(r, "20", "s = null, d = 20, r = s & d")
 102
 103     ''''''''''''''
 104     s = "10"
 105     Dim d2 As Double
 106     r = s + d2
 107     TestUtil.AssertEqual(r, "10", "s = '10', d = null, r = s + d")
 108
 109     r = s & d2
 110     TestUtil.AssertEqual(r, "100", "s = '10', d = null, r = s & d")
 111
 112     d2 = 20
 113     r = s + d2
 114     TestUtil.AssertEqual(r, "30", "s = '10', d = 20, r = s + d")
 115
 116     d2 = 20
 117     r = s & d2
 118     TestUtil.AssertEqual(r, "1020", "s = '10', d = 20, r = s & d")
 119
 120      ''''''''''''''
 121     s = "abc"
 122     Dim d3 As Double
 123     r = s + d3
 124     TestUtil.AssertEqual(r, "-1", "s = 'abc', d = null, r = s + d")
 125
 126     r = s & d3
 127     TestUtil.AssertEqual(r, "abc0", "s = 'abc', d = null, r = s & d")
 128
 129     d3 = 20
 130     r = s + d3
 131     TestUtil.AssertEqual(r, "-1", "s = 'abc', d = 20, r = s + d")
 132
 133     d3 = 20
 134     r = s & d3
 135     TestUtil.AssertEqual(r, "abc20", "s = 'abc', d = 20, r = s & d")
 136     Exit Sub
 137
 138 ErrorHandler:
 139     r = "-1"
 140     Resume Next
 141 End Sub
 142
 143 Sub DSS()
 144     Dim s As String
 145     Dim d As String
 146     Dim r As Double
 147
 148     On Error GoTo ErrorHandler
 149
 150     r = s + d
 151     TestUtil.AssertEqual(r, -1, "s = null, d = null, r = s + d")
 152
 153     r = s & d
 154     TestUtil.AssertEqual(r, -1, "s = null, d = null, r = s & d")
 155
 156     d = "20"
 157     r = s + d
 158     TestUtil.AssertEqual(r, 20, "s = null, d = 20, r = s + d")
 159
 160     d = "20"
 161     r = s & d
 162     TestUtil.AssertEqual(r, 20, "s = null, d = 20, r = s & d")
 163
 164     ''''''''''''''
 165     s = "10"
 166     Dim d2 As String
 167     r = s + d2
 168     TestUtil.AssertEqual(r, 10, "s = '10', d = null, r = s + d")
 169
 170     r = s & d2
 171     TestUtil.AssertEqual(r, 10, "s = '10', d = null, r = s & d")
 172
 173     d2 = "20"
 174     r = s + d2
 175     TestUtil.AssertEqual(r, 1020, "s = '10', d = 20, r = s + d")
 176
 177     d2 = "20"
 178     r = s & d2
 179     TestUtil.AssertEqual(r, 1020, "s = '10', d = 20, r = s & d")
 180
 181      ''''''''''''''
 182     s = "abc"
 183     Dim d3 As String
 184     r = s + d3
 185     TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s + d")
 186
 187     r = s & d3
 188     TestUtil.AssertEqual(r, -1, "s = 'abc', d = null, r = s & d")
 189
 190     d3 = "20"
 191     r = s + d3
 192     TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s + d")
 193
 194     d3 = "20"
 195     r = s & d3
 196     TestUtil.AssertEqual(r, -1, "s = 'abc', d = 20, r = s & d")
 197     Exit Sub
 198
 199 ErrorHandler:
 200     r = -1
 201     Resume Next
 202 End Sub
 203
 204 Sub test2()
 205     Dim s As String
 206     Dim d As Double
 207     s = ""
 208     d = s ' fail in MSO
 209     MsgBox d
 210 End Sub
 211
 212 Sub testBoolean()
 213     Dim a As String
 214     Dim b As Boolean
 215     Dim c As Boolean
 216     Dim d As String
 217
 218     b = True
 219
 220     a = "1"
 221     c = a + b ' c = false
 222     MsgBox c
 223
 224     d = a + b 'd = 0
 225     MsgBox d
 226 End Sub
 227
 228 Sub testCurrency()
 229     Dim a As String
 230     Dim b As Currency
 231     Dim c As Currency
 232     Dim d As String
 233
 234     a = "10"
 235     b = 30.3
 236
 237     c = a + b ' c = 40.3
 238     MsgBox c
 239
 240     d = a + b ' c =40.3
 241     MsgBox d
 242
 243 End Sub