summaryrefslogtreecommitdiff
path: root/basic/qa
diff options
context:
space:
mode:
authorJulien Nabet <serval2412@yahoo.fr>2014-01-21 23:40:11 +0100
committerNoel Power <noel.power@suse.com>2014-01-22 13:56:51 +0000
commit4eda1a0293a869bf804056f1e9e04c984c69454d (patch)
tree20c5f5813a26573c6873c88294c5ba29d08466dc /basic/qa
parentf03ce265db73388f3e0de97e4b0c8129cfc85d1f (diff)
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@suse.com> Tested-by: Noel Power <noel.power@suse.com>
Diffstat (limited to 'basic/qa')
-rw-r--r--basic/qa/basic_coverage/test_mid_EndOutOfBounds.vb15
-rw-r--r--basic/qa/basic_coverage/test_mid_NoEnd.vb15
-rw-r--r--basic/qa/basic_coverage/test_mid_StartOutOfBounds.vb15
-rw-r--r--basic/qa/basic_coverage/test_mid_first.vb15
4 files changed, 60 insertions, 0 deletions
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 000000000000..f54ee9444f30
--- /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 000000000000..76c5360d8bc8
--- /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 000000000000..9c623ce5106f
--- /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 000000000000..72c65099f7fa
--- /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