testautomation/framework/optional/includes/filedlg_document_properties.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: filedlg_document_properties.inc,v $
  10 '*
  11 '* $Revision: 1.1 $
  12 '*
  13 '* last change: $Author: jsi $ $Date: 2008-06-16 12:18:14 $
  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 : Access document properties
  37 '*
  38 '\******************************************************************************
  39
  40 testcase tFiledlgDocumentProperties()
  41
  42     '///<h3>Access document properties</h3>
  43
  44     dim cFileName as string
  45         cFileName = "DigitalSignature" & hGetSuffix( "current" )
  46
  47     dim cFilePath as string
  48         cFilePath = gTesttoolPath & "framework\optional\input\security"
  49         cFilePath = convertpath( cFilePath )
  50
  51     dim cFileURL as string : cFileURL = cFilePath & gPathSigne & cFileName
  52
  53     dim iFileSize as long
  54     dim cFileSize as string
  55     dim iFileSizeInfo as long
  56     dim cSignatureCreator as string
  57
  58     dim cTestExpression as string
  59
  60     dim cSelectAll as string
  61     dim cCopy as string
  62
  63     dim brc as boolean
  64
  65     '///<ul>
  66     printlog( "Using filename: " & cFileName )
  67     printlog( "Using filepath: " & cFilePath )
  68
  69     '///+<li>Retrieve the size from the workfile using direct BASIC calls</li>
  70     if ( FileExists( cFileURL ) ) then
  71         iFileSize = FileLen( cFileURL )
  72         printlog( "Testfile size is: " & iFileSize & " Bytes" )
  73     else
  74         warnlog( "The workfile does not exist. aborting test" )
  75         goto endsub
  76     endif
  77
  78     '///+<li>Load the workfile (framework/security/input/DigitalSignature.???)</li>
  79     hFileOpen( cFileURL )
  80
  81     '///+<li>open the file properties dialog</li>
  82     FileProperties
  83
  84     '///+<li>Document-Tab: Verify that the filename is correct</li>
  85     brc = hDocumentInfoSelectTab( "General" )
  86     if ( not brc ) then
  87         warnlog( "Unable to switch to the requested tabpage, trying to recover" )
  88         kontext "TabDokument"
  89         TabDokument.cancel()
  90         hDestroyDocument()
  91     endif
  92
  93     cTestExpression = hGetStringFromStaticTextField( FileLocationInfo )
  94     if ( cTestExpression = cFilePath ) then
  95         printlog( "Path is correct" )
  96     else
  97         warnlog( "The path string is incorrect: " & cTestExpression )
  98     endif
  99
 100     '///+<li>Verify the filesize info</li>
 101     kontext "TabDokument"
 102     cFileSize = hGetStringFromStaticTextField( FileSizeInfo )
 103     iFileSizeInfo =  hConvertStringToLong( cFileSize )
 104     if ( iFileSize <> iFileSizeInfo ) then
 105         warnlog( "Filesize does not match, please check" )
 106         printlog( "Found...: " & iFileSizeInfo )
 107         printlog( "Expected: " & iFileSize    )
 108     else
 109         printlog( "Filesize is correct" )
 110     endif
 111
 112     kontext "TabDokument"
 113     TabDokument.cancel()
 114
 115     hDestroyDocument()
 116
 117     '///</ul>
 118
 119 endcase
 120