blob: ac1c07ed817e1bd737d587c40f23274ff04cb4b6 (
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
212
213
214
|
'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@oracle.com
'*
'* short description :
'*
'*********************************************************************
' #1 tExtrasAnimation
'\********************************************************************
' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\grafix3.ras")
testcase tExtrasAnimation
Dim i
Dim Zaehler
Dim ZaehlerAnpassung
Printlog "- Tools/Animation"
printlog "New impress document "
Call hNewDocument
Call sSelectEmptyLayout
sleep 2
printlog "insert graphic file (sample.bmp) "
InsertGraphicsFromFile
sleep 1
Kontext "GrafikEinfuegenDlg"
sleep 2
Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp")
sleep 2
Oeffnen.Click
sleep 2
Kontext "DocumentImpress"
printlog "Deselect graphic "
DocumentImpress.MouseDoubleClick 90,90
sleep 1
InsertGraphicsFromFile
sleep 2
Kontext "GrafikEinfuegenDlg"
Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\grafix3.ras")
sleep 2
Oeffnen.Click
sleep 2
Opl_SD_EffekteZulassen
Kontext "Animation"
printlog "add selected picture 10 times into the animation "
for i=1 to 10
BildAufnehmen.Click
next i
sleep 1
printlog "compare frame number in animation dialog "
if AnzahlBilder.GetText <> "10" Then
WarnLog " - Adding graphics did not work"
else
printlog "Pictures added"
end if
printlog "test if Add all is eneabled (shouldn't be because of only 1 object selected) "
if AlleAufnehmen.IsEnabled Then WarnLog " - Add all should not be enabled, there is only 1 graphic selected"
Kontext "DocumentImpress"
printlog "Select both pictures "
EditSelectAll
Kontext "Animation"
printlog "Add all (5 times) "
for i=1 to 5
AlleAufnehmen.Click
next i
sleep 1
printlog "check if number of frames is now 20 "
if AnzahlBilder.GetText <> "20" Then
WarnLog " - Adding pics did not work"
else
printlog "All pics added"
end if
printlog "Click First Picture "
ErstesBild.Click
printlog "Control if we are at frame 1 "
if AnzahlBilder.GetText <> "1" Then
WarnLog " - Jump back to start did not work"
else
printlog "Jumped back to first picture"
end if
printlog "Go to last picture "
LetztesBild.Click
printlog "Control frame number "
if AnzahlBilder.GetText <> "20" Then
WarnLog " - Jump to end did not work"
else
printlog "Jump to end did work"
end if
printlog "Play animation "
Abspielen.Click
sleep 3
Kontext "DocumentImpress"
printlog "Select all in document "
EditSelectAll
printlog "Delete content "
DocumentImpress.TypeKeys "<DELETE>"
Kontext "Animation"
printlog "Create animation"
Erstellen.Click
sleep 10
Kontext "DocumentImpress"
try
printlog "Try to copy ccreated animation into clipboard "
EditCopy
printlog "animation created"
catch
WarnLog " - Animation not created"
endcatch
Kontext "Animation"
if AnimationsgruppeGruppenobjekt.IsChecked=True Then
try
printlog "Try setting duration per frame "
AnzeigedauerProBild.SetText "1"
WarnLog " - Edit field should be disabled"
catch
printlog "Edit field not enabled because groupobject status is = " + AnimationsgruppeGruppenobjekt.IsChecked
endcatch
end if
printlog "check animation group object "
AnimationsgruppeBitmapobjekt.Check
printlog "Set duration per frame to 3"
AnzeigedauerProBild.SetText "3"
SetClipboard AnzeigedauerProBild.GetText
printlog "Raise value for duration "
AnzeigedauerProBild.More
if AnzeigedauerProBild.GetText <> GetClipboardText Then
printlog "Time per pic could be edited"
else
WarnLog " - Time per pic could be edited"
end if
Zaehler = AnzahlDurchlaeufe.GetItemCount
printlog "Change number of plays "
for i=1 to Zaehler
AnzahlDurchlaeufe.Select i
next i
printlog "Number of loops checked"
printlog "change ZaehlerAnpassung "
ZaehlerAnpassung=Anpassung.GetItemCount
for i=1 to ZaehlerAnpassung
Anpassung.Select i
next i
printlog "Loop count changed"
printlog "Delete 1 frame "
BildLoeschen.Click
if AnzahlBilder = "20" Then
WarnLog " - Delete pictures from animation did not work"
else
printlog "Picture No20 deleted"
end if
printlog "Delete all frames "
AlleLoeschen.Click
Kontext "Active"
Active.Yes
sleep 3
Kontext "Animation"
if Abspielen.IsEnabled=true Then
WarnLog " - Not all pics could be deleted"
else
printlog "all pics deleted"
end if
sleep 2
Animation.Close
sleep 2
printlog "close document"
Call hCloseDocument
endcase
|