testautomation/framework/required/includes/basic_organizer.inc

   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_organizer.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:19:03 $
  14 '*
  15 '* This file is part of OpenOffice.org.
  16 '*
  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.
  20 '*
  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).
  26 '*
  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.
  31 '*
  32 '/************************************************************************
  33 '*
  34 '*  owner : joerg.skottke@sun.com
  35 '*
  36 '*  short description : Update test for the Basic Organizer dialog
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tUpdtBasicOrganizer
  41
  42     '///<H1>Update test for the Basic organizer and its dialogs</H1>
  43     '///<ul>
  44     dim brc as boolean
  45     dim cTempString as string
  46     const TESTLIB = "zzzz"
  47
  48     '///+<li>Open a new document</li>
  49     printlog( "Open a new document" )
  50     hCreateDocument()
  51
  52     '///+<li>Open the Basic Macro-Organizer</li>
  53     printlog( "Open the Basic Macro Organizer" )
  54     ToolsMacro_uno
  55
  56     kontext "Makro"
  57     if ( not makro.exists() ) then
  58         warnlog( "Macro Organizer is not open, aborting test" )
  59         brc = hDestroyDocument()
  60         goto endsub
  61     else
  62         printlog( "Successfully opened the MacroOrganizer" )
  63     endif
  64
  65     '///+<li>Open the Libraries/Modules/Dialogs-Organizer</li>
  66     kontext "Makro"
  67     printlog( "Click <Organizer> to open the library/modules organizer" )
  68     if ( Verwalten.isEnabled() ) then
  69         Verwalten.click()
  70     else
  71         warnlog( "Cannot click the <Organize...> button" )
  72     endif
  73
  74     ' Try to recover from previous error
  75     Kontext "TabModule"
  76     if ( not TabModule.exists() ) then
  77         printlog( "TabModule is not open, the test cannot continue" )
  78         kontext "Makro"
  79         Makro.cancel()
  80         brc = hDestroyDocument()
  81         goto endsub
  82     endif
  83
  84     '///+<li>Open all dialogs on the Modules-Page</li>
  85     '///<ol>
  86     kontext
  87     active.setPage TabModule
  88
  89     kontext "TabModule"
  90     printlog( "Modules Tab" )
  91     call DialogTest( TabModule )
  92
  93     '///+<li>Select first item in modules list</li>
  94     Modulliste.typeKeys( "<HOME>" )
  95     try
  96         '///+<li>Click to add a new module, cancel the dialog</li>
  97         printlog( "New Modules-dialog" )
  98         NeuesModul.click()
  99         kontext "NeuesModul"
 100         call DialogTest( NeuesModul )
 101         NeuesModul.cancel()
 102     catch
 103         warnlog( "There is a problem accessing the NewModule-dialog" )
 104     endcatch
 105
 106     '///</ol>
 107     '///+<li>Open all dialogs on the Dialogs-Page</li>
 108     '///<ol>
 109     kontext
 110     active.setPage( TabDialogs )
 111
 112     Kontext "TabDialogs"
 113     printlog( "Dialogs Tab" )
 114     call DialogTest( TabDialogs )
 115
 116     '///+<li>Select first item in dialogs list</li>
 117     ModuleList.typeKeys( "<HOME>" )
 118
 119     try
 120         '///+<li>Click to add a new dialog, cancel the dialog</li>
 121         printlog( "New Libraries-dialog" )
 122         NewDialog.click()
 123         kontext "NeuerDialog"
 124         call DialogTest( NeuerDialog )
 125         NeuerDialog.cancel()
 126     catch
 127         warnlog( "There is a problem accessing the NewModule-dialog" )
 128     endcatch
 129
 130     '///</ol>
 131     '///+<li>Open all dialogs on the Libraries-Page</li>
 132     '///<ol>
 133     Kontext
 134     active.setPage( TabBibliotheken )
 135
 136     Kontext "TabBibliotheken"
 137     printlog( "Libraries Tab" )
 138     call DialogTest( TabBibliotheken )
 139
 140     '///+<li>Select first item in libraries list</li>
 141     Bibliotheksliste.typeKeys( "<HOME>" )
 142
 143     kontext "TabBibliotheken"
 144     '///+<li>Click to add a new library, name it &quot;zzzz&quot;, click OK<br>
 145     '/// Note that the library should be selected (the last in the list)</li>
 146
 147     if ( neu.isEnabled() ) then
 148         printlog( "New Library dialog" )
 149         Neu.click()
 150         kontext "NeueBibliothek"
 151         call DialogTest( NeueBibliothek )
 152         Bibliotheksname.setText( "zzzz" )
 153         NeueBibliothek.ok()
 154     else
 155         warnlog( "There is a problem accessing the New Libraries dialog" )
 156     endif
 157
 158     kontext "TabBibliotheken"
 159     '///+<li>Try to create a library of same name again:<br>
 160     '///+ Click to add a new library, name it &quot;zzzz&quot;, click OK<br>
 161     '///+ Click away the messagebox (A library of same name already exists)</li>
 162     if ( neu.isEnabled() ) then
 163
 164         printlog( "New Library dialog" )
 165         Neu.click()
 166         kontext "NeueBibliothek"
 167         call DialogTest( NeueBibliothek )
 168         Bibliotheksname.setText( "zzzz" )
 169         NeueBibliothek.ok()
 170     else
 171         warnlog( "There is a problem accessing the New Libraries dialog" )
 172     endif
 173
 174     kontext "active"
 175     if ( active.exists() ) then
 176         printlog( "Closing warning" )
 177         active.ok()
 178     else
 179         warnlog( "Warning missing for duplicate library name" )
 180     endif
 181
 182     kontext "TabBibliotheken"
 183     '///+<li>Click &quot;Export...&quot;</li>
 184     printlog( "Export the package" )
 185     export.click()
 186
 187     kontext "ExportBasicLibraryDlg"
 188     '///+<li>Check &quot;Export as package&quot;, click OK</li>
 189     printlog( "Export as package, click OK" )
 190     ExportAsPackage.check()
 191     ExportBasicLibraryDlg.ok()
 192
 193     kontext "SpeichernDlg"
 194     '///+<li>Cancel the FileSave dialog</li>
 195     printlog( "Cancel FileSave dialog" )
 196     SpeichernDlg.cancel()
 197
 198     kontext "TabBibliotheken"
 199     '///+<li>Click &quot;Export...&quot;</li>
 200     printlog( "Export the package" )
 201     export.click()
 202
 203     kontext "ExportBasicLibraryDlg"
 204     '///+<li>Check &quot;Export as library&quot;, click OK</li>
 205     printlog( "Export as library, click OK" )
 206     ExportAsLibrary.check()
 207     ExportBasicLibraryDlg.ok()
 208
 209     kontext "OeffnenDlg"
 210     '///+<li>Cancel the FileOpen dialog</li>
 211     printlog( "Cancel FileOpen dialog" )
 212     OeffnenDlg.cancel()
 213
 214     kontext "TabBibliotheken"
 215     if ( passwort.isEnabled() ) then
 216         '///+<li>Click to set a password, cancel the dialog</li>
 217         printlog( "Password-Dialog" )
 218         passwort.click()
 219         kontext "PasswdDlg"
 220         PasswdDlg.cancel()
 221     else
 222         warnlog( "There is a problem accessing the Passwords-dialog" )
 223     endif
 224
 225     kontext "TabBibliotheken"
 226     '///+<li>Click &quot;Delete&quot;, accept with yes</li>
 227     printlog( "Try to delete the library" )
 228
 229     cTempString = BibliotheksListe.getSelText()
 230     if ( cTempString = "zzzz" ) then
 231         printlog( "Delete" )
 232         Loeschen.click()
 233         Kontext "Active"
 234         Active.yes()
 235     else
 236         warnlog( "Could not delete the library, name is incorrect: " & cTempString )
 237     endif
 238
 239     Kontext "TabBibliotheken"
 240
 241     try
 242         '///+<li>Click &quot;Append&quot;, cancel dialog</li>
 243         printlog( "Append a new library" )
 244         Hinzufuegen.click()
 245         kontext "OeffnenDlg"
 246         call DialogTest( OeffnenDlg )
 247         OeffnenDlg.cancel()
 248     catch
 249         warnlog( "There is a problem appending a new library" )
 250     endcatch
 251
 252     Kontext "TabBibliotheken"
 253
 254     '///</ol>
 255     '///+<li>Close the Library/Modules/Dialogs-Organizer</li>
 256     printlog( "Cancel library/modules/dialogs organizer" )
 257     TabBibliotheken.cancel()
 258
 259     '///+<li>Close the Macro-Organizer</li>
 260     printlog( "Cancel Macro Organizer" )
 261     Kontext "Makro"
 262     Makro.cancel()
 263
 264     '///+<li>Close the document</li>
 265     printlog( "Close the document" )
 266     brc = hDestroyDocument()
 267
 268     '///</ul>
 269
 270 endcase
 271