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 <serval2...@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.po...@suse.com>
Tested-by: Noel Power <noel.po...@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
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
