testautomation/framework/optional/includes/basic_protected_libraries.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 : Test protected libraries
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tProtectedLibraries
  35
  36
  37     const CLIB = "aaTestLib"
  38     const CPASSWORD = "SomePassword"
  39     const IMACRO = 3
  40
  41     dim irc as integer
  42     dim cPBAFile as string
  43         cPBAFile = gOfficePath & "user\basic\" & CLIB & "\Module1.pba"
  44         cPBAFile = convertpath( cPBAFile )
  45
  46     dim iPBAFile as long
  47     dim iCurrentLib as integer
  48     dim cMsg as string
  49
  50     ToolsMacro_uno
  51
  52     printlog( "Select My Macros" )
  53     kontext "Makro"
  54     hSelectNode( MakroAus , 1 )
  55
  56     printlog( "Organize..." )
  57     Verwalten.click()
  58
  59     hSelectBasicObjectOrganizerTab( 3 )
  60
  61     printlog( "New..." )
  62     kontext "TabBibliotheken"
  63     Neu.click()
  64
  65     printlog( "Name the Library" )
  66     kontext "NeueBibliothek"
  67     BibliotheksName.setText( CLIB )
  68     NeueBibliothek.ok()
  69
  70     printlog( "Select the new library" )
  71     kontext "TabBibliotheken"
  72     for iCurrentLib = 1 to Bibliotheksliste.getItemCount()
  73         Bibliotheksliste.select( iCurrentLib )
  74         if ( Bibliotheksliste.getSelText = CLIB ) then
  75             exit for
  76         endif
  77     next iCurrentLib
  78
  79     printlog( "Set Password" )
  80     kontext "TabBibliotheken"
  81     Passwort.click()
  82
  83     kontext "PasswdDLG"
  84     NewPassword.setText( CPASSWORD )
  85     Confirm.setText( CPASSWORD )
  86     PasswdDLG.ok()
  87
  88     printlog( "Edit the library" )
  89     kontext "TabBibliotheken"
  90     Bearbeiten.click()
  91
  92     Kontext "BasicIDE"
  93     hInsertMacro( IMACRO )
  94
  95     hCloseBasicIde()
  96
  97     printlog( "Restart the application" )
  98     call ExitRestartTheOffice()
  99
 100     ToolsMacro_uno
 101
 102     printlog( "Select the protected library" )
 103     Kontext "Makro"
 104     hSelectNode( MakroAus , 1 )
 105     hExpandNode( MakroAus , 0 )
 106     hSelectNode( MakroAus , 2 )
 107     hExpandNode( MakroAus , 0 )
 108
 109     printlog( "Enter correct Password" )
 110     kontext "PasswordDLG"
 111     Password.setText( CPASSWORD )
 112     PasswordDLG.ok()
 113
 114     ' Handle possible errormessage (Happens if password is correct but not accepted)
 115     Kontext "Active"
 116     if ( Active.exists() ) then
 117         cMsg = Active.getText()
 118         cMsg = hRemoveLineBreaks( cMsg )
 119         printlog( "Unexpected messagebox: " & cMsg )
 120         warnlog( "#i65955# - CWS Warnings01: Protected libraries do not accept valid password" )
 121         Active.ok()
 122         Kontext "Makro"
 123         Makro.cancel()
 124         hDeleteLibrary( 1 , CLIB )
 125         goto endsub
 126     endif
 127
 128     Kontext "Makro"
 129     hSelectNode( MakroAus , 3 )
 130
 131     printlog( "Edit Library" )
 132     Bearbeiten.click()
 133     ' warnlog( "#144701 Crash on edit of password protected module" )
 134
 135     printlog( "Check that the Macro is the correct one" )
 136     Kontext "BasicIDE"
 137     if ( BasicIDE.exists( 3 ) ) then
 138
 139         irc = htestMacro( IMACRO )
 140         if ( irc <> IMACRO ) then
 141             warnlog( "#i54305 - Changes to protected macros lost on office restart" )
 142
 143             iPBAFile = hGetFileSizeAsLong( cPBAFile )
 144             if ( iPBAFile = 0 ) then
 145                 warnlog( "#i50568 - .pba-file has 0-byte size" )
 146             else
 147                 printlog( "Module1.pba has " & iPBAFile & " Bytes" )
 148             endif
 149         endif
 150
 151
 152         printlog( "Cleanup" )
 153         hCloseBasicIde()
 154     else
 155         warnlog( "BasicIDE did not open within 3 seconds" )
 156     endif
 157     hDeleteLibrary( 1 , CLIB )
 158
 159 endcase
 160