testautomation/framework/optional/includes/security_recommend_password.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: security_recommend_password.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:15 $
  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 : Password settings in Tools/Options
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tRecommendPassword( filetypeID as string )
  41
  42     '///<H1>Recommend password protection when saving</H1>
  43     '///<p>This test verifies that the global option to recommend password
  44     '/// protection is transported to the file-save dialog. Before saving
  45     '/// password protection will be unchecked in order to verify that the
  46     '/// global option overrides the individual setting.</p>
  47
  48     dim workfile as string
  49         workfile = "password" & hGetSuffix( filetypeID )
  50         printlog( " * Name of workfile: " & workfile )
  51
  52     dim workpath as string
  53         workpath = convertpath( gOfficePath & "user\work\" )
  54         printlog( " * Save file to....: " & workpath )
  55
  56     dim rc as integer
  57
  58     '///<ul>
  59     '///<li>Open a new document</li>
  60     printlog( "Open a new document" )
  61     call hNewDocument()
  62
  63     '///<li>change the content (document modified status)</li>
  64     printlog( "Change the document" )
  65     call hChangeDoc()
  66
  67     '///<li>Open File-Save-dialog</li>
  68     printlog( "Open filesave" )
  69     FileSave
  70     kontext "SpeichernDlg"
  71     if ( SpeichernDlg.exists( 2 ) ) then
  72         printlog( "File Open dialog is open. Good" )
  73     else
  74         warnlog( "File Open dialog is not open." )
  75         goto endsub
  76     endif
  77
  78     '///<li>Verify that 'Save with password' is enabled</li>
  79     printlog( "Verify that the password-checkbox is enabled" )
  80     if ( passwort.isenabled() ) then
  81         printlog( " * Password checkbox is enabled. Good." )
  82
  83         if ( passwort.ischecked() ) then
  84             printlog( " * Password checkbox is checked. Good." )
  85             rc = 0
  86         else
  87             warnlog( "Password checkbox is not checked, the option " & _
  88                      "has not been transported from tools/options " & _
  89                      "to the dialog -> bug" )
  90             rc = 1
  91         endif
  92     else
  93         warnlog( "#i36663# Password checkbox is disabled" )
  94         rc = 2
  95     endif
  96
  97     if ( rc = 0 ) then
  98
  99         if AutomatischeDateinamenserweiterung.Exists then
 100             QAErrorLog "OBSOLETE: Check-box Automatic file extension in file dialog will be removed soon!"
 101             AutomatischeDateinamenserweiterung.Uncheck
 102         endif
 103
 104
 105         '///<li>name the file and select filter</li>
 106         printlog( "Name the file" )
 107         Dateiname.settext( workpath & workfile )
 108
 109         '///<li>uncheck password-protection</li>
 110         printlog( "Uncheck password-protection" )
 111         passwort.uncheck()
 112
 113         '///<li>save the file</li>
 114         printlog( "Save the file" )
 115         Speichern.click()
 116
 117         '///<li>handle possoble overwrite-warning</li>
 118         Kontext "active"
 119         if ( active.exists( 2 ) ) then
 120             printlog( " - handle overwrite warning (if any)" )
 121             active.yes()
 122         endif
 123
 124         '///<li>handle unexpected password-dialog</li>
 125         Kontext "passwordDlg"
 126         if ( passwordDlg.exists( 2 ) ) then
 127             warnlog( "Password dialog comes up, this is not expected at this " & _
 128                      "point. Trying to handle the error gracefully" )
 129             Password.settext( workfile )
 130             PasswordConfirm.settext( workfile )
 131             PasswordDlg.ok()
 132         else
 133             printlog( " * No password dialog is displayed. Good." )
 134         endif
 135
 136         '///<li>Delete the workfile</li>
 137         hDeleteFile( workpath & workfile )
 138
 139     endif
 140
 141     '///<li>close the document</li>
 142     printlog( "Close the current document" )
 143     call hCloseDocument()
 144
 145     '///</ul>
 146
 147 endcase