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