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
|
'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: basic_package_export.inc,v $
'*
'* $Revision: 1.1 $
'*
'* last change: $Author: jsi $ $Date: 2008-06-16 12:18:13 $
'*
'* 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 : Export BASIC libraries as package
'*
'\******************************************************************************
testcase tBasicPackageExport
' Assumption: All actions take place in the user/work directory
' macro taken from framework/tools/input/macros.txt::tBasicLibraryExport
printlog( "Export BASIC libraries as package" )
const PACKAGE_NAME = "tBasicExport.oxt"
const LIBRARY_NAME = "tBasicExport"
const DOCUMENT_POSITION = 4
const PACKAGE_SIZE = 2000
dim cDocumentName as string
dim cLibraryName as string
dim iNodeCount as integer
dim iCurrentLib as integer
dim cFile as string
cFile = hGetWorkPath() & PACKAGE_NAME
dim cPackageFileName as string
printlog( "Delete potential leftovers from prior test run" )
hDeleteFile( cFile )
hExtensionRemoveGUI( PACKAGE_NAME )
printlog( "Open one single writer document, modify it" )
hInitSingleDoc()
hChangeDoc()
printlog( "Open another document, we want to have two to see that they both " & _
"appear in the BASIC organizer" )
gApplication = "WRITER"
hCreateDocument()
printlog( "Open BASIC organizer" )
ToolsMacro_uno
printlog( "Select the second document" )
kontext "Makro"
iNodeCount = hGetNodeCount( MakroAus )
cDocumentName = hSelectNode( MakroAus, iNodeCount )
printlog( "Click <Manage...>" )
Verwalten.click()
printlog( "Go to the libraries tabpage" )
hSelectBasicObjectOrganizerTab( 3 )
kontext "TabBibliotheken"
printlog( "Select the document at pos. " & DOCUMENT_POSITION )
Bibliothek.select( DOCUMENT_POSITION )
printlog( "Verify that the correct document has been selected" )
if ( Bibliothek.getSelText() <> cDocumentName ) then
warnlog( "Incorrect document selected on libraries tab, aborting" )
goto endsub
endif
printlog( "Click <New...>" )
Neu.click()
kontext "NeueBibliothek"
printlog( "Name the new library: " & LIBRARY_NAME )
BibliotheksName.setText( LIBRARY_NAME )
NeueBibliothek.ok()
kontext "TabBibliotheken"
cLibraryName = BibliotheksListe.getSelText()
if ( cLibraryName <> LIBRARY_NAME ) then
warnlog( "The new library is not selected in the libraries list" )
else
printlog( "The correct library is selected in the libraries list" )
endif
printlog( "Click <Edit...>" )
Bearbeiten.click()
printlog( "Insert a test macro (something simple, e.g. a messagebox" )
hInsertMacroFromFile( LIBRARY_NAME )
printlog( "Close the BASIC IDE" )
hCloseBasicIDE()
printlog( "Open the BASIC organizer" )
ToolsMacro_uno
printlog( "Select the work document" )
kontext "Makro"
iNodeCount = hGetNodeCount( MakroAus )
hSelectNode( MakroAus, iNodeCount )
printlog( "Manage..." )
Verwalten.click()
printlog( "Libraries tab" )
hSelectBasicObjectOrganizerTab( 3 )
kontext "TabBibliotheken"
Bibliothek.select( DOCUMENT_POSITION )
printlog( "Select the new library" )
kontext "TabBibliotheken"
for iCurrentLib = 1 to Bibliotheksliste.getItemCount()
Bibliotheksliste.select( iCurrentLib )
if ( Bibliotheksliste.getSelText() = LIBRARY_NAME ) then
exit for
endif
next iCurrentLib
kontext "TabBibliotheken"
printlog( "Export the package, close the document afterwards" )
Export.click()
kontext "ExportBasicLibraryDlg"
printlog( "Select to export as package" )
ExportAsPackage.check()
ExportBasicLibraryDlg.ok()
kontext "SpeichernDlg"
printlog( "Save the file, automatic filename extension must be checked" )
DateiName.setText( hGetWorkPath() & LIBRARY_NAME ) ' automatic filename extension/uno-pkg is default
Speichern.click()
kontext "TabBibliotheken"
printlog( "Close libraires tabpage" )
TabBibliotheken.cancel()
kontext "Makro"
printlog( "Close BASIC organizer" )
Makro.cancel()
printlog( "Close all files" )
hFileCloseAll()
printlog( "Verify automatic filename extension (dialog should append .oxt)" )
if ( FileExists( cFile ) ) then
printlog( "The test-package was saved with .oxt extension, good." )
cPackageFileName = cFile
else
if ( FileExists( hGetWorkPath() & LIBRARY_NAME ) ) then
warnlog( "The test-package was saved without .oxt filename extension" )
cPackageFileName = hGetWorkPath() & LIBRARY_NAME
else
warnlog( "The test extension was not saved to the users workdirectory" )
goto endsub
endif
endif
printlog( "Verify file size" )
if ( FileLen( cPackageFileName ) <> PACKAGE_SIZE ) then
warnlog( "#i105719# - The exported test-package has an incorrect file size." )
if ( FileLen( cPackageFileName ) = 0 ) then
printlog( "File has zero bytes, it is empty." )
else
printlog( "Size is.: " & FileLen( cPackageFileName ) )
printlog( "Expected: " & PACKAGE_SIZE )
endif
else
printlog( "File has correct size" )
endif
endcase
|
