testautomation/framework/optional/includes/options_ooo_appearance.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: options_ooo_appearance.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  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 : Tools->Options: OpenOffice.org Appearance
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tOOoAppearance
  41   Dim iSchemes as Integer
  42   Dim sSchemeNames (10) as String
  43   Dim sCurScheme as String, sCurScheme2 as String
  44   Dim bIsError as Boolean
  45   dim i as integer
  46
  47 '///check if all settings are saved in configuration ( StarOffice / Appearance )
  48
  49  printlog " - save settings"
  50 '///save settings of schemes
  51 'tools / options / staroffice / appearance
  52    ToolsOptions
  53    hToolsOptions ( "StarOffice", "Appearance" )
  54
  55 'get the number of schemes
  56    iSchemes = Scheme.GetItemCount
  57    sCurScheme = Scheme.GetSelText
  58    if iSchemes > 10 then Warnlog "There are more than 10 schemes, please update the test for it!"
  59 'get the name of schemes
  60    for i=1 to iSchemes
  61       ListAppend ( sSchemeNames(), Scheme.GetItemText (i) )
  62    next i
  63
  64  printlog " - change settings"
  65 'insert a new scheme ( press Save, insert TT-Scheme as name, and close all dialogs with OK )
  66    Save.Click
  67    Kontext "SaveScheme"
  68    SchemeName.SetText "TT-Scheme"
  69    try
  70       SaveScheme.OK()
  71    catch
  72       warnlog( "The newly created scheme cannot be saved (ok is disabled) -> #i26913")
  73       bIsError=true
  74       SaveScheme.Cancel()
  75    endcatch
  76
  77    Kontext "ExtrasOptionenDlg"
  78    ExtrasOptionenDlg.OK
  79    Sleep (3)
  80
  81 '///exit and restart StarOffice
  82  printlog " - exit/restart StarOffice"
  83    ExitRestartTheOffice
  84
  85 '///check the new scheme
  86  printlog " - check settings"
  87 'tools / options / staroffice / appearance
  88    ToolsOptions
  89    hToolsOptions ( "StarOffice", "Appearance" )
  90
  91 'try to select the TT-Scheme
  92    try
  93       Scheme.Select "TT-Scheme"
  94       bIsError = FALSE
  95    catch
  96       if Scheme.GetItemCount <> iSchemes + 1 then
  97          Warnlog "The new scheme 'TT-Scheme' is not saved!"
  98       else
  99          Warnlog "The new scheme 'TT-Scheme' has another name!"
 100       end if
 101       bIsError = TRUE
 102    endcatch
 103
 104    '///delete the new scheme ( if all works correctly until now )
 105    printlog " - delete the new scheme"
 106
 107    'select 'TT-Scheme'
 108    if bIsError = FALSE then
 109       try
 110          Scheme.Select "TT-Scheme"
 111          'press delete and click 'no'
 112          Delete.Click()
 113          Kontext "Active"
 114          Active.No()
 115       catch
 116          warnlog( "The scheme does not exist in the scheme-selector listbox")
 117       endcatch
 118
 119       Kontext "TabAppearance"
 120       try
 121          'press delete and click 'yes'
 122          Scheme.Select "TT-Scheme"
 123          Delete.Click
 124
 125          Kontext "Active"
 126          Active.Yes
 127       catch
 128          Warnlog "Perhaps the Scheme is deleted! But the messagebox was left with 'NO'!"
 129       endcatch
 130
 131 'select the default-entry
 132       Sleep (1)
 133       Kontext "TabAppearance"
 134       sCurScheme2 = Scheme.GetSelText
 135
 136  printlog " - press OK for options dialog"
 137 'press OK for options dialog
 138       Kontext "ExtrasOptionenDlg"
 139       ExtrasOptionenDlg.OK
 140       Sleep (3)
 141
 142 '///check if the scheme is deleted and the saved base state is current
 143  printlog " - check if the scheme is deleted and the saved base state is current"
 144       ToolsOptions
 145       hToolsOptions ( "StarOffice", "Appearance" )
 146
 147       if Scheme.GetSelText <> sCurScheme2 then
 148          Warnlog "The last selected entry after deleting is not selected after restart the options dialog!"
 149       end if
 150       if iSchemes <> Scheme.GetItemCount then Warnlog "There are not " + iSchemes + " items in the scheme list! There are " + Scheme.GetItemCount
 151       for i = 1 to Scheme.GetItemCount
 152          if Scheme.GetItemText(i) <> sSchemeNames(i) then
 153             Warnlog "The " + i + " entry is not the same -> should : '" + sSchemeNames(i) + "' is '" + Scheme.GetItemText(i) + "'"
 154          end if
 155       next i
 156
 157 '///set the selected scheme to default
 158  printlog " - set the selected scheme to default"
 159       Scheme.Select sCurScheme
 160
 161 '///press OK at the options dialog
 162  printlog " - press OK at the options dialog"
 163       Kontext "ExtrasOptionenDlg"
 164       ExtrasOptionenDlg.OK
 165       Sleep (3)
 166
 167 '///check if the default scheme is selected after restarting the options dialog
 168  printlog " - check if the default setting is active, after deleting a scheme and a restart of the options dialog"
 169       ToolsOptions
 170       hToolsOptions ( "StarOffice", "Appearance" )
 171
 172       if Scheme.GetSelText <> sCurScheme then
 173          Warnlog "The default scheme is not selected!"
 174       end if
 175
 176    end if
 177
 178    '///press OK at the options dialog
 179    printlog " - press OK at the options dialog"
 180       Kontext "ExtrasOptionenDlg"
 181       ExtrasOptionenDlg.OK
 182       Sleep (3)
 183 endcase
 184
 185