diff options
Diffstat (limited to 'testautomation/graphics')
14 files changed, 38 insertions, 27 deletions
diff --git a/testautomation/graphics/optional/includes/global/g_clipboard.inc b/testautomation/graphics/optional/includes/global/g_clipboard.inc index 8da14643d748..2be5461617bd 100644 --- a/testautomation/graphics/optional/includes/global/g_clipboard.inc +++ b/testautomation/graphics/optional/includes/global/g_clipboard.inc @@ -29,7 +29,7 @@ '* '* short description : '* -'************************************************************************************** +'\************************************************************************************** testcase tiEditUndo diff --git a/testautomation/graphics/optional/includes/global/g_convertto.inc b/testautomation/graphics/optional/includes/global/g_convertto.inc index 3a829b1ef275..69719accd4e8 100644 --- a/testautomation/graphics/optional/includes/global/g_convertto.inc +++ b/testautomation/graphics/optional/includes/global/g_convertto.inc @@ -29,7 +29,7 @@ '* '* short description : '* -'************************************************************************************** +'\************************************************************************************** ' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\columbia.dxf") ' Call hGrafikEinfuegen ConvertPath ( gTesttoolPath + "global\input\graf_inp\enter.bmp" ) diff --git a/testautomation/graphics/optional/includes/global/g_demoguide.inc b/testautomation/graphics/optional/includes/global/g_demoguide.inc index 0860e8cb942a..9e1a4ffbf497 100644 --- a/testautomation/graphics/optional/includes/global/g_demoguide.inc +++ b/testautomation/graphics/optional/includes/global/g_demoguide.inc @@ -263,16 +263,15 @@ testcase t_Interoperability Kontext "DocumentImpress" Kontext "Slides" Kontext "SlidesControl" - SlidesControl.OpenContextMenu sleep 1 - hMenuSelectNr (8) + SlidesControl.TypeKeys "<MOD1 X>" + Kontext "DocumentImpress" DocumentImpress.TypeKeys "<HOME>", true Kontext "Slides" Kontext "SlidesControl" - SlidesControl.OpenContextMenu sleep 1 - hMenuSelectNr (10) + SlidesControl.TypeKeys "<MOD1 V>" Printlog " Verify that the slide was moved correctly" Kontext "Slides" diff --git a/testautomation/graphics/optional/includes/global/g_insert.inc b/testautomation/graphics/optional/includes/global/g_insert.inc index 44d9030413ea..67196c3145d6 100644 --- a/testautomation/graphics/optional/includes/global/g_insert.inc +++ b/testautomation/graphics/optional/includes/global/g_insert.inc @@ -29,7 +29,7 @@ '* '* short description : '* -'************************************************************************************** +'\************************************************************************************** testcase tdInsertObjectOleObjects diff --git a/testautomation/graphics/optional/includes/global/g_line.inc b/testautomation/graphics/optional/includes/global/g_line.inc index eb672b3b9716..758f537c5630 100644 --- a/testautomation/graphics/optional/includes/global/g_line.inc +++ b/testautomation/graphics/optional/includes/global/g_line.inc @@ -363,6 +363,7 @@ testcase tLineConnect Dim i as integer Dim cname as string Dim cfirst as integer + Dim CornerStyles as integer if bAsianLan then QaErrorLog "tLineConnect ends because Asian languages are not fully supported." @@ -517,10 +518,11 @@ testcase tLineConnect else sleep 1 endif + + For i = 1 to CornerStyles + Kontext "TabLinie" + if (i > 1) AND (cname <> CornerStyle.GetSelText) then - For i = 1 to CornerStyle.GetItemCount - Kontext "TabLinie" - if (i > 1) AND (cname <> CornerStyle.GetSelText) then warnlog "Cornerstylename wasnt saved. Should have been: " + cname + ". But was: " + CornerStyle.GetSelText endif CornerStyle.Select i diff --git a/testautomation/graphics/optional/includes/global/g_tools.inc b/testautomation/graphics/optional/includes/global/g_tools.inc index e8e918b95cbb..10d2c6bbe93a 100644 --- a/testautomation/graphics/optional/includes/global/g_tools.inc +++ b/testautomation/graphics/optional/includes/global/g_tools.inc @@ -275,8 +275,16 @@ testcase tiToolsThesaurusContextMenu end select PrintLog "Thesaurus with 1 word: " + sWord - Call hNewDocument + + printlog "Setting doc language to english" + ToolsOptions + Kontext "ExtrasOptionenDlg" + hToolsOptions("LANGUAGESETTINGS","Languages") + Westlich.Select 34 + Kontext "ExtrasOptionenDlg" + ExtrasOptionenDlg.OK + Call hTextrahmenErstellen (sWord,20,20,50,30) sleep 1 diff --git a/testautomation/graphics/optional/includes/impress/i_headerfooter.inc b/testautomation/graphics/optional/includes/impress/i_headerfooter.inc index d69a6762f886..390654350e29 100644 --- a/testautomation/graphics/optional/includes/impress/i_headerfooter.inc +++ b/testautomation/graphics/optional/includes/impress/i_headerfooter.inc @@ -29,7 +29,7 @@ '* '* short description : Tests the header-footer-function in Impress '* -'******************************************************************* +'\******************************************************************* testcase tiHeaderFooterSlide diff --git a/testautomation/graphics/optional/includes/impress/i_pengine1.inc b/testautomation/graphics/optional/includes/impress/i_pengine1.inc index ff4d2a035ef0..eeb6293ddb0d 100644 --- a/testautomation/graphics/optional/includes/impress/i_pengine1.inc +++ b/testautomation/graphics/optional/includes/impress/i_pengine1.inc @@ -29,7 +29,7 @@ '* '* short description : Tests the Engine for Presentation '* -'******************************************************************* +'\******************************************************************* testcase tiPengineTabEntrance diff --git a/testautomation/graphics/optional/includes/impress/i_pengine2.inc b/testautomation/graphics/optional/includes/impress/i_pengine2.inc index 56d15f6eee37..5f89299c066d 100644 --- a/testautomation/graphics/optional/includes/impress/i_pengine2.inc +++ b/testautomation/graphics/optional/includes/impress/i_pengine2.inc @@ -29,7 +29,7 @@ '* '* short description : Tests the Presentation-Engines effects '* -'******************************************************************* +'\******************************************************************* testcase tiPengineAnimationEffectsPreview dim bError as boolean diff --git a/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc b/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc index 06a7ac89cf9d..87f72b3e6673 100644 --- a/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc +++ b/testautomation/graphics/optional/includes/impress/i_saveloadlayout.inc @@ -29,7 +29,7 @@ '* '* short description: Save & Load testing of Layout -templates. '* -'************************************************************************************** +'\************************************************************************************** testcase tSaveLoadLayoutEmpty Dim NewFileDir as String diff --git a/testautomation/graphics/optional/includes/impress/i_slidelayer.inc b/testautomation/graphics/optional/includes/impress/i_slidelayer.inc index 508394144663..8b9504e7a5be 100644 --- a/testautomation/graphics/optional/includes/impress/i_slidelayer.inc +++ b/testautomation/graphics/optional/includes/impress/i_slidelayer.inc @@ -29,7 +29,7 @@ '* '* short description : '* -'********************************************************************* +'\********************************************************************* ' Dateiname.SetText ConvertPath (gTesttoolPath + "global\input\graf_inp\enter.bmp") ' Inhalt.SetText ConvertPath (gTesttoolPath + "graphics\required\input\leer.sxd") diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow2.inc b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc index 2df33261c6f2..f409aeb2e9f6 100644 --- a/testautomation/graphics/optional/includes/impress/i_slideshow2.inc +++ b/testautomation/graphics/optional/includes/impress/i_slideshow2.inc @@ -29,7 +29,7 @@ '* '* short description : '* -'******************************************************************* +'\******************************************************************* testcase tPraesentationAnimation diff --git a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc index 52858e22e7cf..eee2416a1723 100644 --- a/testautomation/graphics/optional/includes/impress/i_slideshow3.inc +++ b/testautomation/graphics/optional/includes/impress/i_slideshow3.inc @@ -29,7 +29,7 @@ '* '* short description : '* -'******************************************************************* +'\******************************************************************* testcase tExtrasInteraktion diff --git a/testautomation/graphics/required/includes/global/id_001.inc b/testautomation/graphics/required/includes/global/id_001.inc index b878278961b1..509e35a52185 100644 --- a/testautomation/graphics/required/includes/global/id_001.inc +++ b/testautomation/graphics/required/includes/global/id_001.inc @@ -779,15 +779,17 @@ testcase tmFileProperties Kontext "TabDokumentInfo" Call DialogTest ( TabDokumentInfo ) - qaerrorlog "#i95523#" - 'Kontext - 'active.SetPage TabBenutzer - 'Kontext "TabBenutzer" - 'Call DialogTest ( TabBenutzer ) - 'Infofelder.Click - ' Kontext "InfonamenBearbeiten" - ' Call DialogTest (InfonamenBearbeiten) - 'InfonamenBearbeiten.Cancel + Kontext + '/// select tabpage 'Security' ///' + active.SetPage TabSecurityProperties + Kontext "TabSecurityProperties" + Call DialogTest ( TabSecurityProperties) + + Kontext + '/// select tabpage 'User defined' ///' + active.SetPage TabCustomProperties + Kontext "TabCustomProperties" + Call DialogTest ( TabCustomProperties ) Kontext active.SetPage TabInternet |