[Libreoffice-commits] core.git: core/basic
LibreOfficiant (via logerrit)
logerrit at kemper.freedesktop.org
Thu Nov 28 16:25:34 UTC 2019
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
More information about the Libreoffice-commits
mailing list