diff options
author | Joerg Sievers <jsi@openoffice.org> | 2008-06-16 11:19:07 +0000 |
---|---|---|
committer | Joerg Sievers <jsi@openoffice.org> | 2008-06-16 11:19:07 +0000 |
commit | 5c94a8213a881a66aa00c059aa29caf8de0808bc (patch) | |
tree | 9dabf5fcc79a54c3875c0b4826270ab59d54ecb6 /testautomation/framework/optional/includes/filedlg_passwords.inc | |
parent | 3d9ef5bb71315c27f78e41b3ef7eb2c4507ac978 (diff) |
Creating clean testautomation modul with changed structure which will be included into the CWS process.
Diffstat (limited to 'testautomation/framework/optional/includes/filedlg_passwords.inc')
-rwxr-xr-x | testautomation/framework/optional/includes/filedlg_passwords.inc | 208 |
1 files changed, 208 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/filedlg_passwords.inc b/testautomation/framework/optional/includes/filedlg_passwords.inc new file mode 100755 index 000000000000..e036da52ebff --- /dev/null +++ b/testautomation/framework/optional/includes/filedlg_passwords.inc @@ -0,0 +1,208 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: filedlg_passwords.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $ +'* +'* 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 : joerg.skottke@sun.com +'* +'* short description : save and load passworded files +'* +'\****************************************************************************** + +testcase tFiledlgPasswords() + + '///<h1>Test saving/loading passworded files in three different formats</h1> + + dim workfile as string + dim workpath as string + workpath = hGetWorkPath() + + dim filetype as string + dim filetypeID as string + dim cMsg as string + + dim iCurrentDocumentType as integer + dim iCurrentFileFormat as integer + + + for iCurrentDocumentType = 1 to 6 + + printlog( "Document Type: " & hNumericDocType( iCurrentDocumentType ) ) + + for iCurrentFileFormat = 1 to 2 + + select case iCurrentFileFormat + case 1 : filetypeID = "645" + case 2 : filetypeID = "current" + end select + + '///<ul> + '///+<li>open a new document</li> + hCreateDocument() + + '///+<li>Close the navigator - if present</li> + hCloseNavigator() + + '///+<li>enter some random text</li> + call hChangeDoc() + + '///+<li>Open file-save dialog</li> + printlog( "Open file-save dialog" ) + if ( gApplication = "IMPRESS" ) then + printlog( " IMPRESS is slower than other apps, delaying for 2 sec." ) + sleep( 2 ) + endif + + FileSave + + Kontext "SpeichernDlg" + if ( SpeichernDlg.exists( 2 ) ) then + + '///+<li>Name the file and select filter</li> + filetype = hGetFilter( filetypeID ) + hSelectUIFilter( filetype ) + + workfile = "password" & hGetSuffix( filetypeID ) + DateiName.setText( workpath & workfile ) + + printlog( "Using fileformat: " & filetype ) + printlog( "Using filename..: " & workfile ) + + '///+<li>Check password</li> + printlog( "Check password" ) + if ( passwort.isEnabled() ) then + Passwort.check() + else + warnlog( "#i36663# Password checkbox is disabled" ) + endif + + '///+<li>Save the file</li> + printlog( "Save the file" ) + Speichern.click() + + kontext "active" + if ( active.exists( 2 ) ) then + printlog( "Handle overwrite warning (if any)" ) + active.yes() + endif + + + '///+<li>Enter the filename as password and confirm</li> + Kontext "PasswordDlg" + printlog( "Enter the name of the file as password and confirm" ) + if ( passwordDlg.exists() ) then + Password.settext( workfile ) + PasswordConfirm.settext( workfile ) + PasswordDlg.ok() + else + warnlog( "No password dialog is displayed" ) + endif + + kontext "AlienWarning" + if ( AlienWarning.exists( 2 ) ) then + if ( FileTypeID <> "current" ) then + printlog( "Handle alienwarning (expected)" ) + AlienWarning.ok() + else + warnlog( "Handle alienwarning (unexpected)" ) + AlienWarning.ok() + endif + endif + + '///+<li>Close the document</li> + hDestroyDocument() + + '///+<li>Open the file via file-open</li> + printlog( "Open the file via file-open" ) + FileOpen + + Kontext "OeffnenDlg" + if ( OeffnenDlg.exists( 2 ) ) then + Dateiname.settext( workfile ) + + Oeffnen.click() + + Kontext "PasswordFileOpen" + '///+<li>Enter the filename as password</li> + printlog( "Enter the filename as password" ) + if ( PasswordFileOpen.exists( 4 ) ) then + PasswortName.settext( workfile ) + PasswordFileOpen.ok() + else + kontext "Active" + if ( Active.exists( 2 ) ) then + cMsg = active.getText() + cMsg = hRemoveLineBreaks( cMsg ) + printlog( cMsg ) + warnlog( "#i65889# - CWS Warnings01: Cannot read password protected files" ) + active.ok() + goto endsub + else + warnlog( "No password dialog is displayed" ) + endif + endif + + '///+<li>Verify that the document is loaded</li> + printlog( "Verify that the document is loaded" ) + call IsItLoaded() + + '///+<li>Close the navigator if present</li> + Kontext "Navigator" + if ( Navigator.exists( 1 ) ) then + qaerrorlog( "Navigator should not be visible - setting not saved?" ) + endif + else + warnlog( "Second file open failed" ) + endif + else + warnlog( "File Open dislog did not come up" ) + endif + + '///+<li>Close navigator if present</li> + hCloseNavigator() + + '///+<li>Close the document</li> + hDestroyDocument() + + '///+<li>Delete the file</li> + hDeleteFile( workpath & workfile ) + + '///+<li>Close navigator if present</li> + hCloseNavigator() + + next iCurrentFileFormat + + next iCurrentDocumentType + + '///</ul> + + +endcase |