diff options
Diffstat (limited to 'testautomation/framework/optional/includes/ole_1.inc')
-rw-r--r-- | testautomation/framework/optional/includes/ole_1.inc | 74 |
1 files changed, 41 insertions, 33 deletions
diff --git a/testautomation/framework/optional/includes/ole_1.inc b/testautomation/framework/optional/includes/ole_1.inc index 3e5d7af304a1..a90d517620a1 100644 --- a/testautomation/framework/optional/includes/ole_1.inc +++ b/testautomation/framework/optional/includes/ole_1.inc @@ -41,13 +41,13 @@ testcase tOLEWriter Call hNewDocument PrintLog "- Writer : Chart without table" - InsertObjectChart - sleep(4) + hUseAsyncSlot( "InsertObjectChart" ) + Kontext "DocumentChart" - if DocumentChart.Exists(5) then + if ( DocumentChart.Exists( 5 ) ) then FormatChartType Kontext "ChartType" - if ChartType.Exists(5) then + if ( ChartType.Exists( 5 ) ) then ChartType.Cancel else warnlog "Chart Type dialog did bot occour." @@ -56,18 +56,22 @@ testcase tOLEWriter DocumentChart.TypeKeys "<ESCAPE>" Kontext "DocumentWriter" DocumentWriter.TypeKeys "<DELETE>" - sleep(1) else warnlog "Chart has not been inserted." end if - sleep(4) + PrintLog "- Writer : Chart out of a table only with numbers" - InsertTableWriter + hUseAsyncSlot( "InsertTableWriter" ) Kontext "TabelleEinfuegenWriter" - Spalten.SetText "3" - Zeilen.SetText "10" - TabelleEinfuegenWriter.OK + if ( TabelleEinfuegenWriter.exists( 1 ) ) then + Spalten.SetText "3" + Zeilen.SetText "10" + TabelleEinfuegenWriter.OK + TabelleEinfuegenWriter.notExists( 2 ) + else + warnlog( "Dialog <TabelleEinfuegenWriter> did not open" ) + endif Kontext "DocumentWriter" for i%=1 to 10 @@ -80,7 +84,7 @@ testcase tOLEWriter DocumentWriter.TypeKeys "<Left>", 3 next i% - InsertObjectChart + hUseAsyncSlot( "InsertObjectChart" ) hStepThroughChartWizard() Kontext "DocumentChart" @@ -90,16 +94,19 @@ testcase tOLEWriter Sleep 1 DocumentWriter.TypeKeys "<Down>", 20 DocumentWriter.TypeKeys "<Return>", 2 - Sleep 1 - PrintLog "- Writer : Chart out of a table only with chars" - InsertTableWriter + hUseAsyncSlot( "InsertTableWriter" ) Kontext "TabelleEinfuegenWriter" - Spalten.SetText "3" - Zeilen.SetText "10" - TabelleEinfuegenWriter.OK + if ( TabelleEinfuegenWriter.exists( 1 ) ) then + Spalten.SetText "3" + Zeilen.SetText "10" + TabelleEinfuegenWriter.OK + TabelleEinfuegenWriter.notExists( 2 ) + else + warnlog( "Dialog <TabelleEinfuegenWriter> did not open" ) + endif Kontext "DocumentWriter" for i%=1 to 10 @@ -112,8 +119,7 @@ testcase tOLEWriter DocumentWriter.TypeKeys "<Left>", 3 next i% - InsertObjectChart - + hUseAsyncSlot( "InsertObjectChart" ) hStepThroughChartWizard() Kontext "DocumentChart" @@ -123,30 +129,32 @@ testcase tOLEWriter Sleep 1 DocumentWriter.TypeKeys "<Down>", 20 DocumentWriter.TypeKeys "<Return>", 2 - Sleep 1 PrintLog "- Writer : Math" - InsertObjectFormulaWriter + hUseAsyncSlot( "InsertObjectFormulaWriter" ) gMouseClick ( 1, 1) Kontext "DocumentWriter" DocumentWriter.TypeKeys "<Delete>" - Sleep 1 PrintLog "- Writer : floating frame" + hUseAsyncSlot( "InsertFloatingFrame" ) - 'warnlog( "#148094# - Crash when deselecting floating frame in Writer" ) - - InsertFloatingFrame - + printlog( "Properties dialog for floating frame should open" ) Kontext "TabEigenschaften" - FrameName.SetText "Hallo" - Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" ) - - TabEigenschaften.OK - Sleep 2 + if ( TabEigenschaften.exists( 1 ) and TabEigenschaften.isVisible() ) then + + printlog( "Name the floating frame, close the dialog" ) + FrameName.SetText "Hallo" + Inhalt.SetText ConvertPath ( gTesttoolPath+"global\input\graf_inp\borabora.jpg" ) + + TabEigenschaften.OK + TabEigenSchaften.notExists( 2 ) + + endif + printlog( "Close the writer document" ) Kontext "DocumentWriter" DocumentWriter.TypeKeys "<Delete>" Sleep 1 @@ -327,7 +335,7 @@ testcase tOLEDraw MenuSelect(0) try - InsertObjectChart + hUseAsyncSlot( "InsertObjectChart" ) Sleep ( 2 ) Kontext "DocumentChart" @@ -407,7 +415,7 @@ testcase tOLEImpress PrintLog "- Impress : Chart" try - InsertObjectChart + hUseAsyncSlot( "InsertObjectChart" ) sleep 2 gMouseClick ( 1 , 1 ) |