diff options
Diffstat (limited to 'testautomation/writer/optional/includes/option')
5 files changed, 79 insertions, 64 deletions
diff --git a/testautomation/writer/optional/includes/option/wh_o_1.inc b/testautomation/writer/optional/includes/option/wh_o_1.inc index 6ac950955f8f..78dfe9bdae2d 100755 --- a/testautomation/writer/optional/includes/option/wh_o_1.inc +++ b/testautomation/writer/optional/includes/option/wh_o_1.inc @@ -152,7 +152,8 @@ testcase tToolsOptionsHTMLContent ExtrasOptionenDlg.OK Call hCloseDocument - + Call hCloseDocument + endcase '------------------------------------------------------------------------------ @@ -401,6 +402,7 @@ testcase tToolsOptionsHTMLLayout ExtrasOptionenDlg.OK Call hCloseDocument + Call hCloseDocument endcase '------------------------------------------------------------------------------ @@ -646,7 +648,7 @@ testcase tToolsOptionsHTMLGrid Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop diff --git a/testautomation/writer/optional/includes/option/wh_o_2.inc b/testautomation/writer/optional/includes/option/wh_o_2.inc index e69de566d80e..4a5ec880344c 100755 --- a/testautomation/writer/optional/includes/option/wh_o_2.inc +++ b/testautomation/writer/optional/includes/option/wh_o_2.inc @@ -164,7 +164,7 @@ testcase tToolsOptionsHTMLPrint if ( bTempRadioBut(3) <> Dokumentende.IsChecked) Then WarnLog "'End of document' state changed" if ( bTempRadioBut(4) <> Seitenende.IsChecked ) Then WarnLog "'End of page' state changed" - if ( Fax.GetSelIndex <> iTempListBox(1) ) Then QAErrorlog "#i62663#Fax state changed" + if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed" printlog ("'/// - all UnCheck -> o ///") @@ -305,7 +305,7 @@ testcase tToolsOptionsHTMLPrint Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop endcase @@ -502,7 +502,9 @@ testcase tToolsOptionsHTMLTable Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase '------------------------------------------------------------------------------ diff --git a/testautomation/writer/optional/includes/option/wh_o_3.inc b/testautomation/writer/optional/includes/option/wh_o_3.inc index 373401acef08..9cc54c298fcb 100755 --- a/testautomation/writer/optional/includes/option/wh_o_3.inc +++ b/testautomation/writer/optional/includes/option/wh_o_3.inc @@ -68,41 +68,41 @@ testcase tToolsOptionsHTMLInsert '(7) = Zahlenformaterkennung depends on AutomatischeZahlenerkennung '(8) = AutomatischeAusrichtung depends on AutomatischeZahlenerkennung - hNewDocument - printlog "'///- Tools/Options/HTML: Insert ///" + call hNewDocument + printlog "'///- Tools/Options/HTML: Insert ///" - printlog ("'/// - save states ///") + printlog ("'/// - save states ///") ToolsOptions hToolsOptions ("HtmlDocument","Table") - irgendwas(2) = Ueberschrift.IsChecked - irgendwas(3) = Wiederholen.IsChecked - irgendwas(5) = Umrandung.IsChecked + irgendwas(2) = Ueberschrift.IsChecked + irgendwas(3) = Wiederholen.IsChecked + irgendwas(5) = Umrandung.IsChecked - irgendwas(6) = AutomatischeZahlenerkennung.IsChecked - irgendwas(7) = Zahlenformaterkennung.IsChecked - irgendwas(8) = AutomatischeAusrichtung.IsChecked + irgendwas(6) = AutomatischeZahlenerkennung.IsChecked + irgendwas(7) = Zahlenformaterkennung.IsChecked + irgendwas(8) = AutomatischeAusrichtung.IsChecked - printlog ("'/// - all states inverting ///") + printlog ("'/// - all states inverting ///") ' if irgendwas(2) Then Ueberschrift.UnCheck Else Ueberschrift.Check - Ueberschrift.Check - if irgendwas(3) Then Wiederholen.UnCheck Else Wiederholen.Check - if irgendwas(5) Then Umrandung.UnCheck Else Umrandung.Check + Ueberschrift.Check + if irgendwas(3) Then Wiederholen.UnCheck Else Wiederholen.Check + if irgendwas(5) Then Umrandung.UnCheck Else Umrandung.Check ' if irgendwas(6) Then AutomatischeZahlenerkennung.UnCheck Else AutomatischeZahlenerkennung.Check - AutomatischeZahlenerkennung.Check - if irgendwas(7) Then Zahlenformaterkennung.UnCheck Else Zahlenformaterkennung.Check - if irgendwas(8) Then AutomatischeAusrichtung.UnCheck Else AutomatischeAusrichtung.Check + AutomatischeZahlenerkennung.Check + if irgendwas(7) Then Zahlenformaterkennung.UnCheck Else Zahlenformaterkennung.Check + if irgendwas(8) Then AutomatischeAusrichtung.UnCheck Else AutomatischeAusrichtung.Check Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - SO quit - start ///") + printlog ("'/// - SO quit - start ///") - wOfficeRestart + call wOfficeRestart - printlog ("'/// - checking states ///") + printlog ("'/// - checking states ///") ToolsOptions hToolsOptions ( "HtmlDocument" , "Table" ) @@ -119,15 +119,15 @@ testcase tToolsOptionsHTMLInsert Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - printlog ("'/// - all UnCheck -> o ///") + printlog ("'/// - all UnCheck -> o ///") ToolsOptions hToolsOptions ( "HtmlDocument" , "Table" ) - Ueberschrift.UnCheck + Ueberschrift.UnCheck ' Wiederholen.UnCheck - Umrandung.UnCheck + Umrandung.UnCheck - AutomatischeZahlenerkennung.UnCheck + AutomatischeZahlenerkennung.UnCheck ' Zahlenformaterkennung.UnCheck ' AutomatischeAusrichtung.UnCheck @@ -139,44 +139,41 @@ testcase tToolsOptionsHTMLInsert '/// 2.Location of Options: InsertTableWriter get's checked too ///' Printlog "'/// - check in InsertTableHTML ///" - hNewDocument - 'printlog "a" + Call hNewDocument InsertTableWriter Kontext "TabelleEinfuegenWriter" -' printlog "b" If ( Ueberschrift.IsChecked ) Then WarnLog "Ueberschrift x" ' If ( UeberschriftWiederholen.IsChecked ) Then WarnLog "Wiederholen x" If ( Umrandung.IsChecked ) Then WarnLog "Umrandung x" TabelleEinfuegenWriter.OK - 'printlog "c" '/// Function: Input in tables ///' Kontext "DocumentWriter" -'printlog "d" + DocumentWriter.TypeKeys "<Down>1<Tab><Left>" -'printlog "e" + FormatParagraph -'printlog "f" + Kontext Active.SetPage TabAusrichtungAbsatz Kontext "TabAusrichtungAbsatz" if NOT Links.IsChecked then Warnlog "Die automatische Ausrichtung der Zahl wurde trotzdem durchgeführt!" -'printlog "g" + TabAusrichtungAbsatz.Cancel FormatNumberFormat -'printlog "h" + Kontext "Zahlenformat" If Kategorie.GetSelIndex <> 11 then Warnlog "Das Zahlenformat ist nicht Text geblieben!" -'printlog "i" + Zahlenformat.Cancel -'printlog "j" - hCloseDocument + + Call hCloseDocument '................. @@ -237,7 +234,7 @@ testcase tToolsOptionsHTMLInsert If Kategorie.GetSelIndex <> 3 then Warnlog "numberformat didn't get changed!" Zahlenformat.Cancel - hCloseDocument + Call hCloseDocument '....................... @@ -275,9 +272,13 @@ testcase tToolsOptionsHTMLInsert Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase +'------------------------------------------------------------------------------------------------------------------------ + testcase tToolsOptionsHTMLCursor dim irgendwas(17) as boolean ' Checkbox states @@ -387,6 +388,8 @@ testcase tToolsOptionsHTMLCursor Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase diff --git a/testautomation/writer/optional/includes/option/wr_o_2.inc b/testautomation/writer/optional/includes/option/wr_o_2.inc index e9a88046f5ff..13dcec84cb38 100755 --- a/testautomation/writer/optional/includes/option/wr_o_2.inc +++ b/testautomation/writer/optional/includes/option/wr_o_2.inc @@ -389,17 +389,17 @@ testcase tToolsOptionsWriterDefaultfont (WestOrEast as string) ToolsOptions Call hToolsOptions ( "TextDocument" , WestOrEast ) - if ( StandardSchrift.GetSelText <> sInitFont(1) ) then QAErrorLog "#i80554#Default not init font!" - if ( Ueberschrift.GetSelText <> sInitFont(2) ) then QAErrorLog "#i80554#Heading not init font! BUGID: 89816" - if ( Liste.GetSelText <> sInitFont(3) ) then QAErrorLog "#i80554#List not init font!" - if ( Beschriftung.GetSelText <> sInitFont(4) ) then QAErrorLog "#i80554#Caption not init font!" - if ( Verzeichnis.GetSelText <> sInitFont(5) ) then QAErrorLog "#i80554#Index not init font!" - - if ( StandardSchriftGroesse.GetSelText <> sInitFontSize(1) ) then QAErrorLog "#i80554#Default fontsize not init font!" - if ( UeberschriftGroesse.GetSelText <> sInitFontSize(2) ) then QAErrorLog "#i80554#Heading fontsize not init font! BUGID: 89816" - if ( ListeGroesse.GetSelText <> sInitFontSize(3) ) then QAErrorLog "#i80554#List fontsize not init font!" - if ( BeschriftungGroesse.GetSelText <> sInitFontSize(4) ) then QAErrorLog "#i80554#Caption fontsize not init font!" - if ( VerzeichnisGroesse.GetSelText <> sInitFontSize(5) ) then QAErrorLog "#i80554#Index fontsize not init font!" + if ( StandardSchrift.GetSelText <> sInitFont(1) ) then warnlog "Default not init font!" + if ( Ueberschrift.GetSelText <> sInitFont(2) ) then warnlog "Heading not init font! BUGID: 89816" + if ( Liste.GetSelText <> sInitFont(3) ) then warnlog "List not init font!" + if ( Beschriftung.GetSelText <> sInitFont(4) ) then warnlog "Caption not init font!" + if ( Verzeichnis.GetSelText <> sInitFont(5) ) then warnlog "Index not init font!" + + if ( StandardSchriftGroesse.GetSelText <> sInitFontSize(1) ) then warnlog "Default fontsize not init font!" + if ( UeberschriftGroesse.GetSelText <> sInitFontSize(2) ) then warnlog "Heading fontsize not init font! BUGID: 89816" + if ( ListeGroesse.GetSelText <> sInitFontSize(3) ) then warnlog "List fontsize not init font!" + if ( BeschriftungGroesse.GetSelText <> sInitFontSize(4) ) then warnlog "Caption fontsize not init font!" + if ( VerzeichnisGroesse.GetSelText <> sInitFontSize(5) ) then warnlog "Index fontsize not init font!" Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.Cancel Call hCloseDocument @@ -424,7 +424,7 @@ testcase tToolsOptionsWriterDefaultfont (WestOrEast as string) Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop endcase @@ -582,10 +582,10 @@ testcase tToolsOptionsWriterPrint1 if ( bCheckboxes(12)= AusDruckereinstellung.IsChecked ) then WarnLog "AusDruckereinstellung state changed" if ( bCheckboxes(13)= LeereSeitenDrucken.IsChecked ) then WarnLog "'Print automatically inserted blank pages' state changed" - if ( Fax.GetSelIndex <> iTempListBox(1) ) Then QAErrorlog "#i62663#Fax state changed" + if ( Fax.GetSelIndex <> iTempListBox(1) ) Then warnlog "Fax state changed" - if ( bTempRadioBut(1) <> Keine.IsChecked ) then WarnLog "Keine state changed (Bug#99202)" - if ( bTempRadioBut(2) <> NurNotizen.IsChecked ) then WarnLog "NurNotizen state changed (Bug#99202)" + if ( bTempRadioBut(1) <> Keine.IsChecked ) then WarnLog "Keine state changed" + if ( bTempRadioBut(2) <> NurNotizen.IsChecked ) then WarnLog "NurNotizen state changed" if ( bTempRadioBut(3) <> Dokumentende.IsChecked) then WarnLog "Dokumentende state changed" if ( bTempRadioBut(4) <> Seitenende.IsChecked ) then WarnLog "Seitenende state changed" @@ -753,7 +753,7 @@ testcase tToolsOptionsWriterPrint1 ExtrasOptionenDlg.OK sleep 2 - Do Until GetDocumentCount = 1 + Do Until GetDocumentCount = 0 Call hCloseDocument Loop endcase @@ -945,7 +945,9 @@ testcase tToolsOptionsWriterTable Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase '------------------------------------------------------------------------------ @@ -975,6 +977,8 @@ testcase tToolsOptionsWriterTable1 Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase diff --git a/testautomation/writer/optional/includes/option/wr_o_3.inc b/testautomation/writer/optional/includes/option/wr_o_3.inc index 24ff5afd367c..6574c8f88322 100755 --- a/testautomation/writer/optional/includes/option/wr_o_3.inc +++ b/testautomation/writer/optional/includes/option/wr_o_3.inc @@ -257,7 +257,9 @@ testcase tToolsOptionsWriterCursor Kontext "ExtrasOptionenDlg" ExtrasOptionenDlg.OK - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase '------------------------------------------------------------------------------ @@ -720,7 +722,9 @@ testcase tToolsOptionsWriterInsert Call wOptionenUndo("Table") - Call hCloseDocument + Do Until GetDocumentCount = 0 + Call hCloseDocument + Loop endcase ' ******************************************************************** @@ -1135,7 +1139,7 @@ DIM sFoundWord AS string 'variable for word found one line below DocumentWriter.TypeKeys "<SHIFT LEFT>" 'deleting space EditCopy if GetClipboardText <> "twenty" then - QAErrorlog "#i80554#wrong word found, formatting broken" + warnlog "wrong word found, formatting broken" else printlog "Correct word found, aligment ok" end if |