Update ooo320-m1
[ooovba.git] / testautomation / framework / required / includes / basic_dialog_export.inc
blobb8524d713ea519206ff2a712dfe7b603585837ec
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: basic_dialog_export.inc,v $
11 '* $Revision: 1.1 $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:03 $
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 : joerg.skottke@sun.com
36 '*  short description : Update test for the dialog export feature
38 '\******************************************************************************
40 testcase tUpdtDialogExport
43     '///<h3>Update test for the dialog export feature</h3>
44     
45     if ( gBuild < 9196 ) then
46         printlog( "Test disabled for Build-Id < 9196" )
47         goto endsub
48     endif
50     dim brc as boolean
51     dim cMsg as string
52     
53     dim cDlgName as string
54         cDlgName = hGetWorkPath() & "DialogTest"
55         
56     const DLG_SUFFIX = ".xdl"
57         
58     
59     '///<ul>
60     '///+<li>Create a new document</li>
61     hCreateDocument()
63     '///+<li>Open the Macro Organizer</li>
64     '///+<li>Create a new module for the document</li>
65     '///+<li>Open the BASIC IDE</li>
66     '///+<li>Create a new Dialog via the tabbar at the bottom of the IDE</li>
67     printlog( "Test init: Setting up environment" )
68     brc = hInitFormControls( "DialogExport" )
69     if ( not brc ) then
70         warnlog( "Failed to initialize BAIC IDE/Dialog editor, aborting" )
71         goto endsub
72     endif
73     
74     '///+<li>Access the DialogBar, it should be visible by default</li>
75     printlog( "Test begin" )
76     kontext "DialogBar"
77     if ( not DialogBar.exists() ) then
78         warnlog( "DialogBar does not exist, aborting" )
79         hClosebasicIDE()
80         hDestroyDocument()
81         goto endsub
82     endif
83     
84     '///+<li>Just click the export button to open the Export dialog</li>
85     printlog( "Click the Export button on the DialogBar" )
86     kontext "DialogBar"
87     Export.click()
88     
89     '///+<li>Verify that the Export Dialog comes up</li>
90     kontext "ExportierenDlg"
91     if ( not ExportierenDlg.exists( 1 ) ) then
92         warnlog( "Export dialog is not open, aborting" )
93         hCloseBasicIDE()
94         hDestroyDocument()
95         goto endsub
96     endif
97     
98     printlog( "Export dialog is open. Good." )
99     
100     '///+<li>Save the dialog without providing an extension</li>
101     kontext "ExportierenDlg"
102     DateiName.setText( cDlgName )
103     Speichern.click()
104     
105     kontext "Active"
106     if ( Active.exists() ) then
107         cMsg = active.getText()
108         cMsg = hRemoveLineBreaks( cMsg )
109         printlog( "File appears to exist, overwriting: " & cMsg )
110         Active.Yes()
111     endif
112     
113     '///+<li>Verify that we are back on the BASIC IDE</li>
114     kontext "DialogBar"
115     if ( not DialogBar.exists() ) then
116         warnlog( "DialogBar is not visible, please check." )
117     endif
118     
119     printlog( "Back on the Basic IDE / Dialog Editor. Good." )
120         
121     '///+<li>Verify that the file has been saved (on filesystem level)</li>
122     '///+<li>Delete it if found</li>
123     cDlgName = cDlgName & DLG_SUFFIX
124     if ( dir( cDlgName ) = "" ) then
125         warnlog( "The dialog was not saved to the expected location" )
126     else
127         hDeleteFile( cDlgName )
128         printlog( "Dialog was exported and deleted. Good." )
129     endif
130     
131     '///+<li>Close the BASIC IDE and the document</li>
132     printlog( "Test end. Cleanup" )
133     hCloseBasicIDE()
134     hDestroyDocument()    
135     '///</ul>
137 endcase