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 2000, 2010 Oracle and/or its affiliates.
   6 '
   7 ' OpenOffice.org - a multi-platform office productivity suite
   8 '
   9 ' This file is part of OpenOffice.org.
  10 '
  11 ' OpenOffice.org is free software: you can redistribute it and/or modify
  12 ' it under the terms of the GNU Lesser General Public License version 3
  13 ' only, as published by the Free Software Foundation.
  14 '
  15 ' OpenOffice.org is distributed in the hope that it will be useful,
  16 ' but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ' GNU Lesser General Public License version 3 for more details
  19 ' (a copy is included in the LICENSE file that accompanied this code).
  20 '
  21 ' You should have received a copy of the GNU Lesser General Public License
  22 ' version 3 along with OpenOffice.org.  If not, see
  23 ' <http://www.openoffice.org/license.html>
  24 ' for a copy of the LGPLv3 License.
  25 '
  26 '/************************************************************************
  27 '*
  28 '*  owner : gregor.hartmann@oracle.com
  29 '*
  30 '*  short description : Password settings in Tools/Options
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tRecommendPassword( filetypeID as string )
  35
  36
  37     dim workfile as string
  38         workfile = "password" & hGetSuffix( filetypeID )
  39         printlog( " * Name of workfile: " & workfile )
  40
  41     dim workpath as string
  42         workpath = convertpath( gOfficePath & "user\work\" )
  43         printlog( " * Save file to....: " & workpath )
  44
  45     dim rc as integer
  46
  47     printlog( "Open a new document" )
  48     call hNewDocument()
  49
  50     printlog( "Change the document" )
  51     call hChangeDoc()
  52
  53     printlog( "Open filesave" )
  54     FileSave
  55     kontext "SpeichernDlg"
  56     if ( SpeichernDlg.exists( 2 ) ) then
  57         printlog( "File Open dialog is open. Good" )
  58     else
  59         warnlog( "File Open dialog is not open." )
  60         goto endsub
  61     endif
  62
  63     printlog( "Verify that the password-checkbox is enabled" )
  64     if ( passwort.isenabled() ) then
  65         printlog( " * Password checkbox is enabled. Good." )
  66
  67         if ( passwort.ischecked() ) then
  68             printlog( " * Password checkbox is checked. Good." )
  69             rc = 0
  70         else
  71             warnlog( "Password checkbox is not checked, the option " & _
  72                      "has not been transported from tools/options " & _
  73                      "to the dialog -> bug" )
  74             rc = 1
  75         endif
  76     else
  77         warnlog( "#i36663# Password checkbox is disabled" )
  78         rc = 2
  79     endif
  80
  81     if ( rc = 0 ) then
  82
  83         AutomatischeDateinamenserweiterung.Uncheck
  84
  85         printlog( "Name the file" )
  86         Dateiname.settext( workpath & workfile )
  87
  88         printlog( "Uncheck password-protection" )
  89         passwort.uncheck()
  90
  91         printlog( "Save the file" )
  92         Speichern.click()
  93
  94         Kontext "active"
  95         if ( active.exists( 2 ) ) then
  96             printlog( " - handle overwrite warning (if any)" )
  97             active.yes()
  98         endif
  99
 100         Kontext "passwordDlg"
 101         if ( passwordDlg.exists( 2 ) ) then
 102             warnlog( "Password dialog comes up, this is not expected at this " & _
 103                      "point. Trying to handle the error gracefully" )
 104             Password.settext( workfile )
 105             PasswordConfirm.settext( workfile )
 106             PasswordDlg.ok()
 107         else
 108             printlog( " * No password dialog is displayed. Good." )
 109         endif
 110
 111         hDeleteFile( workpath & workfile )
 112
 113     endif
 114
 115     printlog( "Close the current document" )
 116     call hCloseDocument()
 117
 118 endcase