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