You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@openoffice.apache.org by ar...@apache.org on 2012/01/13 23:02:10 UTC
svn commit: r1231333 [1/2] - in
/incubator/ooo/trunk/main/testautomation/framework: optional/includes/
required/includes/ tools/includes/
Author: arist
Date: Fri Jan 13 22:02:09 2012
New Revision: 1231333
URL: http://svn.apache.org/viewvc?rev=1231333&view=rev
Log:
Update headers to Alv2 headers
Modified:
incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_documents.inc
incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_ide.inc
incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_modulenames.inc
incubator/ooo/trunk/main/testautomation/framework/optional/includes/filedlg_tools.inc
incubator/ooo/trunk/main/testautomation/framework/optional/includes/ole_tools.inc
incubator/ooo/trunk/main/testautomation/framework/optional/includes/options_ooo_security.inc
incubator/ooo/trunk/main/testautomation/framework/optional/includes/security_macrosecurity.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/first.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/help_browser.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/printer_administration.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/script_organizers.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/tools_customize.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/topten.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/window_functions.inc
incubator/ooo/trunk/main/testautomation/framework/required/includes/wizard_mailmerge.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/CJK_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/customize_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/fileoperations.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/formcontrols.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/help_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/options_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/pbrowser_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/private_environment.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/scriptorganizer_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/spadmin_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/template_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/toolbar_tools.inc
incubator/ooo/trunk/main/testautomation/framework/tools/includes/wizards.inc
Modified: incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_documents.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_documents.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_documents.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_documents.inc Fri Jan 13 22:02:09 2012
@@ -1,155 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : BASIC organizers and documents
-'*
-'\******************************************************************************
-
-private const IDOCS = 5
-
-testcase tBasicDocuments
-
- const CFN = "tBasicDocuments::"
-
- dim sFileWriter as string
- dim sFileCalc as string
- dim iDocumentCount as integer
- dim cNodeListA( 10 ) as string
- dim cNodeListB( 10 ) as string
- dim iSecLevel as integer
- dim iHitCount as integer
-
- ' NOTE: hCreateBasicWorkFiles() creates files of the naming scheme
- ' basic.odt, ...odc etc. All these files will show up with just "basic"
- ' in the Macro Organizer
- const DOC_NAME = "basic"
-
- printlog( "Set macro security level to medium" )
- iSecLevel = hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_MEDIUM )
-
- printlog( "Open one single unchanged Writer document" )
- hInitSingleDoc()
-
- kontext "DocumentWriter"
- DocumentWriter.typeKeys( "tBasicDocuments - initial document - discard after test" )
-
- gApplication = "WRITER"
- printlog( "Create a Writer workfilename (build path and filename)" )
- hCreateBasicWorkFiles()
- sFileWriter = hGetBasicWorkFile( "current" )
-
- gApplication = "CALC"
- printlog( "Create a Calc workfilename (build path and filename)" )
- hCreateBasicWorkFiles()
- sFileCalc = hGetBasicWorkFile( "current" )
-
- printlog( "Open the writer file" )
- hFileOpen( sFileWriter )
- if ( not hAllowMacroExecution() ) then
- warnlog( "Missing Macro execution dialog. Please check the file/security settings" )
- endif
-
- printlog( "Open the Calc file" )
- hFileOpen( sFileCalc )
- if ( not hAllowMacroExecution() ) then
- warnlog( "Missing Macro execution dialog. Please check the file/security settings" )
- endif
-
- printlog( "Open the BASIC organizer" )
- ToolsMacro_uno
- WaitSlot()
-
- printlog( "Retreive the names of all nodes from the treelist" )
- kontext "Makro"
- hGetVisibleNodeNames( MakroAus , cNodeListA() )
-
- printlog( "Verify that both documents are listed - one Writer, one Calc with identical names" )
- iHitCount = hCountMatchesInList( cNodeListA() , DOC_NAME )
- if ( iHitCount <> 2 ) then
- warnlog( "There should be two documents with the name " & DOC_NAME & "listed." )
- endif
-
- printlog( "Click Manage..." )
- hClickButton( verwalten )
-
- printlog( "Get the nodes list from the object organizer tabs - first tab" )
- hSelectBasicObjectOrganizerTab( 1 )
- ListAllDelete( cNodeListB() )
- hGetVisibleNodeNames( ModulListe , cNodeListB() )
-
- printlog( "Verify that both documents are listed on both relevant tabpages" )
- iHitCount = hCountMatchesInList( cNodeListA() , DOC_NAME )
- if ( iHitCount <> 2 ) then
- warnlog( "There should be two documents with the name " & DOC_NAME & "listed." )
- endif
-
- printlog( "Switch to second tab" )
- hSelectBasicObjectOrganizerTab( 2 )
- ListAllDelete( cNodeListB() )
- hGetVisibleNodeNames( ModuleList , cNodeListB() )
- if ( listcount( cNodeListB() ) <> 5 ) then
- warnlog( CFN & "#i49239# Incorrect object count in treelist" )
- hListPrint( cNodeListB() , "List of objects found in treelist" )
- endif
-
- printlog( "Verify" )
- iHitCount = hCountMatchesInList( cNodeListB() , DOC_NAME )
- if ( iHitCount <> 2 ) then
- warnlog( "There should be two documents with the name " & DOC_NAME & "listed." )
- endif
-
- printlog( "Third tab (should not list the document" )
- hSelectBasicObjectOrganizerTab( 3 )
- hTestLibraryListBox( cNodeListA() )
-
- printlog( CFN & "Closing dialogs..." )
- hCloseDialog( TabBibliotheken, "cancel" )
-
- printlog( "Cleanup: Close macro organizer" )
- Kontext "Makro"
- hCloseDialog( Makro, "cancel" )
-
- printlog( "Cleanup: Close all files" )
- hFileCloseAll()
-
- printlog( "Cleanup: Remove workfiles" )
- hDeleteFile( sFileWriter )
- hDeleteFile( sFileCalc )
-
- printlog( "Rest macro security level" )
- hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
-
-endcase
-
-'*******************************************************************************
+*****
function hTestLibraryListBox( cNodeList() ) as boolean
Modified: incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_ide.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_ide.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_ide.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_ide.inc Fri Jan 13 22:02:09 2012
@@ -1,154 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Macro Dialogs opened from Basic-IDE
-'*
-'\******************************************************************************
-
-testcase tBasic_IDE_Toolbar_Module
-
- printlog( "BASIC toolbars for modules" )
-
- const DIALOG_DELAY = 2
- const RC_FAILURE = -1
-
- dim cTargetFile as string
- cTargetFile = convertpath( gOfficepath & "user\work\global_test.bas" )
-
- dim cSourceFile as string
- cSourceFile = gTesttoolpath & "framework\optional\input\resetregistration.txt"
- cSourceFile = convertpath( cSourceFile )
-
- printlog "open a new writer-doc"
- gApplication = "WRITER"
- hCreateDocument()
-
- if ( hInitBasicIDE( "tBasic_IDE_Toolbar_Module" ) ) then
-
- kontext "macrobar"
- printlog "- compile"
- hClickButton( Compile )
-
- printlog "- Run Basic"
- hClickButton( BasicRun )
-
- printlog "- Step Procedure"
- hClickButton( ProcedureStep )
-
- printlog "- Stop Basic"
- hClickButton( BasicStop )
-
- printlog "- Single Step"
- hClickButton( SingleStep )
-
- printlog "- Step Back"
- hClickButton( StepBack )
-
- printlog "- Breakpoint => activate"
- hClickButton( Breakpoint )
-
-
- printlog "- Breakpoint => deactivate"
- hClickButton( Breakpoint )
-
- printlog "- Add Watch => deactivate"
- hClickButton( AddWatch )
-
- printlog "- Find Paranthese"
-
- kontext "macrobar"
- hClickButton( FindParanthese )
-
- try
- Controls.TearOff()
- warnlog "Controls are active in a module window => bug!"
- catch
- printlog( "Controls are not active->OK" )
- endcatch
- if ( WaitSlot <> WSFinished ) then
- warnlog( "Slot not finished within 1 second" )
- endif
-
- kontext "MacroBar"
- printlog( "- Insert Source Text (" & cSourceFile & ")" )
- if ( hClickButton( InsertSourceText ) <> RC_FAILURE ) then
-
- kontext "oeffnendlg"
- if ( OeffnenDlg.exists( DIALOG_DELAY ) ) then
- Dateiname.SetText( cSourceFile )
- Oeffnen.click()
- WaitSlot( 5000 )
- else
- warnlog( "File Open dialog did not open" )
- endif
-
- ' possible 'could not read from file' error-message -> this is a bug
- kontext "Active"
- if ( Active.exists( DIALOG_DELAY ) ) then
- warnlog( "Unexpected active: " & active.gettext() )
- active.ok()
- endif
- else
- warnlog( "<File Open> dialog is not open, <Insert Source Text> button failed" )
- endif
-
- kontext "macrobar"
- printlog "- Save Source Text "
- if ( hClickButton( SaveSourceText ) <> RC_FAILURE ) then
-
- kontext "speicherndlg"
- if ( SpeichernDlg.exists( DIALOG_DELAY ) ) then
- Dateiname.SetText( cTargetFile )
- Speichern.click()
- else
- warnlog( "File Save dialog is missing" )
- endif
-
- kontext "active"
- if ( Active.Exists( DIALOG_DELAY ) ) then
- printlog( "Closing Messagebox with <Yes>")
- Active.Yes()
- endif
- else
- warnlog( "<File Save> dialog did not open, slot <SaveSourceText> did not work" )
- endif
-
- hFileCloseAll()
- else
- warnlog( "Unable to init BASIC IDE" )
- endif
-
-endcase
-
-'*******************************************************************************
+*****
testcase tBasic_IDE_Toolbar_Dialogs
Modified: incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_modulenames.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_modulenames.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_modulenames.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/optional/includes/basic_modulenames.inc Fri Jan 13 22:02:09 2012
@@ -1,88 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Test modulenames on the tabbar
-'*
-'\******************************************************************************
-
-testcase tBasicIdeModuleNames
-
- printlog( "Modulenames in BASIC IDE" )
-
- const CMODULE_VALID1 = "tValidName"
- const CMODULE_VALID2 = "tValidToo"
- const TEST_MACRO = "TTMacro1"
-
- const RC_SUCCESS = 0
- const RC_FAILURE = 1
- const ERR_NO_LINES_INSERTED = 0
-
- dim iCurrentName as integer
- dim cTabName as string
-
- gApplication = "WRITER"
- hCreateDocument()
-
- hInitBasicIde( CMODULE_VALID1 )
- if ( hInsertMacroFromFile( TEST_MACRO ) > ERR_NO_LINES_INSERTED ) then
-
- cTabName = hGetTabNameFromOrganizer()
-
- Randomize
- iCurrentName = Int( 24 * RND ) + 1 ' Range from 1 to 24
-
- printlog( "Trying with invalid modulename" )
- cTabName = hCreateInvalidModuleName( iCurrentName )
- hRenameTab( cTabName )
- if ( hHandleInvalidNameWarning( cTabname ) ) then
- printlog( "Warning for invalid modulename displayed" )
- else
- warnlog( "Warning for invalid modulename is missing" )
- endif
-
- printlog( "Trying with valid modulename" )
- hRenameTab( CMODULE_VALID2 )
- if ( hHandleInvalidNameWarning( CMODULE_VALID2 ) ) then
- warnlog( "Failed to set valid modulename" )
- endif
-
- else
- warnlog( "Failed to insert macro" )
- endif
-
- hFileCloseAll()
-
-endcase
-
-'*******************************************************************************
+*****
testcase tInvalidModuleNames
Modified: incubator/ooo/trunk/main/testautomation/framework/optional/includes/filedlg_tools.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/optional/includes/filedlg_tools.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/optional/includes/filedlg_tools.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/optional/includes/filedlg_tools.inc Fri Jan 13 22:02:09 2012
@@ -1,111 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : check the internal file dialog ( 1. part )
-'*
-'\***************************************************************************
-
-sub CheckDirectoryName( dirname as string )
-
- ' Try to create a folder twice and make sure a warning comes up that the
- ' folder already exists
-
- dim i as integer
- dim FULLPATH as string
- FULLPATH = gOfficePath + "user\work\" + dirname + "\"
-
- printlog( " - Create the folder and verify it's existence" )
-
- try
-
- for i=1 to 2
-
- printlog( " - creating folder for the " + i + ". time" )
-
- Kontext "OeffnenDlg"
- printlog( " - press 'new folder' button" )
- NeuerOrdner.Click()
-
- Kontext "NeuerOrdner"
- if ( NeuerOrdner.exists( 2 ) ) then
- printlog( " - name the folder" )
- OrdnerName.SetText( dirname )
- printlog( " - press OK")
- NeuerOrdner.OK()
- else
- warnlog( "New Folder dialog not displayed" )
- endif
-
- ' Take care of the File Exists Dialog
- printlog( " - check for 'File Exists'-Dialog" )
- Kontext "Active"
- If Active.Exists() then
- Active.OK()
-
- 'if the file exists during first run of the test: just go on
- if i = 1 then
- warnlog( "File exists. Did you clean the output-dir?" )
- end if
-
- 'if the active exists, we will return to the 'new folder' dialog
- 'it must be closed as well
- Kontext "NeuerOrdner"
- NeuerOrdner.Cancel()
- else
- 'this should only be displayed on second run
- if i = 2 then
- warnlog( "No message that the folder '" + dirname + "' exists!" )
- end if
- end if
-
- next i
-
- printlog( " - verify the existence of the new directory" )
- if App.Dir ( ConvertPath ( FULLPATH ), 16 ) = "" then
- Warnlog( "The directory'" + dirname + "' wasn't created!" )
- else
- printlog( " - delete it")
- App.RmDir ( ConvertPath ( FULLPATH ) )
- end if
-
-
- catch
-
- warnlog( "Could not create the directory. Bugid: #108256# or #106510# ?" )
-
- endcatch
-
-end sub
-
-'*******************************************************************************
+*****
sub CreateInvalidDirectory( dirname as string )
Modified: incubator/ooo/trunk/main/testautomation/framework/optional/includes/ole_tools.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/optional/includes/ole_tools.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/optional/includes/ole_tools.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/optional/includes/ole_tools.inc Fri Jan 13 22:02:09 2012
@@ -1,47 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : thorsten.bosbach@oracle.com
-'*
-'* short description : global-level-1-test -> insert all OLE-Objects out of OLE-dialog into all doc-types
-'*
-'\******************************************************************************
-
-sub hReopenDoc
- 'Only for bughandling if closing an OLE object fails
- Warnlog "Cannot release Chart Object -> #107005#?"
- hCloseDocument()
- 'if Active.Exists ( 1 ) then Active.TypeKeys "<RIGHT><ENTER>"
- hNewDocument()
-end sub
-
-'*******************************************************************************
+*****
sub hOleSelektieren ( xStart%, yStart%, xEnde%, yEnde% )
WL_TB_ZF_Auswahl
Modified: incubator/ooo/trunk/main/testautomation/framework/optional/includes/options_ooo_security.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/optional/includes/options_ooo_security.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/optional/includes/options_ooo_security.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/optional/includes/options_ooo_security.inc Fri Jan 13 22:02:09 2012
@@ -1,70 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : thorsten.bosbach@oracle.com
-'*
-'* short description : Tools->Options: OpenOffice.org Security
-'*
-'\******************************************************************************
-
-testcase tOOoSecurity
- dim _file as string
-
- if ( getDocumentCount() < 1 ) then call hNewDocument()
- _file = gTesttoolPath & "framework\optional\input\options\ooo_security_defaults.ref"
- checkSecurityPage( _file )
-
- if ( getDocumentCount() < 1 ) then call hNewDocument()
- _file = gTesttoolPath & "framework\optional\input\options\ooo_security_changed.ref"
- changeSecurityPage( _file )
-
- if ( getDocumentCount() < 1 ) then call hNewDocument()
- checkSecurityPage( _file )
-
- if ( getDocumentCount() < 1 ) then call hNewDocument()
- _file = gTesttoolPath & "framework\optional\input\options\ooo_security_defaults.ref"
- changeSecurityPage( _file )
-
- if ( getDocumentCount() < 1 ) then call hNewDocument()
- checkSecurityPage( _file )
-
- kontext "ExtrasOptionenDlg"
- if ( ExtrasOptionenDlg.exists() ) then
- ExtrasOptionenDlg.ok()
- else
- warnlog( "options dialog not available"
- endif
- if ( getDocumentCount() > 0 ) then call hCloseDocument()
-
-endcase
-
-'*******************************************************************************
+*****
sub checkSecurityPage( _file as string )
_file = convertpath( _file )
Modified: incubator/ooo/trunk/main/testautomation/framework/optional/includes/security_macrosecurity.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/optional/includes/security_macrosecurity.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/optional/includes/security_macrosecurity.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/optional/includes/security_macrosecurity.inc Fri Jan 13 22:02:09 2012
@@ -1,54 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Macros with all security-levels
-'*
-'\******************************************************************************
-
-sub tMacroSecurityLevelsControlModule
-
- dim iApplication as integer
-
- for iApplication = 1 to 6
-
- printlog( "" )
- printlog( hNumericDocType( iApplication ) )
- call tMacroSecurityLevels( "current" )
- call tMacroSecurityLevels( "645" )
-
- next iApplication
-
-end sub
-
-'*******************************************************************************
+*****
testcase tMacroSecurityLevels( cFileFormat )
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/first.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/first.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/first.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/first.inc Fri Jan 13 22:02:09 2012
@@ -1,182 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : First test of basic functionality
-'*
-'\******************************************************************************
-
-testcase tAllNew
-
- printlog( "Open all available document types" )
-
- Dim lsList (20) as string
-
- if ( gUseSysDlg ) then
- warnlog("Only check, if the documents will be opened; no " & _
- "check for the defaultfilter (system file-dialog)!")
- end if
-
- printlog ""
- try
- gApplication = "WRITER"
- printlog " - " & gApplication
-
- hNewDocument()
-
- Kontext "DocumentWriter"
- DocumentWriter.TypeKeys "This is a Writer-document!"
- if gUseSysDlg = FALSE then
- if fDocumentCheck (gWriterFilter) = FALSE then
- warnlog("The filter name (saving) is not correct! " & _
- "Please check if a Writer document will be opened!")
- end if
- end if
- hCloseDocument()
- catch
- Exceptlog
- ResetApplication
- endcatch
-
- try
- gApplication = "CALC"
- printlog " - " & gApplication
-
- hNewDocument
- Kontext "DocumentCalc"
- DocumentCalc.TypeKeys "This is a Calc-document!"
-
- if gUseSysDlg = FALSE then
- if fDocumentCheck (gCalcFilter) = FALSE then
- warnlog("The filter name (saving) is not correct! " & _
- "Please check if a Calc document will be opened!")
- end if
- end if
- hCloseDocument
- catch
- Exceptlog
- ResetApplication
- endcatch
-
- try
- gApplication = "IMPRESS"
- printlog " - " & gApplication
-
- hNewDocument()
- sleep(3)
- InsertDuplicateSlide
- sleep(2)
- if gUseSysDlg = FALSE then
- if fDocumentCheck (gImpressFilter) = FALSE then
- warnlog("The filter name (saving) is not correct! " & _
- "Please check if an Impress document will be opened!")
- end if
- end if
- hCloseDocument()
- catch
- Exceptlog
- ResetApplication
- endcatch
-
- try
- gApplication = "DRAW"
- printlog " - " & gApplication
- hNewDocument()
- InsertSlide
- if gUseSysDlg = FALSE then
- if fDocumentCheck (gDrawFilter) = FALSE then
- warnlog("The filter name (saving) is not correct! Please check if a Draw document will be opened!")
- end if
- end if
- hCloseDocument()
- catch
- Exceptlog
- ResetApplication
- endcatch
- try
- gApplication = "HTML"
- printlog " - " & gApplication
- hNewDocument()
- Kontext "DocumentWriter"
- DocumentWriter.TypeKeys "This is a HTML-Document!"
- if gUseSysDlg = FALSE then
- if (fDocumentCheck (gHTMLFilter) = FALSE) then
- warnlog("The filter name (saving) is not correct! Please check if a HTML document will be opened! -> #i30867")
- end if
- end if
- hCloseDocument()
- catch
- Exceptlog
- ResetApplication
- endcatch
-
- try
- gApplication = "MATH"
- printlog " - " & gApplication
- hNewDocument()
- Call SchreibenInMathDok("a over b")
- if gUseSysDlg = FALSE then
- if fDocumentCheck (gMathFilter) = FALSE then
- warnlog("The filter name (saving) is not correct! Please check if a Math document will be opened!")
- end if
- end if
- hCloseDocument
- catch
- Exceptlog
- ResetApplication
- endcatch
-
-
- try
- gApplication = "MASTERDOCUMENT"
- printlog " - " & gApplication
- hNewDocument()
- Kontext "DocumentWriter"
- DocumentWriter.TypeKeys "This is a master document!"
- if gUseSysDlg = FALSE then
- if fDocumentCheck (gMasterDocFilter) = FALSE then
- warnlog("The filter name (saving) is not correct! Please check if a Master document will be opened!")
- end if
- end if
- Kontext "Navigator"
- if Navigator.Exists(5) then
- Navigator.Close
- end if
- hCloseDocument()
- catch
- Exceptlog
- ResetApplication
- endcatch
-endcase
-
-'*******************************************************************************
+*****
testcase tJava
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/help_browser.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/help_browser.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/help_browser.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/help_browser.inc Fri Jan 13 22:02:09 2012
@@ -1,79 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-******
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : global update/resource test
-'*
-'\******************************************************************************
-
-testcase tHelp_DialogTest
-
- printlog( "Resource test for the Help Browser" )
-
- dim brc as boolean
- brc = hOpenHelp()
- if ( not brc ) then
- warnlog( "Help not open, aborting test" )
- kontext "Active"
- if ( Active.exists( 2 ) ) then
- printlog( "Msgbox: " & Active.getText() )
- Active.ok()
- endif
- goto endsub
- endif
-
- hSelectHelpTab( "content" )
- hSelectHelpTab( "index" )
- hSelectHelpTab( "find" )
- hSelectHelpTab( "bookmarks" )
-
-
- brc = hSelectHelpTab( "content" )
- call DialogTest( ContentPage )
-
- brc = hSelectHelpTab( "index" )
- call DialogTest( IndexPage )
-
- brc = hSelectHelpTab( "find" )
- call DialogTest( FindPage )
-
- brc = hSelectHelpTab( "bookmarks" )
- call DialogTest( BookmarksPage )
-
- Kontext "StarOfficeHelp"
- hCloseHelp()
-
-endcase
-
-'*******************************************************************************
+*****
testcase tHelp_ToolBar
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/printer_administration.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/printer_administration.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/printer_administration.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/printer_administration.inc Fri Jan 13 22:02:09 2012
@@ -1,129 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : updatetest for the printer configuration
-'*
-'\******************************************************************************
-
-testcase t_updt_spadmin
-
- printlog( "Resource test for SPAdmin (Printer administration tool) for Unix(like) OS" )
-
- if ( gtSysName = "eComStation" ) then
- printlog( "No SpAdmin for eComStation" )
- goto endsub
- endif
-
- if ( lcase(gPlatform) = "osx") then
- printlog( "No SPAdmin on MacOS X" )
- goto endsub
- endif
-
- if ( gPlatGroup = "w95" ) then
- printlog( "No SPAdmin on Windows" )
- goto endsub
- endif
-
- const CPRINTER = "tt-testprinter"
- dim irc as integer
- dim brc as boolean
-
- hShutdownOffice()
-
- brc = hOpenSpAdmin()
- if ( brc ) then
-
- brc = hWaitForSpAdmin()
- if ( not brc ) then
- warnlog( "SpAdmin is not open, the test cannot continue" )
- goto endsub
- endif
-
- irc = hDelPrinter( CPRINTER )
- select case irc
- case 0 : printlog( "Maybe printer was left over by prior run?" )
- case 3 : printlog( "OK, printer does not exist" )
- end select
-
- brc = hWaitForSpAdmin()
- if ( not brc ) then
- warnlog( "SpAdmin is not open, the test cannot continue" )
- goto endsub
- endif
-
- call TestNewPrinter( CPRINTER )
-
- ' wait for the spadmin to open, on failure we end the test
- brc = hWaitForSpAdmin()
- if ( not brc ) then
- warnlog( "SpAdmin is not open, the test cannot continue" )
- goto endsub
- endif
-
- call TestProperties( CPRINTER )
-
- ' wait for the spadmin to open, on failure we end the test
- brc = hWaitForSpAdmin()
- if ( not brc ) then
- warnlog( "SpAdmin is not open, the test cannot continue" )
- goto endsub
- endif
-
- call TestRename( CPRINTER )
-
- ' wait for the spadmin to open, on failure we end the test
- brc = hWaitForSpAdmin()
- if ( not brc ) then
- warnlog( "SpAdmin is not open, the test cannot continue" )
- goto endsub
- endif
-
- ' wait for the spadmin to open, on failure we end the test
- brc = hWaitForSpAdmin()
- if ( not brc ) then
- warnlog( "SpAdmin is not open, the test cannot continue" )
- goto endsub
- endif
-
-
- irc = hDelPrinter( CPRINTER )
- if ( irc <> 0 ) then
- warnlog( "We created a Fax printer but it could not be deleted" )
- endif
-
- endif
-
-endcase
-
-'*******************************************************************************
+*****
sub TestNewPrinter( cPrinter as string )
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/script_organizers.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/script_organizers.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/script_organizers.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/script_organizers.inc Fri Jan 13 22:02:09 2012
@@ -1,166 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-******
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Verify names of macros and scripts
-'*
-'\******************************************************************************
-
-testcase tUpdtScripts
-
- printlog( "Resource test for macros and scripts / related dialogs" )
-
- if ( gIsoLang <> "en-US" ) then
- printlog( "No testing for languages other than en_US" )
- goto endsub
- endif
-
- const SCRIPTING_DIALOGS = 5
-
- const DLG_JAVASCRIPT = "JavaScript"
- const DLG_BEANSHELL = "BeanShell"
- const DLG_PYTHON = "Python"
- const DLG_BASIC_ORG = "BasicOrganizer"
- const DLG_RUN_MACRO = "RunMacro"
-
- ' This is the build specific part of the filename including substrings for
- ' the productname and language.
- dim sProductString as string : sProductString = gProductName & "_" & gISOLang & "_"
-
- ' define platforms that have different scriptcount
- if ( lcase( gPlatGroup ) = "w95" ) then sProductString = sProductString & "win_"
- if ( lcase( gPlatform ) = "osx" ) then sProductString = sProductString & "osx_"
-
- ' replace all blanks
- sProductString = hStringReplaceChar( sProductString, " ", "-" )
-
- ' This is where reference file is located, the filename is yet incomplete
- dim sInputPath as string
- sInputPath = gTesttoolPath & "framework/required/input/scripts/" & sProductString
-
- ' This is where we store the reference file if differences are found.
- dim sOutputPath as string
- sOutputPath = gOfficePath & "user/work/" & sProductString
-
- ' These contain the input and output paths (fully qualified)
- dim sFileIn as string
- dim sFileOut as string
-
- ' Array that contains the scriptnames for all organizers
- dim cScriptNamesList( 1000 ) as string
-
- dim sDialog as string
- dim iCurrentDialog as integer
-
- dim iDiffCount as integer
- dim max_diffcount as integer
-
- hInitSingleDoc()
-
- for iCurrentDialog = 1 to SCRIPTING_DIALOGS
-
- ListAllDelete( cScriptNamesList() )
-
- ' Build complete filename and identify dialog for logging and case selection
- select case ( iCurrentDialog )
- case 1 : sDialog = DLG_JAVASCRIPT
- case 2 : sDialog = DLG_BEANSHELL
- case 3 : sDialog = DLG_PYTHON
- case 4 : sDialog = DLG_BASIC_ORG
- case 5 : sDialog = DLG_RUN_MACRO
- end select
-
- printlog( "" )
- sFileIn = convertpath( sInputPath & sDialog & ".txt" )
- sFileOut = convertpath( sOutputPath & sDialog & ".txt" )
-
- printlog( "Open <" & sDialog & "> and access the treelist object" )
-
- ' Note: hGetAllNodeNames() is a *global* function defined in t_treelist_tools.inc
- ' DLG_BASIC_ORG and DLG_RUN_MACRO have - in addition to the treelist -
- ' a separate script list. To get those scripts a little more effort is
- ' required which is done in the *local* function hGetScriptNames()
-
- select case ( sDialog )
- case DLG_JAVASCRIPT: ToolsMacrosOrganizeMacrosJavaScript
- kontext "ScriptOrganizer"
- hGetAllNodeNames( ScriptTreeList, cScriptNamesList() )
- max_diffcount = 0
- case DLG_BEANSHELL: ToolsMacrosOrganizeMacrosBeanShell
- kontext "ScriptOrganizer"
- hGetAllNodeNames( ScriptTreeList, cScriptNamesList() )
- max_diffcount = 0
- case DLG_PYTHON: ToolsMacrosOrganizeMacrosPython
- kontext "ScriptOrganizer"
- hGetAllNodeNames( ScriptTreeList, cScriptNamesList() )
- max_diffcount = 0
- case DLG_BASIC_ORG: ToolsMacro_uno
- Kontext "Makro"
- hGetScriptNames( MakroAus, MakroListe, cScriptNamesList() )
- max_diffcount = 6
- case DLG_RUN_MACRO: ToolsMacrosRunMacro
- kontext "ScriptSelector"
- hGetScriptNames( LibraryTreeList, ScriptList, cScriptNamesList() )
- max_diffcount = 6
- end select
-
- printlog( "Compare to reference list, create new one if differences were found" )
- iDiffCount = abs( hManageComparisionList( sFileIn, sFileOut, cScriptNamesList() ) )
-
- ' Usually we should have 0 differences in the list. However, as we do not have
- ' a unique way of installing the office (Root-Installation, archives and
- ' others) we need a little tolerance here. If a number of bundled extensions
- ' are installed, we have more scripts.
- if ( iDiffCount > max_diffcount ) then warnlog( "The number of scripts has changed, please review." )
-
- printlog( "Close <" & sDialog & ">" )
- select case ( sDialog )
- case DLG_JAVASCRIPT :
- ScriptOrganizer.cancel()
- case DLG_BEANSHELL :
- ScriptOrganizer.cancel()
- case DLG_PYTHON :
- ScriptOrganizer.cancel()
- case DLG_BASIC_ORG :
- Makro.close()
- case DLG_RUN_MACRO :
- ScriptSelector.cancel()
- end select
-
- next iCurrentDialog
-
- hCloseDocument()
-
-endcase
-'*******************************************************************************
+*****
sub hGetScriptNames( oTreeList as object, oScriptList as object, cItemList() as string )
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/tools_customize.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/tools_customize.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/tools_customize.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/tools_customize.inc Fri Jan 13 22:02:09 2012
@@ -1,60 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-******
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Update Test for the Tools Customize Dialog
-'*
-'\******************************************************************************
-
-testcase tUpdtCustomize( cApp as string )
-
- printlog( "Tools/Customize dialog" )
-
- if ( hCreateDocument() ) then
- if ( hToolsCustomizeOpen() ) then
- hUpdtToolsCustomizeKeyboard()
- hUpdtToolsCustomizeMenu()
- hUpdtToolsCustomizeToolbars()
- hUpdtToolsCustomizeEvents()
- hCloseDialog( TabCustomizeEvents, "cancel" )
- else
- warnlog( "Tools/Customize dialog did not open" )
- endif
- hDestroyDocument
- else
- warnlog( "Failed to create initial document" )
- endif
-
-endcase
-'*******************************************************************************
+*****
function hUpdtToolsCustomizeMenu()
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/topten.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/topten.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/topten.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/topten.inc Fri Jan 13 22:02:09 2012
@@ -1,67 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Smoke test (load/save/clipboard)
-'*
-'\***********************************************************************
-
-sub topten
-
- ' we need the binary filters (.sxw etc.) for this test but beginning with
- ' OOo 3.3 these are optional
- if ( hCheckForBinfilters() ) then
- gApplication = "WRITER"
- call Top_ten_test
-
- gApplication = "CALC"
- call Top_ten_test
-
- gApplication = "IMPRESS"
- call Top_ten_test
-
- gApplication = "DRAW"
- call Top_ten_test
-
- gApplication = "MATH"
- call Top_ten_test
-
- gApplication = "HTML"
- call Top_ten_test
-
- gApplication = "MASTERDOCUMENT"
- call Top_ten_test
- endif
-end sub
-
-'*******************************************************************************
+*****
testcase Top_ten_test
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/window_functions.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/window_functions.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/window_functions.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/window_functions.inc Fri Jan 13 22:02:09 2012
@@ -1,146 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Window/Titlebar functionality
-'*
-'\******************************************************************************
-
-testcase tWindowFunctions
-
- printlog( "Update test for window functions" )
-
- printlog( "Create initial document" )
- gApplication = "WRITER"
- hInitSingleDoc()
- hInitWriteDocIdentifier( "F_updt_windowfuncs.bas" )
-
- printlog( "New document" )
- hNewDocument()
- if ( getDocumentCount <> 2 ) then
- warnlog( "Two open documents were expected, found " & getDocumentCount )
- endif
-
- kontext "DocumentWriter"
- printlog( "Close document" )
- DocumentWriter.close()
-
- if ( getDocumentCount <> 1 ) then
- warnlog( "One open document was expected, found " & getDocumentCount )
- endif
-
- printlog( "New document" )
- hNewDocument()
- if ( getDocumentCount <> 2) then
- warnlog( "Two open documents were expected, found " & getDocumentCount )
- endif
-
- printlog( "Enter some text into the second writer document" )
- kontext "DocumentWriter"
- DocumentWriter.TypeKeys( "test" )
- DocumentWriter.close()
-
- kontext "active"
- if ( Active.exists() ) then
- printlog( "Close messagebox with Cancel (leaves the document open)" )
- Active.Cancel()
- else
- warnlog( "No warning that data will be lost on close of this document" )
- endif
-
- kontext "DocumentWriter"
- if ( getDocumentCount = 2 ) then
- printlog( "Two documents open. Good." )
- else
- warnlog( "Incorrect document count. Expected two, found " & getDocumentCount )
- endif
-
- kontext "DocumentWriter"
- printlog( "Close the document" )
- FileClose()
-
- kontext "Active"
- if ( Active.exists() ) then
- printlog( "Do not save the document" )
- Active.No()
- else
- warnlog( "Warning: No data loss warning" )
- endif
-
- kontext "DocumentWriter"
- if ( getDocumentCount = 1 ) then
- printlog( "One document open. Good." )
- else
- warnlog( "Incorrect document count. Expected one, found " & getDocumentCount )
- endif
-
- Kontext "DocumentWriter"
- printlog( "Minimize window" )
- DocumentWriter.Minimize()
- Wait( 2000 )
-
- kontext "DocumentWriter"
- if ( DocumentWriter.IsMin() ) then
- printlog( "Window is minimized" )
- else
- warnlog( "Window not minimized" )
- endif
-
- kontext "DocumentWriter"
- printlog( "Restore window" )
- DocumentWriter.Restore()
- Wait( 2000 )
-
- if ( DocumentWriter.IsRestore() ) then
- printlog( "Window is Restored" )
- else
- warnlog( " * Window not Restored" )
- endif
-
- kontext "DocumentWriter"
- printlog( "Maximize window" )
- DocumentWriter.Maximize()
- Wait( 2000 )
-
- kontext "DocumentWriter"
- if ( DocumentWriter.IsMax() ) then
- printlog( "Window is maximized" )
- else
- warnlog( " * Window not maximized" )
- endif
-
- hDestroyDocument()
-
-endcase
-
-'*******************************************************************************
+*****
sub sAllWindowTitle
Modified: incubator/ooo/trunk/main/testautomation/framework/required/includes/wizard_mailmerge.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/required/includes/wizard_mailmerge.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/required/includes/wizard_mailmerge.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/required/includes/wizard_mailmerge.inc Fri Jan 13 22:02:09 2012
@@ -1,205 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Update test for the mailmerge wizard
-'*
-'\******************************************************************************
-
-private CSV_DATABASE as string
-
-testcase tUpdtWizardMailMerge
-
- printlog( "Resource test for the mailmerge wizard" )
-
- dim brc as boolean
- dim irc as integer
-
- qaerrorlog( "#i54524# - MM-Wizard modifies datasource -> CVS merge conflict" )
-
- CSV_DATABASE = hGetWorkPath() & "myDatabase"
- hDeleteFile( CSV_DATABASE )
- hRemoveDatabaseConnections()
-
-
- hInitSingleDoc()
-
- printlog( "Open the Mailmerge-Wizard" )
- ToolsMailMergeWizard
-
- Kontext "MailMergeWizard"
- brc = hUpdtMMWpage1()
- if ( not brc ) then
- warnlog( "MailMergeWizard is not visible, aborting test" )
- goto endsub
- endif
-
- Kontext "MailMergeWizard"
- hClickButton( NextButton )
- hUpdtMMWPage2()
-
- Kontext "MailMergeWizard"
- hClickButton( NextButton )
- hUpdtMMWpage3()
-
- Kontext "MailMergeWizard"
- hClickButton( NextButton )
- hUpdtMMWPage4()
-
- Kontext "MailMergeWizard"
- hClickButton( NextButton )
- hUpdtMMWPage5()
-
- Kontext "MailMergeWizard"
- hClickButton( NextButton )
- hUpdtMMWPage6()
-
- Kontext "MailMergeWizard"
- hClickButton( NextButton )
- hUpdtMMWPage7()
-
- Kontext "MailMergeWizard"
- hClickNextButton()
- hUpdtMMWPage8()
-
- printlog( "close the wizard" )
- Kontext "MailMergeWizard"
- hCloseDialog( MailMergeWizard, "cancel" )
-
- hRemoveDatabaseConnections()
- hCloseDocument()
- hCloseDocument()
-
-
-endcase
-
-'**********************************************************************
-
-function hUpdtMMWpage1() as boolean
-
-
-
- const CFN = "hUpdtMMWpage1::"
-
- Kontext "TabMailMergeSourceDocument"
- if ( not TabMailMergeSourceDocument.exists() ) then
- warnlog( CFN & "Page 1 could not be accessed" )
- hUpdtMMWPage1() = false
- exit function
- endif
-
- Kontext "TabMailMergeSourceDocument"
- if ( BrowseDocument.exists( 1 ) ) then
- if ( BrowseDocument.isEnabled ) then
- BrowseDocument.click()
-
- Kontext "OeffnenDlg"
- if ( OeffnenDlg.exists( 1 ) ) then
- printlog( CFN & "BrowseDocument::File Open Dialog" )
- call dialogtest( OeffnenDlg )
- OeffnenDlg.cancel()
- else
- warnlog( CFN & "BrowseDocument::FileOpen not open" )
- endif
- else
- warnlog( CFN & "BrowseDocument::Button is disabled" )
- endif
- else
- warnlog( CFN & "BrowseDocument::Button does not exist" )
- endif
-
- Kontext "TabMailMergeSourceDocument"
- if ( BrowseTemplate.exists( 2 ) ) then
- if ( BrowseTemplate.isEnabled ) then
- BrowseTemplate.click()
-
- Kontext "Neu"
- if ( Neu.exists( 1 ) ) then
- printlog( CFN & "BrowseTemplate::New Dialog" )
- call dialogtest( Neu )
- Neu.cancel()
- else
- warnlog( CFN & "BrowseTemplate::FileOpen not open" )
- endif
- else
- warnlog( CFN & "BrowseTemplate::Button is disabled" )
- endif
- else
- warnlog( CFN & "BrowseTemplate::Button does not exist" )
- endif
-
- kontext "TabMailMergeSourceDocument"
- if ( CreateANewDocument.exists( 2 ) ) then
- if ( CreateANewDocument.isEnabled ) then
- printlog( CFN & "Check Create new Document" )
- CreateANewDocument.check()
- else
- warnlog( CFN & "CheckBbox is disabled" )
- endif
- else
- warnlog( CFN & "CheckBox does not exist" )
- endif
-
- hUpdtMMWPage1() = true
-
-end function
-
-'**********************************************************************
-
-function hUpdtMMWpage2()
-
-
- const CFN = "hUpdtMMWpage2::"
-
- Kontext "TabMailMergeDocumentType"
- if ( not TabMailMergeDocumentType.exists( 2 ) ) then
- warnlog( CFN & "Page 2 could not be accessed" )
- exit function
- endif
-
- call dialogtest( TabMailMergeDocumentType )
-
- printlog( CFN & "Select to create a letter" )
- if ( Letter.exists() ) then
- if ( Letter.isEnabled() ) then
- Letter.check()
- else
- warnlog( CFN & "Cannot check Letter-Checkbox" )
- endif
- else
- warnlog( CFN & "Letter Checkbox does not exist" )
- endif
-
-end function
-
-'*******************************************************************************
+*****
function hUpdtMMWpage3()
Modified: incubator/ooo/trunk/main/testautomation/framework/tools/includes/CJK_tools.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/tools/includes/CJK_tools.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/tools/includes/CJK_tools.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/tools/includes/CJK_tools.inc Fri Jan 13 22:02:09 2012
@@ -1,65 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-'*
-'* owner : hercule.li@oracle.com
-'*
-'* short description : Tools for CJK feature test in Writer
-'*
-'\***********************************************************************
-
-function CheckAsianLanguageSupport( sSupport as String ) as String
-
- ToolsOptions
- Call hToolsOptions("LANGUAGESETTINGS","LANGUAGES")
-
- if ( aktivieren.exists() ) then
- if ( aktivieren.isEnabled() ) then
- if ( lcase( sSupport ) = "on" ) then
- printlog( "Enabling Asian Language Support" )
- Aktivieren.Check
- else
- printlog( "Disabling Asian Language Support" )
- Aktivieren.uncheck()
- endif
- else
- warnlog( "Activate Asian Language Support checkbox is disabled" )
- endif
- else
- warnlog( "Activate Asian Language Support checkbox is missing" )
- endif
-
- Kontext "ExtrasOptionenDlg"
- ExtrasOptionenDlg.OK()
-
-end function
-
-'******************************************************************************'
+****'
function fStartupNavigator(navigatorItem as String , subItemNum as Integer)
Dim j as Integer
Modified: incubator/ooo/trunk/main/testautomation/framework/tools/includes/customize_tools.inc
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/testautomation/framework/tools/includes/customize_tools.inc?rev=1231333&r1=1231332&r2=1231333&view=diff
==============================================================================
--- incubator/ooo/trunk/main/testautomation/framework/tools/includes/customize_tools.inc (original)
+++ incubator/ooo/trunk/main/testautomation/framework/tools/includes/customize_tools.inc Fri Jan 13 22:02:09 2012
@@ -1,47 +1,26 @@
'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.
+' Licensed to the Apache Software Foundation (ASF) under one
+' or more contributor license agreements. See the NOTICE file
+' distributed with this work for additional information
+' regarding copyright ownership. The ASF licenses this file
+' to you under the Apache License, Version 2.0 (the
+' "License"); you may not use this file except in compliance
+' with the License. You may obtain a copy of the License at
+'
+' http://www.apache.org/licenses/LICENSE-2.0
+'
+' Unless required by applicable law or agreed to in writing,
+' software distributed under the License is distributed on an
+' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
+' KIND, either express or implied. See the License for the
+' specific language governing permissions and limitations
+' under the License.
'
'*************************************************************************
-******
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : Tools to ease the use of the ToolsCustomize-Dialog
-'*
-'\******************************************************************************
-
-function hToolsCustomizeOpen() as boolean
-
- printlog( "Open Tools/Customize dialog" )
- ToolsCustomize
- hToolsCustomizeOpen() = hToolsCustomizeSelectTab( "Events" )
-
-end function
-'*******************************************************************************
+*****
function hToolsCustomizeSelectTab( cTab as string ) as boolean