1 'encoding UTF-8 Do not remove or change this line!
2 '**************************************************************************
3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
5 '* Copyright 2008 by Sun Microsystems, Inc.
7 '* OpenOffice.org - a multi-platform office productivity suite
9 '* $RCSfile: basic_delete_modules.inc,v $
13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:13 $
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 :
38 '\******************************************************************************
40 testcase tBasicDialogI18nImport
42 printlog( "Dialogs that show up when importing Multi locale dialogs into BASIC IDE" )
44 dim cDialogPath as string
45 cDialogPath = gTesttoolPath & "framework\required\input\basic_ide\Dialog5.xdl"
46 cDialogPath = convertpath( cDialogPath )
48 const LANGUAGE_COUNT = 5
50 printlog( "Open BASIC-IDE" )
52 hInitFormControls( "tDialogI18nImport" )
54 kontext "ToolsCollectionBar"
55 if ( ToolsCollectionBar.exists() ) then
56 ToolsCollectionBar.close()
60 if ( DialogBar.exists() ) then
62 printlog( "Click on <Import> button on <DialogBar>" )
66 if ( OeffnenDlg.exists( 2 ) ) then
68 printlog( "Enter path to test dialog" )
69 DateiName.setText( cDialogPath )
72 printlog( "Test messagebox" )
74 if ( Active.exists( 2 ) ) then
76 printlog( "Messagebox: " & Active.getText() )
77 if ( Active.getButtonCount() <> 4 ) then
78 warnlog( "Incorrect messagebox, expected locale clash warning" )
81 call DialogTest( Active )
83 printlog( "Accept with yes" )
86 Kontext "TranslationBar"
87 if ( TranslationBar.exists() ) then
89 printlog( "Check number of imported languages" )
90 if ( CurrentLanguage.getItemCount() <> LANGUAGE_COUNT ) then
91 warnlog( "Incorrect language count in listbox <CurrentLanguage>" )
92 printlog( "Expected: " & LANGUAGE_COUNT )
93 printlog( "Found...: " & CurrentLanguage.getItemCount() )
97 if ( DialogBar.exists() ) then
99 printlog( "Click on <Import> button on <DialogBar>" )
103 if ( OeffnenDlg.exists( 2 ) ) then
105 printlog( "Enter path to test dialog" )
106 DateiName.setText( cDialogPath )
109 printlog( "Test messagebox" )
111 if ( Active.exists( 2 ) ) then
113 printlog( "Messagebox: " & Active.getText() )
114 if ( Active.getButtonCount() <> 3 ) then
115 warnlog( "Incorrect messagebox, expected dialog replace warning" )
118 call DialogTest( Active )
120 Printlog( "Rename the new dialog" )
123 warnlog( "Overwrite warning missing" )
126 warnlog( "<OeffnenDlg> did not open" )
129 warnlog( "<DialogBar> is not available" )
132 warnlog( "<TranslationBar> is not available" )
135 warning( "Conflicting locales messagebox is missing" )
138 warnlog( "<OeffnenDlg> did not open" )
141 warnlog( "<DialogBar> is not available" )