From 060633b4b06eb5c64c2710cb6df3027d411b8f7f Mon Sep 17 00:00:00 2001 From: Lars Langhans Date: Thu, 18 Nov 2010 13:53:40 +0100 Subject: rpttestcleanup01: #115649# fix for graphical compare tests in odb report designer documents --- .../OpenOfficeDatabaseReportExtractor.java | 21 ++++++++++++++------- qadevOOo/runner/org/openoffice/Runner.java | 2 +- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/qadevOOo/runner/graphical/OpenOfficeDatabaseReportExtractor.java b/qadevOOo/runner/graphical/OpenOfficeDatabaseReportExtractor.java index a0592d5ce143..c42a437028fc 100644 --- a/qadevOOo/runner/graphical/OpenOfficeDatabaseReportExtractor.java +++ b/qadevOOo/runner/graphical/OpenOfficeDatabaseReportExtractor.java @@ -373,13 +373,20 @@ public class OpenOfficeDatabaseReportExtractor extends Assurance { String sReportName = sElementNames[i]; XComponent xDoc = loadComponent(sReportName, _xNameAccess, _aPropertyList); -// util.utils.shortWait(1000); - // print? or store? - String sDocumentPathName = storeComponent(sReportName, xDoc /*, _nType*/); - aList.add(sDocumentPathName); -// util.utils.shortWait(1000); - closeComponent(xDoc); -// util.utils.shortWait(1000); + if (xDoc != null) + { + // util.utils.shortWait(1000); + // print? or store? + String sDocumentPathName = storeComponent(sReportName, xDoc /*, _nType*/); + aList.add(sDocumentPathName); + // util.utils.shortWait(1000); + closeComponent(xDoc); + // util.utils.shortWait(1000); + } + else + { + System.out.println("Leave out maybe due to errors."); + } // sBackPath contains the path where to find the extracted ODB Document } } diff --git a/qadevOOo/runner/org/openoffice/Runner.java b/qadevOOo/runner/org/openoffice/Runner.java index f6397deb3e2b..ca995bc9b4f4 100644 --- a/qadevOOo/runner/org/openoffice/Runner.java +++ b/qadevOOo/runner/org/openoffice/Runner.java @@ -184,7 +184,7 @@ public class Runner public static boolean run(String... args) { - System.out.println("OOoRunner Main() version from 20100922 (yyyymmdd)"); + System.out.println("OOoRunner Main() version from 20101118 (yyyymmdd)"); setStartTime(getTime()); -- cgit v1.2.3 From 281cf7b248ec45d161629bb081d7dab80dea143b Mon Sep 17 00:00:00 2001 From: Thorsten Bosbach Date: Wed, 1 Dec 2010 13:56:33 +0100 Subject: #i115864# change file list count --- testautomation/extensions/required/includes/e_update.inc | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/testautomation/extensions/required/includes/e_update.inc b/testautomation/extensions/required/includes/e_update.inc index e563b5ae3a45..573ec3a2f903 100644 --- a/testautomation/extensions/required/includes/e_update.inc +++ b/testautomation/extensions/required/includes/e_update.inc @@ -44,7 +44,7 @@ testcase tExtensionManagerResources() dim iFilterItems as integer const MAX_ITERATIONS = 50 - const FILTER_ITEMS = 9 ' This is the number of filters/extension types we know + const FILTER_ITEMS = 10 ' This is the number of filters/extension types we know printlog( "Ressource test for the Extension Manager UI" ) ToolsPackageManager @@ -76,6 +76,16 @@ testcase tExtensionManagerResources() warnlog( "The file type filter list is incorrect" ) printlog( "Expected: " & FILTER_ITEMS ) printlog( "Found...: " & iFilterItems ) + '0: All files (*.*) + '1: Configuration Data + '2: Configuration Schema + '3: Extension + '4: UNO Components + '5: UNO Dynamic Library Component + '6: UNO Java Component + '7: UNO Java Type Library + '8: UNO Python Component + '9: UNO RDB Type Library else printlog( "The number of filters in Add Extensions Dialog is ok" ) endif -- cgit v1.2.3 From a95b59d83a28a7a92659b0743fea876c46713c15 Mon Sep 17 00:00:00 2001 From: Thorsten Bosbach Date: Thu, 2 Dec 2010 12:11:53 +0100 Subject: #i115865# cancel button is now a close button --- testautomation/extensions/required/includes/e_update.inc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/testautomation/extensions/required/includes/e_update.inc b/testautomation/extensions/required/includes/e_update.inc index e563b5ae3a45..783d10e35ef7 100644 --- a/testautomation/extensions/required/includes/e_update.inc +++ b/testautomation/extensions/required/includes/e_update.inc @@ -91,7 +91,7 @@ testcase tExtensionManagerResources() kontext "ExtensionUpdate" if ( ExtensionUpdate.exists( 2 ) ) then call dialogtest( ExtensionUpdate ) - ExtensionUpdate.cancel() + ExtensionUpdate.close() ExtensionUpdate.notExists( 3 ) else warnlog( "Extenson Update dialog did not open" ) -- cgit v1.2.3 From 87d0e0c7936764bbee026879cb162733e7dbe203 Mon Sep 17 00:00:00 2001 From: Thorsten Bosbach Date: Thu, 2 Dec 2010 13:00:11 +0100 Subject: #i115865# cancel button is now a close button --- testautomation/extensions/optional/includes/online_update.inc | 2 +- testautomation/extensions/optional/includes/publisher.inc | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) mode change 100755 => 100644 testautomation/extensions/optional/includes/online_update.inc mode change 100755 => 100644 testautomation/extensions/optional/includes/publisher.inc diff --git a/testautomation/extensions/optional/includes/online_update.inc b/testautomation/extensions/optional/includes/online_update.inc old mode 100755 new mode 100644 index 24739132beaa..ce3da2df0622 --- a/testautomation/extensions/optional/includes/online_update.inc +++ b/testautomation/extensions/optional/includes/online_update.inc @@ -82,7 +82,7 @@ testcase tExtensionUpdate kontext "ExtensionUpdate" if ( ExtensionUpdate.exists() ) then printlog( "Close update-dialog. Good." ) - ExtensionUpdate.cancel() + ExtensionUpdate.close() else warnlog( "Extension update dialog is missing" ) endif diff --git a/testautomation/extensions/optional/includes/publisher.inc b/testautomation/extensions/optional/includes/publisher.inc old mode 100755 new mode 100644 index 739b28edaef8..4fec6ab1bab2 --- a/testautomation/extensions/optional/includes/publisher.inc +++ b/testautomation/extensions/optional/includes/publisher.inc @@ -155,7 +155,7 @@ testcase tExtensionPublisher warnlog( "Update list for extensions is stalled (expected: 7), " & _ "found: " & AvailableUpdatesList.getItemCount() ) kontext "ExtensionUpdate" - ExtensionUpdate.cancel() + ExtensionUpdate.close() ExtensionUpdate.notExists( 2 ) kontext "PackageManager" PackageManager.cancel() @@ -258,7 +258,7 @@ testcase tExtensionPublisher endif kontext "ExtensionUpdate" - ExtensionUpdate.cancel() + ExtensionUpdate.close() ExtensionUpdate.notExists( 2 ) else warnlog( "Extension Update dialog is not open" ) -- cgit v1.2.3 From f9048c95f462f7a49e99904f3260b1c8edfa4da3 Mon Sep 17 00:00:00 2001 From: "Wolfram Garten [wg]" Date: Wed, 8 Dec 2010 10:27:28 +0100 Subject: i115985: [Automation]: wipe off last old comments --- .../optional/includes/global/g_arrangealign.inc | 2 +- .../optional/includes/global/g_character.inc | 16 +++++----- .../optional/includes/global/g_clipboard.inc | 8 ++--- .../graphics/optional/includes/global/g_line.inc | 2 +- .../optional/includes/impress/i_pengine.inc | 1 - .../optional/includes/impress/i_slidelayer.inc | 34 +++++++++++----------- .../optional/includes/impress/i_slideshow.inc | 6 ++-- .../optional/includes/impress/i_slideshow3.inc | 2 +- 8 files changed, 35 insertions(+), 36 deletions(-) diff --git a/testautomation/graphics/optional/includes/global/g_arrangealign.inc b/testautomation/graphics/optional/includes/global/g_arrangealign.inc index 1023ab88fd0a..1c1b39f22207 100644 --- a/testautomation/graphics/optional/includes/global/g_arrangealign.inc +++ b/testautomation/graphics/optional/includes/global/g_arrangealign.inc @@ -49,7 +49,7 @@ testcase tiDatei_Fuer_Anordnen_Erstellen hMenuSelectNr(4) hMenuSelectNr(13) - call sSelectEmptyLayout '/// new document ///' + call sSelectEmptyLayout if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file printlog "create 3 overlapping objects " for Zaehler = 1 to 3 diff --git a/testautomation/graphics/optional/includes/global/g_character.inc b/testautomation/graphics/optional/includes/global/g_character.inc index 8d58263c74d4..a1ee4285036b 100644 --- a/testautomation/graphics/optional/includes/global/g_character.inc +++ b/testautomation/graphics/optional/includes/global/g_character.inc @@ -404,35 +404,35 @@ testcase tSetFormatCharacter Call hNewDocument printlog "activate all languages in options " - '///+ Tools->Options " + printlog " Tools->Options " ToolsOptions - '///+ select tabpage 'Languages' from set 'Language Settings' " + printlog " select tabpage 'Languages' from set 'Language Settings' " hToolsOptions("LANGUAGESETTINGS","Languages") kontext "TabSprachen" - '///+ save state and check checkbox 'Asian languages support' " + printlog " save state and check checkbox 'Asian languages support' " printlog "if the language is Asian, skip this part " printlog "iSprache = " + iSprache if bAsianLan = FALSE then bAsian = Aktivieren.isEnabled Aktivieren.check endif - '///+ save state and check checkbox 'Complex text layout (CTL) support' " + printlog " save state and check checkbox 'Complex text layout (CTL) support' " bComplex = ComplexScriptEnabled.isEnabled ComplexScriptEnabled.check - '///+ close dialog 'Options' with OK " + printlog "close dialog 'Options' with OK " Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK printlog "get count of languages " - '///+ Format->Character " + printlog " Format->Character " FormatCharacter sleep 1 Kontext - '///+ switch to tabpage 'Font' " + printlog "switch to tabpage 'Font' " Messagebox.SetPage TabFont kontext "TabFont" sleep 1 - '///+ get count of languages for Western/Asian/CTL fonts " + printlog " get count of languages for Western/Asian/CTL fonts " iWest = LanguageWest.getItemCount iAsian = LanguageEast.getItemCount iComplex = LanguageCTL.getItemCount diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc index 70b387581329..15635d019de0 100644 --- a/testautomation/graphics/optional/includes/global/g_clipboard.inc +++ b/testautomation/graphics/optional/includes/global/g_clipboard.inc @@ -259,14 +259,14 @@ testcase tiEditClipboard printlog "Get values for position variables" Ueber_Text_4 = fGetPositionX() Sleep 1 - printlog " Edit->Copy " + printlog " Edit->Copy" EditCopy - '///+ Type Key [Deletee]" + printlog " Type Key [Delete]" hTypeKeys "" - '///+ Edit->Paste " + printlog "Edit->Paste" EditPaste sleep 1 - '///+ Edit->Select All" + printlog "Edit->Select All" EditSelectAll sTemp = fGetPositionX() printlog "TabPositionAndSize: comparing position with original position" diff --git a/testautomation/graphics/optional/includes/global/g_line.inc b/testautomation/graphics/optional/includes/global/g_line.inc index 2a6d5b315f89..eb672b3b9716 100644 --- a/testautomation/graphics/optional/includes/global/g_line.inc +++ b/testautomation/graphics/optional/includes/global/g_line.inc @@ -325,7 +325,7 @@ ZentriertLinks.Check TabLinienenden.Cancel sleep 2 - '///New part for line + 'New part for line 'EditSelectAll printlog "Select all objects in document" 'sleep 2 'hTypeKeys "" printlog "Delete objects" diff --git a/testautomation/graphics/optional/includes/impress/i_pengine.inc b/testautomation/graphics/optional/includes/impress/i_pengine.inc index aed79a6ce827..2374ff28f572 100644 --- a/testautomation/graphics/optional/includes/impress/i_pengine.inc +++ b/testautomation/graphics/optional/includes/impress/i_pengine.inc @@ -210,7 +210,6 @@ testcase tSlideShowInteraction setStartCurrentPage(FALSE) printlog "Set "start with current page to OFF" printlog "call 'Insert->Slide' three times and name the slides 2, 3, 4 and create a rectangle on it " - '///+ we now have 4 slides ?! :-)" for i = 2 to 4 InsertSlide sleep 2 diff --git a/testautomation/graphics/optional/includes/impress/i_slidelayer.inc b/testautomation/graphics/optional/includes/impress/i_slidelayer.inc index 724aaa8b70a4..508394144663 100644 --- a/testautomation/graphics/optional/includes/impress/i_slidelayer.inc +++ b/testautomation/graphics/optional/includes/impress/i_slidelayer.inc @@ -49,23 +49,23 @@ testcase tiInsertExpandSlide ViewWorkspaceOutlineView Sleep 1 Kontext "DocumentImpressOutlineView" - '///+ create a slide with some levels...and some more slides with just one level... " - '///+ it should look like this: " - '///+-------------------------------------------------- " - '///+ Slide 1" - '///+ - A " - '///+ - - B" - '///+ - - - C" - '///+ - - - - D" - '///+ - - - - - - F" - '///+ - B" - '///+ - C" - '///+ - D" - '///+ Slide 2 " - '///+ Slide 3 " - '///+ Slide 4 " - '///+ Slide 5 " - '///+-------------------------------------------------- " + 'create a slide with some levels...and some more slides with just one level... " + 'it should look like this: " + '-------------------------------------------------- " + 'Slide 1" + ' - A " + '- - B" + ' - - - C" + ' - - - - D" + ' - - - - - - F" + ' - B" + ' - C" + ' - D" + ' Slide 2 " + ' Slide 3 " + ' Slide 4 " + ' Slide 5 " + '-------------------------------------------------- " DocumentImpressOutlineView.TypeKeys "Slide 1" for i = 1 to 6 DocumentImpressOutlineView.TypeKeys "" diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow.inc b/testautomation/graphics/optional/includes/impress/i_slideshow.inc index 2c51a83a509a..da96b13cc47d 100644 --- a/testautomation/graphics/optional/includes/impress/i_slideshow.inc +++ b/testautomation/graphics/optional/includes/impress/i_slideshow.inc @@ -1092,7 +1092,7 @@ testcase tSlideShowSlideTransition select case i case 1: printlog " click button 'Automatic Transition' " if (TransitionAutomaticallyAfter.IsEnabled) then - '///+ - + + Check Time '1' OR " + printlog " Check Time '1' OR " sTemp = TransitionAutomaticallyAfterTime.GetText if (sTemp <> TimerValue) then Warnlog " Time is different :-( is: '" + sTemp + "' should be: '" + TimerValue + "'" '"00:00:01" @@ -1101,11 +1101,11 @@ testcase tSlideShowSlideTransition Warnlog " button 'Automatic Transition' not pressed ?" end if case 2: if (TransitionAutomaticallyAfter.IsChecked <> FALSE) then - '///+ - + check button 'SemiAutomatic Transition' OR " + printlog " check button 'SemiAutomatic Transition' OR " Warnlog " button 'Automatic Transition' is pressed ?" end if case 3: if (TransitionAutomaticallyAfter.IsChecked <> FALSE) then - '///+ - + click button 'Manual Transition' " + printlog "click button 'Manual Transition' " Warnlog " button 'Automatic Transition' is pressed ?" end if end select diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc index 07ac2f0d9def..52858e22e7cf 100644 --- a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc +++ b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc @@ -560,7 +560,7 @@ testcase tExtrasPraesentationseinstellungen printlog " Check state of navigator ! Expected: closed" Kontext "Navigator" if Navigator.exists then - '///+ Close Navigator !" + printlog " Close Navigator !" Navigator.Close Warnlog "Navigator: Should have been closed. Closing now." else -- cgit v1.2.3 From 5ef2347dd63d39a9e8ddc6efbc4b2019751ac541 Mon Sep 17 00:00:00 2001 From: "Wolfram Garten [wg]" Date: Wed, 8 Dec 2010 11:54:16 +0100 Subject: i115987:[Automation]: d_opt.bas, ToolsOptionsDrawGeneral: Drawing Scale State changed fixed now. --- .../graphics/required/includes/global/id_opt_1.inc | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/testautomation/graphics/required/includes/global/id_opt_1.inc b/testautomation/graphics/required/includes/global/id_opt_1.inc index dcb6c38795bb..35874fe0495f 100644 --- a/testautomation/graphics/required/includes/global/id_opt_1.inc +++ b/testautomation/graphics/required/includes/global/id_opt_1.inc @@ -84,13 +84,17 @@ testcase tToolsOptionsDrawGeneral (sApplication as string) Tabulatorabstand.SetText (sTabAbstand) if (gApplication = "DRAW") then + printlog "Index Zeichnungsmasstab= " & iZeichnungsmasstab + printlog "Zeichnungsmasstab Item Count= " & (Zeichnungsmasstab.GetItemCount) If ( Zeichnungsmasstab.GetItemCount <> iZeichnungsmasstab ) Then - Zeichnungsmasstab.Select (Zeichnungsmasstab.GetItemCount) _ - Else Zeichnungsmasstab.Select (1) - iTemp2 = Zeichnungsmasstab.GetSelIndex - if irgendwas(6) Then SetzenAufKreis.UnCheck Else SetzenAufKreis.Check + Zeichnungsmasstab.Select (Zeichnungsmasstab.GetItemCount) + Else + Zeichnungsmasstab.Select (1) endif - else ' IMPRESS + iTemp2 = Zeichnungsmasstab.GetSelIndex + printlog "iTemp2= " & iTemp2 + if irgendwas(6) Then SetzenAufKreis.UnCheck Else SetzenAufKreis.Check + else ' IMPRESS if irgendwas(7) Then MitAutopilotStarten.UnCheck Else MitAutopilotStarten.Check if irgendwas(8) Then MitAktuellerSeite.UnCheck Else MitAktuellerSeite.Check if irgendwas(9) Then AlleAbsatzabstaendeAddieren.UnCheck Else AlleAbsatzabstaendeAddieren.Check @@ -110,7 +114,7 @@ testcase tToolsOptionsDrawGeneral (sApplication as string) Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog "Office quit - start" + printlog "-------> Office quit - start" ExitRestartTheOffice printlog "opening new doc to get the Options" @@ -127,6 +131,8 @@ testcase tToolsOptionsDrawGeneral (sApplication as string) If ( irgendwas(5) = ObjekteImmerVerschiebbar.IsChecked ) Then WarnLog "Objects Always Movable state changed" if (gApplication = "DRAW") then + printlog "Index Zeichnungsmasstab= " & (Zeichnungsmasstab.GetSelIndex) + printlog "iTemp2= " & iTemp2 If ( Zeichnungsmasstab.GetSelIndex <> iTemp2 ) Then WarnLog "Drawing Scale state changed BUG #97391 is:"+Zeichnungsmasstab.GetSelIndex+"; should: "+iTemp2 If ( irgendwas(6) = SetzenAufKreis.IsChecked ) Then WarnLog "'Do not disort objects in curve' state changed" else ' IMPRESS -- cgit v1.2.3 From 304ad5308f68af10db63e02e74d339961b0036c4 Mon Sep 17 00:00:00 2001 From: "Wolfram Garten [wg]" Date: Fri, 10 Dec 2010 10:08:02 +0100 Subject: i115985: [Automation]: wipe off last old comments --- .../graphics/optional/includes/global/g_arrangealign.inc | 8 ++++---- .../graphics/optional/includes/global/g_clipboard.inc | 1 - testautomation/graphics/optional/includes/global/g_tables.inc | 11 +++++++++++ testautomation/graphics/optional/includes/global/g_tools.inc | 9 ++++++++- 4 files changed, 23 insertions(+), 6 deletions(-) diff --git a/testautomation/graphics/optional/includes/global/g_arrangealign.inc b/testautomation/graphics/optional/includes/global/g_arrangealign.inc index 1c1b39f22207..929f139ed1ef 100644 --- a/testautomation/graphics/optional/includes/global/g_arrangealign.inc +++ b/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 + hMenuSelectNr(4) + hMenuSelectNr(13) + call sSelectEmptyLayout end if - hMenuSelectNr(4) - hMenuSelectNr(13) - call sSelectEmptyLayout + if Dir(Datei)<>"" then app.Kill(Datei) ' kill old file printlog "create 3 overlapping objects " for Zaehler = 1 to 3 diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc index 15635d019de0..d43c49610c26 100644 --- a/testautomation/graphics/optional/includes/global/g_clipboard.inc +++ b/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 diff --git a/testautomation/graphics/optional/includes/global/g_tables.inc b/testautomation/graphics/optional/includes/global/g_tables.inc index 10774ab43d76..c3c8f99c551c 100644 --- a/testautomation/graphics/optional/includes/global/g_tables.inc +++ b/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." diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc index 9faee3508c1b..e8e918b95cbb 100644 --- a/testautomation/graphics/optional/includes/global/g_tools.inc +++ b/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 "" for i = 1 to Zaehler - MakroAus.typeKeys "<+>" + MakroAus.typeKeys "<+>" + sleep 1 + MakroAus.typeKeys "" next i next j Zaehler=MakroAus.GetItemCount -- cgit v1.2.3