[Libreoffice-commits] .: testautomation/framework
Thomas Arnhold
tarnhold at kemper.freedesktop.org
Tue Feb 15 14:46:01 PST 2011
testautomation/framework/optional/includes/basic_vba-compat_security_check.inc | 105 -
testautomation/framework/optional/includes/filedlg_cjk_folders.inc | 86
testautomation/framework/optional/includes/options_asia.inc | 641 -------
testautomation/framework/optional/includes/options_data.inc | 192 --
testautomation/framework/optional/includes/options_int1.inc | 286 ---
testautomation/framework/optional/includes/options_lan1.inc | 894 ----------
6 files changed, 2204 deletions(-)
New commits:
commit 78df4042e049ed96f12d6ac361ab0cfdbbb239ce
Author: Thomas Arnhold <thomas at arnhold.org>
Date: Tue Feb 15 23:42:29 2011 +0100
Remove unused inc files
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 2dd9f62..0000000
--- 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 at 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 cdeb2f9..0000000
--- 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 at 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 76e990c..0000000
--- 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 at 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 4b60f9c..0000000
--- 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 at 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 9c79a79..0000000
--- 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 at 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 ac7f70d..0000000
--- 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 at 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
More information about the Libreoffice-commits
mailing list