'encoding UTF-8 Do not remove or change this line! '************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* '* '* short description : Hide section / Protect section / Display of dialogues '* '************************************************************************ '* ' #1 tHideSection_1 ' #1 tHideSection_2 ' #1 tHideSection_3 ' #1 tProtectSection_1 ' #1 tDisplaySection_1 ' #1 tDisplaySection_2 ' #1 tDisplaySection_3 ' #1 tDisplaySection_4 ' #1 tDisplaySection_5 ' #1 tDisplaySection_6 ' #1 tDisplaySection_7 ' #1 tDisplaySection_8 ' #1 tDisplaySection_9 '* '\*********************************************************************** sub w_section_2 printLog Chr(13) + "--------- Hide Section ----------" Call tHideSection_1 'Hide Section without condition Call tHideSection_2 'Hide Section with condition Call tHideSection_3 'Headings and index entries in hidden section should disappear from an index (after actualizing the index) printLog Chr(13) + "--------- Protect Section ----------" Call tProtectSection_1 'Protect Section printLog Chr(13) + "--------- Display of dialogues (Insert - Section) ----------" Call tDisplaySection_1 'Check display of dialogues -- Insert Section printLog Chr(13) + "--------- Display of dialogues (Format - Section) ----------" Call tDisplaySection_2 'Check display of dialogues -- Format Section -1 Call tDisplaySection_3 'Check display of dialogues -- Format Section -2 Call tDisplaySection_4 'hiding a section hierarchy hides all subsections printLog Chr(13) + "--------- Display of dialogues (Navigator) ----------" Call tDisplaySection_5 'Sections are displayed in row of their insertion in Navigator Call tDisplaySection_6 'Jump to a section by double-clicking it in navigator Call tDisplaySection_7 'Activate Navigator, insert a section , it must be displayed Call tDisplaySection_8 'Select a section in the Navigator, call context menu, choose "Edit" Call tDisplaySection_9 'Check to insert a paragraph before and after a section end sub '*********************************************************************** testcase tHideSection_1 '/// Hide Section without condition printlog "Hide Section without condition " '/// 1. Test from insert/section '/// Open a new document. Call hNewDocument '/// Press Return and then input some test words Call wTypeKeys "" Call wTypeKeys "Section: hidden without condition" '/// Select the test words with SHIFT and HOME keys. Call wTypeKeys "" '/// Insert/Section / Section, check 'Hide' in Hide area InsertSection Kontext Active.Setpage TabBereiche Kontext "TabBereiche" Ausblenden.check TabBereiche.OK sleep(2) '/// Edit / SelectAll EditSelectAll '/// Edit / Copy 'Edit / Copy should NOT be available because the words in the section are hidden. try EditCopy warnlog "Hide Section without condition doesn't work in insert/section!" catch endcatch Call hCloseDocument '/// 2.Test from format/section Call hNewDocument '/// Press Return and then input some test words Call wTypeKeys "" Call wTypeKeys "Section: hidden without condition" '/// Select the test words with SHIFT and HOME keys. Call wTypeKeys "" '/// Insert a section Call fInsertSection("HideSection") '/// Format/Section and check 'Hide' in Hide area FormatSections Kontext "BereicheBearbeiten" Ausblenden.check BereicheBearbeiten.OK '/// Edit / SelectAll EditSelectAll '/// Edit / Copy 'Edit / Copy should NOT be available , because the words in the section are hided try EditCopy warnlog "Hide Section without condition doesn't work in format/section!" catch endcatch '///Close the document. Call hCloseDocument endcase '---------------------------------------------------------- testcase tHideSection_2 Dim rightCondition as String Dim wrongCondition as String '/// Hide Section with condition printlog "Hide Section with condition " '/// Open a new document. Call hNewDocument '/// Press RETURN and then input some test words. Call wTypeKeys "" Call wTypeKeys "Section: hidden with condition" '/// Select test words with UP- then HOME-key. Press SHIFT- and END-keys together. Call wTypeKeys "" '/// Insert a section. Call fInsertSection("HideSection") '/// Place the cursor out of the section with DOWN key. Call wTypeKeys "" '/// Insert a user field '/// Insert/Fields/Others , Tabpage Variables , '/// + select 'User field' in 'Type' area , '/// + then select 'Text' in 'Format' area , '/// + input 'myTest' in Name and 'a' in Value , '/// + click insert button , and close the dialog InsertFieldsOther Kontext Active.SetPage TabVariablen Kontext "TabVariablen" Feldtyp.Select Feldtyp.GetItemCount 'User Field Zahlenformat.Select(1) 'Text NameText.SetText "myTest" Formel.SetText "a" Einfuegen.Click '--insert button sleep(1) TabVariablen.Close '/// Format/Section, click Hide and enter condition FormatSections Kontext "BereicheBearbeiten" Ausblenden.check '/// -- enter wrong condition should NOT hide section '/// => wrong Condition is (myTest eq "B") wrongCondition = "myTest eq " + String(1,34) + "B" + String(1,34) Bedingung.SetText wrongCondition BereicheBearbeiten.OK sleep(2) 'Tools/Update/Fields to ensure to hide the section if the section can be hided ToolsUpdateFields sleep(2) '/// Use UP-, then HOME-keys, then SHIFT- and END-keys together to '///+ check if the test words in section is hidden. Call wTypeKeys "" try EditCopy catch warnlog "Hide Section with wrong condition should NOT hide the section!" Goto endsub endcatch if GetClipboardText = "Section: hidden with condition" then '/// Press DOWN key. Call wTypeKeys "" Kontext '/// Format / Sections FormatSections Kontext "BereicheBearbeiten" '/// Check 'Hide'-checkbox. Ausblenden.check '/// -- enter right condition should hide section '/// => rightCondition is (myTest eq "A") rightCondition = "myTest eq " + String(1,34) + "a" + String(1,34) Bedingung.SetText rightCondition '/// Close the dialogue with OK. BereicheBearbeiten.OK sleep(2) '/// Tools / Update / Fields ToolsUpdateFields sleep(1) '/// Check if the test words in section are hidden. Call wTypeKeys "" try EditCopy if GetClipboardText = "Section: hidden with condition" then warnlog "Hide Section with wrong condition should NOT hide the section!" else warnlog "Something wrong, need to check! -- II" end if catch endcatch else warnlog "Something wrong, need to check! -- I" end if '///Close the document. Call hCloseDocument endcase '---------------------------------------------------------- testcase tHideSection_3 '/// Headings and index entries in hidden section should disappear from an index (after actualizing the index) printlog " -- Headings and index entries in hidden section should disappear from an index (after actualizing the index)" Call hNewDocument '/// Insert some test words Call wTypeKeys "Test for Heading and Index in section" Call wTypeKeys "" Call wTypeKeys "" '/// Insert a section fInsertSection("HeadAndIndexInSection") '/// select part in the section. Call wTypeKeys "" '/// Select Insert/Indexes and Tables/Entrys and add this part to an index InsertIndexesEntry Sleep 4 Kontext "VerzeichniseintragEinfuegen" '/// generate testing index - myTest EintragNeu.Click Kontext Kontext "BenutzerverzeichnisDefinieren" NameBenutzerverzeichnis.Settext "myTest" BenutzerverzeichnisDefinieren.Ok Kontext Kontext "VerzeichniseintragEinfuegen" EintragOk.Click Sleep 1 VerzeichniseintragEinfuegen.close '/// Move the cursor out of the section Call wTypeKeys "" '/// Insert/Indexes and Tables/Indexes and Tables ... InsertIndexes Sleep 2 Kontext Active.SetPage TabVerzeichnisseVerzeichnis Kontext "TabVerzeichnisseVerzeichnis" Verzeichnistyp.Select "myTest" '/// protected against manual changes UNcheck VerzeichnisGeschuetzt.UnCheck TabVerzeichnisseVerzeichnis.OK '/// Edit section with Format/Section and choose 'Hide' Call wTypeKeys "" Kontext FormatSections Kontext "BereicheBearbeiten" Ausblenden.check BereicheBearbeiten.OK ToolsUpdateAllIndexes EditSelectAll EditCopy if InStr( GetClipboardText , "Test" ) <> 0 then warnlog "Headings and index entries in hidden section don't disappear from an index:" + GetClipboardText Call hCloseDocument endcase '---------------------------------------------------------- testcase tProtectSection_1 printlog " - Protect Section" '/// Protect Section /// Call hNewDocument '/// Open options and check 'Direct-Cursor' in options /// fCheckDirectCursor Call wTypeKeys "Should be edited" Call wTypeKeys "Section: protected" Call wTypeKeys "" '/// Insert a protected section in the bottom /// InsertSection Sleep 2 Kontext Active.Setpage TabBereiche Kontext "TabBereiche" Bereichsliste.Settext "protect section" Geschuetzt.Check TabBereiche.OK sleep 1 EditCopy '/// 1) Warning should appear when trying to write in protected area! /// if GetClipBoardtext = "Section: protected" then Call wTypeKeys "" Call wTypeKeys "" Kontext "Active" If Active.Exists then Active.ok else warnlog "- No warning when trying to write in protected area!" end if else warnlog "Testtool couldn't find the protected area!" end if Call wTypeKeys "" Call wTypeKeys "" EditCopy '/// 2) Warning should NOT appear when trying to write in un-protected area '/// + even the protected section at the end of document if GetClipBoardtext = "Should be edited" then Call wTypeKeys "" Call wTypeKeys "Can you see what I am doing?" Call wTypeKeys "" EditCopy If GetClipBoardtext <> "Can you see what I am doing?Should be edited" then warnlog "Should edit in the no-protected area" else warnlog "Testtool couldn't find the edited area!" end if Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_1 '/// Check display of dialogues -- Insert Section printlog " - Check display of dialogues -- Insert Section" Dim SectionName() as String Dim correctSequence() as String Dim selectName as String Dim i as Integer Dim j as Integer SectionName = Array( _ "a1","b2","c3","d4","e5","f6","g7", _ "h1","i2","j3","k4","l5","m6","n7", _ "H1","I2","J3","K4","L5","M6","N7", _ "A1","B2","C3","D4","E5","F6","G7", _ ) Select case iSystemSprache case 81,82,86,88 : correctSequence = Array( _ "a1","A1","b2","B2","c3","C3","d4","D4", _ "e5","E5","f6","F6","g7","G7", _ "h1","H1","i2","I2","j3","J3","k4","K4", _ "l5","L5","m6","M6","n7","N7", _ ) case else : correctSequence = Array( _ "a1","A1","b2","B2","c3","C3","d4","D4", _ "e5","E5","f6","F6","g7","G7", _ "h1","H1","i2","I2","j3","J3","k4","K4", _ "l5","L5","m6","M6","n7","N7", _ ) end select ' correctSequence = Array( _ ' "A1","a1","B2","b2","C3","c3","D4","d4", _ ' "E5","e5","F6","f6","G7","g7", _ ' "H1","h1","I2","i2","J3","j3","K4","k4", _ ' "L5","l5","M6","m6","N7","n7", _ ' ) j = UBound(SectionName) Call hNewDocument '/// insert a lot of sections For i = 0 to j fInsertSection(SectionName(i)) next i InsertSection Sleep 1 Kontext Active.Setpage TabBereiche Kontext "TabBereiche" '/// Check if Section name display alphabetically For i = 1 to j+1 Bereichsliste.Select i selectName = Bereichsliste.GetSelText if selectName <> correctSequence(i-1) then warnlog "Section name displays alphabetically wrong! Getting section name:"+ selectName +" The section name should be: "+ correctSequence(i-1) next i '/// check if vertical scrollbar display if (Bereichsliste.HasScrollbar (AlignRight)) = FALSE then warnlog "Vertical scrollbar should be displayed !" TabBereiche.Cancel sleep 1 Call hCloseDocument Call hNewDocument '/// Insert a section with a long name fInsertSection("a loooooooooooooooooooooooooooooooooooooooooooooooong name section") InsertSection Sleep 1 Kontext Active.Setpage TabBereiche Kontext "TabBereiche" '/// check if horizontal scrollbar display if (Bereichsliste.HasScrollbar (AlignBottom)) = FALSE then warnlog "horizontal scrollbar should be displayed" TabBereiche.Cancel sleep 1 Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_2 Dim SectionName() as String Dim i , j as Integer if Dir (gOfficePath + "user\work\testlink1.odt") <> "" then kill (gOfficePath + "user\work\testlink1.odt") if Dir (gOfficePath + "user\work\testlink2.odt") <> "" then kill (gOfficePath + "user\work\testlink2.odt") '/// Check display of dialogues -- Format Section -1 printlog " - Check display of dialogues -- Format Section" '/// -- Section names are displayed in row of their insertion SectionName = Array("a2","A1","a4","A5") j = UBound(SectionName) Call hNewDocument For i = 0 to j fInsertSection(SectionName(i)) next i Kontext FormatSections Kontext "BereicheBearbeiten" Bereich.TypeKeys "",4 For i = 0 to j if BereichsName.GetText <> SectionName(i) then warnlog "Section names are NOT displayed in row of their insertion" Bereich.TypeKeys "" next i BereicheBearbeiten.Cancel sleep 2 Call hCloseDocument '/// -- An exception is the hierarchical order; this is diplayed by an indentation SectionName = Array("A2","testlink1","A1","testlink2") j = UBound(SectionName) Call hNewDocument fInsertSection("testlink1") Call hFileSaveAsKill (gOfficePath + "user\work\testlink1.odt") Call hCloseDocument Call hNewDocument fInsertSection("testlink2") Call hFileSaveAsKill (gOfficePath + "user\work\testlink2.odt") Call hCloseDocument '/// insert fisrt section linked a test file which include a section Call hNewDocument InsertSection Sleep 2 Kontext Active.Setpage TabBereiche Kontext "TabBereiche" Bereichsliste.Settext "A2" Verknuepfung.Check DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\testlink1.odt") TabBereiche.OK '/// insert another section linked another test file which include another section InsertSection Sleep 2 Kontext Active.Setpage TabBereiche Kontext "TabBereiche" Bereichsliste.Settext "A1" Verknuepfung.Check DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\testlink2.odt") TabBereiche.OK Kontext FormatSections Kontext "BereicheBearbeiten" Bereich.TypeKeys "",4 For i = 0 to j if BereichsName.GetText <> SectionName(i) then warnlog "Section names are NOT displayed in row of their insertion" Bereich.TypeKeys "" next i BereicheBearbeiten.Cancel sleep 2 Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_3 '/// Check display of dialogues -- Format Section -2 '/// + double clicking a section with subsections hides the subsections, '/// + another double-click displays them again if Dir (gOfficePath + "user\work\DisplaySection_3.odt") <> "" then kill (gOfficePath + "user\work\DisplaySection_3.odt") printlog " - Check display of dialogues -- Format Section -2" Call hNewDocument fInsertSection("testlink1") Call hFileSaveAsKill (gOfficePath + "user\work\DisplaySection_3.odt") Call hCloseDocument '/// insert a section(A2) linked a test file which include a section(testlink1) Call hNewDocument InsertSection Sleep 2 Kontext Active.Setpage TabBereiche Kontext "TabBereiche" Bereichsliste.Settext "A2" Verknuepfung.Check DateiVerknuepfung.Settext ConvertPath(gOfficePath + "user\work\DisplaySection_3.odt") TabBereiche.OK Kontext FormatSections Kontext "BereicheBearbeiten" Bereich.TypeKeys "+" if Bereich.GetItemCount < 2 then warnlog "Should be 2 sections in the list tree, now get " +Bereich.GetItemCount Bereich.TypeKeys "-" if Bereich.GetItemCount > 1 then warnlog "Should be 1 section in the list tree, get " +Bereich.GetItemCount Bereich.TypeKeys "+" if Bereich.GetItemCount < 2 then warnlog "Should be 2 sections in the list tree, now get " +Bereich.GetItemCount Bereich.TypeKeys "-" if Bereich.GetItemCount > 1 then warnlog "Should be 1 section in the list tree, get " +Bereich.GetItemCount BereicheBearbeiten.Cancel sleep 2 Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_4 Dim mMessage as String Dim allMessage as String '///Goal: Hiding a section hierarchy hides all subsections. '///+(Except if the section which should be hided is the whole document - than this feature is disabled!) '///+Note: The display in the dialog should not affected by changes in the document view. printlog " - Check hiding a section hierarchy hides all subsections -- Format Section -3" Call hNewDocument '/// Creating a new document. Call wTypeKeys "This is Section_s" '/// Writing This is Section_s, marking it and use Insert / Section to create a Section_s. Call fInsertSection("Section_s") '/// Saving it as DisplaySection_4.odt in the user-work-dir. Call hFileSaveAsKill (gOfficePath & "user\work\DisplaySection_4.odt") '/// Closing the document. Call hCloseDocument '/// Creating a new document. Call hNewDocument '/// Entering a RETURN at the beginning of the new document! Call wTypeKeys "" '/// Writing This is Section_m and marking it. '/// Insert a section named Section_m. Call wTypeKeys "This is Section_m" Call fInsertSection("Section_m") '/// Create a new line with END and RETURN in the actual section. Call wTypeKeys "" '/// Write This Section should be Section_s and mark it. Call wTypeKeys "This Section should be Section_s" Kontext '/// Insert / Section InsertSection Kontext Active.Setpage TabBereiche Kontext "TabBereiche" '/// Name it Section_u. Bereichsliste.Settext "Section_u" '/// Link it to the first created document and the section in it. '///+ There should be pop up a warning! Press OK on it! Verknuepfung.Check Kontext "Active" if Active.Exists then if Active.GetRT = 304 then Active.Yes else warnlog "No messagebox warns of deleting content of the current section!" end if end if Kontext "TabBereiche" Dateiverknuepfung.Settext ConvertPath(gOfficePath & "user\work\DisplaySection_4.odt") '/// Unprotect it if it is protected. Geschuetzt.UnCheck '/// be sure that it is visible. Ausblenden.UnCheck '/// OK on the section dialog. TabBereiche.OK sleep(2) Call wTypeKeys "",2 '/// Type the keys together and twice. Call wTypeKeys "" '/// Type the keys together. EditCopy '/// Copy it to the clipboard (Edit / Copy). '/// This is Section_m should be now in the clipboard. if GetClipboardText = "This is Section_m" then '/// Type keys and then Call wTypeKeys "" '/// Type keys together Call wTypeKeys "" EditCopy '/// Copy it to the clipboard (Edit / Copy). if GetClipboardText = "This is Section_s" then '/// This is Section_s should be visible/in the clipboard because the top section should not be affected if a lower section has been hided. Kontext '/// Format / Sections FormatSections Kontext "BereicheBearbeiten" '/// Hide the Section_s (Middle section). Bereich.TypeKeys "" Ausblenden.Check '/// OK on the dialog. BereicheBearbeiten.OK sleep(2) Call wTypeKeys "" '/// Type key Call wTypeKeys "" '/// Type key together EditCopy '/// Copy it to the clipboard (Edit / Copy). if GetClipboardText <> "This is Section_m" then warnlog "Should only display the content in section_m, but '" & GetClipboardText & "' is visible." '/// This is Section_m should be in the clipboard, nothing more. Kontext '/// Format / Sections FormatSections Kontext "BereicheBearbeiten" '/// Verify that all sections we have created are visible in the dialog. Bereich.TypeKeys "" , 2 if BereichsName.GetText <> "Section_m" then warnlog "The display in dialogue is affected: '" & BereichsName.GetText & "'." Bereich.TypeKeys "" if BereichsName.GetText <> "Section_u" then warnlog "The display in dialogue is affected: '" & BereichsName.GetText & "'." Bereich.TypeKeys "" if BereichsName.GetText <> "Section_s" then warnlog "The display in dialogue is affected: '" & BereichsName.GetText & "'." '/// Unhide all Sections. Ausblenden.UnCheck '/// Go to the top section (Section_m Bereich.TypeKeys "" , 2 '/// Hide the top section. Ausblenden.Check '/// OK on the dialog. BereicheBearbeiten.OK sleep(2) '/// Edit / Select all EditSelectAll try '/// Verify that Edit / Copy is NOT usable! There is nothing selected because all sections should be hided! EditCopy warnlog "It was possible to use Edit / Copy but it should be an empty document and the menu item should be disabled!" catch printlog "Edit / Copy was disabled because there should be nothing in the document which could be copied." endcatch Kontext '/// Format / Sections FormatSections '///+ Verify that hidintg section_m in the document does not affect the dialog: Kontext "BereicheBearbeiten" Bereich.TypeKeys "" , 3 if BereichsName.GetText <> "Section_m" then warnlog "the display in dialogue is affected" +BereichsName.GetText Bereich.TypeKeys "" if BereichsName.GetText <> "Section_u" then warnlog "the display in dialogue is affected" +BereichsName.GetText Bereich.TypeKeys "" if BereichsName.GetText <> "Section_s" then warnlog "the display in dialogue is affected" +BereichsName.GetText BereicheBearbeiten.Cancel '/// Cancel the dialog. else warnlog "Don't get the correct content of Section_s" end if else warnlog "Don't get the correct content of Section_m" end if Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_5 Dim sectionName() as String Dim correctSequence() as String Dim i as Integer Dim j as Integer if Dir (gOfficePath + "user\work\NavigatorSection_1.odt") <> "" then kill (gOfficePath + "user\work\NavigatorSection_1.odt") '/// Sections are displayed in row of their insertion in Navigator. '///+Hierarchies, protected and hidden sections have no special mark. printlog " - Check Section name display in navigator" 'Generate a .odt file which include a section Call hNewDocument fInsertSection("Section_S") Call wTypeKeys "This is section_S" Call hFileSaveAsKill (gOfficePath + "user\work\NavigatorSection_1.odt") Call hCloseDocument Call hNewDocument '/// Input some test words Call wTypeKeys "Test is in sectionNormal" Call wTypeKeys "Test is in sectionHide" Call wTypeKeys "Test is in sectionProtect" sectionName = Array( _ "sectionNormal", _ "sectionHide", _ "sectionProtect", _ "sectionLink", _ "Section_S", _ ) correctSequence = Array( _ "sectionHide", _ "sectionNormal", _ "sectionProtect", _ "sectionLink", _ "Section_S", _ ) j = UBound(sectionName) Call wTypeKeys "",4 For i = 0 to j-1 Call wTypeKeys "" fInsertSection(sectionName(i)) Call wTypeKeys "" next i Kontext FormatSections Kontext "BereicheBearbeiten" '/// insert a normal section Bereich.TypeKeys "",4 '/// insert a section with hide option Bereich.TypeKeys "" if BereichsName.GetText = sectionName(1) then Ausblenden.check else warnlog "The second section should be " +sectionName(1) +" bug get" +BereichsName.GetText end if '/// insert a section with protect option Bereich.TypeKeys "" if BereichsName.GetText = sectionName(2) then Geschuetzt.Check else warnlog "The second section should be " +sectionName(2) +" bug get" +BereichsName.GetText end if '/// insert a section with Link option Bereich.TypeKeys "" if BereichsName.GetText = sectionName(3) then Verknuepfung.Check Dateiname.Settext ConvertPath(gOfficePath + "user\work\NavigatorSection_1.odt") else warnlog "The second section should be " +sectionName(3) +" bug get" +BereichsName.GetText end if BereicheBearbeiten.OK Sleep 1 'start up Navigator Call wNavigatorAuswahl(7,1, true) printlog " -- check if the section name in navigator is right " for i= 0 to j if Auswahlliste.GetitemText(8+i) <> correctSequence(i) then QAErrorLog "The Section Name may be wrong, should be " + sectionName(i) +" but get " & Auswahlliste.GetitemText(i+2) next i 'Close Navigator before close the document fCloseNavigator Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_6 Dim sectionContent() as String Dim j as Integer '/// Jump to a section by double-clicking it in navigator '/// +instead of 'double-click', we choose return printlog " - Check Jump to a section by double-clicking it in navigator" Call hNewDocument sectionContent = Array( _ "Test is in Section1", _ "Test is in Section2", _ ) '/// Input some test words Call wTypeKeys sectionContent(0) Call wTypeKeys "" Call wTypeKeys sectionContent(1) Call wTypeKeys "" fInsertSection("section1") Call wTypeKeys "" fInsertSection("section2") 'start up Navigator Call wNavigatorAuswahl(7,1, true) 'Jump to a section by double-clicking it printlog " -- check Jump to a section by double-clicking it " for j=1 to 2 Auswahlliste.TypeKeys "" Sleep 2 Call wTypeKeys "" EditCopy if GetClipboardText <> sectionContent(j-1) then warnlog "The focus is NOT in the correct location" Kontext "NavigatorWriter" Auswahlliste.TypeKeys "" next j 'Close Navigator before close the document fCloseNavigator Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_7 Dim i as Integer '/// Activate Navigator, insert a section , it must be displayed '/// + immediately in the Navigator . printlog " - Check inserting a section must be displayed immediately in the Navigator " Call hNewDocument 'start up Navigator first Call wNavigatorAuswahl(7,1) fInsertSection("sectionNormal") Sleep 1 Call wNavigatorAuswahl(7,1) Kontext "NavigatorWriter" Auswahlliste.TypeKeys "" printlog " -- check if the section name in navigator is right " if Auswahlliste.GetitemText(8) <> "sectionNormal" then warnlog "The section can't be displayed immediately in the Navigator. Found this: '" + Auswahlliste.GetitemText(8) + "' instead." 'Close Navigator before close the document fCloseNavigator Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_8 Dim i as Integer '/// Select a section in the Navigator, call context menu, choose "Edit" '///+ Format-Section dialogue must appear printlog " - Check if the context menu should work in navigator / section " Call hNewDocument sleep(2) fInsertSection("sectionNormal") sleep(2) 'start up Navigator Call wNavigatorAuswahl(7,1, true) sleep(2) Auswahlliste.OpenContextMenu sleep(2) hMenuSelectNr(4) sleep(2) 'Check if the edit section dialog is up Kontext "BereicheBearbeiten" if NOT BereicheBearbeiten.Exists then warnlog "- Dialog to eidt section isn't up!" else BereicheBearbeiten.Cancel end if sleep(1) 'Close Navigator before close the document fCloseNavigator sleep(1) Call hCloseDocument endcase '---------------------------------------------------------- testcase tDisplaySection_9 Dim i as Integer Dim shouldbe as string '/// Check to insert a paragraph before and after a section" printlog " - Check to insert a paragraph before and after a section" '/// Open a new writerdocument /// Call hNewDocument '/// Write some text, selct it and insert a section named 'My Section' /// Call wTypeKeys "Add a paragraph before and after a section!" fInsertSection("My Section") Sleep 1 '/// Point cursor before text and press Alt+Return /// Call wTypeKeys "" Call wTypeKeys "" '/// A paragraph should have been inserted before section /// Call wTypeKeys "Paragraph before a section" '/// Point cursor at end of text in section and press Alt + Return /// Call wTypeKeys "" Call wTypeKeys "" '/// A paragraph should have been inserted after section /// Call wTypeKeys "Paragraph after a section" '/// Check settings /// Call wTypeKeys "",4 For i = 1 to 3 Select Case i Case 1 Call wTypeKeys "" EditCopy if GetClipBoardtext <> "Paragraph before a section" then warnlog "Problem with paragraph before section" end if Case 2 Call wTypeKeys "" EditCopy if gPlatGroup = "unx" then shouldbe = "Add a paragraph before and after a section!" + CHR$(10) else shouldbe = "Add a paragraph before and after a section!" + CHR$(13) & CHR$(10) end if if GetClipBoardtext <> shouldbe then Warnlog "Copied text not correctly exported through the clipboard" ' "Problem with section" end if Case 3 Call wTypeKeys "" EditCopy if GetClipBoardtext <> "Paragraph after a section" then warnlog "Problem with paragraph after section" end if end select Call wTypeKeys "" next i Call hCloseDocument endcase