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

[LibreOfficiant (via logerrit)]

 core/basic/qa/basic_coverage/test_StarDesktop.vb |   17 +++++++++++++++++
 1 file changed, 17 insertions(+)

New commits:
commit 5b10c314517b78b70fc4eda6b20630ed3944d4e0
Author:     LibreOfficiant <LibreOfficiant at sfr.fr>
AuthorDate: Mon Nov 25 17:05:54 2019 +0200
Commit:     Mike Kaganski <mike.kaganski at collabora.com>
CommitDate: Thu Nov 28 17:24:43 2019 +0100

    StarDesktop libO Basic UNO object
    
    Change-Id: I83c0d0cd846ffbdf15bd22353c96713218397f6c
    Reviewed-on: https://gerrit.libreoffice.org/83691
    Tested-by: Jenkins
    Reviewed-by: LibreOfficiant <LibreOfficiant at sfr.fr>
    Reviewed-by: Mike Kaganski <mike.kaganski at collabora.com>

diff --git a/core/basic/qa/basic_coverage/test_StarDesktop.vb b/core/basic/qa/basic_coverage/test_StarDesktop.vb
new file mode 100644
index 000000000000..7c1bf0968591
--- /dev/null
+++ b/core/basic/qa/basic_coverage/test_StarDesktop.vb
@@ -0,0 +1,17 @@
+'
+' 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
+  Const SERVICE = "com.sun.star.frame.Desktop"
+  ' STARDESKTOP
+  If Not StarDesktop.supportsService(SERVICE) Then
+    doUnitTest = 0
+  Else
+    doUnitTest = 1 ' Ok
+  End If
+End Function