Skip to content

C
core
Kaydet (Commit) 0720ef5f authored tarafından Andrew Rist's avatar Andrew Rist
Dosyalara gözat
Seçenekler

Update headers to Alv2 headers

üst 1d658ece
Hide whitespace changes
Inline Side-by-side
Showing with 392 additions and 1517 deletions
testautomation/framework/optional/includes/basic_issues.inc
Dosyayı görüntüle @ 0720ef5f
'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 : Regression tests for especially annoying BASIC issues
'*
'\******************************************************************************
function hIDERunMacro()
kontext "MacroBar"
if ( MacroBar.exists() ) then
BasicRun.click()
else
warnlog( "MacroBar not accessible" )
endif
end function
'*******************************************************************************
*****
function hTestActive( cString as string , iMethod as integer , bExact as boolean ) as integer
......
testautomation/framework/optional/includes/basic_macros.inc
Dosyayı görüntüle @ 0720ef5f
'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 macro-dialogs / BASIC-IDE ( 1. part )
' **
'\******************************************************************************
testcase tMakro_In_All_Apps
printlog( "Attach a macro to all application types" )
dim iApp as Integer
const CMACRO = "AppMakro"
const DIALOG_TIMEOUT = 2
for iApp = 1 to 7
printlog( hNumericDoctype( iApp ) )
printlog( "Open a new document" )
hCreateDocument()
if ( hInitBasicIde( CMACRO ) ) then
printlog "Close the BASIC-IDE"
hCloseBasicIde()
printlog( "Close the navigator (Master-doc)" )
kontext "Navigator"
hCloseDialog( Navigator, "close,optional" )
printlog( "Close the document" )
hUseAsyncSlot( "FileClose" )
printlog( "Close the messagebox (document changed)" )
kontext "messagebox"
if ( MessageBox.Exists( DIALOG_TIMEOUT ) ) then
printlog( "MessageBox: " & MessageBox.getText() )
hCloseDialog( Messagebox, "no" )
else
warnlog( "No warning for changed document" )
end if
else
warnlog( "Could not open the BASIC Macro Organizer, aborting" )
endif
next iApp
endcase
'*******************************************************************************
*****
testcase tMakro_Dialog
......
testautomation/framework/optional/includes/basic_usertemplate.inc
Dosyayı görüntüle @ 0720ef5f
'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 : My Macros/standard execution with user defined template
'*
'\******************************************************************************
testcase tMacroUsertemplate
' requires: Default template path, default security level (medium)
' Details:
' This test checks for some really weird behavior. A macro is created
' for the standard lib in My Macros - this means the macro is stored with
' the application, not the document.
' When creating a document based on a user-created template the macro
' will not execute, instead a com.sun.star... errormessage is displayed
dim irc as integer ' returncode
dim cMacroName as string ' Temp variable to store the name of current macro
const DOC_IDENTIFIER = "A test document for tMacroUserTemplate"
dim sPathOut as string ' output path for workfile
const FILEOUT = "tMacroUserTemplate"
const FILTER = "writer8_template"
dim iCurrentNode as integer
sPathOut = convertpath( gOfficePath & "user\template\" )
hDeleteFile( sPathOut & FILEOUT & ".ott" )
hInitSingleDoc()
kontext "DocumentWriter"
DocumentWriter.typeKeys( DOC_IDENTIFIER )
printlog( "Create a new document" )
hCreateDocument()
printlog( "Open the macro organizer" )
ToolsMacro_uno
printlog( "Search for the module" )
kontext "Makro"
iCurrentNode = hSelectNodeByName( MakroAus, "Module1" )
if ( iCurrentNode = 0 ) then
warnlog( "#i73521# - The expected node could not be found. Aborting test" )
kontext "Makro"
hCloseDialog( Makro, "close" )
hDestroyDocument()
goto endsub
endif
printlog( "Find the macro we are going to replace" )
if ( MakroListe.getItemCount() > 0 ) then
cMacroName = MakroListe.getSelText()
if ( lcase( cMacroName ) <> "main" ) then
warnlog( "Test abort: Incorrect macro is selected: " & cMacroName )
printlog( "This should have been the <Main> Macro" )
kontext "Makro"
hCloseDialog( Makro, "cancel" )
hDestroyDocument()
goto endsub
endif
else
warnlog( "There is no macro listed for the current module, the test cannot continue" )
kontext "Makro"
hCloseDialog( Makro, "close" )
hDestroyDocument()
goto endsub
endif
printlog( "Edit" )
Bearbeiten.click()
printlog( "Insert test macro" )
hInsertMacro( 3 )
printlog( "Close BASIC IDE" )
hCloseBasicIde()
printlog( "Close Document" )
hDestroyDocument()
printlog( "Open new document" )
hCreateDocument
printlog( "Open Macro Organizer" )
ToolsMacrosRunMacro
printlog( "Find the Macro again" )
cMacroName = hExecScript_tMacroUserTemplate() ' local function, see below
if ( lcase( cMacroName ) <> "main" ) then
warnlog( "Test abort: Incorrect macro is selected: " & cMacroName )
printlog( "This should have been the <Main> Macro" )
ScriptSelector.cancel()
hDestroyDocument()
goto endsub
endif
printlog( "Run the macro" )
ScriptSelector.ok()
printlog( "Check for macro" )
kontext "Active"
if ( active.exists( 3 ) ) then
printlog( "Messagebox: " & active.getText() )
active.ok()
else
warnlog( "The Macro has not been executed" )
endif
printlog( "Close the document" )
hDestroyDocument()
printlog( "Open a new document" )
hCreateDocument()
printlog( "" )
printlog( "Save as template" )
hFileSaveAsWithFilterKill( sPathOut & FILEOUT, FILTER )
printlog( "Close the document" )
hDestroyDocument()
printlog( "" )
printlog( "File New from Template" )
FileNewFromTemplate
printlog( "Find the template" )
irc = hFindTemplate( FILEOUT )
hSelectDocumentObject( irc, 1 )
printlog( "" )
printlog( "Open the <Run Macro> dialog" )
ToolsMacrosRunMacro
printlog( "Try to find the macro" )
cMacroName = hExecScript_tMacroUserTemplate() ' local function, see below
if ( lcase( cMacroName ) <> "main" ) then
warnlog( "Test abort: Incorrect macro is selected: " & cMacroName )
printlog( "This should have been the <Main> Macro" )
ScriptSelector.cancel()
hDestroyDocument()
goto endsub
endif
printlog( "Run" )
ScriptSelector.ok()
printlog( "Verify macro execution" )
kontext "Active"
if ( active.exists( 3 ) ) then
if ( instr( active.getText() , "com.sun" ) <> 0 ) then
warnlog( "#i58527# - unable to run macro with user-template loaded" )
endif
if ( active.getText() = "TTMacro3" ) then
printlog( "The macro was executed" )
else
printlog( "Unknown dialog: " & hRemoveLineBreaks( active.getText() ) )
endif
active.ok()
else
warnlog( "Macro not executed / no warning" )
endif
printlog( "Close all open documents" )
hFileCloseAll()
printlog( "Delete test template" )
hDeleteFile( sPathOut & FILEOUT & ".ott" )
endcase
'*******************************************************************************
*****
function hExecScript_tMacroUserTemplate() as string
......
testautomation/framework/optional/includes/basic_vba-compat_xlsm-xlsb.inc
Dosyayı görüntüle @ 0720ef5f
'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 VBA compatibility switches
'*
'\******************************************************************************
testcase tBasicVBACompatXLSM_XLSB()
printlog( "Functionality of macros in XLSM/XLSB files" )
' Based on issue #i111007
const IMPORT_EXCEL_MACROS = TRUE
const EXEC_EXCEL_MACROS = TRUE
const FILE_COUNT = 2
const MODULE_COUNT = 7
const MODULE_NOT_FOUND = 0
const MAX_DELAY = 3
const RC_TIMEOUT = -1
const THE_MODULE_THAT_BEHAVES_DIFFERENTLY = 6
const RELATIVE_PATH = "framework/optional/input/vba-compat/"
' We have two files to load, on e .xlsm and one .xlsb
dim cFileList( FILE_COUNT ) as string
cFileList( 1 ) = "vba-project.xlsm"
cFileList( 2 ) = "vba-project.xlsb"
' both documents import the same modules
dim cTestModuleList( MODULE_COUNT )
cTestModuleList( 1 ) = "MyChartModule"
cTestModuleList( 2 ) = "MyCodeModule"
cTestModuleList( 3 ) = "MyPrivateClassModule"
cTestModuleList( 4 ) = "MyPublicClassModule"
cTestModuleList( 5 ) = "MySheetModule"
cTestModuleList( 6 ) = "MyUserForm"
cTestModuleList( 7 ) = "MyWorkbookModule"
dim cTestFile as string
dim iCurrentFile as integer
dim iCurrentModule as integer
printlog( "Set macro security to low" )
hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW )
printlog( "Open Tools/Options" )
hSetExcelBasicImportMode( IMPORT_EXCEL_MACROS, EXEC_EXCEL_MACROS )
for iCurrentFile = 1 to FILE_COUNT
cTestFile = gTesttoolPath & RELATIVE_PATH & cFileList( iCurrentFile )
printlog( "Loading document: " & cTestFile )
hFileOpen( cTestFile )
for iCurrentModule = 1 to MODULE_COUNT
printlog( "" )
printlog( "Tryng to execute macro: " & cTestModuleList( iCurrentModule ) )
ToolsMacro_uno
kontext "Makro"
if ( Makro.exists( MAX_DELAY ) ) then
if ( hSelectNodeByName( MakroAus, cTestModuleList( iCurrentModule ) ) <> MODULE_NOT_FOUND ) then
printlog( "Execute the default macro <Test> for the current module" )
if ( hClickButton( Ausfuehren ) <> RC_TIMEOUT ) then
if ( iCurrentModule = THE_MODULE_THAT_BEHAVES_DIFFERENTLY ) then
' Fuzzy matching message string
hTestMacroType2( cTestModuleList( iCurrentModule ) )
else
' Exact matching message string
hTestMacroType1( cTestModuleList( iCurrentModule ) )
endif
else
warnlog( "No executable macro found for the current module / <Run> button is disabled" )
endif
else
warnlog( "the expected macro module could not be found" )
endif
else
warnlog( "BASIC Macro organizer did not open" )
endif
next iCurrentModule
printlog( "Close the document" )
hFileCloseAll()
next iCurrentFile
hSetExcelImportModeDefault()
hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
endcase
'*******************************************************************************
*****
function hTestMacroType1( cMessage as string ) as boolean
......
testautomation/framework/optional/includes/basic_vba_compat_tools.inc
Dosyayı görüntüle @ 0720ef5f
'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 : Small helpers for Excel BASIC import modes
'*
'\******************************************************************************
function hSetExcelBasicImportMode( bImport as boolean, bEnable as boolean )
printlog( "Changing Excel VBA import modes" )
ToolsOptions
hToolsOptions( "LoadSave", "VBAProperties" )
if ( bImport ) then
ExcelBasicLaden.check()
if ( bEnable ) then
ExecutableCode.check()
else
ExecutableCode.uncheck()
endif
else
ExcelBasicLaden.uncheck()
endif
Kontext "OptionenDlg"
OptionenDlg.ok()
end function
'*******************************************************************************
*****
function hSetExcelImportModeDefault()
......
testautomation/framework/optional/includes/f_usage_tracking.inc
Dosyayı görüntüle @ 0720ef5f
'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 : Usage tracking
'*
'\******************************************************************************
private const LOGFILE = "user\temp\Feedback\Current.csv"
'*******************************************************************************
*****
testcase tUsageTracking1
......
testautomation/framework/optional/includes/filedlg_document_properties.inc
Dosyayı görüntüle @ 0720ef5f
'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 : Access document properties
'*
'\******************************************************************************
testcase tFiledlgDocumentProperties()
dim cFileName as string
cFileName = "DigitalSignature" & hGetSuffix( "current" )
dim cFilePath as string
cFilePath = gTesttoolPath & "framework\optional\input\security"
cFilePath = convertpath( cFilePath )
dim cFileURL as string : cFileURL = cFilePath & gPathSigne & cFileName
dim iFileSize as long
dim cFileSize as string
dim iFileSizeInfo as long
dim cSignatureCreator as string
dim cTestExpression as string
dim cSelectAll as string
dim cCopy as string
dim brc as boolean
printlog( "Using filename: " & cFileName )
printlog( "Using filepath: " & cFilePath )
if ( FileExists( cFileURL ) ) then
iFileSize = FileLen( cFileURL )
printlog( "Testfile size is: " & iFileSize & " Bytes" )
else
warnlog( "The workfile does not exist. aborting test" )
goto endsub
endif
hFileOpen( cFileURL )
FileProperties
brc = hDocumentInfoSelectTab( "General" )
if ( not brc ) then
warnlog( "Unable to switch to the requested tabpage, trying to recover" )
kontext "TabDokument"
TabDokument.cancel()
hDestroyDocument()
endif
cTestExpression = hGetStringFromStaticTextField( FileLocationInfo )
if ( cTestExpression = cFilePath ) then
printlog( "Path is correct" )
else
warnlog( "The path string is incorrect: " & cTestExpression )
endif
kontext "TabDokument"
cFileSize = hGetStringFromStaticTextField( FileSizeInfo )
iFileSizeInfo = hConvertStringToLong( cFileSize )
if ( iFileSize <> iFileSizeInfo ) then
warnlog( "Filesize does not match, please check" )
printlog( "Found...: " & iFileSizeInfo )
printlog( "Expected: " & iFileSize )
else
printlog( "Filesize is correct" )
endif
kontext "TabDokument"
TabDokument.cancel()
hDestroyDocument()
endcase
'*******************************************************************************
*****
function hDocumentInfoSelectTab( cTabPage as string ) as boolean
......
testautomation/framework/optional/includes/ole_1.inc
Dosyayı görüntüle @ 0720ef5f
'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
'*
'\******************************************************************************
testcase tOLEWriter
Dim i% : Dim k%
Dim sText$
gApplication = "WRITER"
Call hNewDocument
PrintLog "- Writer : Chart without table"
hUseAsyncSlot( "InsertObjectChart" )
Kontext "DocumentChart"
if ( DocumentChart.Exists( 5 ) ) then
FormatChartType
Kontext "ChartType"
if ( ChartType.Exists( 5 ) ) then
ChartType.Cancel
else
warnlog "Chart Type dialog did bot occour."
end if
Kontext "DocumentChart"
DocumentChart.TypeKeys "<ESCAPE>"
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<DELETE>"
else
warnlog "Chart has not been inserted."
end if
PrintLog "- Writer : Chart out of a table only with numbers"
hUseAsyncSlot( "InsertTableWriter" )
Kontext "TabelleEinfuegenWriter"
if ( TabelleEinfuegenWriter.exists( 1 ) ) then
Spalten.SetText "3"
Zeilen.SetText "10"
TabelleEinfuegenWriter.OK
TabelleEinfuegenWriter.notExists( 2 )
else
warnlog( "Dialog <TabelleEinfuegenWriter> did not open" )
endif
Kontext "DocumentWriter"
for i%=1 to 10
for k%=1 to 3
sText$ = (i%+k%)*k%
DocumentWriter.TypeKeys sText$
DocumentWriter.TypeKeys "<Right>"
next k%
DocumentWriter.TypeKeys "<Down>"
DocumentWriter.TypeKeys "<Left>", 3
next i%
hUseAsyncSlot( "InsertObjectChart" )
hStepThroughChartWizard()
Kontext "DocumentChart"
DocumentChart.typeKeys "<ESCAPE>"
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<Delete>"
Sleep 1
DocumentWriter.TypeKeys "<Down>", 20
DocumentWriter.TypeKeys "<Return>", 2
PrintLog "- Writer : Chart out of a table only with chars"
hUseAsyncSlot( "InsertTableWriter" )
Kontext "TabelleEinfuegenWriter"
if ( TabelleEinfuegenWriter.exists( 1 ) ) then
Spalten.SetText "3"
Zeilen.SetText "10"
TabelleEinfuegenWriter.OK
TabelleEinfuegenWriter.notExists( 2 )
else
warnlog( "Dialog <TabelleEinfuegenWriter> did not open" )
endif
Kontext "DocumentWriter"
for i%=1 to 10
for k%=1 to 3
sText$ = (i%+k%)*k%
DocumentWriter.TypeKeys "Hallo" + sText$
DocumentWriter.TypeKeys "<Right>"
next k%
DocumentWriter.TypeKeys "<Down>"
DocumentWriter.TypeKeys "<Left>", 3
next i%
hUseAsyncSlot( "InsertObjectChart" )
hStepThroughChartWizard()
Kontext "DocumentChart"
DocumentChart.typeKeys "<ESCAPE>"
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<Delete>"
Sleep 1
DocumentWriter.TypeKeys "<Down>", 20
DocumentWriter.TypeKeys "<Return>", 2
PrintLog "- Writer : Math"
hUseAsyncSlot( "InsertObjectFormulaWriter" )
gMouseClick ( 1, 1)
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<Delete>"
PrintLog "- Writer : floating frame"
hUseAsyncSlot( "InsertFloatingFrame" )
printlog( "Properties dialog for floating frame should open" )
Kontext "TabEigenschaften"
if ( TabEigenschaften.exists( 1 ) and TabEigenschaften.isVisible() ) then
printlog( "Name the floating frame, close the dialog" )
FrameName.SetText "Hallo"
Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" )
TabEigenschaften.OK
TabEigenSchaften.notExists( 2 )
endif
printlog( "Close the writer document" )
Kontext "DocumentWriter"
DocumentWriter.TypeKeys "<Delete>"
Sleep 1
hCloseDocument
endcase
'*******************************************************************************
*****
testcase tOLECalc
......
testautomation/framework/optional/includes/ole_3.inc
Dosyayı görüntüle @ 0720ef5f
'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 :
'*
'\******************************************************************************
testcase tDraw_As_OLE_Object()
call ClosePresentationfloat()
call hInsertOLEObject( true, gOLEDraw, "DRAW" )
'call hInsertOLEObject( false, gOLEDraw, "DRAW" )
endcase
testcase tCalc_as_OLE_Object()
call ClosePresentationfloat()
call hInsertOLEObject( true, gOLECalc, "CALC" )
'call hInsertOLEObject( false, gOLECalc, "CALC" )
endcase
testcase tImpress_As_OLE_Object()
call ClosePresentationfloat()
call hInsertOLEObject( true, gOLEImpress, "IMPRESS" )
'call hInsertOLEObject( false, gOLEImpress, "IMPRESS" )
endcase
testcase tWriter_As_OLE_Object()
call ClosePresentationfloat()
call hInsertOLEObject( true, gOLEWriter, "WRITER" )
'call hInsertOLEObject( false, gOLEWriter, "WRITER" )
endcase
testcase tMath_As_OLE_Object()
call ClosePresentationfloat()
call hInsertOLEObject( true, gOLEMath, "MATH" )
'call hInsertOLEObject( false, gOLEMath, "MATH" )
endcase
testcase tChart_As_OLE_Object()
call ClosePresentationfloat()
call hInsertOLEObject( true, gOLEChart, "CHART" )
'call hInsertOLEObject( false, gOLEChart, "CHART" )
endcase
'*******************************************************************************
*****
function hInsertOLEObject( bRemoveFocus as boolean, cOLEObject as string, cOleType as string ) as beoolean
......
testautomation/framework/optional/includes/options_lan1.inc
Dosyayı görüntüle @ 0720ef5f
'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 : general option test (test for language-group)
'*
'\******************************************************************************
sub opt_lan1
Dim bOld as Boolean
bOld = ActiveDeactivateAsianSupport ( FALSE )
Call tLanguageSettingsLanguages
Call tLanguageSettingsWritingAids
printlog "++ activate the asian support in StarOffice ++"
ActiveDeactivateAsianSupport ( TRUE )
Call tLanguageSettingsJapaneseFind
Call tLanguageSettingsAsianLayout
printlog "++ reset asian support in StarOffice to default ++"
if bOld = TRUE then
ActiveDeactivateAsianSupport ( TRUE )
else
ActiveDeactivateAsianSupport ( FALSE )
end if
end sub
'*******************************************************************************
*****
testcase tLanguageSettingsLanguages
......
testautomation/framework/optional/includes/options_ooo_java.inc
Dosyayı görüntüle @ 0720ef5f
'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 Java
'*
'\******************************************************************************
testcase tOOoJava
dim bJavaState as boolean
ToolsOptions
hToolsOptions( "StarOffice", "Java" )
printlog( "Verify that Java is enabled and configured" )
if ( usejava.isChecked() = false ) then
warnlog( "Java should be enabled by default, checking and restarting" )
bJavaState = hChangeJavaState( true )
if ( bJavaState = false ) then
warnlog( "Java is still not enabled, aborting test." )
kontext "OptionenDlg"
OptionenDlg.cancel()
goto endsub
endif
else
printlog( " Java is enabled. Good." )
endif
' Needs a delay, it might take some time until the listbox gets populated
sleep( 3 )
' There should be a java-runtime installed. If not -> leave test
printlog( "Make sure at least one Java runtime is installed" )
if ( javalist.getitemcount() = 0 ) then
warnlog( "No java listed in listbox, the test will stop" )
kontext "OptionenDlg"
OptionenDlg.cancel()
goto endsub
else
printlog( " Java is installed, good." )
endif
printlog( "Quickly test that all controls are active" )
if ( add.isEnabled() ) then
printlog( " 'Add...' is enabled" )
else
warnlog( "The 'Add...' button is disabled" )
endif
if ( parameters.isEnabled() ) then
printlog( " 'Parameters...' is enabled" )
else
warnlog( "The 'Parameters...' button is disabled" )
endif
if ( classpath.isEnabled() ) then
printlog( " 'Class Path...' is enabled" )
else
warnlog( "The 'Class Path...' button is disabled" )
endif
if ( JavaList.isEnabled() ) then
printlog( " 'JavaList' is enabled" )
else
warnlog( "The 'JavaList' button is disabled" )
endif
kontext "OptionenDlg"
OptionenDlg.ok
endcase
'*******************************************************************************
*****
function hChangeJavaState( bEnable as boolean ) as boolean
' this little fella switches Java support on and off including a restart of
......
testautomation/framework/optional/includes/options_ooo_view.inc
Dosyayı görüntüle @ 0720ef5f
'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 View
'*
'\******************************************************************************
testcase tOOoView
dim sFile as string
printlog "Check if the defaults are correct"
sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_defaults.ref"
call checkPage( sFile , false )
printlog "Change all settings to something different to the default"
sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_changed.ref"
call changePage( sFile , true, 1 )
printlog "Verify that all changes persist after a restart"
sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_changed.ref"
call checkPage( sFile , true, 1 )
printlog "Re-apply the defaults to all controls and restart the application"
sFile = gTesttoolPath + "framework\optional\input\options\ooo_view_defaults.ref"
call changePage( sFile , false )
printlog "Verify that all settings have indeed been reset to defaults"
call checkPage( sFile , false )
endcase
'*******************************************************************************
*****
sub checkPage( sFile as string , bDisabled as boolean, optional iMiddleMouseButtonControl as integer)
dim iMiddleMouseButton as integer
......
testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description: Save & Load testing of Layout -templates.
'*
'\**************************************************************************************
testcase tSaveLoadLayoutEmpty
Dim NewFileDir as String
NewFileDir = ConvertPath (gOfficePath + "user\work\LayoutTest\")
printlog "Create New folder in the Work-directory"
printlog " Will try to create the directory: " + NewFileDir
app.mkdir NewFileDir
printlog "Create a new document, add an empty Layout, Save the document in all available Formats, and open the saved files."
printlog "Make new Presentation"
gApplication = "IMPRESS"
Call hNewDocument
printlog "Choose and Insert an empty Layout."
printlog " Choose and Insert an empty Layout."
FormatModifyPage
sleep (1)
kontext "Tasks"
LayoutsPreview.TypeKeys "<HOME>"
kontext "Pagelayout_UndoDeleteWarning"
if Pagelayout_UndoDeleteWarning.exists then
Pagelayout_UndoDeleteWarning.ok
end if
kontext "Tasks"
printlog "Press Enter to use the layout on the current slide"
LayoutsPreview.TypeKeys "<RETURN>"
sleep (5)
printlog "Save the document in different formats..."
printlog "Close the file."
printlog "Load the different files."
call fSaveLoadAllFormats (NewFileDir) 'Runs the Function below.
printlog "Delete the different files."
printlog " Will try to delete the directory: " + NewFileDir
app.rmDir NewFileDir
printlog "tSaveLoadLayoutEmpty ended."
printlog "End the test"
endcase 'tSaveLoadLayoutEmpty
'****************************************************************************************************
**************************
testcase tSaveLoadLayoutText
printlog "Testing layout with text."
......
testautomation/graphics/required/includes/draw/d_002_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description :
'*
'\*****************************************************************
sub d_002
call tdEditCrossFading()
call tdEditLayer()
end sub
'*******************************************************************************
*****
testcase tdEditCrossFading
......
testautomation/graphics/required/includes/draw/d_003_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description :
'*
'\*****************************************************************
sub d_003
call tdViewPagePane()
call tdViewSlide()
end sub
'*******************************************************************************
*****
testcase tdViewPagePane
......
testautomation/graphics/required/includes/draw/d_005_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description :
'*
'\*****************************************************************
sub d_005
call tiFormatLayer()
end sub
'*******************************************************************************
*****
testcase tiFormatLayer
......
testautomation/graphics/required/includes/draw/d_007.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description :
'*
'\*****************************************************************
sub d_007
call tdModifyRotate()
end sub
'*******************************************************************************
*****
testcase tdModifyRotate
......
testautomation/graphics/required/includes/impress/im_002_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description : Impress Required Test Library (2)
'*
'\*****************************************************************
sub im_002_
call tiEditDeleteSlide()
end sub
'*******************************************************************************
*****
testcase tiEditDeleteSlide
......
testautomation/graphics/required/includes/impress/im_003_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description : Impress Resource Test: View Menu
'*
'\******************************************************************************
sub im_003_
call tiViewPanes()
call tiViewMasterView()
call tiViewSlideMaster()
call tiViewToolbar_1()
end sub
'*******************************************************************************
*****
testcase tiViewPanes
......
testautomation/graphics/required/includes/impress/im_004_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description : Impress Required Test Library (4)
'*
'\*****************************************************************
sub im_004_
call tiInsertSlideExpandSummary()
end sub
'*******************************************************************************
*****
testcase tiInsertSlideExpandSummary
......
testautomation/graphics/required/includes/impress/im_005_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description : Impress Required Test Library (5)
'*
'\*****************************************************************
sub im_005_
call tiFormatModifyLayout()
end sub
'*******************************************************************************
*****
testcase tiFormatModifyLayout
......
testautomation/graphics/required/includes/impress/im_007_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description : Impress Required Test Library (7)
'*
'\*****************************************************************
sub im_007_
call tSlideShowSlideShow()
call tSlideShowRehearseTimings()
call tSlideShowSlideShowSettings()
call tSlideShowCustomSlideShow()
call tSlideShowSlideTransition()
call tSlideShowShowHideSlide()
call tSlideShowCustomAnimation()
call tSlideShowInteraction()
call tSlideShowAnimation()
end sub
'*******************************************************************************
*****
testcase tSlideShowSlideShow
......
testautomation/graphics/required/includes/impress/im_011_.inc
Dosyayı görüntüle @ 0720ef5f
'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 : wolfram.garten@oracle.com
'*
'* short description : Impress Required Test Library (11)
'*
'\*****************************************************************
sub m_011_
call tiDiaLeiste()
end sub
'*******************************************************************************
*****
testcase tiDiaLeiste
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment