CWS-TOOLING: integrate CWS gridcontrol_02
This commit is contained in:
Kurt Zenker
commit
f9c0f85a03
3 changed files with 192 additions and 0 deletions
55
testautomation/framework/optional/f_basic_gridcontrol.bas
Executable file
55
testautomation/framework/optional/f_basic_gridcontrol.bas
Executable file
|
|
@ -0,0 +1,55 @@
|
|||
'encoding UTF-8 Do not remove or change this line!
|
||||
'*******************************************************************************
|
||||
'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
||||
'*
|
||||
'* Copyright 2008 by Sun Microsystems, Inc.
|
||||
'*
|
||||
'* OpenOffice.org - a multi-platform office productivity suite
|
||||
'*
|
||||
'* $RCSfile: gridcontrol.bas,v $
|
||||
'*
|
||||
'* $Revision: 1.3 $
|
||||
'*
|
||||
'* last change: $Author: jsk $ $Date: 2008/06/20 08:07:03 $
|
||||
'*
|
||||
'* 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 : thorsten.bosbach@sun.com
|
||||
'*
|
||||
'* short description : test availablity of gridcontrol
|
||||
'*
|
||||
'\******************************************************************************
|
||||
|
||||
sub main
|
||||
use "framework\optional\includes\basic_gridcontrol.inc"
|
||||
call hStatusIn ("framework", "f_basic_gridcontrol.bas")
|
||||
printlog "Load Document with gridcontrol"
|
||||
call tGridcontrolLoad
|
||||
hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT )
|
||||
call hStatusOut
|
||||
end sub
|
||||
|
||||
sub LoadIncludeFiles
|
||||
use "global\system\includes\master.inc"
|
||||
use "global\system\includes\gvariabl.inc"
|
||||
gApplication = "WRITER"
|
||||
call GetUseFiles()
|
||||
end sub
|
||||
|
||||
137
testautomation/framework/optional/includes/basic_gridcontrol.inc
Executable file
137
testautomation/framework/optional/includes/basic_gridcontrol.inc
Executable file
|
|
@ -0,0 +1,137 @@
|
|||
'encoding UTF-8 Do not remove or change this line!
|
||||
'**************************************************************************
|
||||
'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
|
||||
'*
|
||||
'* Copyright 2008 by Sun Microsystems, Inc.
|
||||
'*
|
||||
'* OpenOffice.org - a multi-platform office productivity suite
|
||||
'*
|
||||
'* $RCSfile: gridcontrol.inc,v $
|
||||
'*
|
||||
'* $Revision: 1.2 $
|
||||
'*
|
||||
'* last change: $Author: rt $ $Date: 2008/07/10 15:39:30 $
|
||||
'*
|
||||
'* 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 : thorsten.bosbach@sun.com
|
||||
'*
|
||||
'* short description : gridcontrol
|
||||
'*
|
||||
'\******************************************************************************
|
||||
|
||||
testcase tGridcontrolLoad
|
||||
dim sLocation as string
|
||||
dim i,x,a as integer
|
||||
dim sTemp as string
|
||||
dim lFiles(200) as string
|
||||
dim bTemp as boolean
|
||||
dim iError, iOK as integer
|
||||
|
||||
sLocation = "framework/optional/include/basic_gridcontrol.inc::"
|
||||
|
||||
hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW )
|
||||
|
||||
printlog "Open the test document"
|
||||
call hFileOpen(convertPath(gTestToolPath + "framework/optional/input/gridcontrol.odt"))
|
||||
printlog "Security dialog might come up"
|
||||
kontext "SecurityWarning"
|
||||
if SecurityWarning.exists(5) then
|
||||
printlog "Allow to run macros"
|
||||
SecurityWarning.ok
|
||||
endif
|
||||
call sleep 1
|
||||
|
||||
printlog "Start the macro, that performs the test"
|
||||
printlog "Tools->Macros->Run Macro..."
|
||||
ToolsMacrosRunMacro
|
||||
Kontext "ScriptSelector"
|
||||
if ScriptSelector.exists(10) then
|
||||
x = LibraryTreeList.getItemCount
|
||||
printlog "Look for library 'gridcontrol'"
|
||||
for i = 1 to x
|
||||
sTemp = LibraryTreeList.getItemText(i)
|
||||
'printlog "("+i+"/"+x+"): '" + sTemp + "'"
|
||||
if (instr(sTemp,"gridcontrol")>0 OR instr(sTemp,"GRIDCONTROL")) then
|
||||
a = i
|
||||
printlog "Found library ("+i+"/"+x+"): '" + sTemp + "'"
|
||||
endif
|
||||
next i
|
||||
if 0 <> a then
|
||||
printlog "Select the library and unfold it"
|
||||
LibraryTreeList.select(a)
|
||||
LibraryTreeList.typeKeys("+")
|
||||
printlog "Go to 'Standard' and unfold"
|
||||
LibraryTreeList.typeKeys("<down>")
|
||||
LibraryTreeList.typeKeys("+")
|
||||
printlog "Go to 'Module1'"
|
||||
LibraryTreeList.typeKeys("<down>")
|
||||
|
||||
printlog "Select macro name 'VclTestTool'"
|
||||
x = ScriptList.getItemCount
|
||||
for i = 1 to x
|
||||
sTemp = ScriptList.getItemText(i)
|
||||
'printlog "("+i+"/"+x+"): '" + sTemp + "'"
|
||||
if "VclTestTool" = sTemp then
|
||||
a = i
|
||||
printlog "Found macro ("+i+"/"+x+"): '" + sTemp + "'"
|
||||
endif
|
||||
next i
|
||||
if (0 <> a) then
|
||||
printlog "Select the macro"
|
||||
ScriptList.select(a)
|
||||
printlog "Start the macro by pressing the button 'run'"
|
||||
ScriptSelector.ok
|
||||
printlog "sleep... at least 60 seconds"
|
||||
call sleep(60)
|
||||
printlog "If macro fails for whatever reason, a message comes up"
|
||||
Kontext
|
||||
if active.exists() then
|
||||
warnlog "" + active.getText
|
||||
active.ok
|
||||
try
|
||||
EditCopy
|
||||
warnlog getclipboard()
|
||||
catch
|
||||
endcatch
|
||||
printlog "close basic ide"
|
||||
call hCloseDocument()
|
||||
printlog "close document"
|
||||
call hCloseDocument()
|
||||
goto endsub
|
||||
endif
|
||||
|
||||
else
|
||||
warnlog sLocation + "Macro not found: 'Main'"
|
||||
endif
|
||||
else
|
||||
warnlog sLocation + "Library not found: 'gridcontrol'"
|
||||
endif
|
||||
else
|
||||
warnlog sLocation + "'Run macro dialog' didn't came up"
|
||||
endif
|
||||
|
||||
printlog "clean up"
|
||||
printlog "Close the document, else an error about the navigator will be thrown"
|
||||
if getDocumentcount > 0 then
|
||||
call hCloseDocument()
|
||||
endif
|
||||
endcase
|
||||
|
||||
BIN
testautomation/framework/optional/input/gridcontrol.odt
Executable file
BIN
testautomation/framework/optional/input/gridcontrol.odt
Executable file
Binary file not shown.
Loading…
Reference in a new issue