testautomation/dbaccess/optional/includes/misc_Macros.inc

   1 'encoding UTF-8  Do not remove or change this line!\r
   2 '**************************************************************************\r
   3 '* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.\r
   4 '* \r
   5 '* Copyright 2008 by Sun Microsystems, Inc.\r
   6 '*\r
   7 '* OpenOffice.org - a multi-platform office productivity suite\r
   8 '*\r
   9 '* $RCSfile: misc_RegisterDatabase.inc,v $\r
  10 '*\r
  11 '* $Revision: 1.1 $\r
  12 '*\r
  13 '* last change: $Author: jsi $ $Date: 2008/06/16 07:43:42 $\r
  14 '*\r
  15 '* This file is part of OpenOffice.org.\r
  16 '*\r
  17 '* OpenOffice.org is free software: you can redistribute it and/or modify\r
  18 '* it under the terms of the GNU Lesser General Public License version 3\r
  19 '* only, as published by the Free Software Foundation.\r
  20 '*\r
  21 '* OpenOffice.org is distributed in the hope that it will be useful,\r
  22 '* but WITHOUT ANY WARRANTY; without even the implied warranty of\r
  23 '* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the\r
  24 '* GNU Lesser General Public License version 3 for more details\r
  25 '* (a copy is included in the LICENSE file that accompanied this code).\r
  26 '*\r
  27 '* You should have received a copy of the GNU Lesser General Public License\r
  28 '* version 3 along with OpenOffice.org.  If not, see\r
  29 '* <http://www.openoffice.org/license.html>\r
  30 '* for a copy of the LGPLv3 License.\r
  31 '*\r
  32 '/************************************************************************\r
  33 '*\r
  34 '* owner : marc.neumann@sun.com\r
  35 '*\r
  36 '* short description : macros in databases\r
  37 '*\r
  38 '\***********************************************************************\r
  39 \r
  40 sub misc_Macros\r
  41 \r
  42         printlog "------------------- misc_Macros.inc ------------------------"\r
  43        \r
  44     call tMacros\r
  45     \r
  46 end sub\r
  47 '-------------------------------------------------------------------------\r
  48 testcase tMacros\r
  49    \r
  50     hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW )\r
  51 \r
  52     dim sFileName as String\r
  53     sFileName = ConvertPath(gOfficePath + "/user/work/hsql_macros_in_subdocument.odb")\r
  54     app.FileCopy ConvertPath(gTesttoolPath + "/dbaccess/optional/input/hsql_datasource/hsql_macros_in_subdocument.odb"), ConvertPath(gOfficePath + "/user/work/hsql_macros_in_subdocument.odb")\r
  55 \r
  56     ' delete the backup file\r
  57     if fileexists(sFileName + "backup.odb") then\r
  58         app.kill sFileName + "backup.odb"\r
  59     endif\r
  60     \r
  61     FileOpen\r
  62     sleep (1)\r
  63     Kontext "OeffnenDlg"\r
  64     '/// open the given file\r
  65     printlog "open the file: " + sFileName\r
  66     Dateiname.SetText sFileName\r
  67     sleep (3)\r
  68     Oeffnen.Click\r
  69     sleep (3)\r
  70     \r
  71     printlog "check if the subdocument contains macros dialog appear"\r
  72     Kontext "MessageBox"\r
  73     if (MessageBox.exists(1)) then\r
  74         MessageBox.OK\r
  75     else\r
  76         warnlog "the subdocument contains macros dialog does not appear"\r
  77     endif\r
  78     \r
  79     MigrateMacros\r
  80     \r
  81     WaitSlot(10)\r
  82     \r
  83     Kontext "MacroMigration"\r
  84     if not (MacroMigration.exists(1)) then        \r
  85         warnlog "MacroMigration wizard does not appear"\r
  86     endif\r
  87 \r
  88     NextButton.click\r
  89     \r
  90     DatabaseFile.settext sFileName + "backup.odb"\r
  91     \r
  92         NextButton.click\r
  93         sleep(20)\r
  94     MacroMigration.OK\r
  95     \r
  96     call fCloseDatabase\r
  97     \r
  98     printlog "open the database again to see if the message box appear again"\r
  99 \r
 100     FileOpen\r
 101     sleep (1)\r
 102     Kontext "OeffnenDlg"\r
 103     '/// open the given file\r
 104     printlog "open the file: " + sFileName\r
 105     Dateiname.SetText sFileName\r
 106     sleep (3)\r
 107     Oeffnen.Click\r
 108     sleep (3)\r
 109     \r
 110     Kontext "MessageBox"\r
 111     if (MessageBox.exists(1)) then\r
 112         warnlog "MessageBox about macros appear. Should not after migration."\r
 113     else\r
 114                 'nothing\r
 115     endif\r
 116     \r
 117     call fCloseDatabase\r
 118     \r
 119     hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )\r
 120     \r
 121 endcase    \r