diff options
Diffstat (limited to 'testautomation/framework/optional/includes/options_ooo_general.inc')
-rwxr-xr-x[-rw-r--r--] | testautomation/framework/optional/includes/options_ooo_general.inc | 574 |
1 files changed, 61 insertions, 513 deletions
diff --git a/testautomation/framework/optional/includes/options_ooo_general.inc b/testautomation/framework/optional/includes/options_ooo_general.inc index 8197a4fe54d9..0b218bff8493 100644..100755 --- a/testautomation/framework/optional/includes/options_ooo_general.inc +++ b/testautomation/framework/optional/includes/options_ooo_general.inc @@ -1,5 +1,5 @@ '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. @@ -23,41 +23,21 @@ ' <http://www.openoffice.org/license.html> ' for a copy of the LGPLv3 License. ' -'/************************************************************************ +'/****************************************************************************** '* -'* owner : thorsten.bosbach@sun.com +'* owner : joerg.skottke@sun.com '* -'* short description : Grid Layout for CJK test in Writer +'* short description : 1. test for general group userdata '* -'\*********************************************************************** +'\****************************************************************************** -private const SOURCE_PATH = "framework\optional\input\CJK\" +testcase tOOoGeneral -testcase tTextGridDialog_1 + dim lsSave (4) as String + dim lbSave (3) as Boolean - '/// Check if tabpage 'Text Grid' disappears when "Asian Language support" is NOT checked - if iSystemSprache <> 81 AND iSystemSprache <> 82 AND iSystemSprache <> 86 AND iSystemSprache <> 88 then - Call CheckAsianLanguageSupport("Off") - hNewDocument() - FormatPageWriter - try - Kontext - Active.SetPage TabGrid - Kontext "TabGrid" - TabGrid.Cancel - warnlog "Shouldn't get Tabpage: Grid Text" - catch - Kontext - Active.SetPage TabSeite - Kontext "TabSeite" - TabSeite.Cancel - endcatch - endif + hNewDocument - '/// Check if tabpage 'Text Grid' appears when "Asian Language support" is checked - Call CheckAsianLanguageSupport("On") - - hNewDocument ToolsOptions hToolsOptions ( "StarOffice", "General" ) @@ -81,503 +61,71 @@ testcase tTextGridDialog_1 StyleSheet.Select 3 Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - if ( ExtrasOptionenDlg.notExists( 3 ) ) then - printlog( "Options closed" ) - endif - hCloseDocument() -endcase - -'------------------------------------------------------------------------- - -testcase tTextGridDialog_2 - '/// No grid is active, no changes to existing version - Dim testFile , sCorrectResult as String - - testFile = "gridtest.sxw" - sCorrectResult = "1" - - Call hNewDocument - - '/// open a test file , and check No Grid checkbox - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) - sMakeReadOnlyDocumentEditable - - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - NoGrid.Check - Sleep 1 - TabGrid.OK - Sleep 1 - - '/// Active navigator dialogue , set page to '2' and wait for a while - Kontext - ViewNavigator - Kontext "NavigatorWriter" - - Seitennummer.SetText "2" - Sleep 5 - hCloseNavigator - - '/// In No Grid mode, there should be only 1 page, the focus is before the first line - Kontext "DocumentWriter" - Call DocumentWriter.TypeKeys "<End>" - Sleep 1 - Call DocumentWriter.TypeKeys "<Shift Left>" - hUseAsyncSlot( "EditCopy" ) - - if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing NoGrid option!" - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tTextGridDialog_3 - '/// Grid (lines only): The page is set up with a defined number of lines - Dim testFile , sCorrectResult , sLinesPerPage as String - - testFile = "gridtest.sxw" - sCorrectResult = "G" - sLinesPerPage = "10" - - Call hNewDocument - - '/// open a test file and check Grid(lines onle) checkbox , - '/// + set 10 line/page - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) - sMakeReadOnlyDocumentEditable - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - LinesGrid.Check - LinesPerPage.SetText sLinesPerPage - Sleep 1 - TabGrid.OK - Sleep 1 - - '/// Active navigator dialogue , set page to '2' and wait for a while - Kontext - ViewNavigator - Kontext "NavigatorWriter" - - Seitennummer.SetText "2" - Sleep 5 - hCloseNavigator - - Kontext "DocumentWriter" - Call DocumentWriter.TypeKeys "<End>" - Sleep 1 - Call DocumentWriter.TypeKeys "<Shift Left>" - hUseAsyncSlot( "EditCopy" ) - - if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing Grid(lines only) option!" - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tTextGridDialog_4 - '/// Grid (lines and characters): The page is set up with a defined number of lines and a defined number of characters in each line - Dim testFile , sCorrectResult as String - Dim sLinesPerPage , sCharsPerLine as String - testFile = "gridtest.sxw" - sCorrectResult = "E" - sLinesPerPage = "10" - sCharsPerLine = "9" + hCloseDialog( ExtrasOptionenDlg, "ok" ) + hCloseDocument - Call hNewDocument - - '/// open a test file and check Grid(lines and characters) checkbox - '/// + set 10 line/page and 9 characters/line - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) - sMakeReadOnlyDocumentEditable - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - CharsGrid.Check - LinesPerPage.SetText sLinesPerPage - CharsPerLine.SetText sCharsPerLine - Sleep 1 - TabGrid.OK - Sleep 1 - - '/// Active navigator dialogue , set page to '2' and wait for a while - Kontext - ViewNavigator - Kontext "NavigatorWriter" - - Seitennummer.SetText "2" - Sleep 5 - hCloseNavigator - - Kontext "DocumentWriter" - Call DocumentWriter.TypeKeys "<End>" - Sleep 1 - Call DocumentWriter.TypeKeys "<Shift Left>" - hUseAsyncSlot( "EditCopy" ) - - if GetClipboardText <> sCorrectResult then Warnlog "Something wrong when choosing Grid(lines and characters) option!" - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tGridDisplay_1 - '/// Print grid: The grid lines will be printed. Inactive if "Display grid" is inactive. - Call hNewDocument - - '/// format / page / tabpage Text grid - '/// + check "display grid" and check "print grid" - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - CharsGrid.Check - Display.Check - Sleep 1 - PrintGrid.Check - Sleep 1 - TabGrid.OK - Sleep 1 - - '/// Print to printer - FilePrint - Kontext "Active" - if ( Active.Exists( 5 ) ) then - if Active.GetRT() = 304 then - Active.Ok() - QAErrorLog "No Default-Printer!" - Kontext "Printing" - if ( Printing.exists( 1 )) then - Printing.Cancel - endif - endif - else - Kontext "Printing" - if ( Printing.exists( 2 )) then - Printing.OK() - Printing.notExists( 5 ) - endif - - kontext "Active" - if active.exists(5) then - qaErrorLog active.getText() - active.ok() - endif - endif - - '/// format / page / tabpage Text grid - '/// + check "display grid" and uncheck "print grid" - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - CharsGrid.Check - Display.Check - Sleep 1 - PrintGrid.UnCheck - Sleep 1 - TabGrid.OK - Sleep 1 - - '/// Print to printer - FilePrint - Kontext "Active" - if ( Active.Exists( 5 ) )then - if Active.GetRT() = 304 then - Active.Ok() - QAErrorLog "No Default-Printer!" - Kontext "Printing" - if ( Printing.exists( 1 )) then - Printing.Cancel() - endif - endif - else - Kontext "Printing" - if( Printing.exists( 1 )) then - Printing.OK - Printing.notExists( 5 ) - endif - kontext - if ( active.exists( 2 ) ) then - qaErrorLog active.getText - active.ok - endif - endif - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tUserDefineLayout_1 - '/// Decrease characters per line will cause lines per page decrease accordingly - Dim sLinesPerPage , sCharsPerLine as String - Dim sExpectLinesPerPage , sExpectLinesPerPage1 as String - - sLinesPerPage = "20" - sCharsPerLine = "2" - sExpectLinesPerPage = "2" - sExpectLinesPerPage1 = "3" - - Call hNewDocument - - '/// Format/page , set lines per page to 20, and set charsets per line to 2 - '/// + wait for a moment , then check the the number of lines per page. - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - CharsGrid.Check - - LinesPerPage.SetText sLinesPerPage - Sleep 2 - CharsPerLine.SetText sCharsPerLine - Sleep 2 - - 'This step is no use, just let the LinesPerPage change the number - CharsGrid.Check - - if LinesPerPage.GetText <> sExpectLinesPerPage AND LinesPerPage.GetText <> sExpectLinesPerPage1 then - Warnlog "The lines per page should be" + sExpectLinesPerPage + " OR " + sExpectLinesPerPage1 +" but get " +LinesPerPage.GetText - endif - - TabGrid.Cancel - - Call hCloseDocument -endcase + printlog " - exit/restart StarOffice" + ExitRestartTheOffice -'------------------------------------------------------------------------- - -testcase tFontSizeChanges_1 - '/// Change the font size to bigger enough will change the layout - Dim testFile , sCorrectResult as String - Dim sLinesPerPage , sCharsPerLine as String - dim sTemp as string - - testFile = "FontSizeChanges_1.sxw" - sCorrectResult = "1" - sLinesPerPage = "2" - sCharsPerLine = "9" - - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) - sMakeReadOnlyDocumentEditable - Kontext "DocumentWriter" - Call DocumentWriter.TypeKeys "<Shift Right>" - - Kontext "FormatObjectbar" - Schriftgroesse.Select "60" - Schriftgroesse.TypeKeys "<Return>" - Sleep 1 - - Kontext "DocumentWriter" - FormatPageWriter - Kontext - if active.exists(5) then - Active.SetPage TabGrid - endif - Kontext "TabGrid" - if TabGrid.exists(5) then - sTemp = LinesPerPage.GetText - if sTemp <> sLinesPerPage then - Warnlog "The lines per page should be: '" + sLinesPerPage + "'; but get: '" + sTemp + "'" - endif - sTemp = CharsPerLine.GetText - if sTemp <> sCharsPerLine then - Warnlog "The chars per line should be: '" + sCharsPerLine + "'; but get: '" +sTemp + "'" - endif - TabGrid.Cancel - else - warnlog "TabGrid is not available." - endif - - Kontext - ViewNavigator - Kontext "NavigatorWriter" - if NavigatorWriter.exists(5) then - Seitennummer.SetText "2" - Sleep 5 - else - warnlog "Navigator not available" - endif - hCloseNavigator - - Kontext "DocumentWriter" - sleep 3 - Call DocumentWriter.TypeKeys "<Shift Right>" - - hUseAsyncSlot( "EditCopy" ) - sTemp = GetClipboardText - if sTemp <> sCorrectResult then - Warnlog "Don't get the expected result , hope to be: '" + sCorrectResult + "'; but get: '" + sTemp + "'" - endif - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tRubyText_1 - '/// If Ruby Text is applied and longer than its Base Text it will stretch over more grid cells than the base text itself. - Dim testFile , sRubyText as String - - testFile = "rubytest.sxw" - sRubyText = "Ruby Test Text ....................." - - Call hNewDocument - - '/// open a test file , and insert long ruby test text - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) - sMakeReadOnlyDocumentEditable - Kontext "DocumentWriter" - Call DocumentWriter.TypeKeys "<Shift Right>" - Sleep 1 - - FormatRuby - Kontext "RubyDialog" - Sleep 3 - RubyText1.setText sRubyText - Sleep 2 - RubyDialog.OK - Sleep 2 - DialogClose.Click - Sleep 1 - - Kontext "DocumentWriter" - FormatAutoformatApply - Sleep 2 - Call DocumentWriter.TypeKeys "<End>" - Sleep 2 - Call DocumentWriter.TypeKeys "<Shift Left>" - hUseAsyncSlot( "EditCopy" ) - - if NOT(GetClipboardText = "5" OR GetClipboardText = "6") then - Warnlog "Don't get the correct result after inserting ruby text! Get " + GetClipboardText - endif - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tIndentsTest_1 - '/// Indents should work and always indenting as close as possible to their measurements by snapping to the appropriate grid cell. Tabs therefore will be ignored. - Dim testFile , sCorrectPage1 , sCorrectPage2 as String - - testFile = "IndentsTest.sxw" - sCorrectPage1 = "1" - sCorrectPage2 = "2" - - Call hNewDocument - - '/// open a test file , and press TAB in second line - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) - sMakeReadOnlyDocumentEditable - Kontext "DocumentWriter" - Call DocumentWriter.TypeKeys "<Down>" - Sleep 1 - Call DocumentWriter.TypeKeys "<Tab>" - Sleep 1 - Call DocumentWriter.TypeKeys "<End>" - Sleep 1 - - '/// Active navigator dialogue , check if the page number is 1 - Kontext - ViewNavigator - Kontext "NavigatorWriter" - if Seitennummer.GetText <> sCorrectPage1 then Warnlog "First test :Something wrong in indents test!" - hCloseNavigator - - '/// press TAB in second line again - Kontext "DocumentWriter" - Call DocumentWriter.TypeKeys "<Home>" - Sleep 1 - Call DocumentWriter.TypeKeys "<Tab>" - Sleep 1 - Call DocumentWriter.TypeKeys "<End>" - Sleep 1 - - '/// Active navigator dialogue , check if the page number is 2 - Kontext - ViewNavigator - Kontext "NavigatorWriter" - if Seitennummer.GetText <> sCorrectPage2 then Warnlog "Second test :Something wrong in indents test!" - hCloseNavigator - - Call hCloseDocument -endcase - -'------------------------------------------------------------------------- - -testcase tObjectsTest_1 - '/// If objects are anchored to text they will "wander" with its surrounding text. - '/// If they are anchored as character they will snap to the appropriate grid cell (since they are a character). - Dim testFile , sCorrectPage1 , sCorrectPage2 as String + printlog " - check data" + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) - testFile = "objectsTest.sxw" - sCorrectPage1 = "1" - sCorrectPage2 = "2" + if Zweistellig.GetText <> "1950" then Warnlog "Year ( 2 digits ) => changes not saved: '" + Zweistellig.GetText +"' #i29810" + if Aktivieren.IsChecked <> TRUE then Warnlog "Enable HelpAgent => changes not saved" + Zuruecksetzen.Click + if gPlatgroup = "w95" then + if StarOfficeDialogeBenutzen.IsChecked = lbSave (2) then Warnlog "Use StarOffice dialogs => changes not saved!" + end if + If DruckenStatus.IsChecked = lbSave ( 3 ) then Warnlog "Printing sets 'Document modified' status => changes not saved!" - Call hNewDocument + printlog " - 2. change data" + Zweistellig.SetText "1800" + DruckenStatus.UnCheck - '/// open a test file , and press TAB in second line - Call hFileOpen ( gTesttoolPath + SOURCE_PATH + testFile ) + Kontext "ExtrasOptionenDlg" + hCloseDialog( ExtrasOptionenDlg, "ok" ) - '/// If object is anchored as Character , check if it will snap to the appropriate grid cell - fStartupNavigator( "OLEObject" , 1 ) - Sleep 1 - Auswahlliste.TypeKeys "<Return>" - Sleep 1 - hCloseNavigator + printlog " - check data" + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) - Kontext - FormatAnchorAsCharacter - WaitSlot() + if Zweistellig.GetText <> "1800" then Warnlog "Year ( 2 digits ) => changes not saved : '" + Zweistellig.GetText +"'" + If DruckenStatus.IsChecked <> FALSE then Warnlog "Printing sets 'Document modified' status => changes not saved!" + if StyleSheet.GetSelIndex <> 3 then Warnlog "Style sheet for StarOffice Help => changes not saved!" + printlog " - reset to saved data" + Zweistellig.SetText lsSave ( 1 ) + Aktivieren.Check + Zuruecksetzen.Click + if lbSave (1) = TRUE then Aktivieren.Check else Aktivieren.Uncheck + if gPlatgroup = "w95" then + if lbSave (2) = TRUE then StarOfficeDialogeBenutzen.Check else StarOfficeDialogeBenutzen.UnCheck + end if + If lbSave(3)= TRUE then DruckenStatus.Check else DruckenStatus.UnCheck + StyleSheet.Select lsSave(3) - ViewNavigator - Kontext "NavigatorWriter" - Seitennummer.SetText sCorrectPage2 - Sleep 5 - if Seitennummer.GetText <> sCorrectPage2 then Warnlog "Something wrong when object is anchored as Character!" - hCloseNavigator + Kontext "ExtrasOptionenDlg" + hCloseDialog( ExtrasOptionenDlg, "ok" ) - '/// If object is anchored to Character , check if it will NOT snap to the appropriate grid cell - fStartupNavigator( "OLEObject" , 1 ) - Auswahlliste.TypeKeys "<Return>" - hCloseNavigator + ToolsOptions + hToolsOptions ( "StarOffice", "General" ) - Kontext - FormatAnchorToCharacter + printlog " - check the reset data" + if Zweistellig.GetText <> lsSave ( 1 ) then Warnlog "Year ( 2 digits ) => changes not saved" + if Aktivieren.IsChecked <> lbSave (1) then Warnlog "Enable HelpAgent => changes not saved" + Aktivieren.Check + Zuruecksetzen.Click + if lbSave (1) = TRUE then Aktivieren.Check else Aktivieren.Uncheck + if gPlatgroup = "w95" then + if StarOfficeDialogeBenutzen.IsChecked <> lbSave (2) then Warnlog "Use StarOffice dialogs => changes not saved!" + end if + If DruckenStatus.IsChecked <> lbSave(3) then Warnlog "Printing sets 'Document modified' status => changes not saved!" + if StyleSheet.GetSelText <> lsSave (3) then Warnlog "Style sheet for StarOffice Help => changes not saved!" - ViewNavigator - Kontext "NavigatorWriter" - Seitennummer.SetText sCorrectPage2 - Sleep 5 - if Seitennummer.GetText <> sCorrectPage1 then Warnlog "Something wrong when object is anchored to Character!" - hCloseNavigator - Kontext + Kontext "ExtrasOptionenDlg" + hCloseDialog( ExtrasOptionenDlg, "ok" ) - Call hCloseDocument endcase |