testautomation/framework/optional/includes/filedlg_rename.inc

   1 'encoding UTF-8  Do not remove or change this line!
   2 '*******************************************************************************
   3 '*
   4 ' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5 '
   6 ' Copyright 2000, 2010 Oracle and/or its affiliates.
   7 '
   8 ' OpenOffice.org - a multi-platform office productivity suite
   9 '
  10 ' This file is part of OpenOffice.org.
  11 '
  12 ' OpenOffice.org is free software: you can redistribute it and/or modify
  13 ' it under the terms of the GNU Lesser General Public License version 3
  14 ' only, as published by the Free Software Foundation.
  15 '
  16 ' OpenOffice.org is distributed in the hope that it will be useful,
  17 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ' GNU Lesser General Public License version 3 for more details
  20 ' (a copy is included in the LICENSE file that accompanied this code).
  21 '
  22 ' You should have received a copy of the GNU Lesser General Public License
  23 ' version 3 along with OpenOffice.org.  If not, see
  24 ' <http://www.openoffice.org/license.html>
  25 ' for a copy of the LGPLv3 License.
  26 '
  27 '/******************************************************************************
  28 '*
  29 '*  owner : gregor.hartmann@oracle.com
  30 '*
  31 '*  short description : Remane files dialog
  32 '*
  33 '\******************************************************************************
  34
  35 testcase tFileRename
  36
  37     dim cPath as string
  38         cPath = convertpath( gOfficePath & "user/work/" )
  39
  40     dim cFile as string
  41         cFile = "tFileRename.odt"
  42
  43     dim iCurrentFile as integer
  44     dim cCurrentFile as string
  45     dim iFileCount as integer
  46     dim bFileFound as boolean : bFileFound = false
  47
  48     ' Issue #i88446
  49     Printlog( "Rename file dialog" )
  50
  51     gApplication = "WRITER"
  52     hNewDocument()
  53     DocumentWriter.typeKeys( "framework/optional/filedlg_dialogtest.bas::tFileRename" )
  54
  55     hFileSaveAsKill( cPath & cFile )
  56     FileClose
  57     FileOpen
  58     kontext "OeffnenDlg"
  59     if ( OeffnenDlg.exists( 2 ) ) then
  60
  61         DateiName.setText( cPath )
  62         Oeffnen.click()
  63         iFileCount = DateiAuswahl.getItemCount()
  64         printlog( iFileCount & " files listed" )
  65         DateiAuswahl.typeKeys( "<HOME>" )
  66
  67         for iCurrentFile = 1 to iFileCount
  68
  69             wait( 100 )
  70             DateiAuswahl.typeKeys( "<SPACE>" )
  71             wait( 100 )
  72
  73             cCurrentFile = DateiAuswahl.getSelText()
  74             printlog( " * " & cCurrentFile )
  75
  76             if ( cCurrentFile = cFile ) then
  77                 printlog( "File found" )
  78                 DateiAuswahl.openContextMenu()
  79                 hMenuSelectNr( 2 )
  80                 DateiAuswahl.typeKeys( "<ESCAPE>" )
  81                 kontext "OeffnenDlg"
  82                 OeffnenDlg.cancel()
  83                 exit for
  84             endif
  85
  86             wait( 100 )
  87             DateiAuswahl.typeKeys( "<DOWN>" )
  88             wait( 100 )
  89
  90         next iCurrentFile
  91     endif
  92
  93     if ( FileExists( cPath & cFile ) ) then kill( cPath & cFile )
  94
  95
  96 endcase
  97