office-gobmx/basic/qa/basic_coverage/test_mid_replace_less.bas
Mike Kaganski 9258f7009e Rename LibreOffice Basic test files from .vb to .bas: they are not VBA
Change-Id: I4ff8a8dc855da2c60084318e067d4ec8149d055e
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118330
Reviewed-by: Xisco Fauli <xiscofauli@libreoffice.org>
Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>
Tested-by: Jenkins
2021-07-02 20:48:34 +02:00

19 lines
569 B
QBasic

'
' 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/.
'
' cf. <https://bugs.documentfoundation.org/show_bug.cgi?id=62090> "Mid statement doesn't work as
' expected":
Function doUnitTest as String
s = "The lightbrown fox"
Mid(s, 5, 10, "lazy")
If (s = "The lazy fox") Then
doUnitTest = "OK"
Else
doUnitTest = "FAIL"
End If
End Function