diff options
Diffstat (limited to 'testautomation/writer/optional/includes/option/wr_o_4.inc')
| -rw-r--r-- | testautomation/writer/optional/includes/option/wr_o_4.inc | 988 |
1 files changed, 0 insertions, 988 deletions
diff --git a/testautomation/writer/optional/includes/option/wr_o_4.inc b/testautomation/writer/optional/includes/option/wr_o_4.inc deleted file mode 100644 index d5516718e..000000000 --- a/testautomation/writer/optional/includes/option/wr_o_4.inc +++ /dev/null @@ -1,988 +0,0 @@ -'************************************************************************** -' 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@oracle.com -'* -'* short description : -'* -'\*********************************************************************** - -sub wr_o_4 - - Call tToolsOptionsWriterOther - Call tToolsOptionsWriterAutoCaption - Call tToolsOptionsWriterGeneral - Call tToolsOptionsWriterMailMerge - -end sub - -'------------------------------------------------------------------------------ -testcase tToolsOptionsWriterOther - dim irgendwas(7) as boolean ' Checkbox states - dim bRadioBut(3) as boolean ' RadioButton states - dim bTempRadioBut(3) as boolean - dim iMasseinheit as integer - dim sTabAbstand as string - dim sTemp as string - dim iTemp as integer - dim sTemp2 as string - - - ' irgendwas(i) - '-(1) = NurFuerAktuellesDokument - - '(2) = Feldbefehle - '(3) = Diagramme - '-(4) = FelderUndDiagrammeAktuellesDokument - - '(5) = Abstaende - '(6) = AbstaendeSeitenanfang - '(7) = TabulatorpositionAusrichten - - ' bRadioBut(i) and bTempRadioBut(i) - '(1) = Immer - '(2) = AufNachfrage - '(3) = Nie - - ' !!! -Feldbefehle- has to be checked, to get -Diagramme- enabeld !!! - - '- !!! -Current Document only- ist bei office beenden zu beachten!!! - - Call hNewDocument - printlog ("- Tools/Options/Writer: General ") - - printlog (" - save states ") - ToolsOptions - Call hToolsOptions ("WRITER","GENERAL") - - irgendwas(2) = Feldbefehle.IsChecked - irgendwas(3) = Diagramme.IsChecked - - bRadioBut(1) = Immer.IsChecked - bRadioBut(2) = AufNachfrage.IsChecked - bRadioBut(3) = Nie.IsChecked - - iMasseinheit = Masseinheit.GetSelIndex - sTabAbstand = Tabulatorenabstand.GetText - - printlog ("- all states inverting ") - - if irgendwas(2) Then Feldbefehle.UnCheck Else Feldbefehle.Check - if Feldbefehle.IsChecked Then if irgendwas(3) Then Diagramme.UnCheck Else Diagramme.Check - - if (Immer.IsChecked = True) Then AufNachfrage.Check Else Immer.Check - - bTempRadioBut(1) = Immer.IsChecked - bTempRadioBut(2) = AufNachfrage.IsChecked - bTempRadioBut(3) = Nie.IsChecked - - Tabulatorenabstand.ToMax - sTemp = Tabulatorenabstand.GetText - Tabulatorenabstand.More - - if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE) Then Warnlog ("BugID: 82740: Tab stops max. isn't max.") - Tabulatorenabstand.SetText (sTabAbstand) - - if ( Masseinheit.GetItemCount <> iMasseinheit ) Then Masseinheit.Select (Masseinheit.GetItemCount) _ - Else Masseinheit.Select (1) - iTemp = Masseinheit.GetSelIndex - - sTemp = Tabulatorenabstand.GetText - Tabulatorenabstand.ToMax - if ( Tabulatorenabstand.GetText = sTemp ) Then Tabulatorenabstand.ToMin - sTemp = Tabulatorenabstand.GetText - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- SO quit - start ") - - Call wOfficeRestart - - printlog ("- checking states ") - ToolsOptions - Call hToolsOptions ( "WRITER" , "GENERAL" ) - - if ( irgendwas(2) = Feldbefehle.IsChecked ) Then WarnLog "Feldbefehle state changed" - if Feldbefehle.IsChecked Then if ( irgendwas(3) = Diagramme.IsChecked ) Then WarnLog "Diagramme state changed" - if ( bTempRadioBut(1) <> Immer.IsChecked ) Then WarnLog "Immer state changed" - if ( bTempRadioBut(2) <> AufNachfrage.IsChecked) Then WarnLog "AufNachfrage state changed" - if ( bTempRadioBut(3) <> Nie.IsChecked ) Then WarnLog "Nie state changed" - - if ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit state changed" - if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE ) Then WarnLog "Tabulatorenabstand state changed - watch BugID: 82744 for Status" - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- all UnCheck -> o ") - ToolsOptions - Call hToolsOptions ( "WRITER" , "GENERAL" ) - - Feldbefehle.UnCheck - - if (AufNachfrage.IsChecked = True) Then Nie.Check Else AufNachfrage.Check - - bTempRadioBut(1) = Immer.IsChecked - bTempRadioBut(2) = AufNachfrage.IsChecked - bTempRadioBut(3) = Nie.IsChecked - - Masseinheit.Select (1) - Tabulatorenabstand.ToMin - sTemp = Tabulatorenabstand.GetText - printlog ("More test ///'") - Tabulatorenabstand.More - if ( sTemp = Tabulatorenabstand.GetText ) Then WarnLog "Tabulatorenabstand More-Button not working; stemp1: "+sTemp + " =? (2) " +Tabulatorenabstand.GetText - sTemp = Tabulatorenabstand.GetText - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- check if all UnChecked ") - ToolsOptions - Call hToolsOptions ( "WRITER" , "GENERAL" ) - - if Feldbefehle.IsChecked Then WarnLog "Feldbefehle x" - - if ( bTempRadioBut(1) <> Immer.IsChecked ) Then WarnLog "Immer state changed" - if ( bTempRadioBut(2) <> AufNachfrage.IsChecked) Then WarnLog "AufNachfrage state changed" - if ( bTempRadioBut(3) <> Nie.IsChecked ) Then WarnLog "Nie state changed" - - if ( Masseinheit.GetSelIndex <> 1 ) Then WarnLog "Masseinheit is not item 1" - sTemp2 = Tabulatorenabstand.GetText - if (LiberalMeasurement (sTemp, sTemp2) <> TRUE ) Then WarnLog "Tabulatorenabstand is not min. is: " +Tabulatorenabstand.GetText + " should: " +sTemp - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - -'--------------------------------------------------------------------------------- - - printlog ("- check if tab stops get saved in document ") - Call hNewDocument - - ' set Default Tab Stop to 2,5cm - ToolsOptions - Call hToolsOptions ("WRITER","GENERAL") - Masseinheit.Select (2) ' cm -' printlog "before " + Tabulatorenabstand.GetText - Tabulatorenabstand.SetText ("2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "50" + mUnit) -' printlog "after " + Tabulatorenabstand.GetText -' printlog "seperator: " + GetDecimalSeperator(Tabulatorenabstand.GetText) -' printlog "generated string: " + "2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "50cm" - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - -' creating document with tabstops and save it - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "a<Tab>b<Tab>c<Tab>d<Tab>e<Tab>f<Tab>g<Tab>h<Tab>i<Tab>j" - Call hFileSaveAsWithFilterKill ( gOfficePath + "user\work\tab25cm.odt", "Writer8") - Call hCloseDocument - sleep (2) - -' change tab stops - Call hNewDocument -' set Default Tab Stop to 2,9cm - ToolsOptions - Call hToolsOptions ("WRITER","GENERAL") - Masseinheit.Select (2) ' cm -' printlog "before " + Tabulatorenabstand.GetText - Tabulatorenabstand.SetText ( "2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "90" + mUnit ) -' printlog "after " + Tabulatorenabstand.GetText - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - sleep (2) - -' load file in this environment - '///use "output\\writer\\w95\\tab25cm.odt" /// - hFileOpen( gOfficePath & "user\work\tab25cm.odt") - sleep (2) -' check TabStops, have to be the ones this file was saved with - ToolsOptions - Call hToolsOptions ("WRITER","GENERAL") - Masseinheit.Select (2) ' cm -' printlog "before " + Tabulatorenabstand.GetText - if Tabulatorenabstand.GetText <> ("2" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "50" + mUnit) Then - warnlog "the tab stops didn't get saved in the document !!!" - printlog "should be 2,.50" + mUnit + ", is" + Tabulatorenabstand.GetText - end if - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Call hCloseDocument - Call hCloseDocument - -'--------------------------------------------------------------------------------- - Printlog ("- all Check -> x ") - - ToolsOptions - Call hToolsOptions ("WRITER","GENERAL") - -' NurFuerAktuellesDokument.Check - Feldbefehle.Check - Diagramme.Check -' FelderUndDiagrammeAktuellesDokument.Check - - if (Nie.IsChecked = True) Then Immer.Check Else Nie.Check - - bTempRadioBut(1) = Immer.IsChecked - bTempRadioBut(2) = AufNachfrage.IsChecked - bTempRadioBut(3) = Nie.IsChecked - - Masseinheit.Select (2) - itemp = Masseinheit.GetSelIndex - sTemp = "3" + GetDecimalSeperator(Tabulatorenabstand.GetText) + "21" + mUnit - Tabulatorenabstand.SetText (sTemp) - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- check if all Checked ") - ToolsOptions - Call hToolsOptions ( "WRITER" , "GENERAL" ) - -' if not NurFuerAktuellesDokument.IsChecked Then WarnLog "NurFuerAktuellesDokument o" - if not Feldbefehle.IsChecked Then WarnLog "Feldbefehle o" - if not Diagramme.IsChecked Then WarnLog "Diagramme o" -' if not FelderUndDiagrammeAktuellesDokument.IsChecked Then WarnLog "FelderUndDiagrammeAktuellesDokument o" - - if ( bTempRadioBut(1) <> Immer.IsChecked ) Then WarnLog "Immer state changed" - if ( bTempRadioBut(2) <> AufNachfrage.IsChecked) Then WarnLog "AufNachfrage state changed" - if ( bTempRadioBut(3) <> Nie.IsChecked ) Then WarnLog "Nie state changed" - - if ( Masseinheit.GetSelIndex <> iTemp ) Then WarnLog "Masseinheit is not item " + iTemp + " it's: " + Masseinheit.GetSelIndex - if (LiberalMeasurement (sTemp,Tabulatorenabstand.GetText) <> TRUE ) Then WarnLog "Tabulatorenabstand is not " + sTemp + " it's: " + Tabulatorenabstand.GetText - - printlog ("- restore states ") - -' if ( irgendwas(1) = TRUE ) Then NurFuerAktuellesDokument.Check Else NurFuerAktuellesDokument.UnCheck - if ( irgendwas(2) = TRUE ) Then Feldbefehle.Check Else Feldbefehle.UnCheck - if ( irgendwas(3) = TRUE ) Then Diagramme.Check Else _ - if Feldbefehle.IsChecked Then Diagramme.UnCheck -' if Diagramme.IsVisible Then Diagramme.UnCheck -' if ( irgendwas(4) = TRUE ) Then FelderUndDiagrammeAktuellesDokument.Check Else FelderUndDiagrammeAktuellesDokument.UnCheck - - if ( bRadioBut(1) = TRUE ) Then Immer.Check - if ( bRadioBut(2) = TRUE ) Then AufNachfrage.Check - if ( bRadioBut(3) = TRUE ) Then Nie.Check - - Masseinheit.Select (iMasseinheit) 'sw:ListBox:TP_LAYOUT_O - Tabulatorenabstand.SetText (sTabAbstand) ' sw:MetricField:TP_LAYOUT_OPT:MF_TAB - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - hFileCloseAll() - -endcase - -'------------------------------------------------------------------------------ -sub hGetAllOptionsWriterGeneralCaption - Dim fHoleTabPage as String - Dim fHoleTabPage2 as String - Dim lsHoleTabPage(100) as String - Dim lsHoleTabPage2(100) as String - dim i as integer - dim x as integer - dim y as integer ' for schleifen stuff - - '/// usually there are 4 entries in the list for Options->Writer->General->Caption->Categorie ///' - '///+ if not, this routine is called ///' - '///+ The error only appears, if the wrong listItem is not called yet! ///' - - lsHoleTabPage(0)=0 - lsHoleTabPage2(0)=0 - - '/// on error, save before selecting entries to "output\\writer\\opt__" + iSprache + "." + gPlatGroup) /// - '/// on error, save entries after selecting all to "output\\writer\\opt2__" + iSprache + "." + gPlatGroup) /// - fHoleTabPage = ConvertPath(gOfficePath + "user\work\opt__" + iSprache + "." + gPlatGroup) - fHoleTabPage2 = ConvertPath(gOfficePath + "user\work\opt2_" + iSprache + "." + gPlatGroup) - - '------------------------ - Printlog "(1/3) Get all items before selecting smth. " - ' put them in lsHoleTabPage and write them to 'user\work\opt__...' - - Call hNewDocument - - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - - for x=1 to ObjectList.GetItemCount -' Printlog x - ObjectList.Select (x) - ListAppend ( lsHoleTabPage(), ObjectList.GetText + " " + Category.GetItemCount) - for y=1 to Category.GetItemCount - Category.Select (y) - sleep (1) - ListAppend ( lsHoleTabPage(), " " + Category.GetSelText ) - next y - next x - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - Call ListWrite(lsHoleTabPage(),fHoleTabPage, "utf8") - Printlog "list with all entries written to: "+fHoleTabPage - -' ------------------------ - - Printlog "(2/3) Select every ListItem & exit with OK " - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - - for x=1 to ObjectList.GetItemCount -' Printlog "-" + x - ObjectList.Select (x) - i=0 - while ( i < Category.GetItemCount ) - try - Category.Select (i+1) - catch - Category.Select (i) - endcatch - i = Category.GetSelIndex -' Printlog i - sleep (2) - Kontext "TabAutoCaption" - Wend - next x - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - '------------------------ - Printlog "(3/3) Get all items after selecting all " - ' put them in lsHoleTabPage2 and write them to 'user\work\opt2_...' - - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - for x=1 to ObjectList.GetItemCount -' Printlog x - ObjectList.Select (x) - ListAppend ( lsHoleTabPage2(), ObjectList.GetText + " " + Category.GetItemCount) - for y=1 to Category.GetItemCount - Category.Select (y) - sleep (1) - ListAppend ( lsHoleTabPage2(), " " + Category.GetSelText ) - next y - next x - - Call ListWrite(lsHoleTabPage2(),fHoleTabPage2, "utf8") - Printlog "list with all entries after selecting every entry written to: "+fHoleTabPage2 - -end sub - -'------------------------------------------------------------------------------ - -testcase tToolsOptionsWriterAutoCaption - - '/// look if properties get saved for each list item /// - '///+ take "Numbering" ListBox to verify this /// - - ' checking Listentry '(7) = StarOffice 6.0 Impress' completely - - dim vObjectList(10) as integer - dim vObjectListDescription(10) as string - Dim vCategory(10) as integer - Dim vCategoryTmp(10) as string - Dim vNumbering(10) as integer - Dim vCaptionSeparator(10) as string - Dim vPosition(10) as integer - Dim vLevel(10) as integer - Dim vChapterSeparator(10) as string - Dim vCharacterStyle(10) as integer - Dim vApplyBorderAndShadow(10) as boolean - Dim NumberOfObjects as integer - dim i as integer - dim y as integer ' for schleifen stuff - - '/// !no more Listentries than 9, you have to update the allocation for the var's! ///' - Call hNewDocument - printlog "- Tools/Options/Writer: AutoCaption " - - printlog ("- save states ") - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - - NumberOfObjects = ObjectList.GetItemCount - Select Case gPlatGroup - Case "w95" - if (NumberOfObjects <> 9) then - warnlog "Number of Object List is not correct" - end if - Case else - if (NumberOfObjects <> 8) then - warnlog "Number of Object List is not correct" - end if - end select - - for i=1 to NumberOfObjects - ObjectList.Select (i) - vObjectList(i) = ObjectList.IsChecked - vObjectListDescription(i) = ObjectList.GetText - vCategory(i) = Category.GetSelIndex - vNumbering(i) = Numbering.GetSelIndex - vCaptionSeparator(i) = CaptionSeparator.GetText - vPosition(i) = Position.GetSelIndex - vLevel(i) = Level.GetSelIndex - vChapterSeparator(i) = ChapterSeparator.GetText - vCharacterStyle(i) = CharacterStyle.GetSelIndex - vApplyBorderAndShadow(i) = ApplyBorderAndShadow.IsChecked - next i - - '-- just checking the checkboxes of 'ObjectList' - printlog ("- uncheck all object - checkboxes ") - for i=1 to NumberOfObjects - ObjectList.Select (i) - ObjectList.UnCheck - next i - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- verify if all unchecked and check all ") - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - for i=1 to NumberOfObjects - ObjectList.Select (i) - if ObjectList.IsChecked Then - WarnLog ObjectList.GetText & " is checked though it had been unchecked before" - else - ObjectList.Check - end if - next i - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- verify all checkboxes are checked ") - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - for i=1 to NumberOfObjects - ObjectList.Select (i) - if ( ObjectList.IsChecked = FALSE ) Then - WarnLog ObjectList.GetText & " is unchecked though it had been checked before" - ObjectList.Check - end if - next i - - printlog ("- change states ") - '/// look if properties get saved for each list item - for i=1 to NumberOfObjects - ObjectList.Select (i) - printlog " - " & ObjectList.GetText - if ObjectList.IsChecked Then - if i <= 7 then Numbering.Select i - CaptionSeparator.Settext "Caption Separator " & cstr(i) - ChapterSeparator.Settext cstr(i) - Level.Select i - CharacterStyle.Select i - Select Case i - case 1: - Category.Select 2 - Position.Select 1 - case 2: - Category.Select 3 - Position.Select 2 - case 3: - Category.Select 4 - ApplyBorderAndShadow.Check - case 4: - Category.Select 5 - case 5: - Category.Select 2 - case 6: - Category.Select 3 - case 7: - Category.Select 4 - case 8: - Category.Select 5 - if Numbering.GetItemCount > 7 then - Numbering.Select Numbering.GetItemCount - else - Numbering.Select 4 - end if - case 9: - Category.Select 2 - if Numbering.GetItemCount > 7 then - Numbering.Select Numbering.GetItemCount - else - Numbering.Select 5 - end if - - end select - vCategoryTmp(i) = Category.GetSelText - else - Warnlog ObjectList.GetText & " is not checked: Verify test script" - end if - next i - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- SO quit - start") - - Call wOfficeRestart - - printlog ("- checking states ") - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - for i=1 to NumberOfObjects - ObjectList.Select (i) - printlog " - " & ObjectList.GetText - wait 500 - if ObjectList.IsChecked Then - if i <= 7 then - if Numbering.GetSelIndex <> i then - Warnlog "- 'Numbering' changed after restart" - else - printlog "- 'Numbering' => ok" - end if - end if - if CaptionSeparator.Gettext <> "Caption Separator " & cstr(i) then - Warnlog "- 'Caption Separator' changed after restart" - else - printlog "- 'Caption Separator' => ok" - end if - if ChapterSeparator.Gettext <> cstr(i) then - Warnlog "- 'Chapter Separator' changed after restart" - else - printlog "- 'Chapter Separator' => ok" - end if - if Level.GetSelIndex <> i then - Warnlog "- 'Level' changed after restart" - else - Printlog "- 'Level' => ok" - end if - if CharacterStyle.GetSelIndex <> i then - Warnlog "- 'Character Style' changed after restart" - else - printlog "- 'Character Style' => ok" - end if - - if Category.GetSelText <> vCategoryTmp(i) then - Warnlog "- 'Category' changed after restart. Not " & vCategoryTmp(i) & " but " & Category.GetSelText - else - printlog "- 'Category' => ok" - end if - - Select Case i - case 1: - if Position.GetSelIndex <> 1 then - Warnlog "- 'Position' changed after restart" - else - printlog "- 'Position' => ok" - end if - - case 2: - if Position.GetSelIndex <> 2 then - Warnlog "- 'Position' changed after restart" - else - printlog "- 'Position' => ok" - end if - - case 3: - if Position.IsEnabled = true then - Warnlog "- 'Position' should be disabled" - else - printlog "- 'Position' disabled => ok" - end if - - if ApplyBorderAndShadow.IsChecked = false then - Warnlog "- 'Apply Border and Shadow' changed after restart" - else - printlog "- 'Apply Border and Shadow => ok" - end if - - case 4: - if Position.IsEnabled = true then - Warnlog "- 'Position' should be disabled" - else - printlog "- 'Position' disabled => ok" - end if - - case 5: - if Position.IsEnabled = true then - Warnlog "- 'Position' should be disabled" - else - printlog "- 'Position' disabled => ok" - end if - - case 6: - if Position.IsEnabled = true then - Warnlog "- 'Position' should be disabled" - else - printlog "- 'Position' disabled => ok" - end if - - case 7: - if Position.IsEnabled = true then - Warnlog "- 'Position' should be disabled" - else - printlog "- 'Position' disabled => ok" - end if - - case 8: - if Numbering.GetItemCount > 7 then - if Numbering.GetSelIndex <> Numbering.GetItemCount then - Warnlog "- 'Numbering' changed after restart" - else - printlog "- 'Numbering' => ok" - end if - else - if Numbering.GetSelIndex <> 4 then - Warnlog "- 'Numbering' changed after restart" - else - printlog "- 'Numbering' => ok" - end if - end if - - if Position.IsEnabled = true then - Warnlog "- 'Position' should be disabled" - else - printlog "- 'Position' disabled => ok" - end if - - case 9: - if Numbering.GetItemCount > 7 then - if Numbering.GetSelIndex <> Numbering.GetItemCount then - Warnlog "- Numbering changed after restart" - else - printlog "- Numbering => ok" - end if - else - if Numbering.GetSelIndex <> 5 then - Warnlog "- 'Numbering changed after restart" - else - printlog "- 'Numbering' => ok" - end if - end if - - if Position.IsEnabled = true then - Warnlog "- 'Position' should be disabled" - else - printlog "- 'Position' disabled => ok" - end if - - end select - else - Warnlog "- " & ObjectList.GetText & " is not checked" - end if - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - printlog ("- restore states ") - - ToolsOptions - Call hToolsOptions ("WRITER","AutoCaption") - Kontext "TabAutoCaption" - - for i=1 to NumberOfObjects - ObjectList.Select (i) - if ObjectList.IsChecked then - if vCategory(i) > Category.GetItemCount then - Category.Select Category.GetItemCount - else - Category.Select vCategory(i) - end if - Numbering.Select vNumbering(i) - CaptionSeparator.SetText vCaptionSeparator(i) - if Position.IsEnabled then Position.Select vPosition(i) - Level.Select vLevel(i) - ChapterSeparator.Settext vChapterSeparator(i) - CharacterStyle.Select vCharacterStyle(i) - if ApplyBorderAndShadow.IsEnabled then - Select Case vApplyBorderAndShadow(i) - Case true - ApplyBorderAndShadow.Check - case false - ApplyBorderAndShadow.Uncheck - end select - end if - end if - Select case vObjectList(i) - Case true - ObjectList.Check - case false - ObjectList.Uncheck - end select - next i - - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - hFileCloseAll() - -endcase - -'------------------------------------------------------------------------------ - -testcase tToolsOptionsWriterGeneral - Dim i as integer - Dim ist_aktualisiert as boolean - Dim CompareThis as string - - ' State is saved with document. Thats why I use 3 docs - Call hNewDocument - printlog "- Extras / Optionen / Sonstiges / Verkn?pfungen aktualisieren " - ToolsOptions - Call hToolsOptions("WRITER","GENERAL") - printlog "- Update links when loading -> always " - Immer.Check - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - FileOpen - Kontext "OeffnenDlg" - Dateiname.SetText ConvertPath(gtesttoolpath + "writer\optional\input\masterdoc\update1.sxg") - Oeffnen.Click - Kontext "Active" - if active.exists then - if Active.GetRT = 304 then - Warnlog Active.Gettext - Warnlog "Update all links should not appear!" - wait 500 - try - Active.yes - catch - Active.Ok - endcatch - end if - end if - Sleep 2 - Call hCloseDocument - Sleep 2 - - ToolsOptions - Call hToolsOptions("WRITER","GENERAL") - if not Immer.IsChecked then Warnlog "Option 'always' has not been changed" - printlog "- Update links when loading -> On request " - AufNachfrage.Check - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - FileOpen - Kontext "OeffnenDlg" - Dateiname.SetText ConvertPath(gtesttoolpath + "writer\optional\input\masterdoc\update2.sxg") - Oeffnen.Click - Sleep 2 - Kontext "Active" - if active.exists then - if Active.GetRT = 304 then - Active.yes - else - Warnlog "Update all links should appear!" - end if - end if - Sleep 2 - Call hCloseDocument - Sleep 2 - - ToolsOptions - Call hToolsOptions("WRITER","GENERAL") - if not AufNachfrage.IsChecked then Warnlog "Option 'On request' has been changed" - printlog "- Update links when loading -> Never " - Nie.Check - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - FileOpen - Kontext "OeffnenDlg" - Dateiname.SetText ConvertPath(gtesttoolpath + "writer\optional\input\masterdoc\update3.sxg") - Oeffnen.Click - Kontext "Active" - if active.exists then - if Active.GetRT = 304 then - Warnlog "Update all links should not appear!" - Active.yes - end if - end if - Sleep 3 - Kontext "DocumentWriter" - DocumentWriter.TypeKeys "<Up>",10 - DocumentWriter.TypeKeys "<Mod1 Home>", 4 - for i=1 to 4 - DocumentWriter.TypeKeys "<Shift End>" - try - EditCopy - if i <> 4 and GetClipboardtext <> "Dies ist der Text" then ist_aktualisiert = true - catch - ist_aktualisiert=false - endcatch - DocumentWriter.TypeKeys "<Mod1 End>" - wait 500 - DocumentWriter.TypeKeys "<Down><Home>" - next i - if ist_aktualisiert=true then Warnlog " Document has been updated !" - Sleep 2 - Call hCloseDocument - Sleep 2 - - ToolsOptions - Call hToolsOptions("WRITER","GENERAL") - if Nie.IsChecked = false then Warnlog "Option 'Never' is not checked" - AufNachfrage.Check - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - - hFileCloseAll() - -endcase - -'------------------------------------------------------------------------------ - -testcase tToolsOptionsWriterMailMerge - - Call hNewDocument - printlog ("- Tools/Options/Writer: Mail Merge ") - Kontext "Navigator" - if Navigator.Exists then ViewNavigator - ToolsOptions - Call hToolsOptions ("WRITER","MailMergeEMail") - - '/// Fill out all fields - printlog " - fill out Mail Settings" - Kontext "TabMailMergeEmail" - YourName.Settext "Fredrik Haegg" - EmailAddress.Settext "helge.delfs@oracle.com" - SendReplies.Check - ReplyAddress.Settext "fredrikh@openoffice.org" - ServerName.Settext "MySMTP-Server" - UseSecure.Check - - '/// Change details for Server Authentication - printlog " - fill out Authentication Settings" - ServerAuthentication.Click - wait 500 - Kontext "ServerAuthentication" - SMTPauthentication.Check - - IncomingMailServer.Check - Server.Settext "MySMTP-Server" - Port.Settext "111" - IMAP.Check - User.Settext "MyAuthenticationUserName" - Password.Settext "MyAuthenticationPassword" - ServerAuthentication.Ok - - '/// Close 'Server Authentication dialog, reopen and check values set - printlog " - check settings" - Kontext "TabMailMergeEmail" - ServerAuthentication.Click - wait 500 - Kontext "ServerAuthentication" - if Not SMTPauthentication.IsChecked then Warnlog "SMTP Authentication is not checked anymore" - if Not IncomingMailServer.IsChecked then Warnlog "Incoming Mail Server has been changed" - if Server.Gettext <> "MySMTP-Server" then Warnlog "Servername has been changed" - if Port.Gettext <> "111" then Warnlog "Server Port has been changed" - if Not IMAP.IsChecked then Warnlog "IMAP-state has been changed" - if User.Gettext <> "MyAuthenticationUserName" then Warnlog "Authentication username has been changed" - if Password.Gettext <> "MyAuthenticationPassword" then Warnlog "Authentication password has been changed" - - '/// Change settings for SMTP outgoing - SMTPOutgoing.Check - OutgoingUsername.Settext "MyOutgoingUsername" - OutgoingPassword.Settext "MyOutgoingPassword" - ServerAuthentication.Ok - - '/// Close options dialog and restart the office - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.Ok - printlog " - restart office" - Call wOfficeRestart - - '/// Reopen Tools/Options and check settings - printlog " - check settings" - ToolsOptions - Call hToolsOptions ("WRITER","MailMergeEMail") - - Kontext "TabMailMergeEmail" - if YourName.Gettext <> "Fredrik Haegg" then Warnlog "'Your Name' has been changed after a restart" - if EmailAddress.Gettext <> "helge.delfs@oracle.com" then Warnlog "'Email Address' has been changed after a restart" - if Not SendReplies.IsChecked then Warnlog "'Send replies' has been changed after a restart" - if ReplyAddress.Gettext <> "fredrikh@openoffice.org" then Warnlog "'Reply adresses' has been changed after a restart" - if ServerName.Gettext <> "MySMTP-Server" then Warnlog "'Server name' has been changed after a restart" - if UseSecure.IsChecked = false then Warnlog "'Secure' has been changed after a restart" - - ServerAuthentication.Click - wait 500 - Kontext "ServerAuthentication" - if Not SMTPOutgoing.IsChecked then Warnlog "'SMTP Server' has been changed after a restart" - if OutgoingUsername.Gettext <> "MyOutgoingUsername" then Warnlog "'Username' has been changed after a restart" - if OutgoingPassword.Gettext <> "MyOutgoingPassword" then Warnlog "'Password' has been changed after a restart" - - ServerAuthentication.Ok - - '/// Check 'Test Settings' button - Kontext "TabMailMergeEmail" - TestSettings.Click - - Kontext "TestAccountSettings" - Do - if TaskStatusListBox.GetItemCount > 0 then - TestAccountSettings.Cancel - exit do - end if - wait 500 - Loop - if TestAccountSettings.Exists then TestAccountSettings.Cancel - - '/// Reset all states - Kontext "TabMailMergeEmail" - ServerAuthentication.Click - - Kontext "ServerAuthentication" - IncomingMailServer.Check - Server.Settext "" - Port.Settext "110" - User.Settext "" - Password.Settext "" - - SMTPOutgoing.Check - OutgoingUsername.Settext "" - OutgoingPassword.Settext "" - - SMTPauthentication.UnCheck - ServerAuthentication.Ok - - Kontext "TabMailMergeEmail" - YourName.Settext "" - EmailAddress.Settext = "" - ReplyAddress.Settext "" - ServerName.Settext "" - SendReplies.UnCheck - UseSecure.Uncheck - - '/// Close options dialog and restart the office - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.Ok - - hFileCloseAll() - -endcase -'------------------------------------------------------------------------------ |