diff options
Diffstat (limited to 'smoketestoo_native/data/Test_Ext.xml')
-rw-r--r-- | smoketestoo_native/data/Test_Ext.xml | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/smoketestoo_native/data/Test_Ext.xml b/smoketestoo_native/data/Test_Ext.xml index 31d27dc7a4a7..9235b9600af9 100644 --- a/smoketestoo_native/data/Test_Ext.xml +++ b/smoketestoo_native/data/Test_Ext.xml @@ -41,15 +41,15 @@ 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 + '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) @@ -68,14 +68,14 @@ sImplementationNameString = cUnoSmoketestTestExtension + "$_TestExtension&q sCurrentMessage = cMessageExtensionInstall nCurrentAction = cEXTInstall - + 'Add the extension. We must provide a file URL here. 'By passing "user" we determine that the actions we perform on 'XExtensionManager only affect the user installation. To modify the share installation one would pass "share". Dim props() as Object ext_mgr.addExtension(sExtensionURL + cExtensionFileName, props, "user", 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) @@ -89,7 +89,7 @@ sImplementationNameString = cUnoSmoketestTestExtension + "$_TestExtension&q sCurrentMessage = cMessageExtensionUninstall nCurrentAction = cEXTUninstall - + 'Remove the package ext_mgr.removeExtension("org.openoffice.legacy." + cExtensionFileName, cExtensionFileName, "user",obj_null, cmdEnv) @@ -100,13 +100,13 @@ sImplementationNameString = cUnoSmoketestTestExtension + "$_TestExtension&q 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 + If (nCurrentAction = cLogfileFailed) then SetStatus (FilterType, cEXTService, False) Exit Sub else @@ -114,7 +114,7 @@ sImplementationNameString = cUnoSmoketestTestExtension + "$_TestExtension&q LogState (False, "Extension "+ sCurrentMessage, MainFileChannel) SetStatus (FilterType, nCurrentAction, False) Close #FileChannel% - End If + End If Exit Sub ' With error End Sub |