summaryrefslogtreecommitdiff
path: root/testautomation/framework/optional/includes/filedlg_folders1.inc
diff options
context:
space:
mode:
authorMichael Stahl <mstahl@redhat.com>2012-01-28 20:56:59 +0100
committerMichael Stahl <mstahl@redhat.com>2012-01-28 20:56:59 +0100
commit0618b588eadef3ca06adddfaabb9058f7fd8561f (patch)
tree9e9f67205cd5b72f1031721273e1534a3a1e5b0f /testautomation/framework/optional/includes/filedlg_folders1.inc
parent25f9289027ffa4c50a9477e65fb65731454e5deb (diff)
replace obsolete "master" branch with README that points at new repoHEADmaster-deletedmaster
Diffstat (limited to 'testautomation/framework/optional/includes/filedlg_folders1.inc')
-rw-r--r--testautomation/framework/optional/includes/filedlg_folders1.inc106
1 files changed, 0 insertions, 106 deletions
diff --git a/testautomation/framework/optional/includes/filedlg_folders1.inc b/testautomation/framework/optional/includes/filedlg_folders1.inc
deleted file mode 100644
index 01bd9467a..000000000
--- a/testautomation/framework/optional/includes/filedlg_folders1.inc
+++ /dev/null
@@ -1,106 +0,0 @@
-'encoding UTF-8 Do not remove or change this line!
-'**************************************************************************
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org. If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'/************************************************************************
-'*
-'* owner : gregor.hartmann@oracle.com
-'*
-'* short description : check the internal file dialog ( 1. part )
-'*
-'\******************************************************************************
-
-testcase tFolder1
-
- Dim VerList(50) as String
- dim FULLPATH as string
- FULLPATH = gOfficePath + "user\work\"
-
- printlog " - cleanup the output-dir, kill all directories."
-
- GetDirList ( ConvertPath ( FULLPATH ), "*" , VerList() )
- KillDirList ( VerList() )
-
- FileOpen
-
- 'This is a hack to prevent trouble when opening 'FileOpen' and the path
- 'is not accessible.
- Kontext "Active"
- if Active.Exists( 1 ) then
- Warnlog "The preset path is invalid, a messagebox has been shown."
- Active.OK()
- endif
-
- Kontext "OeffnenDlg"
- Dateiname.SetText( ConvertPath ( FULLPATH ) )
- Oeffnen.Click()
-
-
- printlog " - foldername with only one character"
- CreateValidDirectory( "z" )
-
-
- printlog " - foldername only with numbers"
- CreateValidDirectory( "1234" )
-
-
- printlog " - foldername with 8 characters"
- CreateValidDirectory( "xaxaxaxa" )
-
-
- printlog " - foldername with 8.3 characters"
- CreateValidDirectory( "yxyxyxyx.aaa" )
-
-
- printlog " - foldername with more than 8.3 characters"
- CreateValidDirectory( "yxyxyxyxyxyx.aaabbb" )
-
-
- printlog " - foldername with special charaters ( umlauts )"
- CreateValidDirectory( "hälölüle" )
-
-
- printlog " - foldername with one whitespace in the middle"
- CreateValidDirectory( "aa bb" )
-
-
- printlog " - foldername with leading spaces"
- CreateValidDirectoryCrop( " lead" , "lead" )
-
-
- printlog " - foldername with trailing spaces"
- CreateValidDirectoryCrop( "trail " , "trail" )
-
-
- printlog " - foldername with more spaces"
- CreateValidDirectory( "here is a dir with spaces" )
-
-
- printlog " - foldername with forbidden signes ( ?+! ) - only on windows they are forbidden"
- CreateInvalidDirectory( "??++!!" )
-
- Kontext "OeffnenDlg"
- OeffnenDlg.Cancel()
-
-endcase