diff options
Diffstat (limited to 'basic/qa/basic_coverage/test_split_method.vb')
-rw-r--r-- | basic/qa/basic_coverage/test_split_method.vb | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/basic/qa/basic_coverage/test_split_method.vb b/basic/qa/basic_coverage/test_split_method.vb index d09e8c3e7e3b..8f3701e3d987 100644 --- a/basic/qa/basic_coverage/test_split_method.vb +++ b/basic/qa/basic_coverage/test_split_method.vb @@ -6,10 +6,27 @@ ' Function doUnitTest as Integer + + doUnitTest = 0 + ' SPLIT - If ( Split( "Hello world" )(1) <> "world" ) Then - doUnitTest = 0 - Else - doUnitTest = 1 - End If + If ( Split( "Hello world" )(1) <> "world" ) Then Exit Function + + ' tdf#123025 - split function sets the datatype of the array to empty, + ' preventing any subsequent assignments of values to the array and to the elements itself. + Dim arr(1) As String + arr = Split("a/b", "/") + If ( arr(0) <> "a" Or arr(1) <> "b" ) Then Exit Function + ReDim Preserve arr(1) + If ( arr(0) <> "a" Or arr(1) <> "b" ) Then Exit Function + ReDim arr(1) + If ( arr(0) <> "" Or arr(1) <> "" ) Then Exit Function + arr(0) = "a" + arr(1) = "b" + If ( arr(0) <> "a" Or arr(1) <> "b" ) Then Exit Function + ReDim Preserve arr(1) + If ( arr(0) <> "a" Or arr(1) <> "b" ) Then Exit Function + + doUnitTest = 1 + End Function |