1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<script:module xmlns:script="http://openoffice.org/2000/script" script:name="util_PathSettings" script:language="StarBasic">
4
5
6'*************************************************************************
7'
8' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
9'
10' Copyright 2000, 2010 Oracle and/or its affiliates.
11'
12' OpenOffice.org - a multi-platform office productivity suite
13'
14' This file is part of OpenOffice.org.
15'
16' OpenOffice.org is free software: you can redistribute it and/or modify
17' it under the terms of the GNU Lesser General Public License version 3
18' only, as published by the Free Software Foundation.
19'
20' OpenOffice.org is distributed in the hope that it will be useful,
21' but WITHOUT ANY WARRANTY; without even the implied warranty of
22' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
23' GNU Lesser General Public License version 3 for more details
24' (a copy is included in the LICENSE file that accompanied this code).
25'
26' You should have received a copy of the GNU Lesser General Public License
27' version 3 along with OpenOffice.org.  If not, see
28' <http://www.openoffice.org/license.html>
29' for a copy of the LGPLv3 License.
30'
31'*************************************************************************
32*****
33'*************************************************************************
34
35
36
37' Be sure that all variables are dimensioned:
38option explicit
39
40
41
42Sub RunTest()
43
44'*************************************************************************
45' SERVICE:
46' com.sun.star.util.PathSettings
47'*************************************************************************
48On Error Goto ErrHndl
49
50    Dim values(1) As String
51    values(1) = oObj.Addin
52    values(0) = values(1) + "New"
53    PropertyTester.TestProperty("Addin", values())
54
55    values(1) = oObj.AutoCorrect
56    values(0) = values(1) + "New"
57    PropertyTester.TestProperty("AutoCorrect", values())
58
59    values(1) = oObj.AutoText
60    values(0) = values(1) + "New"
61    PropertyTester.TestProperty("AutoText", values())
62
63    values(1) = oObj.Backup
64    values(0) = values(1) + "New"
65    PropertyTester.TestProperty("Backup", values())
66
67    values(1) = oObj.Basic
68    values(0) = values(1) + "New"
69    PropertyTester.TestProperty("Basic", values())
70
71    values(1) = oObj.Bitmap
72    values(0) = values(1) + "New"
73    PropertyTester.TestProperty("Bitmap", values())
74
75    values(1) = oObj.Config
76    values(0) = values(1) + "New"
77    PropertyTester.TestProperty("Config", values())
78
79    values(1) = oObj.Dictionary
80    values(0) = values(1) + "New"
81    PropertyTester.TestProperty("Dictionary", values())
82
83    values(1) = oObj.Favorite
84    values(0) = values(1) + "New"
85    PropertyTester.TestProperty("Favorite", values())
86
87    values(1) = oObj.Filter
88    values(0) = values(1) + "New"
89    PropertyTester.TestProperty("Filter", values())
90
91    values(1) = oObj.Gallery
92    values(0) = values(1) + "New"
93    PropertyTester.TestProperty("Gallery", values())
94
95    values(1) = oObj.Graphic
96    values(0) = values(1) + "New"
97    PropertyTester.TestProperty("Graphic", values())
98
99    values(1) = oObj.Help
100    values(0) = values(1) + "New"
101    PropertyTester.TestProperty("Help", values())
102
103    values(1) = oObj.Linguistic
104    values(0) = values(1) + "New"
105    PropertyTester.TestProperty("Linguistic", values())
106
107    values(1) = oObj.Module
108    values(0) = values(1) + "New"
109    PropertyTester.TestProperty("Module", values())
110
111    values(1) = oObj.Palette
112    values(0) = values(1) + "New"
113    PropertyTester.TestProperty("Palette", values())
114
115    values(1) = oObj.Plugin
116    values(0) = values(1) + "New"
117    PropertyTester.TestProperty("Plugin", values())
118
119    values(1) = oObj.Storage
120    values(0) = values(1) + "New"
121    PropertyTester.TestProperty("Storage", values())
122
123    values(1) = oObj.Temp
124    values(0) = values(1) + "New"
125    PropertyTester.TestProperty("Temp", values())
126
127    values(1) = oObj.Template
128    values(0) = values(1) + "New"
129    PropertyTester.TestProperty("Template", values())
130
131    values(1) = oObj.UIConfig
132    values(0) = values(1) + "New"
133    PropertyTester.TestProperty("UIConfig", values())
134
135    values(1) = oObj.UserConfig
136    values(0) = values(1) + "New"
137    PropertyTester.TestProperty("UserConfig", values())
138
139    values(1) = oObj.UserDictionary
140    values(0) = values(1) + "New"
141    PropertyTester.TestProperty("UserDictionary", values())
142
143    values(1) = oObj.Work
144    values(0) = values(1) + "New"
145    PropertyTester.TestProperty("Work", values())
146
147Exit Sub
148ErrHndl:
149    Test.Exception()
150    resume next
151End Sub
152</script:module>
153