summaryrefslogtreecommitdiff
path: root/testautomation/framework/optional
diff options
context:
space:
mode:
authorJoerg Skottke [jsk] <jsk@openoffice.org>2010-10-14 14:31:58 +0200
committerJoerg Skottke [jsk] <jsk@openoffice.org>2010-10-14 14:31:58 +0200
commit41f422bc53bfee4fe464db4f1ed8fc29b88f913d (patch)
treed724c3bf5a92e99350adabd77cffc5bb3e5f1d2e /testautomation/framework/optional
parentf6f49488906e4f204a4b08a039cdd5020ab3f391 (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.inc90
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