blob: d7e456034d6a4946606dbfdcfa7bff3530f79ac8 (
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
|
'encoding UTF-8 Do not remove or change this line!
'**************************************************************************
'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
'*
'* Copyright 2008 by Sun Microsystems, Inc.
'*
'* OpenOffice.org - a multi-platform office productivity suite
'*
'* $RCSfile: extras_table_autoformat.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $
'*
'* 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 : joerg.skottke@sun.com
'*
'* short description : Test the autoformat-feature for tables
'*
'\******************************************************************************
testcase tAutoformatTable( iApp as integer )
if ( gIsoLang <> "en-US" ) then
printlog( "No testing for non-en_US languages" )
goto endsub
endif
dim al_UI_formats( 1000 ) as string
al_UI_formats( 0 ) = "0"
dim iFormatCount as integer
dim iCurrentFormat as integer
dim cCurrentFormat as string
dim irc as integer
dim sFileOut as string
dim sFile as string
dim sFileIn as string
sFileIn = gTesttoolPath & "framework\optional\input\extras_formats\"
dim oControl as object
' Build the filenames
select case iApp
case 1 : sFile = "Tables_writer_" & gISOLang & ".txt"
case 2 : sFile = "Tables_calc_" & gISOLang & ".txt"
end select
sFileIn = convertpath( sFileIn & sFile )
sFileOut = hGetWorkPath() & sFile
hCreateDocument()
select case iApp
case 1 : kontext "DocumentWriter"
hTabelleEinfuegen()
case 2 : kontext "DocumentCalc"
DocumentCalc.TypeKeys( "<Shift Right>", 5 )
DocumentCalc.TypeKeys( "<Shift Down>", 3 )
end select
FormatAutoformat
select case iApp
case 1 : kontext "AutoformatTabelle"
if ( AutoformatTabelle.exists( 2 ) ) then
oControl = FormatBox
else
warnlog( "Unable to access Table Autoformat dialog (Writer)" )
goto endsub
endif
case 2 : kontext "AutoformatCalc"
if ( AutoformatCalc.exists( 2 ) ) then
oControl = FormatListe
else
warnlog( "Unable to access Table Autoformat dialog (Calc)" )
goto endsub
endif
end select
iFormatCount = oControl.getItemCount()
for iCurrentFormat = 1 to iFormatCount
oControl.select( iCurrentFormat )
cCurrentFormat = oControl.getSelText()
ListAppend( al_UI_formats() , cCurrentFormat )
next iCurrentFormat
select case iApp
case 1 : AutoformatTabelle.ok()
case 2 : AutoformatCalc.ok()
end select
hDestroyDocument()
irc = hManageComparisionList( sFileIn, sFileOut, al_UI_formats() )
if ( irc <> 0 ) then
warnlog( "The list of table autoformats has changed, please review." )
else
printlog( "The list of table autoformats is unchanged. Good." )
endif
endcase
|
