testautomation/framework/optional/includes/basic_library_import.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 : Import BASIC library (flat)
  31 '*
  32 '\******************************************************************************
  33
  34 testcase tBasicLibraryImport
  35
  36     printlog( "Import a BASIC library" )
  37
  38     const MY_MACROS = 1
  39     const LIBRARIES_TAB = 3
  40     const STANDARD_LIBRARY = 1
  41
  42     const XLB_DIALOG_FILE = "dialog.xlb"
  43
  44     dim cMsg as string
  45     dim iCurrentLib as integer
  46
  47     dim cPath as string : cPath = hGetWorkPath() & LIBRARY_NAME
  48
  49     ToolsMacro_uno
  50
  51     kontext "Makro"
  52     MakroAus.Select( MY_MACROS )
  53
  54     Verwalten.click()
  55
  56     hSelectBasicObjectOrganizerTab( LIBRARIES_TAB )
  57
  58     printlog( "Select My macros" )
  59     kontext "TabBibliotheken"
  60     Bibliothek.select( STANDARD_LIBRARY )
  61
  62     printlog( "Click to add a library" )
  63     Hinzufuegen.click()
  64
  65     printlog( "Enter the name of the library: " & LIBRARY_NAME )
  66     kontext "OeffnenDlg"
  67     DateiName.setText( LIBRARY_NAME )
  68
  69     printlog( "Step into the directory" )
  70     OeffnenDlg.typeKeys( "<RETURN>" )
  71
  72     printlog( "Enter &quot;dialog.xlb&quot;" )
  73     DateiName.setText( XLB_DIALOG_FILE )
  74
  75     printlog( "Open " & XLB_DIALOG_FILE )
  76     Oeffnen.click()
  77
  78     kontext "active"
  79     if ( active.exists( 1 ) ) then
  80         if ( active.getRT() <> 373 ) then
  81             warnlog( "Autocompletion failed: " & Active.getText() )
  82             Active.ok()
  83             Kontext "OeffnenDlg"
  84             DateiName.setText( XLB_DIALOG_FILE )
  85             Oeffnen.click()
  86         endif
  87     endif
  88
  89     printlog( "Confirm to append the library" )
  90     Kontext "AppendLibraries"
  91     AppendLibraries.ok()
  92
  93     printlog( "Select the new library" )
  94     kontext "TabBibliotheken"
  95     for iCurrentLib = 1 to Bibliotheksliste.getItemCount()
  96         Bibliotheksliste.select( iCurrentLib )
  97         if ( Bibliotheksliste.getSelText = LIBRARY_NAME ) then
  98             exit for
  99         endif
 100     next iCurrentLib
 101
 102     printlog( "Delete the library, confirm with YES" )
 103     Kontext "TabBibliotheken"
 104     Loeschen.click()
 105
 106     Kontext "Active"
 107     if ( Active.exists( 1 ) ) then
 108         active.yes()
 109     else
 110         warnlog( "Deletion warning for libraries is missing" )
 111     endif
 112
 113     printlog( "Close macro/library organizer" )
 114     kontext "TabBibliotheken"
 115     TabBibliotheken.cancel()
 116
 117     printlog( "Close macro organizer" )
 118     kontext "Makro"
 119     Makro.cancel()
 120
 121     hDestroyDocument()
 122
 123     hDeleteFile( cPath & GetPathSeparator & XLB_DIALOG_FILE  )
 124     hDeleteFile( cPath & GetPathSeparator & "Module1.xba" )
 125     hDeleteFile( cPath & GetPathSeparator & "script.xlb"  )
 126     rmdir( cPath ) : printlog( "Remove directory" )
 127
 128 endcase
 129