testautomation/framework/optional/includes/options_loadsave_msoffice.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 : Test Load/Save MS-Office settings page
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tLoadSaveMSOffice
  35
  36    Dim lbSave1 ( 9 ) as Boolean
  37    Dim lbSave2 ( 9 ) as Boolean
  38    Dim i as Integer
  39    printlog "If you get errors in this test, please check the settings."
  40    printlog "This test can only run without an error, when all checkboxes are checked or all are unchecked."
  41
  42
  43    hNewDocument
  44    ToolsOptions
  45    hToolsOptions ( "LoadSave", "MicrosoftOffice" )
  46
  47  printlog " - save old settings"
  48    Auswahl.TypeKeys "<PageUp>"
  49    for i=1 to 4
  50       lbSave1(i) = Auswahl.IsChecked (1)
  51       lbSave2(i) = Auswahl.IsChecked (2)
  52       Auswahl.TypeKeys "<Down>"
  53    next i
  54
  55
  56    Auswahl.TypeKeys "<PageUp>"
  57    for i=1 to 4
  58
  59       printlog( " - invert setting: " + i )
  60
  61       if lbSave1(i) = TRUE then
  62          if lbSave2(i) = FALSE then Auswahl.TypeKeys ("<Space>")               ' 2. checkboxes must be checked
  63          if lbSave2(i) = TRUE  then Auswahl.TypeKeys ("<Space><Space><Space>") ' 2. checkboxes must be unchecked
  64       else
  65          if lbSave2(i) = FALSE then Auswahl.TypeKeys ("<Space>")               ' 2. checkboxes must be checked
  66          if lbSave2(i) = TRUE  then Auswahl.TypeKeys ("<Space><Space><Space>") ' 2. checkboxes must be unchecked
  67       end if
  68
  69       Auswahl.TypeKeys ("<Down>")
  70
  71    next i
  72
  73    Kontext "ExtrasOptionenDlg"
  74    ExtrasOptionenDlg.OK
  75    Sleep (3)
  76
  77    hCloseDocument
  78
  79  printlog " - exit/restart StarOffice"
  80    ExitRestartTheOffice
  81
  82  printlog " - check inverting"
  83    ToolsOptions
  84    hToolsOptions ( "LoadSave", "MicrosoftOffice" )
  85
  86    Auswahl.TypeKeys( "<PageUp>" )
  87    for i=1 to 4
  88       if Auswahl.IsChecked(1) = lbSave1(i) then warnlog "Entry " + i + ": state of 1. checkbox isn't saved"
  89       if Auswahl.IsChecked(2) = lbSave2(i) then warnlog "Entry " + i + ": state of 2. checkbox isn't saved"
  90       Auswahl.TypeKeys( "<Down>" )
  91    next i
  92
  93  printlog " - reset to saved settings"
  94    Auswahl.TypeKeys "<PageUp>"
  95    for i=1 to 4
  96
  97       if lbSave1(i) = TRUE then
  98          if lbSave2(i) = FALSE then Auswahl.TypeKeys ("<Space><Space><Space>") ' 2. checkboxes must be unchecked
  99          if lbSave2(i) = TRUE  then Auswahl.TypeKeys ("<Space>")               ' 2. checkboxes must be checked
 100       else
 101          if lbSave2(i) = FALSE then Auswahl.TypeKeys ("<Space><Space><Space>") ' 2. checkboxes must be unchecked
 102          if lbSave2(i) = TRUE  then Auswahl.TypeKeys ("<Space>")               ' 2. checkboxes must be checked
 103       end if
 104
 105       Auswahl.TypeKeys ("<Down>")
 106
 107    next i
 108
 109
 110    Kontext "ExtrasOptionenDlg"
 111    ExtrasOptionenDlg.OK
 112    Sleep (3)
 113
 114  printlog " - check default settings"
 115    ToolsOptions
 116    hToolsOptions ( "LoadSave", "MicrosoftOffice" )
 117
 118    for i=1 to 4
 119       if Auswahl.IsChecked(1) <> lbSave1(i) then warnlog "Entry " + i + ": state of 1. checkbox isn't saved"
 120       if Auswahl.IsChecked(2) <> lbSave2(i) then warnlog "Entry " + i + ": state of 2. checkbox isn't saved"
 121       Auswahl.TypeKeys "<Down>"
 122    next i
 123
 124    Kontext "ExtrasOptionenDlg"
 125    ExtrasOptionenDlg.OK
 126
 127 endcase