diff options
Diffstat (limited to 'testautomation/writer/optional/includes/section/w_section_4.inc')
-rw-r--r-- | testautomation/writer/optional/includes/section/w_section_4.inc | 1509 |
1 files changed, 1509 insertions, 0 deletions
diff --git a/testautomation/writer/optional/includes/section/w_section_4.inc b/testautomation/writer/optional/includes/section/w_section_4.inc new file mode 100644 index 000000000000..3d8acb4a9cd5 --- /dev/null +++ b/testautomation/writer/optional/includes/section/w_section_4.inc @@ -0,0 +1,1509 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +' +' Copyright 2000, 2010 Oracle and/or its affiliates. +' +' OpenOffice.org - a multi-platform office productivity suite +' +' This file is part of OpenOffice.org. +' +' OpenOffice.org is free software: you can redistribute it and/or modify +' it under the terms of the GNU Lesser General Public License version 3 +' only, as published by the Free Software Foundation. +' +' OpenOffice.org is distributed in the hope that it will be useful, +' but WITHOUT ANY WARRANTY; without even the implied warranty of +' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +' GNU Lesser General Public License version 3 for more details +' (a copy is included in the LICENSE file that accompanied this code). +' +' You should have received a copy of the GNU Lesser General Public License +' version 3 along with OpenOffice.org. If not, see +' <http://www.openoffice.org/license.html> +' for a copy of the LGPLv3 License. +' +'/************************************************************************ +'* +'* owner : helge.delfs@sun.com +'* +'* short description : Functional-Test for Section. +'* +'************************************************************************ +'* +' #1 tSectionInTables_1 +' #1 tSectionInTables_2 +' #1 tSectionInTables_3 +' #1 tSectionInTables_4 +' #1 tSectionInTables_5 +' #1 tSectionInTables_6 +' #1 tSectionInTables_7 +' #1 tSectionInFootnotes_1 +' #1 tSectionInFootnotes_2 +' #1 tEditSection_1 +' #1 tEditSection_2 +' #1 tEditSection_3 +' #1 tEditSection_4 +' #1 tEditSection_5 +' #1 tParagraphSection_1 +' #1 tParagraphSection_2 +' #1 tParagraphSection_3 +' #1 tScenarioSection_1 +' #1 tScenarioSection_2 +' #1 tCTLSection_1 +' #1 tCTLSection_2 +'* +'\*********************************************************************** + +sub w_section_4 + + printLog Chr(13) + "- Sections in special areas -" + + printLog Chr(13) + "--- Sections in tables ---" + Call tSectionInTables_1 'insert section in empty cell + Call tSectionInTables_2 'select text in a cell and insert section + Call tSectionInTables_3 'insert multicolumn-section into cell + Call tSectionInTables_4 'insert footnote into section which is in table + Call tSectionInTables_5 'hide section in cell, resize cell via key shortcuts, make section visible again + Call tSectionInTables_6 'insert a section when you have a multi-selection in a table must be impossible + Call tSectionInTables_7 'insert a section when cells are selected must be impossible + + printLog Chr(13) + "--- Sections in footnote areas ---" + Call tSectionInFootnotes_1 'insert a simple section over some words or lines + Call tSectionInFootnotes_2 'insert section into footnote that spreads over several pages + + printLog Chr(13) + "- Edit sections later on (via Format - Sections...) -" + Call tEditSection_1 'uncheck "Autowidth" and vary width manually + Call tEditSection_2 'hide section + Call tEditSection_3 'protect section + Call tEditSection_4 'remove link(s), also via Edit - Links + Call tEditSection_5 'Remove section + + printLog Chr(13) + "- section breaks (several following sections) -" + Call tParagraphSection_1 'Keep paragraphs together + Call tParagraphSection_2 'paragraph spacing + Call tParagraphSection_3 'paragraph borders + + printLog Chr(13) + "- Test scenarios -" + Call tScenarioSection_1 'create Masterdocument from another document that also contains sections + Call tScenarioSection_2 'create Masterdocument from another document that also contains sections and footnotes + + printLog Chr(13) + "- CTL specials -" + Call tCTLSection_1 'CTL specials -- insert/sections /Columns + Call tCTLSection_2 'CTL specials -- format/section/options /Columns + +end sub + +'*********************************************************************** + +testcase tSectionInTables_1 + + Dim tableName as String + Dim columnNumber as String + Dim rowNumber as String + Dim sectionName as String + + tableName = "testTable" + columnNumber = "4" + rowNumber = "2" + + sectionName = "tableSection" + + '/// insert section in empty cell /// + PrintLog " - insert section in empty cell " + + Call hNewDocument + + '/// insert a table + Call fInsertTable(tableName , columnNumber, rowNumber) + + '/// insert section in empty cell + try + Call fInsertSection(sectionName) + + ' Check the section name is correct or NOT (Format/Section) + Kontext + FormatSections + Kontext "BereicheBearbeiten" + if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext + BereicheBearbeiten.Cancel + catch + Warnlog "insert section in empty cell failed" + endcatch + + Call hCloseDocument + +endcase + +'------------------------------------------------------------- + +testcase tSectionInTables_2 + + Dim tableName as String + Dim columnNumber as String + Dim rowNumber as String + Dim testText as String + Dim sectionName as String + + tableName = "testTable" + columnNumber = "4" + rowNumber = "2" + testText = "Table-Section" + + sectionName = "tableSection" + + '/// select text in a cell and insert section /// + PrintLog " - select text in a cell and insert section " + + Call hNewDocument + + '/// insert a table + Call fInsertTable(tableName , columnNumber, rowNumber) + + '/// input some test text in the table + Call wTypeKeys testText + + '/// select text + Call wTypeKeys "<Shift Home>" + + '/// insert section include select text + try + Call fInsertSection(sectionName) + + ' Check the section name is correct or NOT (Format/Section) + Kontext + FormatSections + Kontext "BereicheBearbeiten" + if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext + BereicheBearbeiten.Cancel + + ' Check the content in section is correct or NOT + Call wTypeKeys "<Home>" + Call wTypeKeys "<Shift End>" + EditCopy + if GetClipBoardText <> testText then Warnlog "The content in section is NOT right : " +GetClipBoardText + + catch + Warnlog "insert section which include text failed" + endcatch + + Call hCloseDocument + +endcase + +'--------------------------------------------------------------- + +testcase tSectionInTables_3 + + Dim tableName as String + Dim columnNumber as String + Dim rowNumber as String + Dim sectionName as String + Dim columnInSection as String + + tableName = "testTable" + columnNumber = "4" + rowNumber = "2" + sectionName = "tableSection" + columnInSection = "3" + + '/// insert multicolumn-section into cell /// + PrintLog " - insert multicolumn-section into cell " + + Call hNewDocument + + '/// insert a table + Call fInsertTable(tableName , columnNumber, rowNumber) + + '/// insert section with column = columnInSection in empty cell + try + InsertSection + Sleep 1 + + Kontext + Active.Setpage TabBereiche + Kontext "TabBereiche" + Bereichsliste.Settext sectionName + + Kontext + Active.Setpage TabSpalten + Kontext "TabSpalten" + Anzahl.Settext columnInSection + TabSpalten.OK + sleep 1 + + ' Check the section name is correct or NOT (Format/Section) + Kontext + FormatSections + Kontext "BereicheBearbeiten" + if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext + + ' Check the section column is correct or NOT (options button) + Optionen.Click + Kontext + Active.Setpage TabSpalten + Kontext "TabSpalten" + if Anzahl.Gettext <> columnInSection then Warnlog "The volumn should be " +columnInSection +" but get " + Anzahl.Gettext + TabSpalten.Cancel + + Kontext + Kontext "BereicheBearbeiten" + BereicheBearbeiten.Cancel + catch + Warnlog "insert section in empty cell failed" + endcatch + + Call hCloseDocument + +endcase + +'------------------------------------------------------------------------ + +testcase tSectionInTables_4 + + Dim tableName as String + Dim columnNumber as String + Dim rowNumber as String + Dim sectionName as String + Dim footNote as String + Dim endNote as String + + tableName = "testTable" + columnNumber = "4" + rowNumber = "2" + + sectionName = "tableSection" + footNote = "Foot" + endNote = "End" + + '///insert footnote into section which is in table /// + PrintLog " - insert footnote into section which is in table " + + Call hNewDocument + + '/// insert a table + Call fInsertTable(tableName , columnNumber, rowNumber) + + try + '/// insert section + Call fInsertSection(sectionName) + + Call wTypeKeys "<Up>" + + '/// insert a footnote + Call fInsertFootnote("character",footNote) + + Call wTypeKeys "<PageUp>" + + '/// insert a endnote + fInsertEndnote("character",endNote) + + Call wTypeKeys "<PageUp>" + + '/// Check the section name is correct or NOT (Format/Section) + Kontext + FormatSections + Kontext "BereicheBearbeiten" + if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext + BereicheBearbeiten.Cancel + + '/// Check the footnote and endnote are correct or NOT + Call wTypeKeys "<Shift Home>" + EditCopy + if GetClipBoardText <> footNote+endNote then Warnlog "The footnote/endnote are NOt inserted into section correctly!" + catch + Warnlog "insert section in empty cell failed" + endcatch + + Call hCloseDocument + +endcase + +'----------------------------------------------------------------------------- + +testcase tSectionInTables_5 + Dim tableName as String + Dim columnNumber as String + Dim rowNumber as String + Dim testText as String + Dim sectionName as String + + tableName = "testTable" + columnNumber = "4" + rowNumber = "2" + testText = "Hide-Section" + sectionName = "tableSection" + + '/// Hide section in cell, resize cell via key shortcuts, make section visible again /// + printlog " - hide section in cell, resize cell via key shortcuts, make section visible again" + Call hNewDocument + + '/// insert a table + Call wTypeKeys "<RETURN>" + Call fInsertTable(tableName , columnNumber, rowNumber) + '/// input some test text , select text and insert a section with hide option + Call wTypeKeys testText + Call wTypeKeys "<SHIFT HOME>" + try + InsertSection + Kontext + Active.Setpage TabBereiche + Kontext "TabBereiche" + Bereichsliste.Settext sectionName + Ausblenden.check + TabBereiche.OK + sleep(1) + '/// Check the content in section is hidden or NOT + SetClipboard = "" + Call wTypeKeys "<LEFT><DOWN>" + Call wTypeKeys "<SHIFT END>" + try + EditCopy + catch + printlog "There is no text in the document. Good." + endcatch + if GetClipboardText = "" then + '/// Resize cell via key shortcuts + Call wTypeKeys "<MOD1 MOD2 RIGHT>" , 2 + '/// UnCheck hide option (Format/Section) + Kontext + FormatSections + Kontext "BereicheBearbeiten" + Ausblenden.Uncheck + BereicheBearbeiten.OK + sleep(2) + Call wTypeKeys "<LEFT><HOME>" + Call wTypeKeys "<SHIFT END>" + EditCopy + if GetClipBoardText <> testText then warnlog "The content in section should be visible but get : " & GetClipBoardText + else + QAErrorLog "#99460# The content in section is NOT hidden!" + end if + catch + warnlog "insert section which include text failed" + endcatch + + Call hCloseDocument +endcase + +'------------------------------------------------------------------ + +testcase tSectionInTables_6 + + Dim tableName as String + Dim columnNumber as String + Dim rowNumber as String + Dim testText as String + Dim selectedString as String + Dim sectionName as String + + tableName = "testTable" + columnNumber = "4" + rowNumber = "2" + testText = "Mul-s-Mul" + selectedString = "Mul" + + sectionName = "tableSection" + + '/// insert a section when you have a multi-selection in a table must be impossible /// + PrintLog " - insert a section when you have a multi-selection in a table must be impossible" + + Call hNewDocument + + '/// insert a table + Call fInsertTable(tableName , columnNumber, rowNumber) + + '/// input some words and do multi-selection + Call wTypeKeys testText + fMultiSelection(selectedString) + + '/// insert section + try + Call fInsertSection(sectionName) + Warnlog "Create section should be impossible!" + catch + endcatch + + Call hCloseDocument + +endcase + +'--------------------------------------------------------------- + +testcase tSectionInTables_7 + + Dim tableName as String + Dim columnNumber as String + Dim rowNumber as String + Dim sectionName as String + + tableName = "testTable" + columnNumber = "4" + rowNumber = "2" + + sectionName = "tableSection" + + '/// insert a section when cells are selected must be impossible /// + PrintLog " - insert a section when cells are selected must be impossible" + + Call hNewDocument + + '/// insert a table + Call fInsertTable(tableName , columnNumber, rowNumber) + + '/// more than one cell are selected + Call wTypeKeys "<Shift Right>",2 + + '/// insert section + try + Call fInsertSection(sectionName) + Warnlog "Create section should be impossible!" + catch + endcatch + + Call hCloseDocument + +endcase + +'---------------------------------------------------------------- + +testcase tSectionInFootnotes_1 + + Dim sectionName as String + + sectionName = "footnoteSection" + + '/// insert a simple section over some words or lines /// + PrintLog " - insert a simple section over some words or lines " + + Call hNewDocument + + '/// + insert footnote + Call fInsertFootnote("automatic") + + '/// + insert some dummy text in the footnote area + wBlindtextEinfuegen + + EditSelectAll + + '/// + insert a section for selected words + try + Call fInsertSection(sectionName) + + ' Check the section name is correct or NOT (Format/Section) + Kontext + FormatSections + Kontext "BereicheBearbeiten" + if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext + BereicheBearbeiten.Cancel + catch + Warnlog "insert a section failed !" + endcatch + + Call hCloseDocument + +endcase + +'-------------------------------------------------------------------- + +testcase tSectionInFootnotes_2 + + Dim sectionName as String + + sectionName = "footnoteSection" + + '/// insert section into footnote that spreads over several pages /// + PrintLog " - insert section into footnote that spreads over several pages " + + Call hNewDocument + + '/// insert footnote + Call fInsertFootnote("automatic") + sleep(2) + '/// insert some dummy text that spreads over several pages in the footnote area + Call wBlindtextEinfuegen + Call wBlindtextEinfuegen + Call wBlindtextEinfuegen + Call wBlindtextEinfuegen + Call wBlindtextEinfuegen + Call wBlindtextEinfuegen + Call wBlindtextEinfuegen + + Kontext + ViewNavigator + sleep(1) + Kontext "NavigatorWriter" + + '/// Check if dummy text is enough in footnote area + if Seitennummer.GetText > "1" then + EditSelectAll + sleep(1) + '/// + insert a section for selected words + try + Call fInsertSection(sectionName) + ' Check the section name is correct or NOT (Format/Section) + Kontext + FormatSections + Kontext "BereicheBearbeiten" + if BereichsName.GetText <> sectionName then warnlog "The section Name is wrong : " & BereichsName.Gettext + BereicheBearbeiten.Cancel + catch + Warnlog "insert a section failed !" + endcatch + else + QAErrorLog "Not enough dummy text in the footnote area!" + end if + Call fCloseNavigator + Call hCloseDocument +endcase + +'----------------------------------------------------------- + +testcase tEditSection_1 + + Dim columnNumber as String + Dim sectionName as String + Dim width1 as String + Dim width2 as String + + sectionName = "MultiColumnSection" + columnNumber = "3" + + '/// uncheck "Autowidth" and vary width manually /// + PrintLog " - Create multi-column section from format/section - options (TabPage Columns)" + + Call hNewDocument + + '/// insert a section with only 1 culumn, that means a normal section + Call fInsertSection(sectionName) + Call wTypeKeys "<Up>" + + '/// change the column number (format/section) with + '/// + TabPage "Columns", set column to $columnNumber + Kontext + FormatSections + Kontext "BereicheBearbeiten" + Optionen.Click + + Kontext + Active.Setpage TabSpalten + Kontext "TabSpalten" + + '/// + Set column number + Anzahl.Settext columnNumber + Sleep 1 + + 'This step is useless , but must be done ! Because after the aboved step, all control are NOT actived ! + Kontext + Active.Setpage TabHintergrund + Kontext "TabHintergrund" + + Kontext + Active.Setpage TabSpalten + Kontext "TabSpalten" + + '/// uncheck "Autowidth" and vary width manually + AutomBreite.UnCheck + + width1 = "4" + gSeperator + "00" + gMeasurementUnit + width2 = "3" + gSeperator + "00" + gMeasurementUnit + + Spaltenbreite1.Settext width1 + Sleep 1 + Spaltenbreite2.Settext width2 + Sleep 1 + TabSpalten.TypeKeys "<Tab>" + Sleep 1 + + TabSpalten.OK + + Kontext + Kontext "BereicheBearbeiten" + BereicheBearbeiten.OK + + Call wTypeKeys "<Up>" + '/// Check the column's width + Kontext + FormatSections + Kontext "BereicheBearbeiten" + Optionen.Click + + Kontext + Active.Setpage TabSpalten + Kontext "TabSpalten" + + if Spaltenbreite1.Gettext <> width1 then Warnlog "column1 width is NOT correct , hope to get " + width1 + " but get " +Spaltenbreite1.Gettext + if Spaltenbreite2.Gettext <> width2 then Warnlog "column2 width is NOT correct , hope to get " + width2 + " but get " +Spaltenbreite2.Gettext + + TabSpalten.Cancel + + Kontext + Kontext "BereicheBearbeiten" + BereicheBearbeiten.Cancel + + Call hCloseDocument + +endcase + +'------------------------------------------------------ + +testcase tEditSection_2 + + Dim sectionName as String + Dim testText as String + + sectionName = "HideSection" + testText = "Hide Section" + + '/// hide section in format/section /// + printlog " - hide section in format/section" + + Call hNewDocument + + '/// insert a normal section, and input some words + Call wTypeKeys "<RETURN>" + Call wTypeKeys testText + Call wTypeKeys "<SHIFT HOME>" + Call fInsertSection(sectionName) + '/// Edit section with Format/Section and choose 'Hide' + Kontext + FormatSections + Kontext "BereicheBearbeiten" + Ausblenden.check + BereicheBearbeiten.OK + sleep(1) + '/// check the section and its contents + printlog " -- check the section and its contents " + try + EditSelectAll + EditCopy + warnlog "'Edit / Copy' is usable but if there is nothing in the document (hidden section) it should be disabled!" + catch + printlog "Clipboard should be and is empty." + endcatch + Call hCloseDocument +endcase + +'------------------------------------------------------------------- + +testcase tEditSection_3 + + Dim sectionName as String + Dim testText as String + + sectionName = "ProtectSection" + testText = "Protect Section" + + '/// protect section in format/section /// + PrintLog " - protect section in format/section" + + Call hNewDocument + + '/// Open options and check 'Direct-Cursor' in options /// + fCheckDirectCursor + + '/// insert a normal section, and input some words + Call wTypeKeys testText + Call wTypeKeys "<Shift Home>" + + Call fInsertSection(sectionName) + + '/// Edit section with Format/Section and choose 'Protect' + Kontext + FormatSections + Kontext "BereicheBearbeiten" + Geschuetzt.Check + BereicheBearbeiten.OK + sleep 1 + + Call wTypeKeys "<Home>" + Call wTypeKeys "<Space>" + Kontext "Active" + If Active.Exists then + Active.ok + else + Warnlog "- No warning when trying to write in protected area!" + end if + + Call hCloseDocument + +endcase + +'-------------------------------------------------------- + +testcase tEditSection_4 + + Dim sectionName as String + Dim testText as String + + sectionName = "LinkSection" + testText = "Link Section" + + if Dir (gOfficePath + "user\work\tEditSection_4.odt") <> "" then kill (gOfficePath + "user\work\tEditSection_4.odt") + + '/// remove link(s), also via Edit - Links /// + PrintLog " - remove link(s), also via Edit - Links " + + '/// edit a test file and save it + Call hNewDocument + Call wTypeKeys testText + Call hFileSaveAsKill (gOfficePath + "user\work\tEditSection_4.odt") + Call hCloseDocument + + Call hNewDocument + + '/// insert a section and link the test file + InsertSection + Sleep 1 + Kontext + Active.Setpage TabBereiche + Kontext "TabBereiche" + Bereichsliste.Settext sectionName + Verknuepfung.Check + + DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\tEditSection_4.odt") + TabBereiche.OK + Sleep 1 + + '/// Edit section with Format/Section and unCheck 'link' + Kontext + FormatSections + Kontext "BereicheBearbeiten" + Verknuepfung.UnCheck + BereicheBearbeiten.OK + sleep 1 + + '/// the test file's content should be reserved after + '/// + unlinking the test file + EditSelectAll + EditCopy + if GetClipBoardText <> testText then Warnlog "the test file's content should be reserved after unlinking the test file" + + '/// check if the unlink is taken effect + Kontext + FormatSections + Kontext "BereicheBearbeiten" + If Verknuepfung.IsChecked = TRUE then Warnlog "The link option should be UnChecked!" + BereicheBearbeiten.Cancel + + Call hCloseDocument + +endcase + +'------------------------------------------------------- + +testcase tEditSection_5 + + Dim sectionName as String + Dim testText as String + + sectionName = "RemoveSection" + testText = "Remove Section Test" + + '/// remove section via Edit - undo /// + PrintLog " - remove section via Edit - undo" + + Call hNewDocument + + '/// insert a normal section, and input some words + Call wTypeKeys testText + Call wTypeKeys "<Shift Home>" + Call fInsertSection(sectionName) + + '/// remove section with Format/Section and click undo button + Kontext + FormatSections + Kontext "BereicheBearbeiten" + + 'click undo button + Aufheben.Click + Sleep 1 + BereicheBearbeiten.OK + sleep 1 + + 'check if section is still existed + try + Kontext + FormatSections + Kontext "BereicheBearbeiten" + BereicheBearbeiten.Cancel + Warnlog "There are should be no section existed!" + catch + endcatch + + '/// the test file's content should be reserved after removing the section + EditSelectAll + EditCopy + if GetClipBoardText <> testText then Warnlog "the test file's content should be reserved after removing the section" + + Call hCloseDocument + +endcase + +'------------------------------------------------ + +testcase tParagraphSection_1 + + Dim documentName as String + Dim sectionName as String + Dim hopeResult as String + + documentName = ConvertPath(gTesttoolpath + "writer\optional\input\section\tParagraphSection_1.sxw") + sectionName = "ParagraphSection" + hopeResult = "He " + + '/// Keep paragraphs together /// + PrintLog " - Keep paragraphs together" + + '/// Open a file with 4 paragraphs, the 4th paragraph is crossing the page + Call hFileOpen(documentName) + Call sMakeReadOnlyDocumentEditable + + EditSelectAll + Call fInsertSection(sectionName) + Call wTypeKeys "<MOD1 End>" + Call wTypeKeys "<Up>",3 + + FormatParagraph + Kontext + active.SetPage TabTextfluss + kontext "TabTextfluss" + + '/// Check option "Do not split paragraphs" + AbsatzNichtTrennen.Check + + TabTextfluss.OK + + Call wTypeKeys "<MOD1 Home>" + + 'Set the focus to the head of second page + Kontext + ViewNavigator + Kontext "NavigatorWriter" + Seitennummer.SetText "2" + Sleep 2 + fCloseNavigator + + Call wTypeKeys "<Shift MOD1 Right>" + EditCopy + + if GetClipBoardText <> hopeResult then Warnlog "Something wrong in Keep paragraphs together test!" + + Call hCloseDocument + +endcase + +'------------------------------------------------------- + +testcase tParagraphSection_2 + + Dim sectionName as String + Dim beforeTextIntent1 as String + Dim afterTextIntent1 as String + Dim firstTextIntent1 as String + Dim beforeTextSpace1 as String + Dim afterTextSpace1 as String + Dim beforeTextIntent2 as String + Dim afterTextIntent2 as String + Dim firstTextIntent2 as String + Dim beforeTextSpace2 as String + Dim afterTextSpace2 as String + + sectionName = "ParagraphSection" + + '/// paragraph spacing /// + PrintLog " - paragraph spacing " + + Call hNewDocument + + '/// insert first paragraph , and do some configurations + if wBlindtextEinfuegen() = false then + Call hCloseDocument + goto endsub + end if + + if iSprache = 82 then + Call wTypeKeys "<Return>" + end if + Call wTypeKeys "<Up>" + + FormatParagraph + Kontext + active.SetPage TabEinzuegeUndAbstaende + kontext "TabEinzuegeUndAbstaende" + + beforeTextIntent1 = "0" + gSeperator + "10" + gMeasurementUnit + afterTextIntent1 = "0" + gSeperator + "20" + gMeasurementUnit + firstTextIntent1 = "0" + gSeperator + "30" + gMeasurementUnit + beforeTextSpace1 = "0" + gSeperator + "40" + gMeasurementUnit + afterTextSpace1 = "0" + gSeperator + "50" + gMeasurementUnit + + Vonlinks.SetText beforeTextIntent1 + VonRechts.SetText afterTextIntent1 + ErsteZeile.SetText firstTextIntent1 + Oben.SetText beforeTextSpace1 + Unten.SetText afterTextSpace1 + Automatisch.Check + Registerhaltigkeit.UnCheck + TabEinzuegeUndAbstaende.OK + + call wTypeKeys "<Down>" + call wTypeKeys "<RETURN>" + + '/// insert second paragraph , and do some configurations which is different from the first one + wBlindtextEinfuegen + Call wTypeKeys "<Up>" + + FormatParagraph + Kontext + active.SetPage TabEinzuegeUndAbstaende + kontext "TabEinzuegeUndAbstaende" + + beforeTextIntent2 = "0" + gSeperator + "60" + gMeasurementUnit + afterTextIntent2 = "0" + gSeperator + "70" + gMeasurementUnit + firstTextIntent2 = "0" + gSeperator + "80" + gMeasurementUnit + beforeTextSpace2 = "0" + gSeperator + "90" + gMeasurementUnit + afterTextSpace2 = "0" + gSeperator + "10" + gMeasurementUnit + + Vonlinks.SetText beforeTextIntent2 + VonRechts.SetText afterTextIntent2 + Automatisch.UnCheck + ErsteZeile.SetText firstTextIntent2 + Oben.SetText beforeTextSpace2 + Unten.SetText afterTextSpace2 + Registerhaltigkeit.Check + TabEinzuegeUndAbstaende.OK + + EditSelectAll + Call fInsertSection(sectionName) + + 'Check the first paragraph's configuration + Call wTypeKeys "<MOD1 Home>" + FormatParagraph + Kontext + active.SetPage TabEinzuegeUndAbstaende + kontext "TabEinzuegeUndAbstaende" + + if Automatisch.IsChecked <> TRUE then Warnlog "Something wrong with the checkbox 'Automatic' in first paragraph!" + if Registerhaltigkeit.IsChecked = TRUE then Warnlog "Something wrong with the checkbox 'Register' in first paragraph!" + + if Vonlinks.GetText <> beforeTextIntent1 then Warnlog "Something wrong with the before-text-intent-area in the first paragraph" + if VonRechts.GetText <> afterTextIntent1 then Warnlog "Something wrong with the after-text-intent-area in the first paragraph" + if ErsteZeile.GetText <> firstTextIntent1 then Warnlog "Something wrong with the first-text-intent-area in the first paragraph" + if Oben.GetText <> beforeTextSpace1 then Warnlog "Something wrong with the before-sparcing area in the first paragraph" + if Unten.GetText <> afterTextSpace1 then Warnlog "Something wrong with the after-sparcing area in the first paragraph" + + TabEinzuegeUndAbstaende.Cancel + + Call wTypeKeys "<MOD1 End>" + Call wTypeKeys "<Up>",3 + + 'Check the second paragraph's configuration + FormatParagraph + Kontext + active.SetPage TabEinzuegeUndAbstaende + kontext "TabEinzuegeUndAbstaende" + + if Automatisch.IsChecked = TRUE then Warnlog "Something wrong with the checkbox 'Automatic' in the second paragraph!" + if Registerhaltigkeit.IsChecked <> TRUE then Warnlog "Something wrong with the checkbox 'Register' in the second paragraph!" + + if Vonlinks.GetText <> beforeTextIntent2 then Warnlog "Something was wrong with the before-text-intent in the second paragraph!" + if VonRechts.GetText <> afterTextIntent2 then Warnlog "Something wrong with the after-text-intent in the second paragraph!" + if ErsteZeile.GetText <> firstTextIntent2 then Warnlog "Something wrong with the first-text-intent in the second paragraph!" + if Oben.GetText <> beforeTextSpace2 then Warnlog "Something wrong with the before-text-sparcing area in the second paragraph!" + if Unten.GetText <> afterTextSpace2 then Warnlog "Something wrong with the after-text-sparcing area in the second paragraph!" + + TabEinzuegeUndAbstaende.Cancel + + Call hCloseDocument + +endcase + +'------------------------------------------------------- + +testcase tParagraphSection_3 + + Dim sectionName as String + Dim left1 as String + Dim right1 as String + Dim top1 as String + Dim bottom1 as String + Dim distance1 as String + Dim left2 as String + Dim distance2 as String + Dim COMPAREvar1 as String + Dim COMPAREvar2 as String + Dim COMPAREvar3 as String + Dim COMPAREvar4 as String + + sectionName = "ParagraphSection" + + '/// paragraph borders /// + PrintLog " - paragraph borders " + + Call hNewDocument + + '/// insert first paragraph , and do some configurations + if wBlindtextEinfuegen() = false then + Call hCloseDocument + goto endsub + end if + if iSprache = 82 then + Call wTypeKeys "<Return>" + end if + Call wTypeKeys "<Up>" + + FormatParagraph + Kontext + active.SetPage TabUmrandung + kontext "TabUmrandung" + + Vorgaben.Typekeys "<home><right>" ' 2nd from the left + synchronisieren.UnCheck + + left1 = "0" + gSeperator + "1" + right1 = "0" + gSeperator + "2" + top1 = "0" + gSeperator + "3" + bottom1 = "0" + gSeperator + "4" + distance1 = "4" + gSeperator + "2" + + Links.SetText left1 + Rechts.SetText right1 + Oben.SetText top1 + Unten.SetText bottom1 + + Position.TypeKeys "<home><right>" ' 2nd. from the left + Groesse.SetText distance1 + SchattenFarbe.Select 2 + TabUmrandung.OK + + Call wTypeKeys "<Down>",2 + + '/// insert second paragraph , and do some configurations + '/// + which is different from the first one + wBlindtextEinfuegen + Call wTypeKeys "<Up>" + + FormatParagraph + Kontext + active.SetPage TabUmrandung + kontext "TabUmrandung" + + Vorgaben.Typekeys "<home><right><right>" ' 3nd from the left + synchronisieren.Check + + left2 = "0" + gSeperator + "6" + distance2 = "4" + gSeperator + "7" + + Links.SetText left2 + + Position.TypeKeys "<home><right><right>" ' 3nd. from the left + Groesse.SetText distance2 + SchattenFarbe.Select 5 + TabUmrandung.OK + + EditSelectAll + Call fInsertSection(sectionName) + + '<<< Check the FIRST paragraph's configuration >>> + Call wTypeKeys "<MOD1 Home>" + + FormatParagraph + Kontext + active.SetPage TabUmrandung + kontext "TabUmrandung" + + ' if synchronisieren.IsChecked = TRUE then Warnlog "The Synchronize option should NOT be checked in first paragraph!" + COMPAREvar1 = Links.GetText + COMPAREvar2 = Rechts.GetText + COMPAREvar3 = Oben.GetText + COMPAREvar4 = Unten.GetText + + printlog (InStr( COMPAREvar1, left1 ) = false) + if InStr( COMPAREvar1, left1 ) = false then Warnlog "Something wrong with the Left -space to contents area in first paragraph" + if InStr( COMPAREvar2, right1 ) = false then Warnlog "Something wrong with the Right -space to contents area in first paragraph" + if InStr( COMPAREvar3, top1 ) = false then Warnlog "Something wrong with the Top -space to contents area in first paragraph" + if InStr( COMPAREvar4, bottom1 ) = false then Warnlog "Something wrong with the Bottom -space to contents area in first paragraph" + + if InStr( Groesse.GetText, distance1 ) = false then Warnlog "Something wrong with the size in first paragraph" +' Groesse.GetText <> distance1 then Warnlog "Something wrong with the size in first paragraph" + if SchattenFarbe.GetSelIndex <> 2 then Warnlog "Something wrong in shadow color in the first paragraph" + + TabUmrandung.Cancel + + Call wTypeKeys "<MOD1 End>" + Call wTypeKeys "<Up>",3 + + '<<<Check the SECOND paragraph's configuration>>> + FormatParagraph + Kontext + active.SetPage TabUmrandung + kontext "TabUmrandung" + + ' if synchronisieren.IsChecked <> TRUE then Warnlog "The Synchronize option should be checked in second paragraph!" + + if InStr( Links.GetText, left2 ) = false OR InStr( Rechts.GetText, left2 ) = false OR InStr( Oben.GetText, left2 ) = false OR InStr( Unten.GetText, left2 ) = false then + Warnlog "Something wrong in space to contents area in second paragraph" + end if + + if InStr( Groesse.GetText, distance2 ) = false then Warnlog "Something wrong with the size in first paragraph" + if SchattenFarbe.GetSelIndex <> 5 then Warnlog "Something wrong in shadow style area in the first paragraph" + + TabUmrandung.Cancel + + Call hCloseDocument + +endcase + +'------------------------------------------------------- + +testcase tScenarioSection_1 + + Dim SectionName() as String + Dim tempFile as String + DIM sectionInMasterDoc + Dim MasterDoc as String + DIM ContentInMasterDoc() as String + Dim i as integer + Dim j as Integer + Dim temp1 as String + Dim temp2 as String + Dim LinkFile as String + + '/// create Masterdocument from another document that also contains sections /// + PrintLog " - create Masterdocument from another document that also contains sections" + + MasterDoc = Convertpath( gOfficePath + "user\work\tScenarioSection_1.odm" ) + + SectionName = Array( _ + "tScenarioSection_11.odt", _ + "tScenarioSection_12.odt", _ + "tScenarioSection_13.odt", _ + ) + + ContentInMasterDoc = Array( _ + "This is scenario Section test" , _ + "The content in hide section" , _ + "The content in protect section", _ + ) + + + j = UBound(SectionName) + + if hFileExists ( MasterDoc ) then app.kill ( MasterDoc ) + + For i = 0 to j + tempFile = Convertpath( gOfficePath + "user\work\" + SectionName(i) ) + if hFileExists ( tempFile ) then app.kill ( tempFile ) + next i + + '/// open testdocument (tScenarioSection_1.sxw) /// + Call hFileOpen ( gTesttoolpath + "writer\optional\input\section\tScenarioSection_1.sxw") + Call sMakeReadOnlyDocumentEditable + + '/// Select 'File /Send -> Create Masterdocument /// + FileSendCreateMasterdocument + + '/// the 'Save as...' dialog has to appear /// + Kontext "SendMasterDocument" + if SendMasterDocument.NotExists then Warnlog "Save As - Dialog didn't appear!" + + '/// Select as template 'Default' /// + Vorlage.Select 1 + + '/// Save document as 'tScenarioSection_1.odm' /// + Dateiname.SetText Convertpath( gOfficePath + "user\work\tScenarioSection_1" ) + + Speichern.Click + Sleep 3 + + Kontext "Active" + if Active.Exists then + Active.yes + else + Warnlog "- No messagebox asking for the actualizationing of the master document !" + end if + Sleep 1 + + Kontext "Navigator" + if Navigator.Exists then + Navigator.Close + else + Warnlog "Navigator in Master document isn't up!" + end if + + Call wTypeKeys "<Up>" , 3 + + '/// Check the sections in MasterDoc + '/// 1) check the content is section + '/// 2) check the section name + '/// 3) check if the section is hidden (should NOT be hidden) + '/// 4) check if the section is protected (should be protected) + '/// 5) check if the section is linked and linked file is correct or not (should be linked) + + For i = 0 to j + + Call wTypeKeys "<Home><Shift End>" + EditCopy + + if GetClipboardText = ContentInMasterDoc(i) then + Kontext + FormatSections + Kontext "BereicheBearbeiten" + + if BereichsName.GetText <> SectionName(i) then + Warnlog "The first section's name is wrong !" + Warnlog "We hope it is " + SectionName(i) + " but get: " +BereichsName.GetText + end if + if Ausblenden.IsChecked = TRUE then Warnlog "The section should NOT be hidden" + if Geschuetzt.IsChecked <> TRUE then Warnlog "The section should be protected" + if Verknuepfung.IsChecked = TRUE then + temp1 = LCase("user/work/" & SectionName(i)) + temp2 = LCase(Dateiname.GetText) + + if Instr(temp2, temp1) = 0 then Warnlog "The linked file is NOT correct!" + else + Warnlog "The section should be linked" + end if + BereicheBearbeiten.Cancel + else + Warnlog "The content in first section in Master file is wrong!" + end if + + Call wTypeKeys "<Down>" + + next i + + Call hCloseDocument +endcase + +'------------------------------------------------------- + +testcase tScenarioSection_2 + + Dim SectionName() as String + Dim tempFile as String + DIM sectionInMasterDoc as String + Dim MasterDoc as String + DIM ContentInMasterDoc() as String + Dim i as Integer + Dim j as Integer + Dim k as Integer + Dim sValue as String + + '/// create Masterdocument from another document that also contains sections and footnotes + PrintLog " - create Masterdocument from another document that also contains sections and footnotes" + + MasterDoc = Convertpath( gOfficePath + "user\work\tScenarioSection_2.sxg" ) + + SectionName = Array( _ + "tScenarioSection_21.odt", _ + "tScenarioSection_22.odt", _ + "tScenarioSection_23.odt", _ + ) + + ContentInMasterDoc = Array( _ + "This is scenario Section test" , _ + "FootNote1The content in hide sectionEndNote1" , _ + "FootNote2The content in protect sectionEndNote2", _ + ) + + j = UBound(SectionName) + + if hFileExists ( MasterDoc ) then app.kill ( MasterDoc ) + + For i = 0 to j + tempFile = Convertpath( gOfficePath + "user\work\" + SectionName(i) ) + if hFileExists ( tempFile ) then app.kill ( tempFile ) + next i + + '/// open testdocument (tScenarioSection_2.sxw) /// + Call hFileOpen ( gTesttoolpath + "writer\optional\input\section\tScenarioSection_2.sxw") + Call sMakeReadOnlyDocumentEditable + + '/// Select 'File -> Send -> Create Masterdocument /// + FileSendCreateMasterdocument + + '/// the 'Save as...' dialog has to appear /// + Kontext "SendMasterDocument" + if SendMasterDocument.NotExists then Warnlog "Save As - Dialog didn't appear!" + + '/// Select as template 'Default' /// + Vorlage.Select 1 + + '/// Save document as 'masterdoc.odm' /// + Dateiname.SetText Convertpath( gOfficePath + "user\work\tScenarioSection_2" ) + + Speichern.Click + Sleep 3 + + Kontext "Active" + if Active.Exists then + Active.yes + else + Warnlog "- No messagebox asking for the actualizationing of the master document !" + end if + Sleep 1 + + Kontext "Active" + if Active.Exists(5) then + Active.Yes + end if + + Kontext "Navigator" + if Navigator.Exists then + Navigator.Close + else + Warnlog "Navigator in Master document isn't up!" + end if + + Call wTypeKeys "<Up>" , 3 + + '/// Check the sections in MasterDoc + '/// 1) check the content is section + '/// 2) check the section name + '/// 3) check if the section is hidden (should NOT be hidden) + '/// 4) check if the section is protected (should be protected) + '/// 5) check if the section is linked and linked file is correct or not (should be linked) + + For i = 0 to j + + Call wTypeKeys "<Home><Shift End>" + EditCopy + + if GetClipboardText = ContentInMasterDoc(i) then + Kontext + FormatSections + Kontext "BereicheBearbeiten" + + if BereichsName.GetText <> SectionName(i) then + Warnlog "The first section's name is wrong !" + Warnlog "We hope it is " + SectionName(i) + " but get: " +BereichsName.GetText + end if + + if Ausblenden.IsChecked = TRUE then Warnlog "The section should NOT be hidden" + if Geschuetzt.IsChecked <> TRUE then Warnlog "The section should be protected" + if Verknuepfung.IsChecked = TRUE then + sValue = ConvertPath ( gOfficePath & "user/work/" + SectionName(i) ) + if Instr( ConvertPath(Dateiname.Gettext), sValue) = false then + Warnlog "The linked file is NOT correct!" + end if + else + Warnlog "The section should be linked" + end if + BereicheBearbeiten.Cancel + else + Warnlog "The content in first section in Master file is wrong!" + end if + + Call wTypeKeys "<Down>" + + next i + + Call hCloseDocument + +endcase + +'---------------------------------------------- + +testcase tCTLSection_1 + + '/// CTL specials Check -- insert/sections /// + PrintLog " - CTL specials -- insert/sections " + + Call hNewDocument + + '/// 1)Switch on "Complex scripts support" in Tools/Options/Language Settings/Languages + ActiveDeactivateCTLSupport(True) + + '/// 2)Insert/sections / Columns + InsertSection + Sleep 1 + Kontext + Active.Setpage TabSpalten + Kontext "TabSpalten" + + '/// 3)Check if text direction listbox is visible + if (TextDirection.Exists) then + + '/// 4)Check the default name + if TextDirection.GetSelIndex <> 3 then + Warnlog "The default name we hope is :" + TextDirection.GetItemText(3) +" but get: "+TextDirection.GetSelText + end if + + '/// 5)Check the available values ( Should 3 items ) + if TextDirection.GetItemCount <> 3 then + Warnlog "The values in TextDirection should be 3, but get " +TextDirection.GetItemCount + end if + + else + Warnlog "the textdirection listbox doesn't exist!" + end if + + TabSpalten.Cancel + + 'Recover to default + ActiveDeactivateCTLSupport(False) + + Call hCloseDocument + +endcase + +'------------------------------------------------------- + +testcase tCTLSection_2 + + Dim SectionName as String + + SectionName = "CTLSection" + + '/// CTL specials -- format/section/options /Columns /// + PrintLog " - CTL specials -- format/section/options /Columns " + + Call hNewDocument + + '/// 1)Switch on "Complex scripts support" in Tools/Options/Language Settings/Languages + ActiveDeactivateCTLSupport(True) + + '/// 2)Insert a section + Call fInsertSection(SectionName) + + '/// 3)format/section/options /Columns + Kontext + FormatSections + Kontext "BereicheBearbeiten" + Optionen.Click + + Kontext + Active.Setpage TabSpalten + Kontext "TabSpalten" + + '/// 4)Check if text direction listbox is visible + if (TextDirection.Exists) then + + '/// 5)Check the default name + if TextDirection.GetSelIndex <> 3 then + Warnlog "The default name we hope is :" + TextDirection.GetItemText(3) +" but get: "+TextDirection.GetSelText + end if + + '/// 6)Check the available values ( Should 3 items ) + if TextDirection.GetItemCount <> 3 then + Warnlog "The values in TextDirection should be 3, but get " +TextDirection.GetItemCount + end if + + else + Warnlog "the textdirection listbox doesn't exist!" + end if + + TabSpalten.Cancel + + Kontext + Kontext "BereicheBearbeiten" + BereicheBearbeiten.Cancel + + 'Recover to default + ActiveDeactivateCTLSupport(False) + + Call hCloseDocument + +endcase |