testautomation/framework/optional/includes/filedlg_folders5.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_folders5.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 ( 1. part )
  37 '*
  38 '\*****************************************************************************
  39
  40 testcase tUpOneLevel2
  41
  42     '///<h1>Enter &quot;..&quot; until we are at filesystem root level, verify</h1>
  43     '///+This test verifies that each &quot;..&quot; moves one level up in the filesystem.
  44     '///+Furthermore it is verified that the Level-Up button does not get disabled under way.
  45     '///<ul>
  46
  47     dim iParentDir as integer
  48
  49     ' We always want to start in a fixed directory structure so the first few dirnames are
  50     ' known an can be used for verification
  51     dim cStartDir as string
  52         cStartDir = gTesttoolPath & "framework\optional\input\filetest\level1\level2\level3"
  53         cStartDir = convertpath( cStartDir )
  54         printlog( "Start-Directory is: " & cStartDir )
  55
  56
  57     ' Find out how deep into the filesystem hierarchy we are so we know when we are at the
  58     ' filesystem root. We add one because Windows has one more level where the drive icons
  59     ' are shown
  60     dim iDirLevels as integer
  61         iDirLevels = hGetDirTreeLevel( cStartDir )
  62
  63     if ( instr( lcase( gtSYSName ) , "win" ) = 1 ) then
  64         iDirLevels = iDirLevels + 1
  65         printlog( "Current threshold (Windows) is: " & iDirLevels)
  66     elseif ( gtSysName = "ecomstation" ) then
  67         iDirLevels = iDirLevels + 1
  68         printlog( "Current threshold (eComStation) is: " & iDirLevels)
  69     else
  70         printlog( "Current threshold (Unix/Linux) is: " & iDirLevels)
  71     endif
  72
  73     dim sCurrentDir as string
  74     dim sExpectedDir as string
  75
  76
  77     '///+<li>Click FileOpen</li>
  78     FileOpen
  79
  80     '///+<li>Open [Testtoolpath]\framework\filedlg\input\filetest\level1\level2\level3</li>
  81     Kontext "OeffnenDlg"
  82     Dateiname.SetText( cStartDir )
  83     Oeffnen.Click()
  84
  85     '///+<li>Enter &quot;..&quot; and press &quot;Open&quot; until we are at filesystem root</li>
  86     '///<ul>
  87     printlog "Enter '..' until we are in the filesystem root"
  88     for iParentDir = 1 to iDirLevels
  89
  90         '///+<li>Enter &quot;..&quot;</li>
  91         Dateiname.setText( ".." )
  92
  93         '///+<li>Click &quot;Open&quot;</li>
  94         Oeffnen.click()
  95
  96         '///+<li>Get the name of the first item in the filepicker (excluding CVS)</li>
  97         sCurrentDir = hGetFirstNameFromFileList()
  98
  99         '///+<li>Verify that the name of the first item is correct. The names of the first six dirs are known</li>
 100         select case iParentDir
 101         case 1 : sExpectedDir = "level3"
 102         case 2 : sExpectedDir = "level2"
 103         case 3 : sExpectedDir = "level1"
 104         case 4 : sExpectedDir = "alldocs"
 105         case 5 : sExpectedDir = "includes"
 106         case 6 : sExpectedDir = "optional"
 107         end select
 108
 109         if ( iParentDir < 7 ) then
 110             if ( sCurrentDir = sExpectedDir ) then
 111                 printlog( "Current directory name is: " & sCurrentDir & " [ok]" )
 112             else
 113                 warnlog( "Error finding directory name:" )
 114                 printlog( "Current directory name is: " & sCurrentDir & " which is NOT ok" )
 115                 printlog( "Expected directory name..: " & sExpectedDir )
 116             endif
 117         endif
 118     next iParentDir
 119     '///</ul>
 120
 121     '///+<li>We should now be at the top of the tree, the &quot;Level-Up&quot; button should be disabled</li>
 122     kontext "OeffnenDlg"
 123
 124     '///+<li>Verify that the button exists</li>
 125     if ( UebergeordneterOrdner.exists() ) then
 126
 127         '///+<li>Check that the button is not enabled</li>
 128         if ( not UebergeordneterOrdner.isEnabled() ) then
 129             printlog( "Level-Up button is disabled, good" )
 130         else
 131             '///+<li>Warn if the button is enabled</li>
 132             warnlog( "The Level-up button should not be enabled for filesystem root" )
 133         endif
 134     else
 135         warnlog( "Level-Up button does not exist" )
 136     endif
 137     '///</ul>
 138
 139     OeffnenDlg.Cancel()
 140
 141 endcase