testautomation/framework/required/includes/printer_administration.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 : updatetest for the printer configuration
  31 '*
  32 '\******************************************************************************
  33
  34 testcase t_updt_spadmin
  35
  36     printlog( "Resource test for SPAdmin (Printer administration tool) for Unix(like) OS" )
  37
  38     if ( gtSysName = "eComStation" ) then
  39         printlog( "No SpAdmin for eComStation" )
  40         goto endsub
  41     endif
  42
  43     if ( lcase(gPlatform) = "osx") then
  44         printlog( "No SPAdmin on MacOS X" )
  45         goto endsub
  46     endif
  47
  48     if ( gPlatGroup = "w95" ) then
  49         printlog( "No SPAdmin on Windows" )
  50         goto endsub
  51     endif
  52
  53     const CPRINTER = "tt-testprinter"
  54     dim irc as integer
  55     dim brc as boolean
  56
  57     hShutdownOffice()
  58
  59     brc = hOpenSpAdmin()
  60     if ( brc ) then
  61
  62         brc = hWaitForSpAdmin()
  63         if ( not brc ) then
  64             warnlog( "SpAdmin is not open, the test cannot continue" )
  65             goto endsub
  66         endif
  67
  68         irc = hDelPrinter( CPRINTER )
  69         select case irc
  70         case 0 : printlog( "Maybe printer was left over by prior run?" )
  71         case 3 : printlog( "OK, printer does not exist" )
  72         end select
  73
  74         brc = hWaitForSpAdmin()
  75         if ( not brc ) then
  76             warnlog( "SpAdmin is not open, the test cannot continue" )
  77             goto endsub
  78         endif
  79
  80         call TestNewPrinter( CPRINTER )
  81
  82         ' wait for the spadmin to open, on failure we end the test
  83         brc = hWaitForSpAdmin()
  84         if ( not brc ) then
  85             warnlog( "SpAdmin is not open, the test cannot continue" )
  86             goto endsub
  87         endif
  88
  89         call TestProperties( CPRINTER )
  90
  91         ' wait for the spadmin to open, on failure we end the test
  92         brc = hWaitForSpAdmin()
  93         if ( not brc ) then
  94             warnlog( "SpAdmin is not open, the test cannot continue" )
  95             goto endsub
  96         endif
  97
  98         call TestRename( CPRINTER )
  99
 100         ' wait for the spadmin to open, on failure we end the test
 101         brc = hWaitForSpAdmin()
 102         if ( not brc ) then
 103             warnlog( "SpAdmin is not open, the test cannot continue" )
 104             goto endsub
 105         endif
 106
 107         ' wait for the spadmin to open, on failure we end the test
 108         brc = hWaitForSpAdmin()
 109         if ( not brc ) then
 110             warnlog( "SpAdmin is not open, the test cannot continue" )
 111             goto endsub
 112         endif
 113
 114
 115         irc = hDelPrinter( CPRINTER )
 116         if ( irc <> 0 ) then
 117             warnlog( "We created a Fax printer but it could not be deleted" )
 118         endif
 119
 120     endif
 121
 122 endcase
 123
 124 '*******************************************************************************
 125
 126 sub TestNewPrinter( cPrinter as string )
 127
 128
 129
 130     dim iWait as integer
 131
 132     printlog( " * New Printer" )
 133     Kontext "SPAdmin"
 134     PBNewPrinter.click()
 135     waitslot
 136
 137     printlog( "   * select 'Connect a Fax Device'" )
 138     Kontext "TabPWDeviceSelector"
 139     call dialogtest( TabPWDeviceSelector )
 140     RBFax.check()
 141
 142     printlog( "   * next ->" )
 143     Kontext "SpPrinterWizard"
 144     PBNext.click()
 145     waitslot
 146
 147     printlog( "   * accept the default driver (first entry)" )
 148     Kontext "TabPWFaxDriverSelector"
 149     call dialogtest( TabPWFaxDriverSelector )
 150
 151     printlog( "   * next ->" )
 152     Kontext "SpPrinterWizard"
 153     PBNext.click()
 154     waitslot
 155
 156     printlog( "   * enter '(PHONE)' as queue" )
 157     Kontext "TabPWQueueCommand"
 158     call dialogtest( TabPWQueueCommand )
 159     CBCommand.setText( """(PHONE)""" )
 160
 161     printlog( "   * next ->" )
 162     Kontext "SpPrinterWizard"
 163     PBNext.click()
 164     waitslot
 165
 166     printlog( "   * enter a name for the fax-printer" )
 167     Kontext "TabPWPrinterName"
 168     call dialogtest( TabPWPrinterName )
 169     EFFaxName.setText( cPrinter )
 170     waitslot( 2000 )
 171
 172     printlog( "   * Finish" )
 173     for iWait = 1 to 3
 174         try
 175             Kontext "SpPrinterWizard"
 176             SpPrinterWizard.ok()
 177             iWait = 4 ' leave the loop
 178         catch
 179             printlog( "Waiting for dialog" )
 180             sleep( 1 )
 181             if ( iWait = 3 ) then
 182                 qaerrorlog( "Could not click 'finish' on printerwizard" )
 183             endif
 184         endcatch
 185     next iWait
 186
 187     printlog( "" )
 188
 189 end sub
 190
 191 '*******************************************************************************
 192
 193 sub TestProperties( cPrinter as string )
 194
 195
 196
 197     dim iPrinterPos as integer
 198
 199     kontext "SpAdmin"
 200     iPrinterPos = hGetPrinterPosition( CPRINTER , true )
 201
 202     LBPrinters.select( iPrinterPos )
 203
 204     PBProperties.click()
 205     waitslot
 206     printlog( " * Properties for the new fax device" )
 207
 208     kontext
 209     active.setpage TabSPACommand
 210
 211     kontext "TabSPACommand"
 212     printlog( "   * Tab: Command" )
 213     call dialogtest( TabSPACommand )
 214
 215     kontext
 216     active.setpage TabSPAPaper
 217
 218     kontext "TabSPAPaper"
 219     printlog( "   * Tab: Paper" )
 220     call dialogtest( TabSPAPaper )
 221
 222     kontext
 223     active.setpage TabSPADevice
 224
 225     kontext "TabSPADevice"
 226     printlog( "   * Tab: Device" )
 227     call dialogtest( TabSPADevice )
 228
 229     kontext
 230     active.setpage TabSPAFontReplacement
 231
 232     kontext "TabSPAFontReplacement"
 233     printlog( "   * Tab: FontReplacement" )
 234     call dialogtest( TabSPAFontReplacement )
 235
 236     kontext
 237     active.setpage TabSPAOther
 238
 239     kontext "TabSPAOther"
 240     printlog( "   * Tab: Other" )
 241     call dialogtest( TabSPAOther )
 242
 243     printlog( "   * close Properties" )
 244     TabSPAOther.cancel()
 245
 246     printlog( "" )
 247
 248 end sub
 249
 250 '*******************************************************************************
 251
 252 sub TestRename( cPrinter as string )
 253
 254
 255
 256     Kontext "SpAdmin"
 257     LBPrinters.select( hGetPrinterPosition( CPRINTER , true ) )
 258     waitslot
 259
 260     printlog( " * Open 'Rename' dialog" )
 261     PBRename.click()
 262     waitslot
 263
 264     Kontext "SPRenamePrinterDLG"
 265     call dialogtest( SPRenamePrinterDLG )
 266     printlog( "   * Close 'Rename' dialog" )
 267     SPRenamePrinterDLG.cancel()
 268
 269     printlog( "" )
 270
 271 end sub