diff options
Diffstat (limited to 'testautomation/writer/optional/includes/formatpage/w_formatpage3.inc')
-rw-r--r--[-rwxr-xr-x] | testautomation/writer/optional/includes/formatpage/w_formatpage3.inc | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc b/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc index 2d34c23d82fb..784f6dad28cc 100755..100644 --- a/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc +++ b/testautomation/writer/optional/includes/formatpage/w_formatpage3.inc @@ -641,6 +641,7 @@ testcase tFormatPage_37 case 39 : sHeader = "Riga d'intestazione" case 46 : sHeader = "Sidhuvud" case 49 : sHeader = "Kopfzeile" + case 50 : sHeader = "Glava" case 55 : sHeader = "Cabeçalho" case 81 : sHeader = "ヘッダ" case 82 : sHeader = "머리글" @@ -689,6 +690,7 @@ testcase tFormatPage_38 case 39 : sFooter = "Piè di pagina" case 46 : sFooter = "Sidfot" case 49 : sFooter = "Fußzeile" + case 50 : sFooter = "Noga" case 55 : sFooter = "Rodapé" case 81 : sFooter = "フッタ" case 82 : sFooter = "바닥글" @@ -866,23 +868,23 @@ testcase tFormatPage_41 Dim sWidthColumn1 as String Dim sWidthColumn2 as String Dim sWidthColumn3 as String - + sTestFile = Convertpath (gTesttoolpath + "writer\optional\input\formatpage\testColumnInPage2.sxw") sColumn = "3" sWidthColumn1 = "2" + gSeperator + "00" sWidthColumn2 = "4" + gSeperator + "00" - + PrintLog "- create columns with different width " '/// create columns with different width - + Call hNewDocument - + '/// Open test file testColumnInPage2.sxw '/// + (The test file includes 2 pages , some text is '/// + in 1st page and another is in 2nd page) Call hFileOpen(sTestFile) Call sMakeReadOnlyDocumentEditable - + '/// Create 3 with different columns . formatPage , '/// + tabpage columns , set 3 columns Call fFormatPageWriter("TabSpalten") @@ -899,14 +901,14 @@ testcase tFormatPage_41 sWidthColumn3 = Spaltenbreite3.GetText wait 500 TabSpalten.OK - + '/// Check if columns' width is right fFormatPageWriter("TabSpalten") if Left$(Spaltenbreite1.GetText,4) <> sWidthColumn1 then Warnlog "the column1's width isn't set correctly !" if Left$(Spaltenbreite2.GetText,4) <> sWidthColumn2 then Warnlog "the column2's width isn't set correctly !" if Spaltenbreite3.GetText <> sWidthColumn3 then Warnlog "the column3's width isn't set correctly !" TabSpalten.Cancel - + 'detailed check for column1 Kontext EditSearchAndReplace @@ -916,12 +918,12 @@ testcase tFormatPage_41 SearchAll.Click Sleep 1 FindAndReplace.Close - + Call wTypeKeys "<Home>" Call wTypeKeys "<Shift End>" EditCopy if Len(GetClipboardText) > 8 then Warnlog "Something wrong in the column1" - + 'detailed check for column2 Kontext EditSearchAndReplace @@ -931,12 +933,12 @@ testcase tFormatPage_41 SearchAll.Click Sleep 1 FindAndReplace.Close - + Call wTypeKeys "<Home>" Call wTypeKeys "<Shift End>" EditCopy if Len(GetClipboardText) > 14 then Warnlog "Something wrong in the column2" - + printlog " Close active document " Do Until GetDocumentCount = 0 Call hCloseDocument |