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="awt_UnoControlCurrencyFieldModel" 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
36Sub RunTest()
37
38'*************************************************************************
39' SERVICE:
40' com.sun.star.awt.UnoControlCurrencyFieldModel
41'*************************************************************************
42On Error Goto ErrHndl
43    Dim bOK As Boolean
44    Dim newVal, oldVal As Long
45
46
47    PropertyTester.TestProperty("BackgroundColor")
48
49    PropertyTester.TestProperty("Border")
50
51    PropertyTester.TestProperty("CurrencySymbol")
52
53    PropertyTester.TestProperty("DecimalAccuracy")
54
55    PropertyTester.TestProperty("Enabled")
56
57    PropertyTester.TestProperty("FontDescriptor")
58
59    PropertyTester.TestProperty("ShowThousandsSeparator")
60
61    PropertyTester.TestProperty("Printable")
62
63    PropertyTester.TestProperty("ReadOnly")
64
65    PropertyTester.TestProperty("Spin")
66
67    PropertyTester.TestProperty("StrictFormat")
68
69    PropertyTester.TestProperty("Tabstop")
70
71    PropertyTester.TestProperty("TextColor")
72
73    Test.StartMethod("Value")
74    bOK = true
75    oldVal = oObj.Value
76    Out.Log("value before: "+oldVal)
77    if (oldVal &lt;&gt; 999) then
78        oObj.Value = 999
79    else
80        oObj.Value = 1000
81    endif
82    newVal = oObj.Value
83    Out.Log("value after: "+newVal)
84    bOK = bOK AND (newVal &lt;&gt; oldVal)
85    Test.MethodTested("Value",bOK)
86
87    Test.StartMethod("ValueMax")
88    bOK = true
89    oldVal = oObj.ValueMax
90    Out.Log("value before: "+oldVal)
91    if (oldVal &lt;&gt; 1000000) then
92        oObj.ValueMax = 1000000
93    else
94        oObj.ValueMax = 1000001
95    endif
96    newVal = oObj.ValueMax
97    Out.Log("value after: "+newVal)
98    bOK = bOK AND (newVal &lt;&gt; oldVal)
99    Test.MethodTested("ValueMax",bOK)
100
101    Test.StartMethod("ValueMin")
102    bOK = true
103    oldVal = oObj.ValueMin
104    Out.Log("value before: "+oldVal)
105    if (oldVal &lt;&gt; -1000000) then
106        oObj.ValueMin = -1000000
107    else
108        oObj.ValueMin = -1000001
109    endif
110    newVal = oObj.ValueMin
111    Out.Log("value after: "+newVal)
112    bOK = bOK AND (newVal &lt;&gt; oldVal)
113    Test.MethodTested("ValueMin",bOK)
114
115    PropertyTester.TestProperty("ValueStep")
116
117    PropertyTester.TestProperty("HelpText")
118
119    PropertyTester.TestProperty("HelpURL")
120
121    PropertyTester.TestProperty("FontEmphasisMark")
122
123    PropertyTester.TestProperty("FontRelief")
124
125    PropertyTester.TestProperty("PrependCurrencySymbol")
126
127    PropertyTester.TestProperty("TextLineColor")
128
129Exit Sub
130ErrHndl:
131    Test.Exception()
132    bOK = false
133    resume next
134End Sub
135</script:module>
136