diff options
author | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-10-14 14:31:58 +0200 |
---|---|---|
committer | Joerg Skottke [jsk] <jsk@openoffice.org> | 2010-10-14 14:31:58 +0200 |
commit | 41f422bc53bfee4fe464db4f1ed8fc29b88f913d (patch) | |
tree | d724c3bf5a92e99350adabd77cffc5bb3e5f1d2e /testautomation/framework/optional | |
parent | f6f49488906e4f204a4b08a039cdd5020ab3f391 (diff) |
automationdev300m87: #i112208 - Gridcontrol test needs readonly file. There is another problem which prevents the test from running but this is not going to get fixed here.
Diffstat (limited to 'testautomation/framework/optional')
-rw-r--r--[-rwxr-xr-x] | testautomation/framework/optional/includes/basic_gridcontrol.inc | 90 |
1 files changed, 46 insertions, 44 deletions
diff --git a/testautomation/framework/optional/includes/basic_gridcontrol.inc b/testautomation/framework/optional/includes/basic_gridcontrol.inc index 181bd2aa9b1f..54bc9a0e1ae8 100755..100644 --- a/testautomation/framework/optional/includes/basic_gridcontrol.inc +++ b/testautomation/framework/optional/includes/basic_gridcontrol.inc @@ -38,9 +38,9 @@ testcase tGridcontrolLoad const FILE_NAME = "framework/optional/input/gridcontrol.odt" dim iPos as integer - + printlog( "Open the test document: " & FILE_NAME ) - call hFileOpen( gTestToolPath & FILE_NAME ) + call hFileOpenLocally( gTestToolPath & FILE_NAME ) printlog( "Open the <Run Macro> dialog" ) ToolsMacrosRunMacro @@ -49,56 +49,58 @@ testcase tGridcontrolLoad Kontext "ScriptSelector" if ( ScriptSelector.exists( 10 ) ) then - printlog "Start the macro, that performs the test" - Kontext "GridControlDialogStarter" - ' FAILS IF DOCUMENT IS READONLY.... - ShowGridcontrol.typeKeys "<space>" - Kontext "GridControlDialog" - if GridControlDialog.exists(5) then - for i=1 to gridcontrolcontrol.getcolumncount - for a=1 to gridcontrolcontrol.getrowcount - printlog " " + i + ":"+a+": '" + gridcontrolcontrol.getitemtype (i,a) + "' '" + gridcontrolcontrol.getitemtext (i,a) + "'" - next a - next i - gridcontrolcontrol.select 5 - - kontext - if active.exists(5) then - printlog active.gettext - active.ok - else - warnlog "No selection Event by .select" - endif + printlog "Start the macro, that performs the test" + Kontext "GridControlDialogStarter" + ' FAILS IF DOCUMENT IS READONLY.... + ShowGridcontrol.typeKeys "<space>" + Kontext "GridControlDialog" + if GridControlDialog.exists(5) then + for i=1 to gridcontrolcontrol.getcolumncount + for a=1 to gridcontrolcontrol.getrowcount + printlog " " + i + ":"+a+": '" + gridcontrolcontrol.getitemtype (i,a) + "' '" + gridcontrolcontrol.getitemtext (i,a) + "'" + next a + next i + gridcontrolcontrol.select 5 - Kontext "GridControlDialog" - gridcontrolcontrol.typeKeys("<down>") + kontext + if active.exists(5) then + printlog active.gettext + active.ok + else + warnlog "No selection Event by .select" + endif - kontext - if active.exists(5) then - printlog active.gettext - active.ok - else - warnlog "No selection event by .typeKeys <down>" - endif - Kontext "GridControlDialog" - gridcontrolcontrol.typeKeys("<up>") - kontext - if active.exists(5) then - printlog active.gettext - active.ok + Kontext "GridControlDialog" + gridcontrolcontrol.typeKeys("<down>") + + kontext + if active.exists(5) then + printlog active.gettext + active.ok + else + warnlog "No selection event by .typeKeys <down>" + endif + Kontext "GridControlDialog" + gridcontrolcontrol.typeKeys("<up>") + kontext + if active.exists(5) then + printlog active.gettext + active.ok + else + warnlog "No selection event by .typeKeys <up>" + endif + + Kontext "GridControlDialog" + GridControlDialog.close else - warnlog "No selection event by .typeKeys <up>" + warnlog "Gridcontrol Dialog did not come up after pressing button" endif - Kontext "GridControlDialog" - GridControlDialog.close - else - warnlog "Gridcontrol Dialog did not come up after pressing button" endif - + printlog( "Test exit, cleanup" ) hFileCloseAll() - + endcase |