testautomation/framework/optional/includes/options_data.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_data.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 : general option test ( datasource - group )
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tDatasourceConnections
  41   Dim lsTimeout ( 20 ) as String
  42   Dim lbPool ( 20 ) as Boolean
  43   Dim i as Integer, iCounter as Integer
  44   Dim bSave as Boolean
  45   Dim sDiv as String
  46   Dim iDummy as Single
  47
  48    iCounter = 9          ' sorry only hard coded the number of entries, it gives no way to get the real count ( GetText crashes )
  49 qaerrorLog "GetTextCrasjhes??? TBO"
  50 '///check if all settings are saved in configuration ( Datasources / Connections )
  51
  52 '///open a new document
  53 '///+open options 'Datasources' / 'Connections'
  54
  55    hNewDocument
  56    ToolsOptions
  57    hToolsOptions ( "Datasources", "Connections" )
  58
  59 '///+save raw data
  60  printlog " - save raw data"
  61    bSave = ConnectionPoolingEnabled.IsChecked
  62    ConnectionPoolingEnabled.Check
  63    DriverList.TypeKeys "<Up>", 20
  64    for i=1 to iCounter
  65       if i <> 1 then DriverList.TypeKeys "<Down>"
  66       lbPool (i) = EnablePoolingForThisDriver.IsChecked
  67       if lbPool (i) = TRUE then
  68          lsTimeout (i) = Timeout.GetText
  69       else
  70          EnablePoolingForThisDriver.Check
  71          lsTimeout (i) = Timeout.GetText
  72       end if
  73    next i
  74
  75  printlog " - change all settings"
  76    DriverList.TypeKeys "<Up>", 20
  77    for i=1 to iCounter
  78       if i <> 1 then DriverList.TypeKeys "<Down>"
  79       sDiv = str ( i/2 )
  80       if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
  81          EnablePoolingForThisDriver.Check
  82          Timeout.SetText "4" + i
  83       else
  84          EnablePoolingForThisDriver.Uncheck
  85       end if
  86       Sleep (1)
  87    next i
  88    if bSave = TRUE then ConnectionPoolingEnabled.UnCheck
  89
  90 '///+close options dialog with OK, close all documents and exit StarOffice
  91    Kontext "ExtrasOptionenDlg"
  92    ExtrasOptionenDlg.OK
  93    Sleep (3)
  94    hCloseDocument
  95
  96 '///+wait until StarOffice is out of memory and restart it
  97  printlog " - exit/restart StarOffice"
  98    ExitRestartTheOffice
  99
 100 '///+open options 'Datasources' / 'Connections'
 101 '///+check all changes
 102  printlog " - check all changes"
 103    ToolsOptions
 104    hToolsOptions ( "Datasources", "Connections" )
 105
 106    if ConnectionPoolingEnabled.IsChecked = bSave then Warnlog "Connection pooling enabled => changes not saved!"
 107    ConnectionPoolingEnabled.Check
 108
 109    DriverList.TypeKeys "<Up>", 20
 110    for i=1 to iCounter
 111       if i <> 1 then DriverList.TypeKeys "<Down>"
 112       sDiv = str ( i/2 )
 113       if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
 114          if EnablePoolingForThisDriver.IsChecked <> TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
 115          EnablePoolingForThisDriver.Check
 116          if Timeout.GetText <> "4" + i then Warnlog "Entry " + i + " : timeout => changes not saved!"
 117       else
 118          if EnablePoolingForThisDriver.Ischecked = TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
 119       end if
 120       Sleep (1)
 121    next i
 122
 123 '///+second changes
 124  printlog " - make second changes"
 125    DriverList.TypeKeys "<Up>", 20
 126    for i=1 to iCounter
 127       if i <> 1 then DriverList.TypeKeys "<Down>"
 128       sDiv = str ( i/2 )
 129       if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
 130          EnablePoolingForThisDriver.Uncheck
 131       else
 132          EnablePoolingForThisDriver.Check
 133          if i<>10 then
 134             Timeout.SetText "6" + i
 135          else
 136             Timeout.SetText "540"
 137          end if
 138       end if
 139       Sleep (1)
 140    next i
 141
 142 '///+close options dialog with OK
 143    Kontext "ExtrasOptionenDlg"
 144    ExtrasOptionenDlg.OK
 145    Sleep (3)
 146
 147 '///+open options 'Datasources' / 'Connections'
 148 '///+check all changes
 149  printlog " - check all changes"
 150    ToolsOptions
 151    hToolsOptions ( "Datasources", "Connections" )
 152
 153    DriverList.TypeKeys "<Up>", 20
 154    for i=1 to iCounter
 155       if i <> 1 then DriverList.TypeKeys "<Down>"
 156       sDiv = str ( i/2 )
 157       if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0  then
 158          if EnablePoolingForThisDriver.Ischecked = TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
 159       else
 160          if EnablePoolingForThisDriver.IsChecked <> TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
 161          EnablePoolingForThisDriver.Check
 162          if i<>10 then
 163             if Timeout.GetText <> "6" + i then Warnlog "Entry " + i + " : timeout => changes not saved!"
 164          else
 165             if Timeout.GetText <> "540" then Warnlog "Entry " + i + " : timeout => changes not saved!"
 166          end if
 167
 168       end if
 169       Sleep (1)
 170    next i
 171
 172 '///+reset to raw data
 173  printlog " - reset all settings"
 174    DriverList.TypeKeys "<Up>", 20
 175    for i=1 to iCounter
 176       if i <> 1 then DriverList.TypeKeys "<Down>"
 177       EnablePoolingForThisDriver.Check
 178       Timeout.SetText lsTimeout (i)
 179       if lbPool (i) = TRUE then EnablePoolingForThisDriver.Check else EnablePoolingForThisDriver.UnCheck
 180    next i
 181    if bSave = TRUE then ConnectionPoolingEnabled.Check else ConnectionPoolingEnabled.UnCheck
 182
 183 '///+close options dialog with OK
 184    Kontext "ExtrasOptionenDlg"
 185    ExtrasOptionenDlg.OK
 186    Sleep (3)
 187
 188 '///+open options 'Datasources' / 'Connections'
 189 '///+check the raw data
 190  printlog " - check the raw data"
 191    ToolsOptions
 192    hToolsOptions ( "Datasources", "Connections" )
 193
 194    ConnectionPoolingEnabled.check
 195    DriverList.TypeKeys "<Up>", 20
 196    for i=1 to iCounter
 197       if i <> 1 then DriverList.TypeKeys "<Down>"
 198       if EnablePoolingForThisDriver.IsChecked <> lbPool (i) then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!"
 199       EnablePoolingForThisDriver.Check
 200       if Timeout.GetText <> lsTimeout (i) then Warnlog "Entry " + i + " : timeout => changes not saved!"
 201       if lbPool (i) = TRUE then EnablePoolingForThisDriver.Check else EnablePoolingForThisDriver.UnCheck
 202       Sleep (1)
 203    next i
 204    ConnectionPoolingEnabled.unCheck
 205
 206 '///+close options dialog
 207    Kontext "ExtrasOptionenDlg"
 208    ExtrasOptionenDlg.OK
 209    Sleep (3)
 210
 211 endcase
 212
 213
 214
 215