testautomation/framework/optional/includes/options_ooo_memory.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_memory.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 : joerg.skottke@sun.com
  35 '*
  36 '* short description : 1. test for general group userdata ... view)
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tOOoMemory
  41
  42     Dim lsSave (7) as String
  43     Dim lbSave as Boolean
  44     Dim sValue as String
  45
  46     dim bHasQuickstarter as boolean
  47
  48     '///short test if 'StarOffice / Momory' is saved in configuration
  49     '///open a new document
  50     '///open options 'StarOffice' / 'Memory'
  51     hNewDocument
  52     ToolsOptions
  53     hToolsOptions ( "StarOffice", "Memory" )
  54
  55     '///check platform dependences
  56     '///- 'Load StarOffice at system-startup' has to exist
  57     printlog " - check platform dependences "
  58
  59     if ( LoadQuickstarter.exists() and LoadQuickstarter.isVisible() and LoadQuickstarter.isEnabled() ) then
  60         bHasQuickstarter = TRUE
  61         printlog( "Quickstarter is available" )
  62     else
  63         bHasQuickstarter = FALSE
  64         printlog( "Quickstarter is NOT available on this platform" )
  65     endif
  66
  67     '///save old data
  68     printlog " - save old data"
  69     lsSave(1) = UndoSteps.GetText
  70     lsSave(2) = StarOffice.GetText
  71     lsSave(3) = MemoryPerObject.GetText
  72     lsSave(4) = RemoveFromMemoryAfter.GetText
  73     lsSave(5) = NumberOfObjects.GetText
  74     if ( bHasQuickstarter ) then
  75         lbSave = LoadQuickstarter.IsChecked
  76     endif
  77
  78     '///invert/change data
  79     printlog " - invert/change data"
  80     UndoSteps.SetText "80"
  81     StarOffice.SetText "50"
  82     if Instr ( lsSave(3), "," ) <> 0 then
  83         sValue = "4,1"
  84     else
  85         sValue = "4.1"
  86     end if
  87     MemoryPerObject.SetText sValue
  88     RemoveFromMemoryAfter.SetText "00:41"
  89     NumberOfObjects.SetText "81"
  90     if ( bHasQuickstarter ) then
  91         LoadQuickstarter.UnCheck
  92     endif
  93
  94     '///close options-dialog with OK
  95     Kontext "ExtrasOptionenDlg"
  96     ExtrasOptionenDlg.OK
  97
  98
  99     '///close document
 100     hCloseDocument
 101
 102     '///exit/restart StarOffice
 103     printlog " - exit/restart StarOffice"
 104     ExitRestartTheOffice
 105
 106     '///open options 'StarOffice' / 'Memory'
 107     printlog " - check data"
 108     ToolsOptions
 109     hToolsOptions ( "StarOffice", "Memory" )
 110
 111     '///check data
 112     if UndoSteps.GetText             <> "80" then
 113         Warnlog "Undo steps => changes not saved!"
 114     endif
 115     if StarOffice.GetText            <> "50" then
 116         Warnlog "Use For StarOffice => changes not saved!"
 117     endif
 118     if MemoryPerObject.GetText       <> sValue then
 119         Warnlog "Memory per object => changes not saved! => " + MemoryPerObject.GetText
 120     endif
 121     if RemoveFromMemoryAfter.GetText <> "00:41" then
 122         Warnlog "Remove from memory after => changes not saved! =>" + RemoveFromMemoryAfter.GetText
 123     endif
 124     if NumberOfObjects.GetText       <> "81" then
 125         Warnlog "Number of objects => changes not saved!"
 126     endif
 127     if ( bHasQuickstarter ) then
 128         if LoadQuickstarter.IsEnabled then
 129             if LoadQuickstarter.IsChecked = TRUE then
 130                 Warnlog "Load StarOffice during system-startup => changes not saved!"
 131             end if
 132         end if
 133     endif
 134
 135     '///make 2. changes
 136     printlog " - 2. change data"
 137     UndoSteps.SetText "5"
 138     StarOffice.SetText "11"
 139     if Instr ( lsSave(3), "," ) <> 0 then
 140         sValue = "1,9"
 141     else
 142         sValue = "1.9"
 143     end if
 144     MemoryPerObject.SetText sValue
 145     RemoveFromMemoryAfter.SetText "01:32"
 146     NumberOfObjects.SetText "2"
 147     if ( bHasQuickstarter ) then
 148         LoadQuickstarter.Check
 149     endif
 150
 151     '///close options-dialog with OK
 152     Kontext "ExtrasOptionenDlg"
 153     ExtrasOptionenDlg.OK
 154
 155     '///open options 'StarOffice' / 'Memory'
 156     printlog " - check data"
 157     ToolsOptions
 158     hToolsOptions ( "StarOffice", "Memory" )
 159
 160     '///check data
 161     if UndoSteps.GetText             <> "5" then
 162         Warnlog "Undo steps => changes not saved!"
 163     endif
 164     if StarOffice.GetText            <> "11" then
 165         Warnlog "Use For StarOffice => changes not saved!"
 166     endif
 167     if MemoryPerObject.GetText       <> sValue then
 168         Warnlog "Memory per object => changes not saved! => " + MemoryPerObject.GetText
 169     endif
 170     if RemoveFromMemoryAfter.GetText <> "01:32" then
 171         Warnlog "Remove from memory after => changes not saved! => " + RemoveFromMemoryAfter.GetText
 172     endif
 173     if NumberOfObjects.GetText       <> "2" then
 174         Warnlog "Number of objects => changes not saved!"
 175     endif
 176     if ( bHasQuickstarter ) then
 177         if LoadQuickstarter.IsChecked <> TRUE then
 178             Warnlog "Load StarOffice during system-startup => changes not saved!"
 179         end if
 180     endif
 181
 182     '///reset to saved data
 183     printlog " - reset to saved data"
 184     UndoSteps.SetText lsSave(1)
 185     StarOffice.SetText lsSave(2)
 186     MemoryPerObject.SetText lsSave(3)
 187     RemoveFromMemoryAfter.SetText lsSave(4)
 188     NumberOfObjects.SetText lsSave(5)
 189
 190     if ( bHasQuickstarter ) then
 191         if lbSave = TRUE then
 192             LoadQuickstarter.Check else LoadQuickstarter.UnCheck
 193         endif
 194     endif
 195
 196     '///close options-dialog with OK
 197     Kontext "ExtrasOptionenDlg"
 198     ExtrasOptionenDlg.OK
 199
 200     '///open options 'StarOffice' / 'Memory'
 201     ToolsOptions
 202     hToolsOptions ( "StarOffice", "Memory" )
 203
 204     '///check data
 205     printlog " - check the reset data"
 206     if UndoSteps.GetText             <> lsSave(1) then
 207         Warnlog "Undo steps => changes not saved!"
 208     endif
 209     if StarOffice.GetText            <> lsSave(2) then
 210         Warnlog "Use For StarOffice => changes not saved!"
 211     endif
 212     if MemoryPerObject.GetText       <> lsSave(3) then
 213         Warnlog "Memory per object => changes not saved! => " + MemoryPerObject.GetText
 214     endif
 215     if RemoveFromMemoryAfter.GetText <> lsSave(4) then
 216         Warnlog "Remove from memory after => changes not saved! =>" + RemoveFromMemoryAfter.GetText
 217     endif
 218     if NumberOfObjects.GetText       <> lsSave(5) then
 219         Warnlog "Number of objects => changes not saved!"
 220     endif
 221     if ( bHasQuickstarter ) then
 222         if LoadQuickstarter.IsChecked <> lbSave then
 223             Warnlog "Load StarOffice during system-startup => changes not saved!"
 224         endif
 225     endif
 226
 227     '///close options-dialog with OK
 228     Kontext "ExtrasOptionenDlg"
 229     ExtrasOptionenDlg.OK
 230
 231 endcase
 232
 233
 234