diff options
author | Thomas Lange [tl] <tl@openoffice.org> | 2010-08-05 17:16:04 +0200 |
---|---|---|
committer | Thomas Lange [tl] <tl@openoffice.org> | 2010-08-05 17:16:04 +0200 |
commit | b980c014e3d19450a169347243c7609b63864b9a (patch) | |
tree | f74a8b7f338402c09462784f9d3b86eb1c292451 /testautomation/framework/optional/includes/basic_gridcontrol.inc | |
parent | 924eab5afc99b0b0ecfa76ac4606a058e0d67328 (diff) | |
parent | 7bbf7ff48ffcd5a6dcfc46c31d95df33c360e4ee (diff) |
cws tl82: merge with DEV300_m86
Diffstat (limited to 'testautomation/framework/optional/includes/basic_gridcontrol.inc')
-rwxr-xr-x | testautomation/framework/optional/includes/basic_gridcontrol.inc | 40 |
1 files changed, 17 insertions, 23 deletions
diff --git a/testautomation/framework/optional/includes/basic_gridcontrol.inc b/testautomation/framework/optional/includes/basic_gridcontrol.inc index b23e2318d657..181bd2aa9b1f 100755 --- a/testautomation/framework/optional/includes/basic_gridcontrol.inc +++ b/testautomation/framework/optional/includes/basic_gridcontrol.inc @@ -25,33 +25,29 @@ ' '/************************************************************************ '* -'* owner : thorsten.bosbach@sun.com +'* owner : thorsten.bosbach@oracle.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 + + const MACRO_NAME = "VclTestTool" + const MACRO_NOT_FOUND = 0 + const FILE_NAME = "framework/optional/input/gridcontrol.odt" + + dim iPos as integer - sLocation = "framework/optional/include/basic_gridcontrol.inc::" + printlog( "Open the test document: " & FILE_NAME ) + call hFileOpen( gTestToolPath & FILE_NAME ) - hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_LOW ) + printlog( "Open the <Run Macro> dialog" ) + ToolsMacrosRunMacro - 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( "Find the document, its library and the test macro, run the macro" ) + Kontext "ScriptSelector" + if ( ScriptSelector.exists( 10 ) ) then printlog "Start the macro, that performs the test" Kontext "GridControlDialogStarter" @@ -100,11 +96,9 @@ testcase tGridcontrolLoad warnlog "Gridcontrol Dialog did not come up after pressing button" endif - printlog "clean up" - printlog "Close the document, else an error about the navigator will be thrown" - if getDocumentcount > 0 then - call hCloseDocument() - endif + printlog( "Test exit, cleanup" ) + hFileCloseAll() + endcase |