1 files changed, 33 insertions, 0 deletions
diff --git a/testautomation/framework/optional/includes/basic_gridcontrol.inc b/testautomation/framework/optional/includes/basic_gridcontrol.inc
index f2d2f74cbdd4..b23e2318d657 100755
--- a/testautomation/framework/optional/includes/basic_gridcontrol.inc
+++ b/testautomation/framework/optional/includes/basic_gridcontrol.inc
@@ -55,6 +55,7 @@ testcase tGridcontrolLoad
 
     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
@@ -63,6 +64,37 @@ testcase tGridcontrolLoad
             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
+
+    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 "Gridcontrol Dialog did not come up after pressing button"
@@ -75,3 +107,4 @@ testcase tGridcontrolLoad
     endif
 endcase
 
+