testautomation/framework/optional/includes/options_ooo_fontreplacement.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_fontreplacement.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 Fonts
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tOOoFontReplacement
  41    Dim i, il as Integer
  42
  43 '///check if all settings are saved in configuration ( StarOffice / Font Replacement )
  44 '///creat a new document and open tools/options/staroffice/font replacement
  45    ToolsOptions
  46    hToolsOptions ( "StarOffice", "Fontreplacement" )
  47
  48 '///change settings
  49  printlog " - change settings"
  50 '///if 'Apply replacement table' is check as default => BUG
  51    if Anwenden.IsChecked then
  52       Warnlog "The default for this page is wrong. 'Apply replacement table' has top be unchecked!"
  53    else
  54       Anwenden.Check
  55    end if
  56
  57 '///check 'Apply replacement table'
  58 '///insert 2 new replacements ( Font / Replace with : 4 / 6 and 10 / 5 )
  59    Schriftart.Select 4
  60    ErsetzenDurch.Select 6
  61    Uebernehmen.Click
  62    sleep 1 'gh13
  63    Schriftart.Select 10
  64    ErsetzenDurch.Select 5
  65    Uebernehmen.Click
  66
  67 '///close options dialog with OK
  68    Kontext "ExtrasOptionenDlg"
  69    ExtrasOptionenDlg.OK
  70    Sleep (3)
  71
  72  printlog " - exit/restart StarOffice"
  73 '///exit and restart StarOffice
  74    ExitRestartTheOffice
  75
  76  printlog " - check changes"
  77 '///check changes
  78 '///open tools/options/staroffice/font replacement
  79    ToolsOptions
  80    hToolsOptions ( "StarOffice", "Fontreplacement" )
  81
  82 '///if 'Apply replacement table' is not check => BUG
  83    if Anwenden.IsChecked = FALSE then
  84       Warnlog "Apply replacement table' => changes not saved!"
  85    else
  86       Anwenden.Check
  87    end if
  88
  89 '///check the 2 replacements
  90    il = Liste.GetItemCount
  91    if il <> 2 then Warnlog "Not all entries are saved!"
  92
  93    for i=1 to il
  94       if i=1 then
  95          Liste.TypeKeys "<Down><Up>"
  96       else
  97          Liste.TypeKeys "<Down>"
  98       end if
  99       if i=1 then
 100          if Schriftart.GetSelIndex <> 4 then Warnlog "Font : the first entrie is not correctly saved!"
 101          if ErsetzenDurch.GetSelIndex <> 6  then Warnlog "Replace with : the first entrie is not correctly saved!"
 102       end if
 103       if i=2 then
 104          if Schriftart.GetSelIndex <> 10 then Warnlog "Font : the first entrie is not correctly saved!"
 105          if ErsetzenDurch.GetSelIndex <> 5  then Warnlog "Replace with : the first entrie is not correctly saved!"
 106       end if
 107    next i
 108
 109 '///reset to defaut and delete the 2 new replacements
 110  printlog " - reset to default"
 111    for i=1 to il
 112       Liste.TypeKeys "<Down><Up>"
 113       Loeschen.Click
 114       sleep 1 'gh13
 115    next i
 116    Anwenden.Uncheck
 117
 118 '///close options dialog with OK
 119    Kontext "ExtrasOptionenDlg"
 120    ExtrasOptionenDlg.OK
 121    Sleep (3)
 122
 123 '///check the reset
 124  printlog " - check the default"
 125    ToolsOptions
 126    hToolsOptions ( "StarOffice", "Fontreplacement" )
 127
 128    if Anwenden.IsChecked = TRUE then
 129       Warnlog "Apply replacement table' => changes not saved!"
 130    else
 131       Anwenden.Check
 132    end if
 133    if Liste.GetItemCount <> 0 then Warnlog "Not all deleted entries are realy deleted!"
 134    Anwenden.UnCheck
 135
 136 '///close options dialog with OK
 137    Kontext "ExtrasOptionenDlg"
 138    ExtrasOptionenDlg.OK
 139    Sleep (3)
 140 endcase