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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  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.
  14 '
  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).
  20 '
  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.
  25 '
  26 '/************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Update test for the Basic Organizer dialog
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tUpdtBasicOrganizer
  35
  36     printlog( "Update test for the Basic Organizer dialog" )
  37
  38     dim cTempString as string
  39     const TESTLIB = "zzzz"
  40
  41     printlog( "Open a new document" )
  42     hCreateDocument()
  43
  44     printlog( "Open the Basic Macro Organizer" )
  45     ToolsMacro_uno
  46
  47     kontext "Makro"
  48     if ( not makro.exists() ) then
  49         warnlog( "Macro Organizer is not open, aborting test" )
  50         hDestroyDocument()
  51         goto endsub
  52     else
  53         printlog( "Successfully opened the MacroOrganizer" )
  54     endif
  55
  56     kontext "Makro"
  57     printlog( "Click <Organizer> to open the library/modules organizer" )
  58     if ( Verwalten.isEnabled() ) then
  59         Verwalten.click()
  60     else
  61         warnlog( "Cannot click the <Organize...> button" )
  62     endif
  63
  64     ' Try to recover from previous error
  65     Kontext "TabModule"
  66     if ( not TabModule.exists() ) then
  67         printlog( "TabModule is not open, the test cannot continue" )
  68         kontext "Makro"
  69         Makro.cancel()
  70         hDestroyDocument()
  71         goto endsub
  72     endif
  73
  74     kontext
  75     active.setPage TabModule
  76
  77     kontext "TabModule"
  78     printlog( "Modules Tab" )
  79     call DialogTest( TabModule )
  80
  81     Modulliste.typeKeys( "<HOME>" )
  82     try
  83         printlog( "New Modules-dialog" )
  84         NeuesModul.click()
  85         kontext "NeuesModul"
  86         call DialogTest( NeuesModul )
  87         NeuesModul.cancel()
  88     catch
  89         warnlog( "There is a problem accessing the NewModule-dialog" )
  90     endcatch
  91
  92     kontext
  93     active.setPage( TabDialogs )
  94
  95     Kontext "TabDialogs"
  96     printlog( "Dialogs Tab" )
  97     call DialogTest( TabDialogs )
  98
  99     ModuleList.typeKeys( "<HOME>" )
 100
 101     try
 102         printlog( "New Libraries-dialog" )
 103         NewDialog.click()
 104         kontext "NeuerDialog"
 105         call DialogTest( NeuerDialog )
 106         NeuerDialog.cancel()
 107     catch
 108         warnlog( "There is a problem accessing the NewModule-dialog" )
 109     endcatch
 110
 111     Kontext
 112     active.setPage( TabBibliotheken )
 113
 114     Kontext "TabBibliotheken"
 115     printlog( "Libraries Tab" )
 116     call DialogTest( TabBibliotheken )
 117
 118     Bibliotheksliste.typeKeys( "<HOME>" )
 119
 120     kontext "TabBibliotheken"
 121
 122     if ( neu.isEnabled() ) then
 123         printlog( "New Library dialog" )
 124         Neu.click()
 125         kontext "NeueBibliothek"
 126         call DialogTest( NeueBibliothek )
 127         Bibliotheksname.setText( TESTLIB )
 128         NeueBibliothek.ok()
 129     else
 130         warnlog( "There is a problem accessing the New Libraries dialog" )
 131     endif
 132
 133     kontext "TabBibliotheken"
 134     if ( neu.isEnabled() ) then
 135
 136         printlog( "New Library dialog" )
 137         Neu.click()
 138         kontext "NeueBibliothek"
 139         call DialogTest( NeueBibliothek )
 140         Bibliotheksname.setText( TESTLIB )
 141         NeueBibliothek.ok()
 142     else
 143         warnlog( "There is a problem accessing the New Libraries dialog" )
 144     endif
 145
 146     kontext "active"
 147     if ( active.exists() ) then
 148         printlog( "Closing warning" )
 149         active.ok()
 150     else
 151         warnlog( "Warning missing for duplicate library name" )
 152     endif
 153
 154     kontext "TabBibliotheken"
 155     printlog( "Export the package" )
 156     export.click()
 157
 158     kontext "ExportBasicLibraryDlg"
 159     printlog( "Export as package, click OK" )
 160     ExportAsPackage.check()
 161     ExportBasicLibraryDlg.ok()
 162
 163     kontext "SpeichernDlg"
 164     printlog( "Cancel FileSave dialog" )
 165     SpeichernDlg.cancel()
 166
 167     kontext "TabBibliotheken"
 168     printlog( "Export the package" )
 169     export.click()
 170
 171     kontext "ExportBasicLibraryDlg"
 172     printlog( "Export as library, click OK" )
 173     ExportAsLibrary.check()
 174     ExportBasicLibraryDlg.ok()
 175
 176     kontext "OeffnenDlg"
 177     printlog( "Cancel FileOpen dialog" )
 178     OeffnenDlg.cancel()
 179
 180     kontext "TabBibliotheken"
 181     if ( passwort.isEnabled() ) then
 182         printlog( "Password-Dialog" )
 183         passwort.click()
 184         kontext "PasswdDlg"
 185         PasswdDlg.cancel()
 186     else
 187         warnlog( "There is a problem accessing the Passwords-dialog" )
 188     endif
 189
 190     kontext "TabBibliotheken"
 191     printlog( "Try to delete the library" )
 192
 193     cTempString = BibliotheksListe.getSelText()
 194     if ( cTempString = TESTLIB ) then
 195         printlog( "Delete" )
 196         Loeschen.click()
 197         Kontext "Active"
 198         Active.yes()
 199     else
 200         warnlog( "Could not delete the library, name is incorrect: " & cTempString )
 201     endif
 202
 203     Kontext "TabBibliotheken"
 204
 205     try
 206         printlog( "Append a new library" )
 207         Hinzufuegen.click()
 208         kontext "OeffnenDlg"
 209         call DialogTest( OeffnenDlg )
 210         OeffnenDlg.cancel()
 211     catch
 212         warnlog( "There is a problem appending a new library" )
 213     endcatch
 214
 215     Kontext "TabBibliotheken"
 216
 217     printlog( "Cancel library/modules/dialogs organizer" )
 218     TabBibliotheken.cancel()
 219
 220     printlog( "Cancel Macro Organizer" )
 221     Kontext "Makro"
 222     Makro.cancel()
 223
 224     printlog( "Close the document" )
 225     hDestroyDocument()
 226
 227 endcase
 228