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 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 : thorsten.bosbach@oracle.com
  29 '*
  30 '* short description : Tools->Options: OpenOffice.org Fonts
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tOOoFontReplacement
  35    Dim i, il as Integer
  36
  37    ToolsOptions
  38    hToolsOptions ( "StarOffice", "Fontreplacement" )
  39
  40  printlog " - change settings"
  41    if Anwenden.IsChecked then
  42       Warnlog "The default for this page is wrong. 'Apply replacement table' has top be unchecked!"
  43    else
  44       Anwenden.Check
  45    end if
  46
  47    Schriftart.Select 4
  48    ErsetzenDurch.Select 6
  49    Uebernehmen.Click
  50    sleep 1 'gh13
  51    Schriftart.Select 10
  52    ErsetzenDurch.Select 5
  53    Uebernehmen.Click
  54
  55    Kontext "ExtrasOptionenDlg"
  56    ExtrasOptionenDlg.OK
  57    Sleep (3)
  58
  59  printlog " - exit/restart StarOffice"
  60    ExitRestartTheOffice
  61
  62  printlog " - check changes"
  63    ToolsOptions
  64    hToolsOptions ( "StarOffice", "Fontreplacement" )
  65
  66    if Anwenden.IsChecked = FALSE then
  67       Warnlog "Apply replacement table' => changes not saved!"
  68    else
  69       Anwenden.Check
  70    end if
  71
  72    il = Liste.GetItemCount
  73    if il <> 2 then Warnlog "Not all entries are saved!"
  74
  75    for i=1 to il
  76       if i=1 then
  77          Liste.TypeKeys "<Down><Up>"
  78       else
  79          Liste.TypeKeys "<Down>"
  80       end if
  81       if i=1 then
  82          if Schriftart.GetSelIndex <> 4 then Warnlog "Font : the first entrie is not correctly saved!"
  83          if ErsetzenDurch.GetSelIndex <> 6  then Warnlog "Replace with : the first entrie is not correctly saved!"
  84       end if
  85       if i=2 then
  86          if Schriftart.GetSelIndex <> 10 then Warnlog "Font : the first entrie is not correctly saved!"
  87          if ErsetzenDurch.GetSelIndex <> 5  then Warnlog "Replace with : the first entrie is not correctly saved!"
  88       end if
  89    next i
  90
  91  printlog " - reset to default"
  92    for i=1 to il
  93       Liste.TypeKeys "<Down><Up>"
  94       Loeschen.Click
  95       sleep 1 'gh13
  96    next i
  97    Anwenden.Uncheck
  98
  99    Kontext "ExtrasOptionenDlg"
 100    ExtrasOptionenDlg.OK
 101    Sleep (3)
 102
 103  printlog " - check the default"
 104    ToolsOptions
 105    hToolsOptions ( "StarOffice", "Fontreplacement" )
 106
 107    if Anwenden.IsChecked = TRUE then
 108       Warnlog "Apply replacement table' => changes not saved!"
 109    else
 110       Anwenden.Check
 111    end if
 112    if Liste.GetItemCount <> 0 then Warnlog "Not all deleted entries are realy deleted!"
 113    Anwenden.UnCheck
 114
 115    Kontext "ExtrasOptionenDlg"
 116    ExtrasOptionenDlg.OK
 117    Sleep (3)
 118 endcase