mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add some unit-tests for Mid vb function (includes fdo#73771)

Browse Source 
Change-Id: Ib5ee18207897cbe16a818096769cdb055dc9dad7
Reviewed-on: https://gerrit.libreoffice.org/7583
Reviewed-by: Noel Power <noel.power@suse.com>
Tested-by: Noel Power <noel.power@suse.com>
This commit is contained in:
Julien Nabet
2014-01-21 23:40:11 +01:00
committed by Noel Power
parent f03ce265db
commit 4eda1a0293
4 changed files with 60 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
basic/qa/basic_coverage/test_mid_EndOutOfBounds.vb Normal file
View File

@@ -0,0 +1,15 @@
'
' 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/.
'
Function doUnitTest as Integer
If (Mid("abc", 1, 4) = "abc") Then
doUnitTest = 1
Else
doUnitTest = 0
End If
End Function

15
basic/qa/basic_coverage/test_mid_NoEnd.vb Normal file
View File

@@ -0,0 +1,15 @@
'
' 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/.
'
Function doUnitTest as Integer
If (Mid("abc", 2) = "bc") Then
doUnitTest = 1
Else
doUnitTest = 0
End If
End Function

15
basic/qa/basic_coverage/test_mid_StartOutOfBounds.vb Normal file
View File

@@ -0,0 +1,15 @@
'
' 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/.
'
Function doUnitTest as Integer
If (Mid("abc", 5, 1) = "") Then
doUnitTest = 1
Else
doUnitTest = 0
End If
End Function

15
basic/qa/basic_coverage/test_mid_first.vb Normal file
View File

@@ -0,0 +1,15 @@
'
' 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/.
'
Function doUnitTest as Integer
If (Mid("abc", 1, 1) = "a") Then
doUnitTest = 1
Else
doUnitTest = 0
End If
End Function