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
|
'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 tFormatStylistBackground
' #1 fGetSetPageBackground
'*
'\*******************************************************************
testcase tFormatStylistBackground
'/// special test for BUG # 96364 "Background style looses functionality over PPT Ex/import" ///'
dim sFilter (50) as string
dim sFileList (30) as string
dim i as integer
dim x as integer
dim y as integer
dim iColor as integer
dim sFileName as string
dim Exlist(20) as string
sFilter (0) = 0
if bAsianLan then
QaErrorLog "This testcase does not support Asian languages. Test ends."
goto endsub
end if
if (glLocale(5) = "") then
qaErrorLog("Language dependant string 'Background' is missing; get it from the stylist and insert it into the locale-file mentioned in the .bas file!")
goto endsub
endif
'/// if not exists : gOfficePath + '\\user\\impress\\optional\\', create it ///'
if app.dir (ConvertPath ( gOfficePath + "user/work/impress") ) = "" then
app.mkdir ConvertPath ( gOfficePath + "user/work/impress")
endif
if app.dir (ConvertPath ( gOfficePath + "user/work/impress/optional")) = "" then
app.mkdir ConvertPath ( gOfficePath + "user/work/impress/optional")
endif
'/// open application ///'
Call hNewDocument
iColor = 10
'/// change background color via stylist ///'
if (iColor <> fGetSetPageBackground (iColor,0)) then
warnlog "Stylist background was not changed as expected :-( "+iColor
endif
'/// check if it is the same in Format -> Page ///'
if fGetSetPageBackground (0,1) <> iColor then
warnlog " First stage error! Difference between stylist and menu entry :-( "+iColor
endif
'/// save this in 3 formats: ///'
'///+ - StarImpress 5.0 ///'
'///+ - StarOffice 6.0 Presentation ///'
'///+ - Microsoft PowerPoint 97/2000/XP ///'
FileSaveAs
sleep 2
Kontext "SpeichernDlg"
for i = 0 to 2
if i=0 then x = Dateityp.GetItemCount
if (i) then ' set border, whenm start from beginning/end
y = ((i-1)*2)+1 ' set filter from beginning
else
y = x-3 ' set filter from end
endif
ListAppend(sFilter(), Dateityp.GetItemText (y))
next i
SpeichernDlg.Cancel
sFileName = convertpath( gOfficePath + "user/work/impress/optional")
GetFileList ( sFileName, "isty_*.*", Exlist() )
KillFileList ( Exlist() )
for i = 1 to (ListCount(sFilter()))
sleep 1
printlog "Going to save: '"+sFileName+"isty_"+(i)+"'..."
sleep 1
hFileSaveAsWithFilterKill (sFileName+"isty_"+(i), "impress8" )
printlog " saved with filter ("+i+"/3): "+ sFilter(i)
next i
'/// close impress ///'
FileClose
sleep 1
kontext ' active about information loss ?
if active.exists (5) then active.yes
sleep 10
'/// open just saved files ///'
sFileName = ConvertPath ( gOfficePath + "user/work/impress/optional/" )
GetFileList ( sFileName, "isty_*", sFileList() )
x = ListCount ( sFileList() )
for i = 1 to x
printlog "("+i+"/"+x+"): "+sFileList(i)
hFileOpen ( sFileList(i) )
Sleep 5
If hIsNamedDocLoaded (sFileList(i)) Then
printlog " used filter: " + hGetUsedFilter()
else
warnlog "document didn't get loaded"
endif
sleep 5
'/// check if stylist, menue and prediction are as expected ///'
iColor = 10
if ((fGetSetPageBackground (0,0) <> iColor) OR (fGetSetPageBackground (0,1) <> iColor)) then
warnlog "Background was not as expected on loading :-( "+iColor
endif
iColor = 20
'/// change background in stylist ///'
if (fGetSetPageBackground (iColor,0) <> iColor) then
warnlog "Stylist background was not changed as expected :-( "+iColor
endif
sleep 1
'/// check if background is same in format menu ///'
if (fGetSetPageBackground (0,1) <> iColor) then
warnlog "Format menu background is wrong :-( "+iColor
endif
hCloseDocument
sleep 2
next i
endcase
'------------------------------------------------------------------------------
|
