summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLibreOfficiant <LibreOfficiant@sfr.fr>2019-11-25 17:05:54 +0200
committerMike Kaganski <mike.kaganski@collabora.com>2019-11-28 17:24:43 +0100
commit5b10c314517b78b70fc4eda6b20630ed3944d4e0 (patch)
tree31abac830907868f309d5a45a1acf39399211f16
parent902a0c52c4ce4a842228e21948a702c9a4e29d37 (diff)
StarDesktop libO Basic UNO object
Change-Id: I83c0d0cd846ffbdf15bd22353c96713218397f6c Reviewed-on: https://gerrit.libreoffice.org/83691 Tested-by: Jenkins Reviewed-by: LibreOfficiant <LibreOfficiant@sfr.fr> Reviewed-by: Mike Kaganski <mike.kaganski@collabora.com>
-rw-r--r--core/basic/qa/basic_coverage/test_StarDesktop.vb17
1 files changed, 17 insertions, 0 deletions
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