1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Test_Ext" script:language="StarBasic">REM ***** BASIC *****
const cMessageExtensionService = "Extension Service"
const cMessageExtensionInstall = "Install Extension"
const cMessageExtensionUninstall = "Uninstall Extension"
Sub TestExtensions (FilterType as Integer)
Dim oTestExtension as Object, obj_null as Object
Dim sCurrentMessage as String
Dim nCurrentAction as Integer
Dim bResult as Boolean
Dim sImplementationNameString as String
sImplementationNameString = cUnoSmoketestTestExtension + "$_TestExtension"
On Local Error GoTo EXTERROR
nCurrentAction = cLogfileFailed
FileChannel% = OpenLogDat (GetLogFileName(FilterType))
sCurrentMessage = cMessageExtensionService
nCurrentAction = cEXTService
'Create an implementation of com.sun.star.ucb.XCommandEnvironment which is needed for
'adding the extension. The implementation is in
'javaunohelper/com/sun/star/comp/juhtest/SmoketestCommandEnvironment.java and the code is in juh.jar
cmdEnv = createUnoService(cUnoSmoketestCommandEnvironment)
'Create the component context and then get the singleton thePackageManagerFactory
'A singleton cannot be created with createUnoService
ctx = getDefaultContext
factory = ctx.getValueByName("/singletons/" + cUnothePackageManagerFactory)
'Get the XPackageManager interface. By passing "user" we determine that the actions we perform on
'XPackageManager only affect the user installation. To modify the share installation one would pass "share".
ext_mgr = factory.getPackageManager("user")
LogState (not IsNull (ext_mgr), "Extension "+ cMessageExtensionService, FileChannel)
LogState (not IsNull (ext_mgr), "Extension "+ cMessageExtensionService, MainFileChannel)
SetStatus (FilterType, cEXTService, not IsNull (ext_mgr))
if (IsNull(ext_mgr)) then
Close #FileChannel%
Exit Sub
End If
sCurrentMessage = cMessageExtensionInstall
nCurrentAction = cEXTInstall
'Add the extension. We must provide a file URL here.
ext_mgr.addPackage(sExtensionURL + cExtensionFileName, "", obj_null, cmdEnv)
'Check if the extension has been added by creating a service which is contained in the extension.
oTestExtension = createUnoService(cUnoSmoketestTestExtension)
bResult = (oTestExtension.getImplementationName = sImplementationNameString)
LogState (bResult, "Extension "+ cMessageExtensionInstall, FileChannel)
LogState (bResult, "Extension "+ cMessageExtensionInstall, MainFileChannel)
SetStatus (FilterType, cEXTInstall, bResult)
if (not bResult) then
Close #FileChannel%
Exit Sub
End If
sCurrentMessage = cMessageExtensionUninstall
nCurrentAction = cEXTUninstall
'Remove the package
ext_mgr.removePackage("org.openoffice.legacy." + cExtensionFileName, cExtensionFileName, obj_null, cmdEnv)
'Try to create the service which is contained in the now removed extension.
oTestExtension = createUnoService(cUnoSmoketestTestExtension)
'The service must not be available anymore. Therefor isNull must return true.
LogState (IsNull (oTestExtension), "Extension "+ cMessageExtensionUninstall, FileChannel)
LogState (IsNull (oTestExtension), "Extension "+ cMessageExtensionUninstall, MainFileChannel)
SetStatus (FilterType, cEXTUninstall, IsNull (oTestExtension))
Print #FileChannel, "---"
Close #FileChannel%
Exit Sub ' Without error
EXTERROR:
If (nCurrentAction = cLogfileFailed) then
SetStatus (FilterType, cEXTService, False)
Exit Sub
else
LogState (False, "Extension "+ sCurrentMessage, FileChannel)
LogState (False, "Extension "+ sCurrentMessage, MainFileChannel)
SetStatus (FilterType, nCurrentAction, False)
Close #FileChannel%
End If
Exit Sub ' With error
End Sub
</script:module>
|