merge the formfield patch from ooo-build
[ooovba.git] / testautomation / dbaccess / optional / includes / rpt_PropertyBrowser.inc
bloba6735e64bb5483deebbf95e228c672e7f936bfc8
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 2008 by Sun Microsystems, Inc.
6 '*
7 '* OpenOffice.org - a multi-platform office productivity suite
8 '*
9 '* $RCSfile: rpt_PropertyBrowser.inc,v $
11 '* $Revision: 1.1 $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 07:43:42 $
15 '* This file is part of OpenOffice.org.
17 '* OpenOffice.org is free software: you can redistribute it and/or modify
18 '* it under the terms of the GNU Lesser General Public License version 3
19 '* only, as published by the Free Software Foundation.
21 '* OpenOffice.org is distributed in the hope that it will be useful,
22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of
23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
24 '* GNU Lesser General Public License version 3 for more details
25 '* (a copy is included in the LICENSE file that accompanied this code).
27 '* You should have received a copy of the GNU Lesser General Public License
28 '* version 3 along with OpenOffice.org.  If not, see
29 '* <http://www.openoffice.org/license.html>
30 '* for a copy of the LGPLv3 License.
32 '/************************************************************************
34 '* owner : marc.neumann@sun.com
36 '* short description : Property Browser
38 '\***********************************************************************************
39 sub rpt_PropertyBrowser
41     printlog "------------------ rpt_PropertyBrowser.inc ---------------------"
42     
43     call tDefaultStartup    
44     
45 end sub
46 '-------------------------------------------------------------------------
47 '-------------------------------------------------------------------------
48 '-------------------------------------------------------------------------
49 testcase tDefaultStartup
51     dim iCount as Integer
53     '/// open Bibliography database
54     printlog "open Bibliography database"    
55     call fOpenDataBase(gOfficePath + ConvertPath("user/database/biblio.odb"))
56     
57     '/// open the report designer
58     printlog "open the report designer"
59     call fOpenNewReportDesign
60     
61     sleep(1)
62     
63     '/// check if the property browser is open with the data tabpage
64     printlog "check if the property browser is open with the content tab"
65     
66     Kontext "ReportDataProperties"
67     if ( ReportDataProperties.isVisible() = true ) then
68         printlog "The property browser start with the data tabpage."
69     else
70         warnlog "#i77774# The property browser does not start with the datatab page"
71     endif
72         
73     '/// close the report designer
74     printlog "close the report designer"
75     call fCloseReportDesign
76     
77     '/// close the database
78     printlog "close the database"
79     call fCloseDatabase
80     
81 endcase
82 '-------------------------------------------------------------------------