diff options
author | Thomas Arnhold <thomas@arnhold.org> | 2011-02-15 23:42:29 +0100 |
---|---|---|
committer | Thomas Arnhold <thomas@arnhold.org> | 2011-02-15 23:42:29 +0100 |
commit | 59a06b5013bf70be3f244b40d4a9e01b039348a9 (patch) | |
tree | 67dbeea6830a5ad009e3b090d7baadf6a5ce436f /testautomation | |
parent | 9d393c9b401572b11d21990826e717153555e0f7 (diff) |
Remove unused inc files
Diffstat (limited to 'testautomation')
6 files changed, 0 insertions, 2204 deletions
diff --git a/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc b/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc deleted file mode 100644 index 2dd9f6228455..000000000000 --- a/testautomation/framework/optional/includes/basic_vba-compat_security_check.inc +++ /dev/null @@ -1,105 +0,0 @@ -'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 : joerg.skottke@oracle.com -'* -'* short description : Test VBA compatibility switches -'* -'\****************************************************************************** - -testcase tBasicVBACompatSecurityCheck() - - printlog( "Test VBA Security feature" ) - printlog( "VBA macros may not ignore global macro security setting" ) - - ' This test case is based on the use cases provided in issue #i109699 - - const IMPORT_EXCEL_MACROS = TRUE - const EXEC_EXCEL_MACROS = TRUE - - const MACRO_IDENTIFICATION_MESSAGE = "Clicked" - const MACRO_NAME = "CommandButton1_Click" - - const WORK_FILE = "framework/optional/input/vba-compat/Book1.xls" - - dim cTestFile as string : cTestFile = gTesttoolPath & WORK_FILE - dim iSecurityLevel as integer - - - printlog( "Set VBA macro handling to import and execute" ) - hSetExcelBasicImportMode( IMPORT_EXCEL_MACROS, EXEC_EXCEL_MACROS ) - - for iSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM to GC_MACRO_SECURITY_LEVEL_VERYHIGH - - printlog( "Adjust security level" ) - hSetMacroSecurityAPI( iSecurityLevel ) - - printlog( "Load the test file" ) - hFileOpen( cTestFile ) - - printlog( "Deny macro execution or close macros blocked message" ) - if ( iSecurityLevel = GC_MACRO_SECURITY_LEVEL_MEDIUM ) then - hDenyMacroExecution() - else - kontext "Active" - Active.ok() - endif - - printlog( "Try to execute macro via macro organizer" ) - hMacroOrganizerRunMacro( MACRO_NAME ) - - printlog( "Probe for warning message (or macro)" ) - kontext "Active" - if ( Active.exists( 2 ) ) then - if ( Active.getText() = MACRO_IDENTIFICATION_MESSAGE ) then - warnlog( "Macro was executed though macro execution has been denied" ) - Active.ok() - else - printlog( "Macro execution blocked - warning is displayed." ) - Active.ok() - endif - else - warnlog( "No warning message for blocked macro execution" ) - endif - - ' recover silently, the warnings above should say it all. - kontext "Makro" - if ( Makro.exists() ) then Makro.cancel() - - printlog( "Close file" ) - hDestroyDocument() - - next iSecurityLevel - - printlog( "Reset VBA import options to default" ) - hSetExcelImportModeDefault() - - printlog( "Reset macro security level to default" ) - hSetMacroSecurityAPI( GC_MACRO_SECURITY_LEVEL_DEFAULT ) - -endcase - diff --git a/testautomation/framework/optional/includes/filedlg_cjk_folders.inc b/testautomation/framework/optional/includes/filedlg_cjk_folders.inc deleted file mode 100755 index cdeb2f922c98..000000000000 --- a/testautomation/framework/optional/includes/filedlg_cjk_folders.inc +++ /dev/null @@ -1,86 +0,0 @@ -'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 : joerg.skottke@oracle.com -'* -'* short description : check the internal file dialog ( extended tests ) -'* -'\****************************************************************************** - -testcase tCJKFolders() - - - if ( not hTestLocale() ) then - warnlog( "Test requires UTF-8 locale" ) - goto endsub - endif - - - - dim cStrangeFolder as string - dim cStrangeFile as string - dim iCounter as integer ' iterator - dim iRandom as long ' random number.(needs long for cjk chars) - dim brc as boolean - - printlog( CHR$(13) ) - printlog( "Check if CJK-files/folders are handled ok" ) - printlog( CHR$(13) ) - - printlog( "Open a new document" ) - brc = hCreateDocument() - - printlog( CHR$(13) + "Names with CJK-chars" ) - printlog( "" ) - - call randomize() - - for iCounter = 1 to 3 - - iRandom = int( 19968 + ( 20911 * rnd ) ) - printlog( " * Using decimal char: " & iRandom ) - - cStrangeFolder = hNameGen_append( iRandom ) - brc = hCreateDirctoryExpectSuccess( cStrangeFolder ) - - cStrangeFile = hNameGen_append( iRandom ) - cStrangeFile = convertpath( cStrangeFolder & "\" & cStrangeFile ) - brc = hSaveLoadDelSuccess( cStrangeFile , TRUE ) - - cStrangeFile = hNameGen_lead( iRandom , true ) - cStrangeFile = convertpath( cStrangeFolder & "\" & cStrangeFile ) - brc = hSaveLoadDelSuccess( cStrangeName , true ) - - brc = hDeleteFileExpectSuccess( cStrangeFolder ) - - next iCounter - - printlog( "Close the document" ) - brc = hDestroyDocument() - -endcase - diff --git a/testautomation/framework/optional/includes/options_asia.inc b/testautomation/framework/optional/includes/options_asia.inc deleted file mode 100755 index 76e990ca69fa..000000000000 --- a/testautomation/framework/optional/includes/options_asia.inc +++ /dev/null @@ -1,641 +0,0 @@ -'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 : thorsten.bosbach@oracle.com -'* -'* short description : functionality test for language/settings -'* -'\***************************************************************** - -testcase func_LanguageSettings_Language - Dim bSave as Boolean - - ToolsOptions - hToolsOptions ( "LanguageSettings", "Languages" ) - bSave = Aktivieren.IsChecked - Printlog "asian support = TRUE" - if Aktivieren.isEnabled then - Aktivieren.unCheck - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - hTestAsianForWriter ( TRUE ) - hTestAsianForCalc ( TRUE ) - hTestAsianForImpress ( TRUE ) - hTestAsianForDraw ( TRUE ) - - ToolsOptions - hToolsOptions ( "LanguageSettings", "Languages" ) - Printlog Chr(13) + "asian support = FALSE" - Aktivieren.Uncheck - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - hTestAsianForWriter ( FALSE ) - hTestAsianForCalc ( FALSE ) - hTestAsianForImpress ( FALSE ) - hTestAsianForDraw ( FALSE ) - - ToolsOptions - hToolsOptions ( "LanguageSettings", "Languages" ) - Printlog Chr(13) + "asian support = TRUE" - if Aktivieren.isEnabled then - Aktivieren.unCheck - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - hTestAsianForWriter ( TRUE ) - hTestAsianForCalc ( TRUE ) - hTestAsianForImpress ( TRUE ) - hTestAsianForDraw ( TRUE ) - - ToolsOptions - hToolsOptions ( "LanguageSettings", "Languages" ) - if bSave = TRUE then Aktivieren.Check else Aktivieren.UnCheck - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) -endcase - -' ********************************************* -' ** -' ** -sub hTestAsianForWriter ( bAsianTrue as Boolean ) - Dim iTabCounter as Integer - - gApplication = "WRITER" - hNewDocument - Printlog "- test in writer" - - FormatCharacter - - if bAsianTrue = TRUE then - Kontext - iTabCounter = active.GetPageCount - if iTabCounter <> 6 then Warnlog "There are not 6 pages on the dialog, there are " + iTabCounter + "!" - else - Kontext - iTabCounter = active.GetPageCount - if iTabCounter <> 5 then Warnlog "There are not 5 pages on the dialog, there are " + iTabCounter + "!" - end if - - printlog " - check tab-dialog for FormatCharacter" - Kontext - active.SetPage TabFont - Kontext "TabFont" - if bAsianTrue = TRUE then - if FontWest.Exists then - if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!" - else - Warnlog "'Western Font' does not exists!" - end if - if StyleWest.Exists then - if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!" - else - Warnlog "'Western Style' does not exists!" - end if - if SizeWest.Exists then - if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!" - else - Warnlog "'Western Size' does not exists!" - end if - if LanguageWest.Exists then - if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!" - else - Warnlog "'Western Language' does not exists=> Bug!" - end if - if FontEast.Exists then - if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!" - else - Warnlog "'Eastern Font' does not exists!" - end if - if StyleEast.Exists then - if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!" - else - Warnlog "'Eastern Style' does not exists!" - end if - if SizeEast.Exists then - if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!" - else - Warnlog "'Eastern Size' does not exists!" - end if - if LanguageEast.Exists then - if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!" - else - Warnlog "'Eastern Language' does not exists!" - end if - else - if FontEast.Exists then - if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!" - end if - if StyleEast.Exists then - if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!" - end if - if SizeEast.Exists then - if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!" - end if - if LanguageEast.Exists then - if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!" - end if - if FontWest.Exists then - if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!" - end if - if StyleWest.Exists then - if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!" - end if - if SizeWest.Exists then - if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!" - end if - if LanguageWest.Exists then - if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!" - end if - end if - - Kontext - active.SetPage TabFontEffects - Kontext "TabFontEffects" - if bAsianTrue = TRUE then - if Emphasis.Exists then - if Emphasis.IsVisible = FALSE then - Warnlog "'Emphasis mark' is not visible!" - else - Emphasis.Select 2 - end if - else - Warnlog "'Emphasis mark' does not exists!" - end if - if Position.Exists then - if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!" - else - Warnlog "'Position' does not exists!" - end if - else - if Emphasis.Exists then - if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!" - end if - if Position.Exists then - if Position.IsVisible then Warnlog "'Position' is visible!" - end if - end if - - Kontext - Active.SetPage TabFontPosition - - if bAsianTrue = TRUE then - try - Kontext - Active.SetPage TabAsianLayout - catch - Warnlog "The tabpage 'Asian Layout' does not exists!" - endcatch - else - try - Kontext - Active.SetPage TabAsianLayout - Warnlog "The tabpage 'Asian Layout' exists!" - catch - endcatch - end if - - Kontext - active.SetPage TabHyperlinkZeichen - - Kontext - active.SetPage TabHintergrund - kontext "TabHintergrund" - TabHintergrund.Close - - printlog " - check ruby-dialog" - if bAsianTrue = TRUE then - try - FormatRuby - Kontext "RubyDialog" - RubyDialog.Close - catch - Warnlog "Ruby-Dialog can't be opened!" - endcatch - else - try - FormatRuby - Kontext "RubyDialog" - RubyDialog.Close - Warnlog "Ruby-Dialog can be opened!" - catch - endcatch - end if - - printlog " - check menu items for format/change case" - if bAsianTrue = TRUE then - try - FormatChangeCaseHalfWidth - Wait 500 - catch - Warnlog "Format/Case/Half width is not active!" - endcatch - - try - FormatChangeCaseFullWidth - Wait 500 - catch - Warnlog "Format/Case/Full width is not active!" - endcatch - - try - FormatChangeCaseHiragana - Wait 500 - catch - Warnlog "Format/Case/Hiragana is not active!" - endcatch - - try - FormatChangeCaseKatagana - Wait 500 - catch - Warnlog "Format/Case/Katagana is not active!" - endcatch - else - try - FormatChangeCaseHalfWidth - Wait 500 - Warnlog "Format/Case/Half width is active!" - catch - endcatch - - try - FormatChangeCaseFullWidth - Wait 500 - Warnlog "Format/Case/Full width is active!" - catch - endcatch - - try - FormatChangeCaseHiragana - Wait 500 - Warnlog "Format/Case/Hiragana is active!" - catch - endcatch - - try - FormatChangeCaseKatagana - Wait 500 - Warnlog "Format/Case/Katagana is active!" - catch - endcatch - end if - - printlog " - check find&replace-dialog" - EditSearchAndReplace - Kontext "SuchenUndErsetzenWriter" - if bAsianTrue = TRUE then - if HalbNormalbreiteFormen.Exists then - if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!" - else - Warnlog "'Match half-/full-width forms' does not exists!" - end if - if AehnlicheSchreibweise.Exists then - if AehnlicheSchreibweise.IsVisible = FALSE then - Warnlog "'Sounds like (Japanese)' is not visible!" - else - AehnlicheSchreibweise.Check - end if - else - Warnlog "'Sounds like (Japanese)' does not exists!" - end if - if AehnlicheSchreibweiseOptionen.Exists then - if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!" - else - Warnlog "'Options for 'Sounds like' does not exists!" - end if - else - if HalbNormalbreiteFormen.Exists then - if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!" - end if - if AehnlicheSchreibweise.Exists then - if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!" - end if - if AehnlicheSchreibweiseOptionen.Exists then - if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!" - end if - end if - SuchenUndErsetzenWriter.Close - - Call hCloseDocument - -end sub - -' ********************************************* -' ** -' ** -sub hTestAsianForCalc ( bAsianTrue as Boolean ) - Dim iTabCounter as Integer - - Printlog "- test in calc" - gApplication = "CALC" - hNewDocument - - FormatCells - - if bAsianTrue = TRUE then - Kontext - iTabCounter = active.GetPageCount - if iTabCounter <> 8 then Warnlog "There are not 8 pages on the dialog, there are " + iTabCounter + "!" - else - Kontext - iTabCounter = active.GetPageCount - if iTabCounter <> 7 then Warnlog "There are not 7 pages on the dialog, there are " + iTabCounter + "!" - end if - - printlog " - check tab-dialog for Format/Cell" - Kontext - active.SetPage TabZahlen - - Kontext - active.SetPage TabFont - Kontext "TabFont" - if bAsianTrue = TRUE then - if FontWest.Exists then - if FontWest.IsVisible = FALSE then Warnlog "'Western Font' is not visible!" - else - Warnlog "'Western Font' does not exists!" - end if - if StyleWest.Exists then - if StyleWest.IsVisible = FALSE then Warnlog "'Western Style' is not visible!" - else - Warnlog "'Western Style' does not exists!" - end if - if SizeWest.Exists then - if SizeWest.IsVisible = FALSE then Warnlog "'Western Size' is not visible!" - else - Warnlog "'Western Size' does not exists!" - end if - if LanguageWest.Exists then - if LanguageWest.IsVisible = FALSE then Warnlog "'Western Language' is not visible!" - else - Warnlog "'Western Language' does not exists=> Bug!" - end if - if FontEast.Exists then - if FontEast.IsVisible = FALSE then Warnlog "'Eastern Font' is not visible!" - else - Warnlog "'Eastern Font' does not exists!" - end if - if StyleEast.Exists then - if StyleEast.IsVisible = FALSE then Warnlog "'Eastern Style' is not visible!" - else - Warnlog "'Eastern Style' does not exists!" - end if - if SizeEast.Exists then - if SizeEast.IsVisible = FALSE then Warnlog "'Eastern Size' is not visible!" - else - Warnlog "'Eastern Size' does not exists!" - end if - if LanguageEast.Exists then - if LanguageEast.IsVisible = FALSE then Warnlog "'Eastern Language' is not visible!" - else - Warnlog "'Eastern Language' does not exists!" - end if - else - if FontEast.Exists then - if FontEast.IsVisible then Warnlog "'Eastern Font' is visible!" - end if - if StyleEast.Exists then - if StyleEast.IsVisible then Warnlog "'Eastern Style' is visible!" - end if - if SizeEast.Exists then - if SizeEast.IsVisible then Warnlog "'Eastern Size' is visible!" - end if - if LanguageEast.Exists then - if LanguageEast.IsVisible then Warnlog "'Eastern Language' is visible!" - end if - if FontWest.Exists then - if FontWest.IsVisible then Warnlog "'Eastern Font' is visible!" - end if - if StyleWest.Exists then - if StyleWest.IsVisible then Warnlog "'Eastern Style' is visible!" - end if - if SizeWest.Exists then - if SizeWest.IsVisible then Warnlog "'Eastern Size' is visible!" - end if - if LanguageWest.Exists then - if LanguageWest.IsVisible then Warnlog "'Eastern Language' is visible!" - end if - end if - - Kontext - active.SetPage TabFontEffects - Kontext "TabFontEffects" - if bAsianTrue = TRUE then - if Emphasis.Exists then - if Emphasis.IsVisible = FALSE then - Warnlog "'Emphasis mark' is not visible!" - else - Emphasis.Select 2 - end if - else - Warnlog "'Emphasis mark' does not exists!" - end if - if Position.Exists then - if Position.IsVisible = FALSE then Warnlog "'Position' is not visible!" - else - Warnlog "'Position' does not exists!" - end if - else - if Emphasis.Exists then - if Emphasis.IsVisible then Warnlog "'Emphasis mark' is visible!" - end if - if Position.Exists then - if Position.IsVisible then Warnlog "'Position' is visible!" - end if - end if - - if bAsianTrue = TRUE then - try - Kontext - Active.SetPage TabAsianTypography - catch - Warnlog "The tabpage 'Asian Typography' does not exists!" - endcatch - else - try - Kontext - Active.SetPage TabAsianTypography - Warnlog "The tabpage 'Asian Typography' exists!" - catch - endcatch - end if - - Kontext - active.SetPage TabAusrichtung - - Kontext - active.SetPage TabUmrandung - - Kontext - active.SetPage TabHintergrund - - Kontext - active.SetPage TabZellschutz - Kontext "TabZellschutz" - TabZellschutz.Cancel - - printlog " - check find&replace-dialog" - EditSearchAndReplace - Kontext "SuchenUndErsetzenCalc" - if bAsianTrue = TRUE then - if HalbNormalbreiteFormen.Exists then - if HalbNormalbreiteFormen.IsVisible = FALSE then Warnlog "'Match half-/full-width forms' is not visible!" - else - Warnlog "'Match half-/full-width forms' does not exists!" - end if - if AehnlicheSchreibweise.Exists then - if AehnlicheSchreibweise.IsVisible = FALSE then - Warnlog "'Sounds like (Japanese)' is not visible!" - else - AehnlicheSchreibweise.Check - end if - else - Warnlog "'Sounds like (Japanese)' does not exists!" - end if - if AehnlicheSchreibweiseOptionen.Exists then - if AehnlicheSchreibweiseOptionen.IsVisible = FALSE then Warnlog "'Options for 'Sounds like' is not visible!" - else - Warnlog "'Options for 'Sounds like' does not exists!" - end if - else - if HalbNormalbreiteFormen.Exists then - if HalbNormalbreiteFormen.IsVisible then Warnlog "'Match half-/full-width forms' is visible!" - end if - if AehnlicheSchreibweise.Exists then - if AehnlicheSchreibweise.IsVisible then Warnlog "'Sounds like (Japanese)' is visible!" - end if - if AehnlicheSchreibweiseOptionen.Exists then - if AehnlicheSchreibweiseOptionen.IsVisible then Warnlog "'Options for 'Sounds like' is visible!" - end if - end if - SuchenUndErsetzenCalc.Close - - Call hCloseDocument - -end sub - -' ********************************************* -' ** -' ** -sub hTestAsianForImpress ( bAsianTrue as Boolean ) - Dim iTabCounter as Integer - - Printlog "- test in impress" - gApplication = "IMPRESS" - hNewDocument - - printlog " - check 'asian typography' at Format/Paragraph" - FormatParagraph - Kontext - active.SetPage TabEinzuegeUndAbstaende - - if bAsianTrue = TRUE then - try - Kontext - Active.SetPage TabAsianTypography - catch - Warnlog "The tabpage 'Asian Typography' does not exists!" - endcatch - else - try - Kontext - Active.SetPage TabAsianTypography - Warnlog "The tabpage 'Asian Typography' exists!" - catch - endcatch - end if - - Kontext - active.SetPage TabAusrichtungAbsatz - - Kontext - active.SetPage TabTabulator - kontext "TabTabulator" - TabTabulator.Cancel - - hCloseDocument -end sub - -' ********************************************* -' ** -' ** -sub hTestAsianForDraw ( bAsianTrue as Boolean ) - Dim iTabCounter as Integer - - Printlog "- test in draw" - gApplication = "DRAW" - hNewDocument - - printlog " - check 'asian typography' at Format/Paragraph" - FormatParagraph - Kontext - active.SetPage TabEinzuegeUndAbstaende - - if bAsianTrue = TRUE then - try - Kontext - Active.SetPage TabAsianTypography - catch - Warnlog "The tabpage 'Asian Typography' does not exists!" - endcatch - else - try - Kontext - Active.SetPage TabAsianTypography - Warnlog "The tabpage 'Asian Typography' exists!" - catch - endcatch - end if - - Kontext - active.SetPage TabAusrichtungAbsatz - - Kontext - active.SetPage TabTabulator - kontext "TabTabulator" - TabTabulator.Cancel - - hCloseDocument -end sub - diff --git a/testautomation/framework/optional/includes/options_data.inc b/testautomation/framework/optional/includes/options_data.inc deleted file mode 100755 index 4b60f9c99942..000000000000 --- a/testautomation/framework/optional/includes/options_data.inc +++ /dev/null @@ -1,192 +0,0 @@ -'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 : thorsten.bosbach@oracle.com -'* -'* short description : general option test ( datasource - group ) -'* -'\****************************************************************************** - -testcase tDatasourceConnections - Dim lsTimeout ( 20 ) as String - Dim lbPool ( 20 ) as Boolean - Dim i as Integer, iCounter as Integer - Dim bSave as Boolean - Dim sDiv as String - Dim iDummy as Single - - iCounter = 9 ' sorry only hard coded the number of entries, it gives no way to get the real count ( GetText crashes ) -qaerrorLog "GetTextCrasjhes??? TBO" - - - hNewDocument - ToolsOptions - hToolsOptions ( "Datasources", "Connections" ) - - printlog " - save raw data" - bSave = ConnectionPoolingEnabled.IsChecked - ConnectionPoolingEnabled.Check - DriverList.TypeKeys "<Up>", 20 - for i=1 to iCounter - if i <> 1 then DriverList.TypeKeys "<Down>" - lbPool (i) = EnablePoolingForThisDriver.IsChecked - if lbPool (i) = TRUE then - lsTimeout (i) = Timeout.GetText - else - EnablePoolingForThisDriver.Check - lsTimeout (i) = Timeout.GetText - end if - next i - - printlog " - change all settings" - DriverList.TypeKeys "<Up>", 20 - for i=1 to iCounter - if i <> 1 then DriverList.TypeKeys "<Down>" - sDiv = str ( i/2 ) - if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0 then - EnablePoolingForThisDriver.Check - Timeout.SetText "4" + i - else - EnablePoolingForThisDriver.Uncheck - end if - Sleep (1) - next i - if bSave = TRUE then ConnectionPoolingEnabled.UnCheck - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - hCloseDocument - - printlog " - exit/restart StarOffice" - ExitRestartTheOffice - - printlog " - check all changes" - ToolsOptions - hToolsOptions ( "Datasources", "Connections" ) - - if ConnectionPoolingEnabled.IsChecked = bSave then Warnlog "Connection pooling enabled => changes not saved!" - ConnectionPoolingEnabled.Check - - DriverList.TypeKeys "<Up>", 20 - for i=1 to iCounter - if i <> 1 then DriverList.TypeKeys "<Down>" - sDiv = str ( i/2 ) - if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0 then - if EnablePoolingForThisDriver.IsChecked <> TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!" - EnablePoolingForThisDriver.Check - if Timeout.GetText <> "4" + i then Warnlog "Entry " + i + " : timeout => changes not saved!" - else - if EnablePoolingForThisDriver.Ischecked = TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!" - end if - Sleep (1) - next i - - printlog " - make second changes" - DriverList.TypeKeys "<Up>", 20 - for i=1 to iCounter - if i <> 1 then DriverList.TypeKeys "<Down>" - sDiv = str ( i/2 ) - if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0 then - EnablePoolingForThisDriver.Uncheck - else - EnablePoolingForThisDriver.Check - if i<>10 then - Timeout.SetText "6" + i - else - Timeout.SetText "540" - end if - end if - Sleep (1) - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check all changes" - ToolsOptions - hToolsOptions ( "Datasources", "Connections" ) - - DriverList.TypeKeys "<Up>", 20 - for i=1 to iCounter - if i <> 1 then DriverList.TypeKeys "<Down>" - sDiv = str ( i/2 ) - if Instr ( sDiv, "." ) <> 0 or Instr ( sDiv, "," ) <> 0 then - if EnablePoolingForThisDriver.Ischecked = TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!" - else - if EnablePoolingForThisDriver.IsChecked <> TRUE then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!" - EnablePoolingForThisDriver.Check - if i<>10 then - if Timeout.GetText <> "6" + i then Warnlog "Entry " + i + " : timeout => changes not saved!" - else - if Timeout.GetText <> "540" then Warnlog "Entry " + i + " : timeout => changes not saved!" - end if - - end if - Sleep (1) - next i - - printlog " - reset all settings" - DriverList.TypeKeys "<Up>", 20 - for i=1 to iCounter - if i <> 1 then DriverList.TypeKeys "<Down>" - EnablePoolingForThisDriver.Check - Timeout.SetText lsTimeout (i) - if lbPool (i) = TRUE then EnablePoolingForThisDriver.Check else EnablePoolingForThisDriver.UnCheck - next i - if bSave = TRUE then ConnectionPoolingEnabled.Check else ConnectionPoolingEnabled.UnCheck - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check the raw data" - ToolsOptions - hToolsOptions ( "Datasources", "Connections" ) - - ConnectionPoolingEnabled.check - DriverList.TypeKeys "<Up>", 20 - for i=1 to iCounter - if i <> 1 then DriverList.TypeKeys "<Down>" - if EnablePoolingForThisDriver.IsChecked <> lbPool (i) then Warnlog "Entry " + i + " : enable pooling for this driver => changes not saved!" - EnablePoolingForThisDriver.Check - if Timeout.GetText <> lsTimeout (i) then Warnlog "Entry " + i + " : timeout => changes not saved!" - if lbPool (i) = TRUE then EnablePoolingForThisDriver.Check else EnablePoolingForThisDriver.UnCheck - Sleep (1) - next i - ConnectionPoolingEnabled.unCheck - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - -endcase - - - - diff --git a/testautomation/framework/optional/includes/options_int1.inc b/testautomation/framework/optional/includes/options_int1.inc deleted file mode 100755 index 9c79a79a7d97..000000000000 --- a/testautomation/framework/optional/includes/options_int1.inc +++ /dev/null @@ -1,286 +0,0 @@ -'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 : thorsten.bosbach@oracle.com -'* -'* short description : general options test (test for internet-group) -'* -'\****************************************************************************** - -testcase tInternetProxy - Dim iSave as Integer - Dim lsSave ( 9 ) as String - - - hNewDocument - ToolsOptions - hToolsOptions ( "Internet", "Proxy" ) - - printlog " - save settings" - iSave = ProxyServer.GetSelIndex - ProxyServer.Select ( ProxyServer.GetItemCount ) - if ProxyServer.GetItemCount > 2 then Warnlog "More than 2 entries are available for ProxyServer-Setting => Bug 88387" - - lsSave (1) = HTTPProxy.GetText - lsSave (2) = HTTPPort.GetText - lsSave (3) = FTPProxy.GetText - lsSave (4) = FTPPort.GetText - lsSave (7) = NoProxy.GetText - - printlog " - change settings" - HTTPProxy.SetText "staroffice-news.germany.sun.com.test" - HTTPPort.SetText "1508" - FTPProxy.SetText "staroffice-news.germany.sun.com.test" - FTPPort.SetText "1509" - NoProxy.SetText "staroffice;stardivision;starstarstar" - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - hCloseDocument - - printlog " - exit/restart StarOffice" - ExitRestartTheOffice - - printlog " - check changes" - ToolsOptions - hToolsOptions ( "Internet", "Proxy" ) - - if ProxyServer.GetSelIndex <> ProxyServer.GetItemCount then - Warnlog "Proxy Server => changes not saved ( should be the last entry )!" - ProxyServer.Select ( ProxyServer.GetItemCount ) - end if - - if HTTPProxy.GetText <> "staroffice-news.germany.sun.com.test" then warnlog "HTTP Proxy => changes not saved!" - if FTPProxy.GetText <> "staroffice-news.germany.sun.com.test" then warnlog "FTP Proxy => changes not saved!" - if NoProxy.GetText <> "staroffice;stardivision;starstarstar" then warnlog "No Proxy => changes not saved!" - if HTTPPort.GetText <> "1508" then warnlog "HTTP Port => changes not saved!" - if FTPPort.GetText <> "1509" then warnlog "FTP Port => changes not saved!" - - if gPlatgroup = "w95" then - printlog " - change settings ( only windows )" - ProxyServer.Select 2 - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check changes" - ToolsOptions - hToolsOptions ( "Internet", "Proxy" ) - - if ProxyServer.GetSelIndex <> 2 then Warnlog "Proxy Server => changes not saved ( should be the 2nd entry )!" - end if - - printlog " - reset settings" - ProxyServer.Select(3) ' manual - HTTPProxy.SetText lsSave (1) - HTTPPort.SetText lsSave (2) - FTPProxy.SetText lsSave (3) - FTPPort.SetText lsSave (4) - NoProxy.SetText lsSave (7) - ProxyServer.Select iSave - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check default" - ToolsOptions - hToolsOptions ( "Internet", "Proxy" ) - if ProxyServer.GetSelIndex <> iSave then Warnlog "Proxy Server => changes not saved!" - if HTTPProxy.GetText <> lsSave (1) then warnlog "HTTP Proxy => changes not saved!" - if FTPProxy.GetText <> lsSave (3) then warnlog "FTP Proxy => changes not saved!" - if NoProxy.GetText <> lsSave (7) then warnlog "No Proxy => changes not saved!" - if FTPPort.GetText <> lsSave (4) AND FTPPort.GetText <> "0" then warnlog "FTP Port => changes not saved!" - if HTTPPort.GetText <> lsSave (2) AND HTTPPort.GetText <> "0" then warnlog "HTTP Port => changes not saved!" - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - -endcase - -testcase tInternetSearch - Dim iSave, iInterim, i as Integer - Dim lbSave ( 3, 10 ) as boolean - Dim lsSave ( 6, 10 ) as String - - - hNewDocument - ToolsOptions - hToolsOptions ( "Internet", "Search" ) - - printlog " - save settings" - iSave = SuchenIn.GetItemCount - if iSave > 8 then - Warnlog "Please change the index for this test, there are too many entries in the Search-List!" - iSave = 8 - end if - - for i=1 to iSave - SuchenIn.Select i - lsSave (1, i) = DienstName.GetText - lsSave (2, i) = Praefix.GetText - lsSave (3, i) = Suffix.GetText - lsSave (4, i) = Trenner.GetText - lsSave (5, i) = Schreibstil.GetSelText - - lbSave (1, i) = Und.IsChecked - lbSave (2, i) = Oder.IsChecked - lbSave (3, i) = Exakt.IsChecked - next i - - printlog " - change/insert settings" - if iSave > 0 then - SuchenIn.Select 1 - DienstName.SetText "AAAA_TT_Changes_Name" - Und.Check - Praefix.SetText "TT_Changes_Prefix" - Suffix.SetText "TT_Changes_Suffix" - Trenner.SetText ";;;;" - Schreibstil.Select 3 - Sleep (1) - Aendern.Click - end if - - Neu.Click - Sleep (1) - DienstName.SetText "ZZZZ_TT_New_Name" - Oder.Check - Praefix.SetText "TT_New_Prefix" - Suffix.SetText "TT_New_Suffix" - Trenner.SetText ":::::" - Schreibstil.Select 2 - Hinzufuegen.Click - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - hCloseDocument - - printlog " - exit/restart StarOffice" - ExitRestartTheOffice - - printlog " - check changes" - ToolsOptions - hToolsOptions ( "Internet", "Search" ) - - iInterim = SuchenIn.GetItemCount - if iInterim = 0 then - Warnlog "No entrie in Search-List, entries are not saved! The test ends here! => BugID: 82922" - else - if iInterim <> ( iSave + 1 ) then - Warnlog "Not all entries in the Search-List are saved! => BugID: 82922" - else - for i=1 to iInterim - if i=1 then - SuchenIn.Select "AAAA_TT_Changes_Name" - if DienstName.GetText <> "AAAA_TT_Changes_Name" then Warnlog "AAAA_TT_Changes_Name : Name => changes not saved" - Und.Check - if Praefix.GetText <> "TT_Changes_Prefix" then Warnlog "AAAA_TT_Changes_Name : Prefix => changes not saved!" - if Suffix.GetText <> "TT_Changes_Suffix" then Warnlog "AAAA_TT_Changes_Name : Suffix => changes not saved!" - if Trenner.GetText <> ";;;;" then Warnlog "AAAA_TT_Changes_Name : Seperator => changes not saved!" - if Schreibstil.GetSelIndex <> 3 then Warnlog "AAAA_TT_Changes_Name : Case match => changes not saved! BugID:86660" - else - if i <> ( iSave + 1 ) then - SuchenIn.Select i - if DienstName.GetText <> lsSave (1, i) then Warnlog lsSave (1, i) + " : Name => old entry not saved correctly!" - if Und.IsChecked <> lbSave (1, i) then Warnlog lsSave (1, i) + " : Und => old entry not saved correctly!" - if Oder.IsChecked <> lbSave (2, i) then Warnlog lsSave (1, i) + " : Oder => old entry not saved correctly!" - if Exakt.IsChecked <> lbSave (3, i) then Warnlog lsSave (1, i) + " : Exakt => old entry not saved correctly!" - if Praefix.GetText <> lsSave (2, i) then Warnlog lsSave (1, i) + " : Prefix => old entry not saved correctly!" - if Suffix.GetText <> lsSave (3, i) then Warnlog lsSave (1, i) + " : Suffix => old entry not saved correctly!" - if Trenner.GetText <> lsSave (4, i) then Warnlog lsSave (1, i) + " : Seperator => old entry not saved correctly!" - if Schreibstil.GetSelText <> lsSave (5, i) then Warnlog lsSave (1, i) + " : Case match => old entry not saved correctly!" - else - SuchenIn.Select "ZZZZ_TT_New_Name" - if DienstName.GetText <> "ZZZZ_TT_New_Name" then Warnlog "ZZZZ_TT_New_Name : Name => new entry not saved correctly!" - Oder.Check - if Praefix.GetText <> "TT_New_Prefix" then Warnlog "ZZZZ_TT_New_Name : Prefix => new entry not saved correctly!" - if Suffix.GetText <> "TT_New_Suffix" then Warnlog "ZZZZ_TT_New_Name : Suffix => new entry not saved correctly!" - if Trenner.GetText <> ":::::" then Warnlog "ZZZZ_TT_New_Name : Seperator => new entry not saved correctly!" - if Schreibstil.GetSelIndex <> 2 then Warnlog "ZZZZ_TT_New_Name : Case match => new entry not saved correctly! BugID:86660" - end if - end if - next i - end if - - printlog " - reset settings" - SuchenIn.Select "AAAA_TT_Changes_Name" - DienstName.SetText lsSave (1, 1) - if lbSave(1, 1) = TRUE then Und.Check - if lbSave(2, 1) = TRUE then Oder.Check - if lbSave(3, 1) = TRUE then Exakt.Check - Praefix.SetText lsSave (2, 1) - Suffix.SetText lsSave (3, 1) - Trenner.SetText lsSave (4, 1) - Schreibstil.Select lsSave (5, 1) - Sleep (1) - Aendern.Click - Sleep (1) - - SuchenIn.Select "ZZZZ_TT_New_Name" - Sleep (1) - Loeschen.Click - Sleep (1) - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check the reset" - ToolsOptions - hToolsOptions ( "Internet", "Search" ) - - iInterim = SuchenIn.GetItemCount - if iInterim <> iSave then - Warnlog "The default can't be reached!" - else - for i=1 to iInterim - SuchenIn.Select lsSave (1, i) - if DienstName.GetText <> lsSave (1, i) then Warnlog lsSave (1, i) + " : Name => old entry not saved correctly!" - if Und.IsChecked <> lbSave (1, i) then Warnlog lsSave (1, i) + " : Und => old entry not saved correctly!" - if Oder.IsChecked <> lbSave (2, i) then Warnlog lsSave (1, i) + " : Oder => old entry not saved correctly!" - if Exakt.IsChecked <> lbSave (3, i) then Warnlog lsSave (1, i) + " : Exakt => old entry not saved correctly!" - if Praefix.GetText <> lsSave (2, i) then Warnlog lsSave (1, i) + " : Prefix => old entry not saved correctly!" - if Suffix.GetText <> lsSave (3, i) then Warnlog lsSave (1, i) + " : Suffix => old entry not saved correctly!" - if Trenner.GetText <> lsSave (4, i) then Warnlog lsSave (1, i) + " : Seperator => old entry not saved correctly!" - if Schreibstil.GetSelText <> lsSave (5, i) then Warnlog lsSave (1, i) + " : Case match => old entry not saved correctly!" - next i - end if - end if - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - -endcase - - diff --git a/testautomation/framework/optional/includes/options_lan1.inc b/testautomation/framework/optional/includes/options_lan1.inc deleted file mode 100755 index ac7f70d18de2..000000000000 --- a/testautomation/framework/optional/includes/options_lan1.inc +++ /dev/null @@ -1,894 +0,0 @@ -'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 : thorsten.bosbach@oracle.com -'* -'* short description : general option test (test for language-group) -'* -'\****************************************************************************** - -sub opt_lan1 - Dim bOld as Boolean - - bOld = ActiveDeactivateAsianSupport ( FALSE ) - - Call tLanguageSettingsLanguages - Call tLanguageSettingsWritingAids - - printlog "++ activate the asian support in StarOffice ++" - ActiveDeactivateAsianSupport ( TRUE ) - Call tLanguageSettingsJapaneseFind - Call tLanguageSettingsAsianLayout - - printlog "++ reset asian support in StarOffice to default ++" - if bOld = TRUE then - ActiveDeactivateAsianSupport ( TRUE ) - else - ActiveDeactivateAsianSupport ( FALSE ) - end if - -end sub - -'******************************************************************************* - -testcase tLanguageSettingsLanguages - - Dim lsSave ( 5 ) as String, lsSave2 (3) as String - Dim bChanged as Boolean, bSave as Boolean, bSave2 as Boolean - - bChanged = FALSE - - - - hNewDocument - ToolsOptions - hToolsOptions ( "LanguageSettings", "Languages" ) - - printlog "- check dependences in this dialog" - printlog " - asian support" - if Aktivieren.IsChecked() = FALSE then - if Asiatisch.IsEnabled() = TRUE then - Warnlog "Asian support is not active, the listbox is in wrong state:" - printlog "...the language for asian is active => Perhaps #108220#" - end if - if Aktivieren.isEnabled then - Aktivieren.Check - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - if Asiatisch.IsEnabled() <> TRUE then - Warnlog "Asian support is active, the listbox is in wrong state:" - printlog "...language for asian is not active => BUG!" - end if - if Aktivieren.isEnabled then - Aktivieren.unCheck - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - else - if Asiatisch.IsEnabled() <> TRUE then - Warnlog "Asian support is not active, the listbox is in wrong state:" - printlog "...language for asian is not active => BUG!" - end if - if Aktivieren.isEnabled then - Aktivieren.unCheck - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - if Asiatisch.IsEnabled() = TRUE then - Warnlog "Asian support is active, the listbox is in wrong state:" - printlog "...language for asian is active => BUG!" - end if - if Aktivieren.isEnabled then - Aktivieren.Check - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - end if - - printlog " - CTL support" - if ComplexScriptEnabled.IsChecked() = FALSE then - if LanguageComplexScript.IsEnabled() = TRUE then - Warnlog "CTL support is not active, the listbox is in wrong state:" - printlog "...language for CTL is active => BUG!" - end if - ComplexScriptEnabled.Check() - if LanguageComplexScript.IsEnabled() <> TRUE then - Warnlog "CTL support is active, the listbox is in wrong state:" - printlog "...language for CTL is not active => BUG!" - end if - ComplexScriptEnabled.UnCheck() - else - if LanguageComplexScript.IsEnabled() <> TRUE then - Warnlog "CTL support is active, the listbox is in wrong state:" - printlog "...language for CTL is not active => BUG!" - end if - ComplexScriptEnabled.UnCheck() - if LanguageComplexScript.IsEnabled() = TRUE then - Warnlog "CTL support is not active, the listbox is in wrong state:" - printlog "...the language for CTL is active => BUG!" - end if - ComplexScriptEnabled.Check() - end if - - printlog "- save raw data" - lsSave (1) = Gebietsschema.GetSelText() - lsSave (2) = StandardWaehrung.GetSelText() - lsSave (3) = Westlich.GetSelText() - bSave = Aktivieren.IsChecked() - if Aktivieren.isEnabled then - Aktivieren.Check - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - lsSave (4) = Asiatisch.GetSelText() - - if lsSave (4) = "" then - Warnlog "Empty entry is selected for 'Asian'! => Bug 102046" - endif - - bSave2 = ComplexScriptEnabled.IsChecked() - ComplexScriptEnabled.Check() - lsSave (5) = LanguageComplexScript.GetSelText() - - if lsSave (5) = "" then - Warnlog "Empty entry is selected for 'Complex script'! => Bug 102046" - endif - - printlog "- change settings" - select case iSprache - case 34 : Gebietsschema.Select( 40 ) - case 39 : Gebietsschema.Select( 17 ) - case 81 : Gebietsschema.Select( 22 ) - case 88 : Gebietsschema.Select( 19 ) - case else : Gebietsschema.Select( 15 ) - end select - StandardWaehrung.Select( 20 ) - Westlich.Select( 10 ) - lsSave2(1) = Westlich.GetSelText() - - if Aktivieren.isEnabled then - Aktivieren.Check - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - Asiatisch.Select( 5 ) - lsSave2(2) = Asiatisch.GetSelText() - AktuellesDokument.Uncheck() - - ComplexScriptEnabled.Check - LanguageComplexScript.Select( 7 ) - lsSave2 (3) = LanguageComplexScript.GetSelText() - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK() - Sleep ( 3 ) - - hCloseDocument - - printlog "- exit/restart StarOffice" - ExitRestartTheOffice - hNewDocument - printlog "- check changes" - ToolsOptions - hToolsOptions ( "LanguageSettings", "Languages" ) - - select case iSprache - case 34 : if Gebietsschema.GetSelIndex <> 40 then - Warnlog "locale settings => changes not saved!" - endif - case 39 : if Gebietsschema.GetSelIndex <> 17 then - Warnlog "locale settings => changes not saved!" - endif - case 81 : if Gebietsschema.GetSelIndex <> 22 then - Warnlog "locale settings => changes not saved!" - endif - case 88 : if Gebietsschema.GetSelIndex <> 19 then - Warnlog "locale settings => changes not saved!" - endif - case else : if Gebietsschema.GetSelIndex <> 15 then - Warnlog "locale settings => changes not saved!" - endif - end select - - if StandardWaehrung.GetSelIndex <> 20 then - Warnlog "default currency => changes not saved!" - endif - - if Westlich.GetSelText <> lsSave2(1) then - Warnlog "western => changes not saved! " - endif - - if Aktivieren.IsChecked <> TRUE then - Warnlog "Enabled asian support => changes not saved!" - endif - - if Asiatisch.GetSelText <> lsSave2(2) then - Warnlog "asian => changes not saved! " - endif - - if ComplexScriptEnabled.IsChecked <> TRUE then - Warnlog "CTL support => changes not saved!" - endif - - if LanguageComplexScript.GetSelText <> lsSave2 (3) then - Warnlog "CTL language => changes not saved! " - endif - - printlog "- set to default" - Gebietsschema.Select lsSave(1) - StandardWaehrung.Select lsSave (2) - Westlich.Select lsSave (3) - AktuellesDokument.Uncheck() - if Aktivieren.isEnabled then - Aktivieren.Check - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - - if lsSave (4) <> "" then - Asiatisch.Select lsSave (4) - else - Asiatisch.Select 1 - end if - - if Aktivieren.isEnabled then - if bSave = TRUE then - Aktivieren.Check - else - Aktivieren.Uncheck - endif - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - ComplexScriptEnabled.Check() - - if lsSave (5) <> "" then - LanguageComplexScript.Select( lsSave(5) ) - else - LanguageComplexScript.Select( 1 ) - end if - - if bSave2 = TRUE then - ComplexScriptEnabled.Check() - else - ComplexScriptEnabled.Uncheck() - endif - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK() - Sleep (3) - - printlog "- check the data" - ToolsOptions - hToolsOptions ( "LanguageSettings", "Languages" ) - - if Gebietsschema.GetSelText() <> lsSave(1) then - Warnlog "locale settings => changes not saved! => BugID : 87977" - endif - - if StandardWaehrung.GetSelText() <> lsSave(2) then - Warnlog "default currency => changes not saved!" - endif - - if Westlich.GetSelText() <> lsSave (3) then - Warnlog "western => changes not saved!" - endif - - if Aktivieren.IsChecked() <> bSave then - Warnlog "Enabled asian support => changes not saved!" - endif - - if Aktivieren.isEnabled then - Aktivieren.Check - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - if lsSave (4) <> "" then - if Asiatisch.GetSelText() <> lsSave (4) then - Warnlog "asian => changes not saved!" - endif - end if - - if ComplexScriptEnabled.IsChecked() <> bSave2 then - Warnlog "CTL support => changes not saved!" - endif - - ComplexScriptEnabled.Check() - - if lsSave (5) <> "" then - if LanguageComplexScript.GetSelText() <> lsSave (5) then - Warnlog "CTL language => changes not saved! " - endif - end if - if Aktivieren.isEnabled then - if bSave = TRUE then - Aktivieren.Check - else - Aktivieren.Uncheck - endif - else - qaErrorLog("Asian locale setting is selected: '"+Gebietsschema.getSelText()+"'") - printlog Aktivieren.isEnabled - endif - if bSave2 = TRUE then - ComplexScriptEnabled.Check() - else - ComplexScriptEnabled.Uncheck() - endif - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK() - Sleep (3) - hclosedocument -endcase - -' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * -' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * -testcase tLanguageSettingsWritingAids - - Dim lbSave1 ( 5 ) as Boolean - Dim lbSave2 ( 5 ) as Boolean - Dim lbSave3 ( 15 ) as Boolean - dim iCounter as Integer - Dim i as Integer, iCounter1 as Integer, iCounter2 as Integer, iCounter3 as Integer - - - - hNewDocument - ToolsOptions - hToolsOptions ( "LanguageSettings", "WritingAids" ) - - printlog " - save raw data / and inverted settings" - iCounter1 = Sprachmodule.GetItemCount - Sprachmodule.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter1 - lbSave1 (i) = Sprachmodule.IsChecked - if lbSave1 (i) = TRUE then Sprachmodule.Uncheck else Sprachmodule.Check - Sprachmodule.TypeKeys "<Down>" - next i - - iCounter2 = Benutzerwoerterbuch.GetItemCount - Benutzerwoerterbuch.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter2 - 1 - lbSave2 (i) = Benutzerwoerterbuch.IsChecked - if lbSave2 (i) = TRUE then Benutzerwoerterbuch.Uncheck else Benutzerwoerterbuch.Check - Benutzerwoerterbuch.TypeKeys "<Down>" - next i - - if Benutzerwoerterbuch.IsChecked <> TRUE then - Warnlog "Last entry in 'User-defined dictionaries' should be checked ( internal Ignore-All List ), but it isn't => BUG?!" - endif - - iCounter3 = Optionen.GetItemCount - Optionen.TypeKeys "<PageUp>", 6 - for i=1 to iCounter3 - if i<>9 AND i<>10 AND i<>11 then - lbSave3 (i) = Optionen.IsChecked - if lbSave3 (i) = TRUE then Optionen.Uncheck else Optionen.Check - end if - Optionen.TypeKeys "<Down>" - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - hCloseDocument - - printlog " - exit/restart StarOffice" - ExitRestartTheOffice - - printlog " - check changes" - - hNewDocument - - ToolsOptions - hToolsOptions ( "LanguageSettings", "WritingAids" ) - printlog " 'available language modules'" - Sprachmodule.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter1 - if Sprachmodule.Ischecked = lbSave1 (i) then - Warnlog "entry no. " + i + " => changes not saved! perhaps #i15841!" - end if - Sprachmodule.TypeKeys "<Down>" - next i - - printlog " 'user-definded dictonaries'" - Benutzerwoerterbuch.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter2 - 1 - if Benutzerwoerterbuch.Ischecked = lbSave2 (i) then Warnlog "entry no. " + i + " => changes not saved!" - Benutzerwoerterbuch.TypeKeys "<Down>" - next i - - if Benutzerwoerterbuch.IsChecked <> TRUE then - Warnlog "Last entry in 'User-defined dictionaries' should be checked ( internal Ignore-All List ), but it isn't => BUG?!" - endif - - printlog " 'options'" - Optionen.TypeKeys "<PageUp>", 6 - for i=1 to iCounter3 - if i<>9 AND i<>10 AND i<>11 then - if Optionen.IsChecked = lbSave3 (i) then Warnlog "entry no. " + i + " => changes not saved!" - end if - Optionen.TypeKeys "<Down>" - next i - - printlog " - make second changes" - Optionen.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter3 - if i=1 then Optionen.Uncheck - if i=3 then Optionen.Check - if i=5 then Optionen.Uncheck - if i=6 then Optionen.Check - if i=7 then Optionen.Uncheck - if i=12 then Optionen.Check - Optionen.TypeKeys "<Down>" - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - hCloseDocument - - printlog " - check second changes" - ToolsOptions - hToolsOptions ( "LanguageSettings", "WritingAids" ) - Optionen.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter - select case i - case 1 : if Optionen.IsChecked <> FALSE then - Warnlog "entry no. 1 => changes not saved!" - endif - case 3 : if Optionen.IsChecked <> TRUE then - Warnlog "entry no. 3 => changes not saved!" - endif - case 5 : if Optionen.IsChecked <> FALSE then - Warnlog "entry no. 5 => changes not saved!" - endif - case 6 : if Optionen.IsChecked <> TRUE then - Warnlog "entry no. 6 => changes not saved!" - endif - case 7 : if Optionen.IsChecked <> FALSE then - printlog "entry no. 7 => not saved! => it is only for documents" - endif - case 12 : if Optionen.IsChecked <> TRUE then - Warnlog "entry no. 12 => changes not saved!" - endif - end select - Optionen.TypeKeys "<Down>" - next i - - printlog " - reset settings" - Sprachmodule.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter1 - if lbSave1 (i) = TRUE then Sprachmodule.Check else Sprachmodule.UnCheck - Sprachmodule.TypeKeys "<Down>" - next i - - Benutzerwoerterbuch.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter2 - 1 - if lbSave2 (i) = TRUE then Benutzerwoerterbuch.Check else Benutzerwoerterbuch.UnCheck - Benutzerwoerterbuch.TypeKeys "<Down>" - next i - - Optionen.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter3 - if i<>9 AND i<>10 AND i<>11 then - if lbSave3 (i) = TRUE then Optionen.Check else Optionen.UnCheck - end if - Optionen.TypeKeys "<Down>" - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check raw data" - ToolsOptions - hToolsOptions ( "LanguageSettings", "WritingAids" ) - - printlog " 'available language modules'" - Sprachmodule.TypeKeys "<PageUp>", 6 - - for i=1 to iCounter1 - if Sprachmodule.Ischecked <> lbSave1 (i) then Warnlog "entry no. " + i + " => changes not saved!" - Sprachmodule.TypeKeys "<Down>" - next i - - printlog " 'user-definded dictonaries'" - Benutzerwoerterbuch.TypeKeys "<PageUp>", 6 - for i=1 to iCounter2 - 1 - if Benutzerwoerterbuch.Ischecked <> lbSave2 (i) then Warnlog "entry no. " + i + " => changes not saved!" - Benutzerwoerterbuch.TypeKeys "<Down>" - next i - - printlog " 'options'" - Optionen.TypeKeys "<PageUp>", 6 - for i=1 to iCounter3 - if i<>9 AND i<>10 AND i<>11 then - if Optionen.IsChecked <> lbSave3 (i) then Warnlog "entry no. " + i + " => changes not saved!" - end if - Optionen.TypeKeys "<Down>" - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) -endcase - -' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * -' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * -testcase tLanguageSettingsJapaneseFind - Dim bSave ( 20 ) as Boolean - - - hNewDocument - ToolsOptions - hToolsOptions ( "LanguageSettings", "SearchingInJapanese" ) - - printlog " - save data" - bSave (1 ) = MatchCase.IsChecked - bSave (2 ) = MatchFullHalf.IsChecked - bSave (3 ) = MatchHiraganaKatakana.IsChecked - bSave (4 ) = MatchContractions.IsChecked - bSave (5 ) = MatchMinusDashChoOn.IsChecked - bSave (6 ) = MatchRepeatcharacterMarks.IsChecked - bSave (7 ) = MatchVariantFormKanji.IsChecked - bSave (8 ) = MatchOldKanaForms.IsChecked - bSave (9 ) = MatchDiZiDuZu.IsChecked - bSave (10) = MatchBaVaHaFa.IsChecked - bSave (11) = MatchTsiThiChiDhiZi.IsChecked - bSave (12) = MatchHyuFyuByuVyu.IsChecked - bSave (13) = MatchDeSheZeJe.IsChecked - bSave (14) = MatchIaIya.IsChecked - bSave (15) = MatchKiKu.IsChecked - bSave (16) = PunctuationCharacters.IsChecked - bSave (17) = WhitespaceCharacters.IsChecked - bSave (18) = ProlongedSoundmarks.IsChecked - bSave (19) = MiddleDots.IsChecked - - printlog " - invert data" - if bSave (1 ) = TRUE then MatchCase.Uncheck else MatchCase.Check - if bSave (2 ) = TRUE then MatchFullHalf.Uncheck else MatchFullHalf.Check - if bSave (3 ) = TRUE then MatchHiraganaKatakana.Uncheck else MatchHiraganaKatakana.Check - if bSave (4 ) = TRUE then MatchContractions.Uncheck else MatchContractions.Check - if bSave (5 ) = TRUE then MatchMinusDashChoOn.Uncheck else MatchMinusDashChoOn.Check - if bSave (6 ) = TRUE then MatchRepeatcharacterMarks.Uncheck else MatchRepeatcharacterMarks.Check - if bSave (7 ) = TRUE then MatchVariantFormKanji.Uncheck else MatchVariantFormKanji.Check - if bSave (8 ) = TRUE then MatchOldKanaForms.Uncheck else MatchOldKanaForms.Check - if bSave (9 ) = TRUE then MatchDiZiDuZu.Uncheck else MatchDiZiDuZu.Check - if bSave (10) = TRUE then MatchBaVaHaFa.Uncheck else MatchBaVaHaFa.Check - if bSave (11) = TRUE then MatchTsiThiChiDhiZi.Uncheck else MatchTsiThiChiDhiZi.Check - if bSave (12) = TRUE then MatchHyuFyuByuVyu.Uncheck else MatchHyuFyuByuVyu.Check - if bSave (13) = TRUE then MatchDeSheZeJe.Uncheck else MatchDeSheZeJe.Check - if bSave (14) = TRUE then MatchIaIya.Uncheck else MatchIaIya.Check - if bSave (15) = TRUE then MatchKiKu.Uncheck else MatchKiKu.Check - if bSave (16) = TRUE then PunctuationCharacters.Uncheck else PunctuationCharacters.Check - if bSave (17) = TRUE then WhitespaceCharacters.Uncheck else WhitespaceCharacters.Check - if bSave (18) = TRUE then ProlongedSoundmarks.Uncheck else ProlongedSoundmarks.Check - if bSave (19) = TRUE then MiddleDots.Uncheck else MiddleDots.Check - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - hCloseDocument - - printlog " - exit/restart StarOffice" - ExitRestartTheOffice - - printlog " - check changes" - ToolsOptions - hToolsOptions ( "LanguageSettings", "SearchingInJapanese" ) - - if MatchCase.IsChecked = bSave (1 ) then Warnlog "Match Case => changes not saved!" - if MatchFullHalf.IsChecked = bSave (2 ) then Warnlog "Match Full Half => changes not saved!" - if MatchHiraganaKatakana.IsChecked = bSave (3 ) then Warnlog "Match Hiragana Katakana => changes not saved!" - if MatchContractions.IsChecked = bSave (4 ) then Warnlog "Match Contractions => changes not saved!" - if MatchMinusDashChoOn.IsChecked = bSave (5 ) then Warnlog "Match Minus Dash Cho On => changes not saved!" - if MatchRepeatcharacterMarks.IsChecked = bSave (6 ) then Warnlog "Match Repeatcharacter Marks => changes not saved!" - if MatchVariantFormKanji.IsChecked = bSave (7 ) then Warnlog "Match Variant Form Kanji => changes not saved!" - if MatchOldKanaForms.IsChecked = bSave (8 ) then Warnlog "Match Old Kana Forms => changes not saved!" - if MatchDiZiDuZu.IsChecked = bSave (9 ) then Warnlog "Match Di Zi Du Zu => changes not saved!" - if MatchBaVaHaFa.IsChecked = bSave (10) then Warnlog "Match Ba Va Ha Fa => changes not saved!" - if MatchTsiThiChiDhiZi.IsChecked = bSave (11) then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!" - if MatchHyuFyuByuVyu.IsChecked = bSave (12) then Warnlog "Match Hyu Iyu Byu Vyu => changes not saved!" - if MatchDeSheZeJe.IsChecked = bSave (13) then Warnlog "Match De She Ze Je => changes not saved!" - if MatchIaIya.IsChecked = bSave (14) then Warnlog "Match Ia Iya => changes not saved!" - if MatchKiKu.IsChecked = bSave (15) then Warnlog "Match Ki Ku => changes not saved!" - if PunctuationCharacters.IsChecked = bSave (16) then Warnlog "Punctuation Characters => changes not saved!" - if WhitespaceCharacters.IsChecked = bSave (17) then Warnlog "Whitespace Characters => changes not saved!" - if ProlongedSoundmarks.IsChecked = bSave (18) then Warnlog "Prolonged Soundmarks => changes not saved!" - if MiddleDots.IsChecked = bSave (19) then Warnlog "Middle Dots => changes not saved!" - - printlog " - second changes" - MatchCase.Check - MatchFullHalf.Uncheck - MatchHiraganaKatakana.Check - MatchContractions.Check - MatchMinusDashChoOn.Uncheck - MatchRepeatcharacterMarks.Uncheck - MatchVariantFormKanji.Check - MatchOldKanaForms.Check - MatchDiZiDuZu.Uncheck - MatchBaVaHaFa.Check - MatchTsiThiChiDhiZi.Uncheck - MatchHyuFyuByuVyu.Check - MatchDeSheZeJe.Uncheck - MatchIaIya.Check - MatchKiKu.Uncheck - PunctuationCharacters.Uncheck - WhitespaceCharacters.Uncheck - ProlongedSoundmarks.Uncheck - MiddleDots.Check - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check changes" - ToolsOptions - hToolsOptions ( "LanguageSettings", "SearchingInJapanese" ) - - if MatchCase.IsChecked <> TRUE then Warnlog "Match Case => changes not saved!" - if MatchFullHalf.IsChecked <> FALSE then Warnlog "Match Full Half => changes not saved!" - if MatchHiraganaKatakana.IsChecked <> TRUE then Warnlog "Match Hiragana Katakana => changes not saved!" - if MatchContractions.IsChecked <> TRUE then Warnlog "Match Contractions => changes not saved!" - if MatchMinusDashChoOn.IsChecked <> FALSE then Warnlog "Match Minus Dash Cho On => changes not saved!" - if MatchRepeatcharacterMarks.IsChecked <> FALSE then Warnlog "Match Repeatcharacter Marks => changes not saved!" - if MatchVariantFormKanji.IsChecked <> TRUE then Warnlog "Match Variant Form Kanji => changes not saved!" - if MatchOldKanaForms.IsChecked <> TRUE then Warnlog "Match Old Kana Forms => changes not saved!" - if MatchDiZiDuZu.IsChecked <> FALSE then Warnlog "Match Di Zi Du Zu => changes not saved!" - if MatchBaVaHaFa.IsChecked <> TRUE then Warnlog "Match Ba Va Ha Fa => changes not saved!" - if MatchTsiThiChiDhiZi.IsChecked <> FALSE then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!" - if MatchHyuFyuByuVyu.IsChecked <> TRUE then Warnlog "Match Hyu Iyu Byu Vyu => changes not saved!" - if MatchDeSheZeJe.IsChecked <> FALSE then Warnlog "Match De She Ze Je => changes not saved!" - if MatchIaIya.IsChecked <> TRUE then Warnlog "Match Ia Iya => changes not saved!" - if MatchKiKu.IsChecked <> FALSE then Warnlog "Match Ki Ku => changes not saved!" - if PunctuationCharacters.IsChecked <> FALSE then Warnlog "Punctuation Characters => changes not saved!" - if WhitespaceCharacters.IsChecked <> FALSE then Warnlog "Whitespace Characters => changes not saved!" - if ProlongedSoundmarks.IsChecked <> FALSE then Warnlog "Prolonged Soundmarks => changes not saved!" - if MiddleDots.IsChecked <> TRUE then Warnlog "Middle Dots => changes not saved!" - - printlog " - reset to saved data" - if bSave (1 ) = TRUE then MatchCase.Check else MatchCase.UnCheck - if bSave (2 ) = TRUE then MatchFullHalf.Check else MatchFullHalf.UnCheck - if bSave (3 ) = TRUE then MatchHiraganaKatakana.Check else MatchHiraganaKatakana.UnCheck - if bSave (4 ) = TRUE then MatchContractions.Check else MatchContractions.UnCheck - if bSave (5 ) = TRUE then MatchMinusDashChoOn.Check else MatchMinusDashChoOn.UnCheck - if bSave (6 ) = TRUE then MatchRepeatcharacterMarks.Check else MatchRepeatcharacterMarks.UnCheck - if bSave (7 ) = TRUE then MatchVariantFormKanji.Check else MatchVariantFormKanji.UnCheck - if bSave (8 ) = TRUE then MatchOldKanaForms.Check else MatchOldKanaForms.UnCheck - if bSave (9 ) = TRUE then MatchDiZiDuZu.Check else MatchDiZiDuZu.UnCheck - if bSave (10) = TRUE then MatchBaVaHaFa.Check else MatchBaVaHaFa.UnCheck - if bSave (11) = TRUE then MatchTsiThiChiDhiZi.Check else MatchTsiThiChiDhiZi.UnCheck - if bSave (12) = TRUE then MatchHyuFyuByuVyu.Check else MatchHyuFyuByuVyu.UnCheck - if bSave (13) = TRUE then MatchDeSheZeJe.Check else MatchDeSheZeJe.UnCheck - if bSave (14) = TRUE then MatchIaIya.Check else MatchIaIya.UnCheck - if bSave (15) = TRUE then MatchKiKu.Check else MatchKiKu.UnCheck - if bSave (16) = TRUE then PunctuationCharacters.Check else PunctuationCharacters.UnCheck - if bSave (17) = TRUE then WhitespaceCharacters.Check else WhitespaceCharacters.UnCheck - if bSave (18) = TRUE then ProlongedSoundmarks.Check else ProlongedSoundmarks.UnCheck - if bSave (19) = TRUE then MiddleDots.Check else MiddleDots.UnCheck - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check saved data" - ToolsOptions - hToolsOptions ( "LanguageSettings", "SearchingInJapanese" ) - - if MatchCase.IsChecked <> bSave (1 ) then Warnlog "Match Case => changes not saved!" - if MatchFullHalf.IsChecked <> bSave (2 ) then Warnlog "Match Full Half => changes not saved!" - if MatchHiraganaKatakana.IsChecked <> bSave (3 ) then Warnlog "Match Hiragana Katakana => changes not saved!" - if MatchContractions.IsChecked <> bSave (4 ) then Warnlog "Match Contractions => changes not saved!" - if MatchMinusDashChoOn.IsChecked <> bSave (5 ) then Warnlog "Match Minus Dash Cho On => changes not saved!" - if MatchRepeatcharacterMarks.IsChecked <> bSave (6 ) then Warnlog "Match Repeatcharacter Marks => changes not saved!" - if MatchVariantFormKanji.IsChecked <> bSave (7 ) then Warnlog "Match Variant Form Kanji => changes not saved!" - if MatchOldKanaForms.IsChecked <> bSave (8 ) then Warnlog "Match Old Kana Forms => changes not saved!" - if MatchDiZiDuZu.IsChecked <> bSave (9 ) then Warnlog "Match Di Zi Du Zu => changes not saved!" - if MatchBaVaHaFa.IsChecked <> bSave (10) then Warnlog "Match Ba Va Ha Fa => changes not saved!" - if MatchTsiThiChiDhiZi.IsChecked <> bSave (11) then Warnlog "Match Tsi Thi Chi Dhi Zi => changes not saved!" - if MatchHyuFyuByuVyu.IsChecked <> bSave (12) then Warnlog "Match Hyu Fyu Byu Vyu => changes not saved!" - if MatchDeSheZeJe.IsChecked <> bSave (13) then Warnlog "Match De She Ze Je => changes not saved!" - if MatchIaIya.IsChecked <> bSave (14) then Warnlog "Match Ia Iya => changes not saved!" - if MatchKiKu.IsChecked <> bSave (15) then Warnlog "Match Ki Ku => changes not saved!" - if PunctuationCharacters.IsChecked <> bSave (16) then Warnlog "Punctuation Characters => changes not saved!" - if WhitespaceCharacters.IsChecked <> bSave (17) then Warnlog "Whitespace Characters => changes not saved!" - if ProlongedSoundmarks.IsChecked <> bSave (18) then Warnlog "Prolonged Soundmarks => changes not saved!" - if MiddleDots.IsChecked <> bSave (19) then Warnlog "Middle Dots => changes not saved!" - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - -endcase - -' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * -' > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * > * -testcase tLanguageSettingsAsianLayout - Dim bSave ( 20 ) as Boolean - Dim sSave ( 20 ) as String - Dim i as Integer, iLan as Integer - - - hNewDocument - ToolsOptions - hToolsOptions ( "LanguageSettings", "AsianLayout" ) - - printlog " - save raw data" - bSave ( 1 ) = WesternCharactersOnly.IsChecked - bSave ( 2 ) = WesternTextAndPunctuation.IsChecked - bSave ( 3 ) = NoCompression.IsChecked - bSave ( 4 ) = CompressPunctuationOnly.IsChecked - bSave ( 5 ) = CompressPunctuationAndJapaneseKana.IsChecked - - iLan = Language.GetItemCount - if iLan > 4 then - Warnlog "There are more than 4 languages in the list. The test break here, because it can't work with more than 4 entries. Bug?!?" - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - hclosedocument - goto endsub - end if - - for i=1 to iLan - Language.Select i - sSave ( i ) = Language.GetSelText - bSave ( 5+i ) = Standard.IsChecked - Standard.Uncheck - sSave ( 5+i ) = NoStartOfLine.GetText - sSave ( 10+i ) = NoEndOfLine.GetText - if bSave ( 5+1 ) = TRUE then - Standard.Check - else - Standard.Uncheck - end if - next i - - printlog " - change data" - WesternTextAndPunctuation.Check - CompressPunctuationOnly.Check - for i=1 to Language.GetItemCount - Language.Select i - Standard.UnCheck - select case i - case 1 : NoStartOfLine.SetText "avc" : NoEndOfLine.SetText "vca" - case 2 : NoStartOfLine.SetText ">" : NoEndOfLine.SetText "<" - case 3 : NoStartOfLine.SetText "!d?$" : NoEndOfLine.SetText "!d?$" - case 4 : NoStartOfLine.SetText "aS$%6" : NoEndOfLine.SetText "aS$$6" - end select - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - hCloseDocument - - printlog " - exit/restart StarOffice" - ExitRestartTheOffice - - printlog " - check changes" - ToolsOptions - hToolsOptions ( "LanguageSettings", "AsianLayout" ) - - if WesternTextAndPunctuation.IsChecked <> TRUE then Warnlog "Western Text And Punctuation => changes not saved!" - if CompressPunctuationOnly.IsChecked <> TRUE then Warnlog "Compress Punctuation Only => changes not saved!" - for i=1 to iLan - Language.Select i - if Language.GetSelText <> sSave (i) then Warnlog "The language-entries are changed!" - if Standard.IsChecked then - Warnlog sSave(i) + " : Standard is not unchecked" - Standard.Uncheck - end if - select case i - case 1 : if NoStartOfLine.GetText <> "avc" then Warnlog sSave (i) + " : NoStartOfLine -> changes not saved" - if NoEndOfLine.GetText <> "vca" then Warnlog sSave (i) + " : NoEndOfLine -> changes not saved" - case 2 : if NoStartOfLine.GetText <> ">" then Warnlog sSave (i) + " : NoStartOfLine -> changes not saved" - if NoEndOfLine.GetText <> "<" then Warnlog sSave (i) + " : NoEndOfLine -> changes not saved" - case 3 : if NoStartOfLine.GetText <> "!d?$" then Warnlog sSave (i) + " : NoStartOfLine -> changes not saved" - if NoEndOfLine.GetText <> "!d?$" then Warnlog sSave (i) + " : NoEndOfLine -> changes not saved" - case 4 : if NoStartOfLine.GetText <> "aS$%6" then Warnlog sSave (i) + " : NoStartOfLine -> changes not saved" - if NoEndOfLine.GetText <> "aS$$6" then Warnlog sSave (i) + " : NoEndOfLine -> changes not saved" - end select - next i - - printlog " - second changes" - WesternCharactersOnly.Check - CompressPunctuationAndJapaneseKana.Check - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check changes" - ToolsOptions - hToolsOptions ( "LanguageSettings", "AsianLayout" ) - - if WesternCharactersOnly.IsChecked <> TRUE then Warnlog "Western Characters Only => changes not saved!" - if CompressPunctuationAndJapaneseKana.IsChecked <> TRUE then Warnlog "Compress Punctuation And Japanese Kana => changes not saved!" - - printlog " - reset to saved data" - if bSave ( 1 ) = TRUE then WesternCharactersOnly.Check - if bSave ( 2 ) = TRUE then WesternTextAndPunctuation.Check - if bSave ( 3 ) = TRUE then NoCompression.Check - if bSave ( 4 ) = TRUE then CompressPunctuationOnly.Check - if bSave ( 5 ) = TRUE then CompressPunctuationAndJapaneseKana.Check - - for i=1 to iLan - Language.Select sSave(i) - Standard.Uncheck - NoStartOfLine.SetText sSave ( 5+i ) - NoEndOfLine.SetText sSave ( 10+i ) - if bSave ( 5+i ) = TRUE then Standard.Check else Standard.Uncheck - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) - - printlog " - check reset" - ToolsOptions - hToolsOptions ( "LanguageSettings", "AsianLayout" ) - - if WesternCharactersOnly.IsChecked <> bSave ( 1 ) then Warnlog "Western Characters Only => changes not saved!" - if WesternTextAndPunctuation.IsChecked <> bSave ( 2 ) then Warnlog "Western Text And Punctuation => changes not saved!" - if NoCompression.IsChecked <> bSave ( 3 ) then Warnlog "No Compression => changes not saved!" - if CompressPunctuationOnly.IsChecked <> bSave ( 4 ) then Warnlog "Compress Punctuation Only => changes not saved!" - if CompressPunctuationAndJapaneseKana.IsChecked <> bSave ( 5 ) then Warnlog "Compress Punctuation And Japanese Kana => changes not saved!" - for i=1 to iLan - Language.Select sSave(i) - if Standard.IsChecked <> bSave ( 5+i ) then Warnlog sSave(i) + " : Standard -> changes not saved" - Standard.Uncheck - if NoStartOfLine.GetText <> sSave ( 5+i ) then Warnlog sSave(i) + " : NoStartOfLine -> changes not saved" - if NoEndOfLine.GetText <> sSave ( 10+i ) then Warnlog sSave(i) + " : NoEndOfLine -> changes not saved" - if bSave ( 5+i ) = TRUE then Standard.Check else Standard.Uncheck - next i - - Kontext "ExtrasOptionenDlg" - ExtrasOptionenDlg.OK - Sleep (3) -endcase |