diff options
author | August Sodora <augsod@gmail.com> | 2011-12-07 00:55:10 -0500 |
---|---|---|
committer | August Sodora <augsod@gmail.com> | 2011-12-07 00:56:22 -0500 |
commit | a2eb0cf44bbd15ae24f9423d3bc6e420691c300d (patch) | |
tree | b11ce54011011e96217d9b504e81ec87aaef38a4 /testautomation/framework/optional/includes/basic_package_export.inc | |
parent | e2621785569969374cc3bc39fae0341d8b848612 (diff) |
Remove testtool
Diffstat (limited to 'testautomation/framework/optional/includes/basic_package_export.inc')
-rw-r--r-- | testautomation/framework/optional/includes/basic_package_export.inc | 221 |
1 files changed, 0 insertions, 221 deletions
diff --git a/testautomation/framework/optional/includes/basic_package_export.inc b/testautomation/framework/optional/includes/basic_package_export.inc deleted file mode 100644 index 6b80282185be..000000000000 --- a/testautomation/framework/optional/includes/basic_package_export.inc +++ /dev/null @@ -1,221 +0,0 @@ -'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 : gregor.hartmann@oracle.com -'* -'* short description : Export BASIC libraries as package -'* -'\****************************************************************************** - -testcase tBasicPackageExport - - ' Assumption: All actions take place in the user/work directory - printlog( "Export BASIC libraries as package/extension" ) - - const PACKAGE_NAME = "tBasicExport.oxt" - const LIBRARY_NAME = "tBasicExport" - const DOCUMENT_POSITION = 4 - const PACKAGE_SIZE = 1325 - - const LIBRARIES_TAB = 3 - const LONG_WAIT = 3 - const SHORT_WAIT = 1 - - 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" - if ( Makro.exists( SHORT_WAIT ) ) then - iNodeCount = hGetNodeCount( MakroAus ) - cDocumentName = hSelectNode( MakroAus, iNodeCount ) - - printlog( "Click <Manage...>" ) - Verwalten.click() - - printlog( "Go to the libraries tabpage" ) - hSelectBasicObjectOrganizerTab( LIBRARIES_TAB ) - - 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 test" ) - goto endsub - endif - - printlog( "Click <New...>" ) - Neu.click() - - kontext "NeueBibliothek" - if ( NeueBibliothek.exists( SHORT_WAIT ) ) then - printlog( "Name the new library: " & LIBRARY_NAME ) - BibliotheksName.setText( LIBRARY_NAME ) - NeueBibliothek.ok() - else - warnlog( "Dialog <NeueBibliothek> did not open" ) - goto endsub - endif - - 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() - else - warnlog( "Dialog <Makro> did not open, aborting test" ) - goto endsub - endif - - printlog( "Open the BASIC organizer" ) - ToolsMacro_uno - - printlog( "Select the work document" ) - kontext "Makro" - if ( Makro.exists( SHORT_WAIT ) ) then - iNodeCount = hGetNodeCount( MakroAus ) - hSelectNode( MakroAus, iNodeCount ) - - printlog( "Manage..." ) - Verwalten.click() - - printlog( "Libraries tab" ) - hSelectBasicObjectOrganizerTab( LIBRARIES_TAB ) - - kontext "TabBibliotheken" - if ( TabBibliotheken.exists( SHORT_WAIT ) and TabBibliotheken.isVisible() ) then - 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" - if ( ExportBasicLibraryDlg.exists( LONG_WAIT ) ) then - printlog( "Select to export as extension" ) - ExportAsPackage.check() - hCloseDialog( ExportBasicLibraryDlg, "ok" ) - - kontext "SpeichernDlg" - if ( SpeichernDlg.exists( LONG_WAIT ) ) then - printlog( "Save the file, suffix will be added automatically." ) - DateiName.setText( hGetWorkPath() & LIBRARY_NAME ) - Speichern.click() - Speichern.notExists( SHORT_WAIT ) - else - warnlog( "Dialog <File Save> did not open" ) - endif - else - warnlog( "Dialog <Export Basic Library> did not open" ) - endif - - kontext "TabBibliotheken" - printlog( "Close libraires tabpage" ) - hCloseDialog( TabBibliotheken, "cancel" ) - else - warnlog( "Dialog <TabBibliotheken> is not available" ) - endif - - kontext "Makro" - printlog( "Close BASIC organizer" ) - hCloseDialog( Makro, "cancel" ) - else - warnlog( "Dialog <Makro> did not open" ) - endif - - printlog( "Close all files" ) - 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 - 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." ) - else - printlog( "File has correct size." ) - endif - -endcase - |