blob: 5ba028ca5244d111be05241f68331c3c4fa8bc2c (
plain)
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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'
' Copyright 2000, 2010 Oracle and/or its affiliates.
'
' OpenOffice.org - a multi-platform office productivity suite
'
' This file is part of OpenOffice.org.
'
' OpenOffice.org is free software: you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License version 3
' only, as published by the Free Software Foundation.
'
' OpenOffice.org is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
' GNU Lesser General Public License version 3 for more details
' (a copy is included in the LICENSE file that accompanied this code).
'
' You should have received a copy of the GNU Lesser General Public License
' version 3 along with OpenOffice.org. If not, see
' <http://www.openoffice.org/license.html>
' for a copy of the LGPLv3 License.
'
'/************************************************************************
'*
'* Owner : wolfram.garten@sun.com
'*
'* short description :
'*
'\***********************************************************************************
testcase tdFormatParagraph
Dim Zaehler as integer
Dim a as integer
dim iCount as integer '3 out of 6 have to be able to change a value!
dim sIndent as string
dim sIndentValue
dim sTemp(5) as string
dim iTemp as integer
iCount = 0
Call hNewDocument
ToolsOptions
hToolsOptions (gApplication,"General")
iTemp = Masseinheit.GetSelIndex
Masseinheit.TypeKeys= "<HOME>" '(first entry)
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
FormatParagraph
Kontext
Active.SetPage TabEinzuegeUndAbstaende
Kontext "TabEinzuegeUndAbstaende"
VonLinks.SetText "2"
sleep (1)
VonLinks.Typekeys "<TAB>"
ErsteZeile.SetText "2"
sleep (1)
ErsteZeile.Typekeys "<TAB>"
VonRechts.SetText "2"
sleep (1)
VonRechts.Typekeys "<TAB>"
Oben.SetText "2"
sleep (1)
Oben.Typekeys "<TAB>"
Unten.SetText "2"
sleep (1)
Unten.Typekeys "<TAB>"
Zeilenabstand.TypeKeys "<DOWN>"
Zeilenabstand.TypeKeys "<UP>"
printlog "linespacing count: "+Zeilenabstand.GetItemCount
sTemp(1) = VonLinks.getText
sTemp(2) = ErsteZeile.getText
sTemp(3) = VonRechts.getText
sTemp(4) = Oben.getText
sTemp(5) = Unten.getText
TabEinzuegeUndAbstaende.OK
FormatParagraph
Kontext
Active.SetPage TabEinzuegeUndAbstaende
Kontext "TabEinzuegeUndAbstaende"
if LiberalMeasurement(VonLinks.GetText, sTemp(1)) <> TRUE Then WarnLog "Value changed VonLinks is: '" + VonLinks.GetText + "' should: '" + sTemp(1) +"'"
if LiberalMeasurement(VonRechts.GetText, sTemp(2)) <> TRUE Then WarnLog "Value changed VonRechts is: '" + VonRechts.GetText + "' should: '" + sTemp(2) +"'"
if LiberalMeasurement(ErsteZeile.GetText, sTemp(3)) <> TRUE Then WarnLog "Value changed ErsteZeile is: '" + ErsteZeile.GetText + "' should: '" + sTemp(3) +"'"
if LiberalMeasurement(Oben.GetText, sTemp(4)) <> TRUE Then WarnLog "Value changed Oben is: '" + Oben.GetText + "' should: '" + sTemp(4) +"'"
if LiberalMeasurement(Unten.GetText, sTemp(5)) <> TRUE Then WarnLog "Value changed Unten is: '" + Unten.GetText + "' should: '" + sTemp(5) +"'"
Zaehler=Zeilenabstand.GetItemCount
for a=1 to Zaehler
Zeilenabstand.Select a
sIndent = Zeilenabstand.GetSelText
sleep 1
try
' if um.IsEnabled then printlog "## UM##"
' if von.IsEnabled then printlog "##VON##"
if (von.IsEnabled and um.IsEnabled) then printlog "##VON#### UM## !!!!! :-("
if von.IsEnabled then
sIndentValue = von.GetText
von.More
sleep 1
if sIndentValue = von.GetText then
warnlog "value didn't change :-( : '"+sIndent +"'"
else
printlog "value changed :-) '"+sIndent +"'"
endif
iCount = iCount+1
else
if um.IsEnabled then
sIndentValue = Um.GetText
Um.More
sleep 1
if sIndentValue = Um.GetText then
warnlog "value didn't change :-( : '"+sIndent +"'"
else
printlog "value changed :-) '"+sIndent +"'"
endif
iCount = iCount+1
else
printlog "value not changeable :-? '"+sIndent +"'"
endif
endif
catch
warnLog "BIGERROR :-("
endcatch
printlog "----------------------------------------------------------------------------------------"
sleep 1
TabEinzuegeUndAbstaende.OK
sleep 1
FormatParagraph
Kontext
Active.SetPage TabEinzuegeUndAbstaende
Kontext "TabEinzuegeUndAbstaende"
next a
if iCount <> 3 then warnlog "Could only activate "+ iCount + " out of "+Zaehler +" vlauefields :-("
TabeinzuegeUndAbstaende.OK
FormatParagraph
Kontext
Active.SetPage TabAusrichtungAbsatz
Kontext "TabAusrichtungAbsatz"
Links.Check
TabAusrichtungAbsatz.OK
FormatParagraph
Kontext
Active.SetPage TabAusrichtungAbsatz
Kontext "TabAusrichtungAbsatz"
if Links.IsChecked=False Then WarnLog " Button 'left' is not activated"
Rechts.Check
TabAusrichtungAbsatz.OK
FormatParagraph
Kontext
Active.SetPage TabAusrichtungAbsatz
Kontext "TabAusrichtungAbsatz"
if Rechts.IsChecked=False Then WarnLog " Button 'right' is not activated"
Zentriert.Check
TabAusrichtungAbsatz.OK
FormatParagraph
Kontext
Active.SetPage TabAusrichtungAbsatz
Kontext "TabAusrichtungAbsatz"
if Zentriert.IsChecked=False Then WarnLog " Button 'center' is not activated"
Blocksatz.Check
TabAusrichtungAbsatz.OK
FormatParagraph
Kontext
Active.SetPage TabAusrichtungAbsatz
Kontext "TabAusrichtungAbsatz"
if Blocksatz.IsChecked=False Then WarnLog " Button 'justified' is not activated"
TabAusrichtungAbsatz.OK
FormatParagraph
Kontext
Active.SetPage TabTabulator
Kontext "TabTabulator"
SetClipboard Position.GetItemCount
Position.SetText "1"
Neu.Click
Position.SetText "2"
Neu.Click
Position.SetText "3"
Neu.Click
TabTabulator.OK
FormatParagraph
Kontext
Active.SetPage TabTabulator
Kontext "TabTabulator"
if GetClipboardText + 3 = Position.GetItemCount Then PrintLog " positions added"
Loeschen.Click
if Position.GetItemCount="3" Then
WarnLog " Delete does not work"
else
Printlog " TAll ran well in TabTabulator"
end if
TabTabulator.OK
ToolsOptions
hToolsOptions (gApplication,"General")
Masseinheit.Select iTemp
if ( Masseinheit.GetSelIndex <> iTemp ) then WarnLog "Unit of Measurement state were NOT changed back"
Kontext "ExtrasOptionenDlg"
ExtrasOptionenDlg.OK
Call hCloseDocument
endcase
|