testautomation/framework/optional/includes/security_certification_dialogs.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_certification_dialogs.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 : Walk through a number of dialogs related to digital signatures
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tCertificationDialogs
  41
  42     '///<H1>Walk through a number of dialogs related to digital signatures</H1>
  43
  44     dim brc as boolean
  45     const CFN = "tCertificationDialogs::"
  46     const SVERSION = "680"
  47
  48     dim sFile as string
  49         sFile = gOfficePath & "user\work\certdlg" & hGetSuffix( SVERSION )
  50         sFile = convertpath( sFile )
  51
  52     hDeleteFile( sFile )
  53
  54     call hNewDocument()
  55
  56     call hChangeDoc()
  57
  58     brc = hOpenDigitalSignaturesDialog()
  59
  60     kontext "active"
  61     if ( active.exists( 1 ) ) then
  62         printlog( "MSGBOX: " & active.getText() )
  63         active.yes()
  64         printlog( CFN & "Allow to save the document" )
  65     else
  66         if ( gApplication <> "MASTERDOCUMENT" ) then
  67             warnlog( CFN & "No message that the file must be saved to be signed" )
  68         else
  69             printlog( CFN & "OK - No save-message for Masterdoc." )
  70         endif
  71     endif
  72
  73     kontext "SpeichernDlg"
  74     if ( SpeichernDlg.exists( 1 ) ) then
  75         DateiName.setText( sFile )
  76         if AutomatischeDateinamenserweiterung.Exists then
  77             AutomatischeDateinamenserweiterung.Uncheck
  78         endif
  79         Speichern.click()
  80     else
  81         if ( gApplication <> "MASTERDOCUMENT" ) then
  82             warnlog( CFN & "Save As Dialog is not open" )
  83         else
  84             printlog( CFN & "OK - No filesave for Masterdoc." )
  85         endif
  86     endif
  87
  88     kontext "DigitalSignature"
  89     if ( DigitalSignature.exists( 2 ) ) then
  90         printlog( CFN & "Digital signatures is open" )
  91         DigitalSignature.cancel()
  92     else
  93         if ( gApplication <> "MASTERDOCUMENT" ) then
  94             warnlog( CFN & "Digital Signatures Dialog is not open" )
  95         else
  96             printlog( CFN & "OK - No signature dialog for Masterdoc." )
  97         endif
  98     endif
  99
 100     call hCloseDocument()
 101
 102
 103
 104 endcase
 105