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