i115985: [Automation]: wipe off last old comments

testautomation/graphics/optional/includes/global/g_arrangealign.inc

@@ -41,15 +41,15 @@ testcase tiDatei_Fuer_Anordnen_Erstellen
     call hNewDocument
     if gApplication = "DRAW" then
         kontext "DocumentDraw"
-        DocumentDraw.UseMenu
     else
         kontext "DocumentImpress"
         DocumentImpress.UseMenu
-    end if
-    
         hMenuSelectNr(4)
         hMenuSelectNr(13)
         call sSelectEmptyLayout
+    end if
+    
+    								
     if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file
     printlog "create 3 overlapping objects "
     for Zaehler = 1 to 3

testautomation/graphics/optional/includes/global/g_clipboard.inc

@@ -136,7 +136,6 @@ testcase tiEditUndo
     else
         warnlog "File is missing."
     endif
-    Call hCloseDocument	
 
     printlog "Close document"
     Call hCloseDocument						

testautomation/graphics/optional/includes/global/g_tables.inc

@@ -40,6 +40,9 @@ dim iItemIndex AS integer           'Counter for/next
 
 testcase tiInsertTableUsingMenu
 
+qaerrorlog "#i116013# No table toolbar when inserting table via insert/table"
+goto endsub
+
     printlog "Inserting table into doc using the menu."
     Call hNewDocument
     printlog "Switching between Draw/Impress"
@@ -60,6 +63,7 @@ testcase tiInsertTableUsingMenu
     Kontext "InsertTableImpress"
     if InsertTableImpress.Exists then
         printlog "InsertTable Dialog is up."
+        InsertTableImpress.OK
     else
         warnlog "InsertTableDialog did not come up!"
     endif
@@ -125,6 +129,9 @@ endcase 'tiInsertTableUsingMenu
 
 testcase tiInsertTableUsingButton
 
+qaerrorlog "#i116013# No table toolbar when inserting table via insert/table"
+goto endsub
+
     printlog " Inserting table using the button in standard toolbar."
     Call hNewDocument
     printlog "Open New Document."
@@ -204,6 +211,9 @@ endcase 'tiInsertTableUsingToolbarbutton
 '-------------------------------------------------------------------------------
 testcase tiTableObjectBar
 
+qaerrorlog "#i116013# No table toolbar when inserting table via insert/table"
+goto endsub
+
     printlog "Testing TableObjectBar."
     printlog "Inserting table into doc using the menu."
     Call hNewDocument
@@ -244,6 +254,7 @@ testcase tiTableObjectBar
         printlog "Table bar visible."
     else
         warnlog "Table bar is not up!"
+        ViewToolbarsTable
     endif
 
     printlog "Checking LinienStil."

testautomation/graphics/optional/includes/global/g_tools.inc

@@ -459,11 +459,16 @@ endcase 'tiToolsHyphenation2
 '-------------------------------------------------------------------------------
 testcase tToolsMacro
 
+qaerrorlog( "#i116017# - [Automation]: TypeKeys executes wrong commands" )
+    goto endsub
+
+
     Dim i as integer
     Dim j as integer
     Dim Zaehler as integer
     Dim ZaehlerListe as integer
 
+    printlog "New document"
     Call hNewDocument
 
     ToolsMacro
@@ -474,7 +479,9 @@ testcase tToolsMacro
         Zaehler=MakroAus.GetItemCount
         MakroAus.typeKeys "<end>"
         for i = 1 to Zaehler
-            MakroAus.typeKeys "<+><up>"
+            MakroAus.typeKeys "<+>"
+            sleep 1
+            MakroAus.typeKeys "<up>"
         next i
     next j
     Zaehler=MakroAus.GetItemCount