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

[Julien Nabet]

 basic/qa/basic_coverage/test_mid_EndOutOfBounds.vb   |   15 +++++++++++++++
 basic/qa/basic_coverage/test_mid_NoEnd.vb            |   15 +++++++++++++++
 basic/qa/basic_coverage/test_mid_StartOutOfBounds.vb |   15 +++++++++++++++
 basic/qa/basic_coverage/test_mid_first.vb            |   15 +++++++++++++++
 4 files changed, 60 insertions(+)

New commits:
commit 4eda1a0293a869bf804056f1e9e04c984c69454d
Author: Julien Nabet <serval2412 at yahoo.fr>
Date:   Tue Jan 21 23:40:11 2014 +0100

    Add some unit-tests for Mid vb function (includes fdo#73771)
    
    Change-Id: Ib5ee18207897cbe16a818096769cdb055dc9dad7
    Reviewed-on: https://gerrit.libreoffice.org/7583
    Reviewed-by: Noel Power <noel.power at suse.com>
    Tested-by: Noel Power <noel.power at suse.com>

diff --git a/basic/qa/basic_coverage/test_mid_EndOutOfBounds.vb b/basic/qa/basic_coverage/test_mid_EndOutOfBounds.vb
new file mode 100644
index 0000000..f54ee94
--- /dev/null
+++ b/basic/qa/basic_coverage/test_mid_EndOutOfBounds.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", 1, 4) = "abc") Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+End Function
diff --git a/basic/qa/basic_coverage/test_mid_NoEnd.vb b/basic/qa/basic_coverage/test_mid_NoEnd.vb
new file mode 100644
index 0000000..76c5360
--- /dev/null
+++ b/basic/qa/basic_coverage/test_mid_NoEnd.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", 2) = "bc") Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+End Function
diff --git a/basic/qa/basic_coverage/test_mid_StartOutOfBounds.vb b/basic/qa/basic_coverage/test_mid_StartOutOfBounds.vb
new file mode 100644
index 0000000..9c623ce
--- /dev/null
+++ b/basic/qa/basic_coverage/test_mid_StartOutOfBounds.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, 1) = "") Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+End Function
diff --git a/basic/qa/basic_coverage/test_mid_first.vb b/basic/qa/basic_coverage/test_mid_first.vb
new file mode 100644
index 0000000..72c6509
--- /dev/null
+++ b/basic/qa/basic_coverage/test_mid_first.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", 1, 1) = "a") Then
+        doUnitTest = 1
+    Else
+        doUnitTest = 0
+    End If
+End Function