testautomation/math/required/includes/m_005_.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: m_005_.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 11:51:23 $
  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 : thorsten.bosbach@sun.com
  35 '*
  36 '* short description :
  37 '*
  38 '\*****************************************************************
  39
  40 sub M_005_
  41    printlog Chr(13) +  "--  Tools Menu  m_005_ --"
  42
  43    Call tToolsCatalog
  44    Call tToolsImportFormula
  45    Call tiToolsMacro
  46    Call tToolsExtensionManager
  47
  48    Call tToolsCustomize 'global one ! TBO
  49    Call tToolsOptionstest ' global one ! TZ
  50 end sub
  51
  52 testcase tToolsCatalog
  53    '/// open application ///'
  54    Call hNewDocument
  55    '/// Tools->Catalog ///'
  56    ToolsSymbolsCatalog
  57       Kontext "SymboleMath"
  58       Call Dialogtest (SymboleMath)
  59       printlog "count of 'Symbol set' :" + Symbolset.GetItemCount
  60       '/// click button 'Edit...' ///'
  61       Bearbeiten.Click
  62          Kontext "EditSymbols"
  63          Call DialogTest (EditSymbols)
  64          OldSymbol.GetItemCount
  65          OldSymbolSet.GetItemCount
  66          Symbol.GetItemCount
  67          SymbolSet.GetItemCount
  68          Subset.GetItemCount
  69          Typeface.GetItemCount
  70          '/// select last item in listbox 'Font' ///'
  71          Font.Select (Font.GetItemCount)
  72          sleep 1
  73          '/// Click Button 'Modify' ///'
  74          Modify.Click
  75          sleep 1
  76          '/// Click Button 'Delete' ///'
  77          Delete.Click
  78          sleep 1
  79          '/// Click Button 'Add' ///'
  80          Add.Click
  81          sleep 1
  82       '/// cancel dialog 'Edit Symbols' ///'
  83       EditSymbols.Cancel
  84       Kontext "SymboleMath"
  85       '/// click button 'Insert' ///'
  86       Uebernehmen.Click
  87       Sleep 2
  88    '/// close dialog 'Symbols' ///'
  89    SymboleMath.close
  90    '/// close application ///'
  91    Call hCloseDocument
  92 endcase
  93
  94 testcase tToolsImportFormula
  95    '/// open application ///'
  96    Call hNewDocument
  97    Sleep 3
  98    '/// Tools->Import->Formula ///'
  99    ToolsImportFormula
 100    Kontext "OeffnenDlg"
 101       Kontext "OeffnenDlg"
 102       UebergeordneterOrdner.Click
 103       Standard.Click
 104       Call DialogTest ( OeffnenDlg )
 105    '/// cancel dialog 'Insert' ///'
 106    OeffnenDlg.Cancel
 107    Sleep 2
 108    '/// close application ///'
 109    Call hCloseDocument
 110 endcase
 111
 112 testcase tiToolsMacro
 113 '/// open application ///'
 114    Call hNewDocument
 115    sleep 2
 116    '/// try to call Tools->Macros...->Record Macro => this has to fail, it is only aloowed from writer and Calc ///'
 117    try
 118       ToolsMacroRecordMacro
 119       Warnlog "I can record macros in this application :-("
 120    catch
 121       Printlog "i can't record macros in this application :-)"
 122    endcatch
 123 '/// Tools->Macro ///'
 124    ToolsMacro
 125    Kontext "Makro"
 126    Call DialogTest ( Makro )
 127 '/// click button 'organizer...' ///'
 128    Verwalten.Click
 129
 130    Kontext
 131 '/// switch to tabpage 'Modules' ///'
 132    Messagebox.SetPage TabModule
 133    Kontext "TabModule"
 134    Call DialogTest ( TabModule )
 135
 136    Kontext
 137 '/// switch to tabpage 'Libraries' ///'
 138    Messagebox.SetPage TabBibliotheken
 139    Kontext "TabBibliotheken"
 140    Call DialogTest ( TabBibliotheken )
 141 '/// click lbutton 'append' ///'
 142       Hinzufuegen.Click
 143       Kontext "Messagebox"
 144       if Messagebox.Exists (5) then
 145      if Messagebox.GetRT = 304 then
 146             Warnlog Messagebox.Gettext
 147             Messagebox.Ok
 148      endif
 149       end if
 150       Kontext "OeffnenDlg"
 151 '/// cancel dialog 'append libraries' ///'
 152       OeffnenDlg.Cancel
 153       Kontext "TabBibliotheken"
 154 '/// click button 'new' ///'
 155       Neu.Click
 156       kontext "NeueBibliothek"
 157       sleep 1 'Bibliotheksname
 158 '/// cancel dialog 'new library' ///'
 159       NeueBibliothek.cancel
 160    Kontext "TabBibliotheken"
 161 '/// close dialog 'macro organizer' ///'
 162    TabBibliotheken.Close
 163
 164    Kontext "Makro"
 165 '/// close dialog 'macro' ///'
 166    Makro.Cancel
 167 '/// close application ///'
 168    Call hCloseDocument
 169 endcase
 170
 171 testcase tToolsExtensionManager
 172     dim sPath as string
 173     dim sTemp as string
 174     dim sTemp2 as string
 175     dim x as integer
 176
 177     sPath = convertPath(gTestToolPath+"math/required/input/")
 178     '/// open application ///'
 179     Call hNewDocument
 180     sleep 2
 181     '/// call Tools - Package/Extension manager ///'
 182     ToolsPackageManager
 183         kontext "PackageManager"
 184         If PackageManager.exists(10) then
 185             DialogTest(PackageManager)
 186             '/// going to top of package list and explode every line, until the button 'Add' is enabled ///'
 187             '/// should be 'My Packages' ///'
 188             BrowsePackages.typeKeys("<home>")
 189             if (Not Add.isEnabled) then
 190                 warnlog "Couldn't find a way to enable the Add button - aborting"
 191                 goto endsub
 192             endif
 193             '/// click button 'Add' ///'
 194             Add.click
 195                 '/// Add Package(s)... dialg comes up ///'
 196                 Kontext "OeffnenDlg"
 197                 if OeffnenDlg.exists(5) then
 198                     '/// put filename into field ///'
 199                     Dateiname.setText (sPath + "unknown-dependency.oxt")
 200                     '/// press button 'Open' ///'
 201                     Oeffnen.click
 202                 else
 203                     warnlog "Add Package(s)... dialog didn't came up"
 204                 endif
 205
 206             'Asking for whom to install; All: YES, Me: NO, nobody: Cancel
 207              kontext
 208              if active.exists(5) then
 209                 sTemp = active.getText
 210                 try
 211                 active.yes
 212                 catch
 213                 'printlog sTemp
 214                 endcatch
 215              endif
 216
 217                 '/// Progress dialog comes up ///'
 218                 Kontext "AddingPackages"
 219                 if AddingPackages.exists(1) then
 220                     printlog " - AddingPackages dialog exists"
 221                     DialogTest(AddingPackages)
 222                 endif
 223
 224                 '/// If any error happens, an active comes up, telling what is wrong ///'
 225                 Kontext
 226                 if active.exists(5) then
 227                     sTemp = active.getText
 228                         printlog sTemp
 229                     active.ok
 230                 endif
 231
 232                 '/// If there are any unsatisfied dependencies, they are shown now ///'
 233                 Kontext "UnsatisfiedDependencies"
 234                 if UnsatisfiedDependencies.exists(10) then
 235                         printlog " - UnsatisfiedDependencies dialog exists"
 236                     DialogTest(UnsatisfiedDependencies)
 237                     '/// close dialog if available, extension will not be installed ///'
 238                     UnsatisfiedDependencies.ok
 239                 endif
 240
 241                 Kontext "AddingPackages"
 242                 x=0
 243                 while AddingPackages.exists(1) AND (x<6)
 244                     printlog "AddingPackages..."
 245                     sleep 5
 246                     x=x+1
 247                 wend
 248
 249              kontext "PackageManager"
 250              Add.click
 251                 '/// Add Package(s)... dialg comes up ///'
 252                 Kontext "OeffnenDlg"
 253                 if OeffnenDlg.exists(5) then
 254                     '/// put filename into field ///'
 255                     Dateiname.setText (sPath + "ShortLicense.oxt")
 256                     '/// press button 'Open' ///'
 257                     Oeffnen.click
 258                 else
 259                     warnlog "Add Package(s)... dialog didn't came up"
 260                 endif
 261
 262             'Asking for whom to install; All: YES, Me: NO, nobody: Cancel
 263              kontext
 264              if active.exists(5) then
 265                 sTemp = active.getText
 266                 try
 267                 active.yes
 268                 catch
 269                 'printlog sTemp
 270                 endcatch
 271              endif
 272
 273                 '/// Progress dialog comes up ///'
 274                 Kontext "AddingPackages"
 275                 if AddingPackages.exists(1) then
 276                     printlog " - AddingPackages dialog exists"
 277                 endif
 278
 279                 '/// If any error happens, an active comes up, telling what is wrong ///'
 280                 Kontext
 281                 if active.exists(5) then
 282                     sTemp = active.getText
 283                         printlog sTemp
 284                     active.ok
 285                 endif
 286
 287                 '/// If there is a license, it is shown now ///'
 288                 Kontext "ExtensionSoftwareLicenseAgreement"
 289                 if ExtensionSoftwareLicenseAgreement.exists(10) then
 290                     DialogTest (ExtensionSoftwareLicenseAgreement)
 291                         printlog " - ExtensionSoftwareLicenseAgreement dialog exists"
 292                             ExtensionSoftwareLicenseAgreement.CANCEL
 293                     kontext
 294                     if active.exists(5) then
 295                         qaerrorlog "#i73307# Alzheimer feature extension licensing '" + active.getText + "'"
 296                         active.ok
 297                     endif
 298                 endif
 299
 300                 Kontext "AddingPackages"
 301                 x=0
 302                 while AddingPackages.exists(1) AND (x<6)
 303                     printlog "AddingPackages..."
 304                     sleep 5
 305                     x=x+1
 306                 wend
 307
 308             '/// Close extension manager ///'
 309             kontext "PackageManager"
 310             PackageManager.OK
 311         else
 312             warnlog "Couldn't call Tools -> Package manager - aborting test"
 313         endif
 314    Call hCloseDocument
 315 endcase