jl165 merging heads
[LibreOffice.git] / testautomation / framework / optional / f_ole.bas
blobc1724e80d92e263f2b1e2c144ad32fb7da5af4ad
1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 '
5 ' Copyright 2000, 2010 Oracle and/or its affiliates.
7 ' OpenOffice.org - a multi-platform office productivity suite
9 ' This file is part of OpenOffice.org.
11 ' OpenOffice.org is free software: you can redistribute it and/or modify
12 ' it under the terms of the GNU Lesser General Public License version 3
13 ' only, as published by the Free Software Foundation.
15 ' OpenOffice.org is distributed in the hope that it will be useful,
16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ' GNU Lesser General Public License version 3 for more details
19 ' (a copy is included in the LICENSE file that accompanied this code).
21 ' You should have received a copy of the GNU Lesser General Public License
22 ' version 3 along with OpenOffice.org. If not, see
23 ' <http://www.openoffice.org/license.html>
24 ' for a copy of the LGPLv3 License.
26 '/************************************************************************
28 '* owner : thorsten.bosbach@oracle.com
30 '* short description : OLE
32 '\******************************************************************************
34 sub main
36 use "framework\optional\includes\ole_tools.inc"
37 use "framework\optional\includes\ole_1.inc"
38 use "framework\optional\includes\ole_2.inc"
39 use "framework\optional\includes\ole_3.inc"
41 dim iCurrentApp as integer
43 call hStatusIn ( "framework", "f_ole.bas" )
45 printlog( "" )
46 printlog( "Quick tests of the OLE object dialog" )
47 call tOLEWriter
48 call tOLECalc
49 call tOLEDraw
50 call tOLEImpress
52 printlog( "" )
53 printlog( "A more exhaustive test of the OLE dialog" )
54 call tCheckTheOLEObjectDialog
56 printlog( "" )
57 printlog( "Do some presets required to make the following tests run smoothly" )
58 call hSetToStandardView ( "WRITER" )
59 call hSetToStandardView ( "GLOBALDOC" )
61 printlog( "" )
62 printlog( "All useful combinations of applications / OLE objects" )
64 ' Run this one in advance. Note that this function changes gApplication
65 call GetOLEDefaultNames()
67 for iCurrentApp = 1 to 6
69 printlog( "" )
70 printlog( hNumericDoctype( iCurrentApp ) )
71 printlog( "" )
73 if ( iCurrentApp = 5 ) then
74 printlog( "Skipping Math" )
75 else ' Testcase names as before to keep comparability to earlier testruns
76 call tWriter_as_OLE_object()
77 call tCalc_as_OLE_Object()
78 call tDRAW_as_OLE_Object()
79 call tImpress_as_OLE_Object()
80 call tMath_as_OLE_Object ()
81 call tChart_as_OLE_Object ()
82 endif
84 next iCurrentApp
86 call hStatusOut()
88 end sub
90 '*******************************************************************************
92 sub LoadIncludeFiles
94 use "global\system\includes\master.inc"
95 use "global\system\includes\gvariabl.inc"
97 use "global\tools\includes\optional\t_filetools.inc"
98 use "global\tools\includes\optional\t_ole.inc"
99 use "global\tools\includes\optional\t_docfuncs.inc"
100 use "global\tools\includes\optional\t_stringtools.inc"
102 Call GetUseFiles
103 gApplication = "BACKGROUND"
105 End Sub