basic/qa/basic_coverage/test_If.bas | 59 ++++++++++++++++++++++++++++++++++++
1 file changed, 59 insertions(+)
New commits:
commit 0a9135e0d901d13422a7c17c6e00ba86b1cc1ae5
Author: Alain Romedenne <alain.romede...@libreoffice.org>
AuthorDate: Wed Jul 31 09:33:45 2024 +0200
Commit: Mike Kaganski <mike.kagan...@collabora.com>
CommitDate: Thu Aug 1 10:04:02 2024 +0200
Basic QA new unit test for IF THEN statement
Intent is to cover:
- repeating ElseIf blocks
_ nested IF statements
- IF THEN one liner
Change-Id: Iee37707e26a563f336438ce7ba17271a7f06e6fa
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/171285
Tested-by: Jenkins
Reviewed-by: Mike Kaganski <mike.kagan...@collabora.com>
diff --git a/basic/qa/basic_coverage/test_If.bas
b/basic/qa/basic_coverage/test_If.bas
new file mode 100644
index 000000000000..71193108ab9f
--- /dev/null
+++ b/basic/qa/basic_coverage/test_If.bas
@@ -0,0 +1,59 @@
+Option Explicit
+
+Function doUnitTest() As String
+ TestUtil.TestInit
+
+ TestUtil.AssertEqual(verify_ElseIf, "OK", "verify_ElseIf", "result")
+ TestUtil.AssertEqual(verify_nested_Ifs, "OK", "verify_nested_Ifs",
"result")
+ TestUtil.AssertEqual(verify_oneline, "OK", "verify_oneline", "result")
+
+ doUnitTest = TestUtil.GetResult()
+End Function
+
+Sub Main : MsgBox doUnitTest : End Sub
+
+Function verify_ElseIf As String
+ On Error GoTo catch
+
+ If False Then
+ verify_ElseIf = "Fail"
+ ElseIf False Then
+ verify_ElseIf = "Fail"
+ ElseIf False Then
+ verify_ElseIf = "Fail"
+ ElseIf False Then verify_ElseIf = "Fail"
+ Else
+ verify_ElseIf = "OK"
+ End If
+ Exit Function
+
+catch:
+ TestUtil.ReportErrorHandler("verify_ElseIf", Err, Error$, Erl)
+End Function
+
+Function verify_oneline As String
+ If False Then verify_oneline = "Fail" Else verify_oneline = "OK"
+End Function
+
+Function verify_nested_Ifs
+ '
+ On Error GoTo catch
+
+ If False Then
+ verify_nested_Ifs = "Fail"
+ ElseIf True Then
+ If True Then
+ verify_nested_Ifs = "OK"
+ End If
+ ElseIf False Then
+ verify_nested_Ifs = "Fail"
+ ElseIf False Then verify_nested_Ifs = "Fail"
+ Else
+ verify_nested_Ifs = "Fail"
+ EndIf
+ Exit Function
+
+catch:
+ TestUtil.ReportErrorHandler("verify_nested_Ifs", Err, Error$, Erl)
+
+End Function
