strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

CWS-TOOLING: integrate CWS fwk129_DEV300

Browse source
This commit is contained in:
Vladimir Glazunov 2009-12-11 17:56:47 +01:00
commit 52858c7997
1 changed files with 15 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
testautomation/framework/optional/includes/basic_package_export.inc
View file

@ -45,7 +45,7 @@ testcase tBasicPackageExport
const PACKAGE_NAME = "tBasicExport.oxt"
const LIBRARY_NAME = "tBasicExport"
const DOCUMENT_POSITION = 4
const PACKAGE_SIZE = 2000
const PACKAGE_SIZE = 1325
dim cDocumentName as string
dim cLibraryName as string
@ -162,16 +162,17 @@ testcase tBasicPackageExport
Export.click()
kontext "ExportBasicLibraryDlg"
if ( ExportBasicLibraryDlg.exists( 1 ) ) then
printlog( "Select to export as package" )
if ( ExportBasicLibraryDlg.exists( 3 ) ) then
printlog( "Select to export as extension" )
ExportAsPackage.check()
ExportBasicLibraryDlg.ok()
kontext "SpeichernDlg"
if ( SpeichernDlg.exists( 1 ) ) then
printlog( "Save the file, automatic filename extension must be checked" )
DateiName.setText( hGetWorkPath() & LIBRARY_NAME ) ' automatic filename extension/uno-pkg is default
if ( SpeichernDlg.exists( 3 ) ) then
printlog( "Save the file, suffix will be added automatically." )
DateiName.setText( hGetWorkPath() & LIBRARY_NAME )
Speichern.click()
Speichern.notExists( 1 )
else
warnlog( "Dialog <File Save> did not open" )
endif
@ -182,6 +183,7 @@ testcase tBasicPackageExport
kontext "TabBibliotheken"
printlog( "Close libraires tabpage" )
TabBibliotheken.cancel()
TabBibliotheken.notExists( 1 )
else
warnlog( "Dialog <TabBibliotheken> is not available" )
endif
@ -189,6 +191,7 @@ testcase tBasicPackageExport
kontext "Makro"
printlog( "Close BASIC organizer" )
Makro.cancel()
Makro.notExists( 1 )
else
warnlog( "Dialog <Makro> did not open" )
endif
@ -197,6 +200,7 @@ testcase tBasicPackageExport
hFileCloseAll()
printlog( "Verify automatic filename extension (dialog should append .oxt)" )
printlog( "Checking for file: " & cFile )
if ( FileExists( cFile ) ) then
printlog( "The test-package was saved with .oxt extension, good." )
cPackageFileName = cFile
@ -211,17 +215,11 @@ testcase tBasicPackageExport
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
if ( FileLen( cPackageFileName ) <> PACKAGE_SIZE ) then
warnlog( "#i105719# - The exported test-package has an incorrect file size." )
else
printlog( "File has correct size." )
endif
endcase