testautomation/framework/optional/includes/filedlg_folders6.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: filedlg_folders6.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $
  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 : joerg.skottke@sun.com
  35 '*
  36 '* short description : check the internal file dialog
  37 '*
  38 '\*****************************************************************************
  39
  40 testcase tUpOneLevel3
  41
  42     '///<h1>Jump to the filesystem root using pathseparator</h1>
  43     '///+<i>Note that his is performed four times due to a bug that existed in
  44     '///+ the past.<br>
  45     '///+Windows and Unix interpret the pathseparator differently so this test
  46     '///+ provides handling of all four combinations (win + /, win + \, unx + /
  47     '///+ and unx + \)</i><br>
  48     '///<ul>
  49
  50     ' We always want to start in a fixed directory structure so the first few dirnames are
  51     ' known an can be used for verification
  52     dim cStartDir as string
  53         cStartDir = gTesttoolPath & "framework\optional\input\filetest\level1\level2\level3"
  54         cStartDir = convertpath( cStartDir )
  55         printlog( "Start-Directory is: " & cStartDir )
  56
  57     ' Find out how many items the array for pathnames must hold (do not use gTesttoolPath here)
  58     dim iDirLevels as integer
  59         iDirLevels = hGetDirTreeLevel( cStartDir ) + 2
  60
  61     ' Get the list of directories within the path
  62     dim cPathArray( iDirLevels ) as string
  63         iDirLevels = DirNameList( cStartDir , cPathArray() )
  64
  65     ' Create an array for the two pathseparators - Windows and Unix/Linux
  66     dim cPathSeparator( 2 ) as string
  67         cPathSeparator( 1 ) = "\"
  68         cPathSeparator( 2 ) = "/"
  69
  70     ' Some increment variables
  71     dim iPathSeparator as integer
  72     dim iPathRepeat as integer
  73
  74     ' Variables needed to verify that we are a filesystem root
  75     dim iFileOpenItemCount as integer
  76     dim cCurrentPath as string
  77     dim iObjectPosition as integer
  78
  79     ' Needed for bug (see below)
  80     const REPEAT_COUNT = 4
  81
  82     '///+<li>Open the FileOpen dialog</li>
  83     FileOpen
  84
  85     '///+<li>Change to the start-directory: ..framework\optional\input\filetest\level1\level2\level3</li>
  86     kontext "OeffnenDlg"
  87     DateiName.setText( cStartDir )
  88     Oeffnen.click()
  89
  90     '///+<li>For both pathseparators (/ and \) do:</li>
  91     '///<ul>
  92     for iPathSeparator = 1 to 2
  93
  94         printlog( "" )
  95         printlog( "Trying: " & cPathSeparator( iPathSeparator ) )
  96
  97         '///<li>Repeat this four times (ancient bug, possible crash)</li>
  98         '///<ul>
  99         printlog( "Note: This is repeated four times due to ancient bug" )
 100         for iPathRepeat = 1 to REPEAT_COUNT
 101
 102             '///+<li>Enter the pathseparator into the filename field</li>
 103             Dateiname.setText( cPathSeparator( iPathSeparator ) )
 104
 105             '///+<li>Click &quot;open&quot;</li>
 106             Oeffnen.click()
 107
 108             select case iPathSeparator
 109             case 1: ' backslash
 110
 111                 ' This is Unix, Linux
 112                 if ( gPlatGroup = "unx" ) then
 113
 114                     '///+<li>Handle the messagebox (Unix only)</li>
 115                     kontext "Active"
 116                     if ( active.exists() ) then
 117                         active.ok()
 118                         printlog( "Messagebox for Unix and \ present." )
 119                     else
 120                         warnlog( "Error missing for invalid pathspec." )
 121                     endif
 122
 123                     '///+<li>- Verify that the directory has not changed for Unix</li>
 124                     ' in the ../level3-directory we look for the file filetest.txt
 125                     kontext "OeffnenDlg"
 126                     cCurrentPath = hGetFirstNameFromFileList()
 127                     if ( cCurrentPath <> "filetest.txt" ) then
 128                         warnlog( "Path should not have changed." )
 129                     else
 130                         printlog( "Still in same directory, ok." )
 131                     endif
 132
 133                 else ' Windows, eComStation
 134
 135                     '///+<li>- Verify that we are a the virtual root (drives list) on windows</li>
 136                     kontext "OeffnenDlg"
 137                     cCurrentPath = hGetFirstNameFromFileList()
 138                     if ( cCurrentPath <> "a:\" ) then
 139                         if ( iPathRepeat = 1 ) then
 140                             qaerrorlog( "Did not reach virtual root or no drive a:\ present" )
 141                         else
 142                             warnlog( "Did not reach virtual root or no drive a:\ present" )
 143                         endif
 144                     else
 145                         printlog( "Switched to virtual root: a:\ - drive. ok" )
 146                     endif
 147
 148                 endif
 149
 150             case 2: ' slash
 151
 152                 ' Unix/Linux
 153                 if ( gPlatGroup = "unx" ) then
 154
 155                     '///+<li>- Verify that we are at top level of the drive</li>
 156                     ' Note: cPathArray( 1 ) = / so we need second element
 157                     '       Additionally we have a trailing slash that must be killed
 158                     cCurrentPath = left( cPathArray( 2 ) , len( cPathArray( 2 ) ) - 1 )
 159                     kontext "OeffnenDlg"
 160                     iObjectPosition = hFindFileObjectViaFileOpen( cCurrentPath )
 161                     if ( iObjectPosition <> 0 ) then
 162                         printlog( "Root for gTesttoolPath could be found. Good" )
 163                     else
 164                         warnlog( "Top directory of gTesttoolPath could not be found" )
 165                         printlog( "This probably means we are not at the root dir" )
 166                     endif
 167
 168                 else ' Windows, eComStation
 169
 170                     '///+<li>- Verify that we are a the virtual root (drives list) on windows</li>
 171                     kontext "OeffnenDlg"
 172                     cCurrentPath = hGetFirstNameFromFileList()
 173                     if ( cCurrentPath <> "a:\" ) then
 174                         warnlog( "Did not reach virtual root or no drive a:\ present" )
 175                     else
 176                         printlog( "Switched to virtual root: a:\ - drive. ok" )
 177                     endif
 178
 179                 endif
 180
 181             end select
 182
 183         next iPathRepeat
 184         '///</ul>
 185
 186     next iPathSeparator
 187     '///</ul>
 188
 189     kontext "OeffnenDlg"
 190     OeffnenDlg.cancel()
 191     '///+<li>Cancel the FileOpen dialog</li>
 192     '///</ul>
 193
 194 endcase
 195
 196