testautomation/framework/optional/includes/security_certified_docs.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 : Load certified documents and verify the certificate
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tLoadCertifiedFile( cBuildID as string )
  35
  36
  37     ' Build the path to the file we want to work with
  38     dim cFile as string
  39         cFile = gTesttoolpath & "framework\optional\input\security\DigitalSignature"
  40         cFile = cFile & hGetSuffix( cBuildId )
  41         cFile = convertpath( cFile )
  42         printlog( "Using file: " & cFile )
  43
  44     dim cSigName as string
  45     dim sCertData( 20 ) as string
  46
  47     dim sFileIn as string
  48         sFileIn = gTesttoolPath & "framework\optional\input\security\certificate_data.txt"
  49         sFileIn = convertpath( sFileIn )
  50
  51     dim sFileOut as string
  52         sFileOut = hGetWorkPath() & "certificate_data.txt"
  53
  54     ' Variable to store boolean returncodes from functions
  55     dim brc as boolean : brc = true
  56     dim irc as boolean : irc = 0
  57
  58     ' the number of certificates attached to the current document
  59     dim iCertCount as integer
  60
  61     printlog( "Load the file" )
  62     hFileOpen( cFile )
  63     brc = hHandleActivesOnLoad( 0 , 2 )
  64
  65     ' in case the file did not get loaded, handle the problem by aborting the test
  66     if ( not brc ) then
  67         warnlog( "The requested file could not be loaded, aborting test" )
  68         goto endsub
  69     endif
  70
  71     brc = hOpenDigitalSignaturesDialog()
  72
  73     ' If the menuitem should not be available, clicking it will fail. In
  74     ' this case we must assume that the file has been loaded but the certificate
  75     ' does not exist. So we close the document and abort the test here.
  76     if ( not brc ) then
  77         warnlog( "The requested menuitem is not available, the test ends" )
  78         call hCloseDocument()
  79         goto endsub
  80     endif
  81
  82     ' second line of defense: If something was opened but this is not the
  83     ' digital signatures dialog, we abort as well.
  84     ' If no mozill a profile exists, we don't have the means to verify
  85     ' certificates, so the test aborts here as well. We get a messagebox then.
  86     Kontext "DigitalSignature"
  87     if ( not DigitalSignature.exists( 2 ) )  then
  88         Kontext "active"
  89         if ( active.exists() ) then
  90             qaerrorlog( "#i48252# Mozilla profile missing?: " & active.getText() )
  91             active.OK()
  92         else
  93             warnlog( "The current dialog is not <Digital Signatures>. Aborting" )
  94         endif
  95         call hCloseDocument()
  96         goto endsub
  97     endif
  98
  99     ' If we have zero or more than one certificate, this is probably a bug
 100     ' introduced by the test maintainer. However, we warn but the test can
 101     ' continue
 102     Kontext "DigitalSignature"
 103
 104     ViewCertificate.click()
 105
 106     hSelectXMLSecTab( "PATH" )
 107
 108     qaerrorlog( "Skipping EditBrowseBox: Not implemented in Testtool yet" )
 109     goto SkipEditBrowseBox
 110
 111     kontext "TabXMLSecCertPath"
 112     XMLSecViewSigTree.select( 1 )
 113     cSigName = XMLSecViewSigTree.getSelText()
 114     if ( cSigName <> "Dummy Certificate for Testing" ) then
 115         warnlog( "The certificate at pos. 1 is not the dummy certificate: " & cSigName )
 116     else
 117         printlog( "Found correct certificate name: " & cSigName )
 118     endif
 119
 120     hSelectXMLSecTab( "DETAILS" )
 121
 122     kontext "TabXMLSecDetails"
 123     hGetListItems( XMLSecDetailsListBox, sCertData() )
 124
 125     irc = hManageComparisionList( sFileIn, sFileOut, sCertData() )
 126     hListResultEvaluation( irc , 0 )
 127
 128     SkipEditBrowseBox:
 129
 130     hSelectXMLSecTab( "GENERAL" )
 131     kontext "TabXMLSecGeneral"
 132
 133     TabXMLSecGeneral.ok()
 134
 135     printlog( "Close the dialog with OK" )
 136     Kontext "DigitalSignature"
 137     DigitalSignature.OK()
 138
 139     printlog( "Close the document" )
 140     call hCloseDocument()
 141
 142 endcase
 143