[Libreoffice-commits] core.git: basic/qa

[Julien Nabet]

 basic/qa/basic_coverage/test_mid_CountNegative_3args.vb    |   15 +++++++++++++
 basic/qa/basic_coverage/test_mid_StartOutOfBounds_2args.vb |   15 +++++++++++++
 2 files changed, 30 insertions(+)

New commits:
commit 4e00df4f0b05b3d6c8f185e08499d40964e7182f
Author: Julien Nabet <serval2412 at yahoo.fr>
Date:   Tue Dec 30 22:23:51 2014 +0100

    Related fdo#87834: add 2 unit tests
    
    Change-Id: I4735b15c9535dc17665629510fdafe3dd4086e0b
    Reviewed-on: https://gerrit.libreoffice.org/13708
    Reviewed-by: Caolán McNamara <caolanm at redhat.com>
    Tested-by: Caolán McNamara <caolanm at redhat.com>

diff --git a/basic/qa/basic_coverage/test_mid_CountNegative_3args.vb b/basic/qa/basic_coverage/test_mid_CountNegative_3args.vb
new file mode 100644
index 0000000..d673706
--- /dev/null
+++ b/basic/qa/basic_coverage/test_mid_CountNegative_3args.vb
@@ -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, -3) = "") Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+End Function
diff --git a/basic/qa/basic_coverage/test_mid_StartOutOfBounds_2args.vb b/basic/qa/basic_coverage/test_mid_StartOutOfBounds_2args.vb
new file mode 100644
index 0000000..5ab01f9
--- /dev/null
+++ b/basic/qa/basic_coverage/test_mid_StartOutOfBounds_2args.vb
@@ -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) = "") Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+End Function