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
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
|
'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 : g_mediaplayer.inc
'*
'*********************************************************************
' #1 g_mediaplayer
'\********************************************************************
testcase g_mediaplayer
dim Datei$
dim timevalue1
dim timevalue2
dim timevalue3
dim timecounter, iWaitIndex, timefound as integer
if iSprache <> 39 then
Printlog "- MediaPlayer"
if gPlatgroup = "unx" then
QaErrorLog "Solaris / Linux: Soundcard + Java Media Framework (JMF) Media-Libraries is needed."
goto endsub
endif
Datei$ = ConvertPath (convertPath (gTesttoolPath + "graphics\required\input\29secsound.wav"))
'/// Open New Document ///'
Call hNewDocument
sleep 2
'/// Check if the Media Player already exists - if so - close it ///'
kontext "mPlayer"
if mPlayer.exists then ' Close the MediaPlayer
warnlog "The MediaPlayer was visible since some earlier test. Plese notify FHA."
ToolsMediaPlayer
printlog "Closed the Media Player"
endif
'/// Tools - MediaPlayer ///'
ToolsMediaPlayer
sleep 2
'/// Open file ///' 'a bigger / longer one
kontext "mPlayer"
if mPlayer.exists then
printlog "The MediaPlayer was open."
else
warnlog "Tools - MediaPlayer didnt work. The MediaPlayer wasnt visible. Aborting test."
Call hCloseDocument '/// Close document ///'
goto endsub
endif
Mopen.Click
kontext "OeffnenDlg"
Pfad.SetText Datei$
Oeffnen.Click
'/// This test wont work correctly under Solaris and Linux, ///'
'/// unless some optional Media-libraries are installed. ///'
'/// Therefore we warn the tester about it if we cannot open the file. ///'
iWaitIndex = 0
do while OeffnenDlg.Exists AND iWaitIndex < 10
sleep (1)
iWaitIndex = iWaitIndex + 1
loop
kontext "Active"
if Active.exists then
Warnlog "Error when opening file. Last dialogue said: " + Active.GetText
Active.OK
kontext "Mplayer"
ToolsMediaPlayer
Call hCloseDocument '/// close document ///'
goto endsub
else
kontext "Mplayer"
if Mplayer.exists then printlog "Media Player was opened."
endif
timevalue1 = mTimeedit.GetText
'/// Stop ///'
sleep 2
mStop.Click
printlog "Just pressed stop."
sleep 1
timevalue2 = mTimeedit.GetText
sleep 2
timevalue3 = mTimeedit.GetText
printlog "The time was: " + mTimeedit.GetText
if timevalue1 = timevalue2 AND timevalue2 = timevalue3 then
if gtSYSName <> "WinXP" then '("Solaris x86" OR "Linux" OR "Solaris") then
warnlog "The sound doesnt seem to be played at all. And since the test is run on a platform which needs extra libraries, the test ends now."
kontext "Mplayer"
if Mplayer.Exists(3) then
ToolsMediaPlayer
endif
Call hCloseDocument '/// close document ///'
goto endsub
else
warnlog "The sound doesnt seem to be played at all, but I will continue the test. The platform was: " + gtSYSName
endif
else
if timevalue1 <> timevalue2 AND timevalue2 = timevalue3 then
Printlog "the stop-button seemed to work. Good."
else
warnlog "Very strange. The first value was: " + timevalue1 + ". Second: " + timevalue2 + ". Third: " + timevalue3
endif
endif
'/// Play ///'
' Save value
timevalue1 = mTimeedit.GetText
' Press 'Play'
mPlay.Click
sleep 2
timevalue2 = mTimeedit.GetText
printlog "The time was: " + mTimeedit.GetText
if timevalue1 = timevalue2 then
warnlog "The play-button didnt seem to work" ' Because the time did not change.
else
Printlog "the play-button seemed to work. Good."
endif
'/// Pause ///'
mPlay.Click
sleep 10
mPause.Click
printlog "Pause."
timevalue1 = mTimeedit.GetText
sleep 2
timevalue2 = mTimeedit.GetText
printlog "The time was: " + mTimeedit.GetText
if timevalue1 <> timevalue2 then
warnlog "The pause-button didnt seem to work"
else
Printlog "the pause-button seemed to work. Good."
endif
'/// Time ///'
mStop.Click 'to get to the beginning.
sleep 1 'And make sure it's really the beginning.
timevalue1 = mTimeedit.GetText
if timevalue1 <> "00:00:00 / 00:00:29" then
warnlog "Expected the time to go back to 00:00:00, but was " + timevalue1 + " instead."
mStop.Click 'to make another try to get to the beginning again.
else
printlog "Sound stopped, time-value set to 00:00:00."
endif
printlog "We press 'Play'"
mPlay.Click 'to get it running
sleep 5
timefound = 0
for timecounter = 1 to 50000
timevalue1 = mTimeedit.GetText
if timevalue1 = "00:00:20 / 00:00:29" then
timecounter = 50000
timefound = 1
endif
if timevalue1 = "00:00:29 / 00:00:29" then
timecounter = 50000
timefound = 2
endif
next timecounter
if timefound = 1 then
Printlog "the time-counter seemed to work. Good."
elseif timefound = 2 then
warnlog "Contact the test-administrator, this test needs to be rewritten."
elseif timefound = 0 then
warnlog "Either the time didnt change, or the test-computer is too fast."
endif
'-Repeat
'Plays the file repeatedly.
'/// Loop ///'
mLoop.Click
'/// Volume ///'
'mVolume. 'Click
'-Volume slider
'Adjusts the volume.
'/// Mute ///'
mMute.Click
sleep 1
mMute.Click
'-Mute
'Turns sound off and on.
'/// Time-slider ///'
' mTimeslider. 'Click
'-Position slider
'Moves to a different position in the file.
'/// Scroll-whatever ///'
'mZoomlistbox.
'-Zoom
'Adjusts the size of the movie playback.
'/// Apply ///'
mInsert.Click
sleep 10
'/// Close the MediaPlayer via Tools - MediaPlayer ///'
ToolsMediaPlayer
'/// Check if there is an object available. ///'
if (gApplication = "IMPRESS") then
kontext "DocumentImpress"
else
kontext "DocumentDraw"
endif
hTypeKeys ("<escape><tab><tab><tab>")
hOpenContextMenu()
hMenuSelectNr(1)
Kontext "TabPositionAndSize"
Kontext
Active.SetPage TabPositionAndSize
Kontext "TabPositionAndSize"
if Width.Exists then
Printlog "Position and Size came up, object inserted correctly."
'/// Close dialog TabPositionAndSize with 'OK' ///'
TabPositionAndSize.OK
else
Warnlog "Position And Size didn't come up, was there no sound-object inserted?"
endif
sleep 2
'/// close document ///'
Call hCloseDocument '/// close document ///'
else
qaerrorLog "#74350# - Different strings in g_mediaplayer under Italian."
endif
endcase
|
