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 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 : Access document properties
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tFiledlgDocumentProperties()
  35
  36
  37     dim cFileName as string
  38         cFileName = "DigitalSignature" & hGetSuffix( "current" )
  39
  40     dim cFilePath as string
  41         cFilePath = gTesttoolPath & "framework\optional\input\security"
  42         cFilePath = convertpath( cFilePath )
  43
  44     dim cFileURL as string : cFileURL = cFilePath & gPathSigne & cFileName
  45
  46     dim iFileSize as long
  47     dim cFileSize as string
  48     dim iFileSizeInfo as long
  49     dim cSignatureCreator as string
  50
  51     dim cTestExpression as string
  52
  53     dim cSelectAll as string
  54     dim cCopy as string
  55
  56     dim brc as boolean
  57
  58     printlog( "Using filename: " & cFileName )
  59     printlog( "Using filepath: " & cFilePath )
  60
  61     if ( FileExists( cFileURL ) ) then
  62         iFileSize = FileLen( cFileURL )
  63         printlog( "Testfile size is: " & iFileSize & " Bytes" )
  64     else
  65         warnlog( "The workfile does not exist. aborting test" )
  66         goto endsub
  67     endif
  68
  69     hFileOpen( cFileURL )
  70
  71     FileProperties
  72
  73     brc = hDocumentInfoSelectTab( "General" )
  74     if ( not brc ) then
  75         warnlog( "Unable to switch to the requested tabpage, trying to recover" )
  76         kontext "TabDokument"
  77         TabDokument.cancel()
  78         hDestroyDocument()
  79     endif
  80
  81     cTestExpression = hGetStringFromStaticTextField( FileLocationInfo )
  82     if ( cTestExpression = cFilePath ) then
  83         printlog( "Path is correct" )
  84     else
  85         warnlog( "The path string is incorrect: " & cTestExpression )
  86     endif
  87
  88     kontext "TabDokument"
  89     cFileSize = hGetStringFromStaticTextField( FileSizeInfo )
  90     iFileSizeInfo =  hConvertStringToLong( cFileSize )
  91     if ( iFileSize <> iFileSizeInfo ) then
  92         warnlog( "Filesize does not match, please check" )
  93         printlog( "Found...: " & iFileSizeInfo )
  94         printlog( "Expected: " & iFileSize    )
  95     else
  96         printlog( "Filesize is correct" )
  97     endif
  98
  99     kontext "TabDokument"
 100     TabDokument.cancel()
 101
 102     hDestroyDocument()
 103
 104
 105 endcase
 106
 107 '*******************************************************************************
 108
 109 function hDocumentInfoSelectTab( cTabPage as string ) as boolean
 110
 111
 112     '///<h3>Switch between the tabpages in the document info dialog</h3>
 113     '///<i>The declaration of the document info dialog is not complete which
 114     '///+ enforces special treatment</i><br><br>
 115
 116     '///<u>Parameter(s):</u><br>
 117     '///<ol>
 118
 119     '///+<li>The name of the tabpage to be activated (String)</li>
 120     '///<ul>
 121     '///+<li>&quot;General&quot;</li>
 122     '///+<li>&quot;Description&quot;</li>
 123     '///+<li>&quot;User&quot;</li>
 124     '///+<li>&quot;Internet&quot;</li>
 125     '///+<li>&quot;Statistics&quot;</li>
 126     '///+<li>The string is case insensitive</li>
 127
 128     '///</ul>
 129
 130     '///</ol>
 131
 132
 133     '///<u>Returns:</u><br>
 134     '///<ol>
 135     '///+<li>Errorcondition (Boolean)</li>
 136     '///<ul>
 137     '///+<li>TRUE if tabpage is known and switching worked</li>
 138     '///+<li>FALSE on icorrect input parameter</li>
 139     '///+<li>FALSE on any other error</li>
 140     '///</ul>
 141     '///</ol>
 142
 143     const CFN = "hDocumentInfoSelectTab::"
 144     printlog( CFN & "Enter with option (tabpage): " & cTabPage )
 145     dim brc as boolean 'a multi purpose boolean returnvalue
 146         brc = true
 147
 148     '///<u>Description:</u>
 149     '///<ul>
 150     '///+<li>Kontext to the dialog</li>
 151     Kontext
 152
 153     '///+<li>Select the page to switch to, context to the new page</li>
 154     select case ( ucase( cTabPage ) )
 155     case "GENERAL"     : active.setPage TabDokument     : kontext "TabDokument"
 156     case "DESCRIPTION" : active.setPage TabBeschreibung : kontext "TabBeschreibung"
 157     case "USER"        : warnlog( "#i95523# - Cannot access controls on Custom page" )
 158                          brc = false
 159                         'active.setPage TabBenutzer     : kontext "TabBenutzer"
 160     case "INTERNET"    : active.setPage TabInternet     : kontext "TabInternet"
 161     case "STATISTICS"  : active.setPage TabStatistik    : kontext "TabStatistik"
 162     case default       : brc = false
 163     end select
 164
 165     '///</ul>
 166
 167     printlog( CFN & "Exit with result: " & brc )
 168     hDocumentInfoSelectTab() = brc
 169
 170 end function
 171
 172