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
|
'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 : helge.delfs@oracle.com
'*
'* short description : Testing Number and Bullets
'*
'\***********************************************************************
sub w_207_
Call tToolsNumbering12
Call tToolsNumbering13
end sub
'------------------------------------------------------------------------------------------------------------------------
testcase tToolsNumbering12
printlog "Import / Export Regression Test"
'/// Import / Export Regression-Test
Dim DocFileList( 30 ) as String, sCurrentFilter as string
Dim sSourcePath as String, sCurrentFilterExt as string
Dim iCurrentDocument as Integer
Dim iDocumentType as Integer
Dim ExportFileName as string
ReDim DocFileList( 30 ) as String
'/// load all documents from "sun_writer\optional\input\number\regression"
sSourcePath = convertpath( gTesttoolPath & "writer\optional\input\number\regression\" )
GetFileList ( sSourcePath, "*.*", DocFileList() )
hListPrint( DocFileList(), "Files to be loaded" )
printlog( "Start loading and exporting files" )
for iCurrentDocument = 1 to ListCount ( DocFileList() )
printlog( "File: " & DocFileList( iCurrentDocument ) )
For iDocumentType = 1 to 3
Select Case iDocumentType
Case 1
sCurrentFilter = "writer8" 'gWriterFilter
sCurrentFilterExt = "odt" 'WriterFilterExtension(0)
Case 2
sCurrentFilter = "StarOffice XML (Writer)" 'hGetUIFiltername("StarOffice XML (Writer)") & " (.sxw)"
sCurrentFilterExt = "sxw"
Case 3
sCurrentFilter = "StarWriter 5.0" 'StarWriter 5.0 (.sdw)
sCurrentFilterExt = "sdw"
end select
printlog( "Open file: " & DocFileList( iCurrentDocument ) )
hFileOpenLocally( DocFileList( iCurrentDocument ) )
printlog( "Make a copy if the file is write protected" )
printlog( "Test for unexpected dialog: Filter Selection" )
Kontext "Filterauswahl"
if ( Filterauswahl.Exists( 1 ) ) then
Warnlog " - Filter Selection dialog is up !"
Filterauswahl.Cancel
hFileCloseAll()
goto endsub
endif
printlog( "Test for unexpected dialog: ASCII Filter Options" )
Kontext "AsciiFilterOptionen"
if ( AsciiFilterOptionen.Exists() ) then
AsciiFilterOptionen.Ok
hFileCloseAll()
goto endsub
endif
printlog( "Allow macro execution (if general setting permit" )
hAllowMacroExecution()
'/// check if loaded
if ( GetDocumentCount <= 2 ) then
ExportFileName = ConvertPath ( gOfficePath & "user\work\" & _
DateiOhneExt(DateiExtract ( DocFileList( iCurrentDocument ) ) ) & _
"." & sCurrentFilterExt )
hDeleteFile( ExportFileName ) ' There should never be a reason to overwrite
printlog " - export as: " & ExportFileName
Call hFileSaveAsWithFilter( ExportFileName, sCurrentFilter )
Call hCloseDocument
printlog " - load previous saved document"
hFileOpen( ExportFileName )
printlog " - close document"
hFileCloseAll()
else
Warnlog " - Doc probably didn't get loaded !!!"
end if
next iDocumentType
next iCurrentDocument
endcase
'------------------------------------------------------------------------------------------------------------------------
testcase tToolsNumbering13
Dim i as integer, iCounter as integer
'/// #i73790 Regression testing
'/// This testcase loads a Worddocument that lost all formattings
printlog "#i73790 regression testing"
'/// Load document 'writer\\optional\\input\\number\\regression\\73790.doc'
hFileOpenLocally( gTesttoolPath + "writer\optional\input\number\regression\73790.doc" )
'/// Document has Heading1-Heading3 formatted, be sure it is
call wTypeKeys ("<Mod1 Home>")
'/// Point cursor to top of document with <STRG HOME>
Select Case iSprache
case 01 : iCounter = 2
case 03 : iCounter = 1
case 07 : iCounter = 2
case 31 : iCounter = 1
case 33 : iCounter = 3
case 34 : iCounter = 2
case 36 : iCounter = 2
case 39 : iCounter = 2
case 45 : iCounter = 1
case 46 : iCounter = 2
case 48 : iCounter = 2
case 49 : iCounter = 3
case 55 : iCounter = 3
case 81 : iCounter = 3
case 82 : iCounter = 1
case 86 : iCounter = 1
case 88 : iCounter = 3
case else : iCounter = 2
end select
For i = 1 to 3
call wTypeKeys ("<Shift End>")
'/// Select first to third entry and check it i formatted with 'Heading1','Heading2','Heading3'
Kontext "Textobjectbar"
if Vorlage.GetSelIndex <> ( i + iCounter ) then
Warnlog "Heading " & i & " not " & ( i + iCounter ) & " but " & Vorlage.GetSelIndex
end if
call wTypeKeys ( "<Home>" )
call wTypeKeys ( "<Down>" )
next i
printlog " Close active document "
Do Until GetDocumentCount = 0
Call hCloseDocument
Loop
endcase
|
