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

[Xisco Fauli (via logerrit)]

 basic/qa/basic_coverage/test_tdf98778.bas |   22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

New commits:
commit f7d128f1223a28d5fdae53ceaad55bf3166a9036
Author:     Xisco Fauli <xiscofauli at libreoffice.org>
AuthorDate: Wed Jul 14 17:48:32 2021 +0200
Commit:     Xisco Fauli <xiscofauli at libreoffice.org>
CommitDate: Wed Jul 14 19:39:07 2021 +0200

    tdf#98778: basic_macros: Add unittest
    
    Change-Id: I35468fb35f5c24af2138688d99af0e41ba672334
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/118944
    Tested-by: Jenkins
    Reviewed-by: Xisco Fauli <xiscofauli at libreoffice.org>

diff --git a/basic/qa/basic_coverage/test_tdf98778.bas b/basic/qa/basic_coverage/test_tdf98778.bas
new file mode 100644
index 000000000000..0228e5060ba8
--- /dev/null
+++ b/basic/qa/basic_coverage/test_tdf98778.bas
@@ -0,0 +1,22 @@
+Option VBASupport 0
+Option Explicit
+
+Function doUnitTest() As String
+    TestUtil.TestInit
+    verify_tdf98778
+    doUnitTest = TestUtil.GetResult()
+End Function
+
+Sub verify_tdf98778()
+    On Error GoTo errorHandler
+
+    dim d as double
+    dim s as string
+    s="1.0E-5"
+    d=s
+    TestUtil.AssertEqual(d, 1E-05, "tdf#98778")
+
+    Exit Sub
+errorHandler:
+    TestUtil.ReportErrorHandler("verify_tdf98778", Err, Error$, Erl)
+End Sub