mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
06e81f5783c96ea3d07ecbc11e2085ff41adcff0
libreoffice/basic/qa/basic_coverage/test_redim_objects.bas

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

36 lines
1013 B
QBasic
Raw Normal View History

tdf#136755, tdf#124008 - delete the variable beforehand REDIM If an array of objects is passed as an argument to ReDim, delete the variable beforehand, otherwise the construction of the new variable fails, because the old one is still on the stack. Change-Id: Ic863a36f5f2aca658df369f95d275aa287edf795 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106832 Tested-by: Jenkins Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
2020-11-29 10:26:56 +01:00
' 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/.
'
basic_coverage: use Option Explicit where possible Add missing license headers to a couple of files Change-Id: I7610f922e9ac914ae8fda0d0b6a7ca389401caca Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118489 Tested-by: Jenkins Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
2021-07-06 16:00:14 +02:00
Option Explicit
tdf#136755, tdf#124008 - delete the variable beforehand REDIM If an array of objects is passed as an argument to ReDim, delete the variable beforehand, otherwise the construction of the new variable fails, because the old one is still on the stack. Change-Id: Ic863a36f5f2aca658df369f95d275aa287edf795 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106832 Tested-by: Jenkins Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
2020-11-29 10:26:56 +01:00
Type testType
iNr As Integer
sType As String
aValue As Variant
oColor As Object
End Type
tdf#84098 kill copy+paste in basic/qa/basic_coverage This also fix the problem of basic_coverage tests not showing the results when they were failing, since doUnitTest returned a Integer Change-Id: I637cd4cfaa34047bc99bfe6e0930f2945f1a9315 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118234 Tested-by: Jenkins Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
2021-07-01 18:23:08 +02:00
Function doUnitTest as String
tdf#136755, tdf#124008 - delete the variable beforehand REDIM If an array of objects is passed as an argument to ReDim, delete the variable beforehand, otherwise the construction of the new variable fails, because the old one is still on the stack. Change-Id: Ic863a36f5f2aca658df369f95d275aa287edf795 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106832 Tested-by: Jenkins Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
2020-11-29 10:26:56 +01:00
tdf#84098 kill copy+paste in basic/qa/basic_coverage This also fix the problem of basic_coverage tests not showing the results when they were failing, since doUnitTest returned a Integer Change-Id: I637cd4cfaa34047bc99bfe6e0930f2945f1a9315 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118234 Tested-by: Jenkins Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
2021-07-01 18:23:08 +02:00
doUnitTest = "FAIL"
tdf#136755, tdf#124008 - delete the variable beforehand REDIM If an array of objects is passed as an argument to ReDim, delete the variable beforehand, otherwise the construction of the new variable fails, because the old one is still on the stack. Change-Id: Ic863a36f5f2aca658df369f95d275aa287edf795 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106832 Tested-by: Jenkins Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
2020-11-29 10:26:56 +01:00
' tdf#136755 - ReDim did not work on an array of objects
Dim aPropertyValues(1) As New com.sun.star.beans.PropertyValue
If (UBound(aPropertyValues) <> 1) Then Exit Function
ReDim aPropertyValues(5) As com.sun.star.beans.PropertyValue
If (UBound(aPropertyValues) <> 5) Then Exit Function
' tdf#124008 - ReDim did not work on an array of individual declared types
Dim aType(1) As testType
If (UBound(aType) <> 1) Then Exit Function
ReDim aType(5) As testType
If (UBound(aType) <> 5) Then Exit Function
tdf#84098 kill copy+paste in basic/qa/basic_coverage This also fix the problem of basic_coverage tests not showing the results when they were failing, since doUnitTest returned a Integer Change-Id: I637cd4cfaa34047bc99bfe6e0930f2945f1a9315 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118234 Tested-by: Jenkins Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
2021-07-01 18:23:08 +02:00
doUnitTest = "OK"
tdf#136755, tdf#124008 - delete the variable beforehand REDIM If an array of objects is passed as an argument to ReDim, delete the variable beforehand, otherwise the construction of the new variable fails, because the old one is still on the stack. Change-Id: Ic863a36f5f2aca658df369f95d275aa287edf795 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106832 Tested-by: Jenkins Reviewed-by: Andreas Heinisch <andreas.heinisch@yahoo.de>
2020-11-29 10:26:56 +01:00
End Function
Reference in New Issue Copy Permalink