'encoding UTF-8 Do not remove or change this line!
'*************************************************************************
'
' Licensed to the Apache Software Foundation (ASF) under one
' or more contributor license agreements. See the NOTICE file
' distributed with this work for additional information
' regarding copyright ownership. The ASF licenses this file
' to you under the Apache License, Version 2.0 (the
' "License"); you may not use this file except in compliance
' with the License. You may obtain a copy of the License at
'
' http://www.apache.org/licenses/LICENSE-2.0
'
' Unless required by applicable law or agreed to in writing,
' software distributed under the License is distributed on an
' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
' KIND, either express or implied. See the License for the
' specific language governing permissions and limitations
' under the License.
'
'*************************************************************************
'*
'* short description : Resource Test - Insert Menu
'*
'************************************************************************
'*
' #1 tInsertManualBreak
' #1 tInsertCells
' #1 tInsertRowsColumns
' #1 tInsertSheet
' #1 tInsertSheetFromFile
' #1 tInsertLink
' #1 tInsertSpecialCharacters
' #1 tInsertFormattingMark
' #1 tInsertHyperlink
' #1 tInsertFunction
' #1 tInsertFunctionList
' #1 tInsertNamesDefine
' #1 tInsertNamesInsert
' #1 tInsertNamesCreate
' #1 tInsertNamesLabels
' #1 tInsertNote
' #1 tInsertPictureFromFile
' #1 tInsertMovieSound
' #1 tInsertObjectOLE
' #1 tInsertObjectPlugin
' #1 tInsertObjectSound
' #1 tInsertObjectVideo
' #1 tInsertObjectFormular
' #1 tInsertChart
' #1 tInsertFloatingFrame
'*
'\***********************************************************************
sub c_upd_insertmenu
Printlog Chr(13) + "--------- Insert Menu (c_upd_insertmenu.inc) ---------"
call tInsertManualBreak
call tInsertCells
call tInsertRowsColumns
call tInsertSheet
call tInsertSheetFromFile
call tInsertLink
call tInsertSpecialCharacters
call tInsertFormattingMark
call tInsertHyperlink
call tInsertFunction
call tInsertFunctionList
call tInsertNamesDefine
call tInsertNamesInsert
call tInsertNamesCreate
call tInsertNamesLabels
call tInsertNote
call tInsertPictureFromFile
call tInsertMovieSound
call tInsertObjectOLE
call tInsertObjectPlugin
call tInsertObjectSound
call tInsertObjectVideo
call tInsertObjectFormular
call tInsertChart
call tInsertFloatingFrame
end sub
'-----------------------------------------------------------
testcase tInsertManualBreak
'///Insert - Manual Break
'/// Opening new spreadsheet document for getting defined starting environment
printlog " Opening new spreadsheet document for getting defined starting environment"
call hNewDocument
'/// Goto cell D5
printlog " Goto cell D5"
call fCalcSelectRange ("D5")
'/// Insert a manual row break by 'Insert – Manual Break – Row Break'
printlog " Insert a manual row break by 'Insert – Manual Break – Row Break'"
InsertManuelBreakRowBreak
'/// Insert a manual column break by 'Insert – Manual Break – Column Break'
printlog " Insert a manual column break by 'Insert – Manual Break – Column Break'"
InsertManuelBreakColumnBreak
'/// Close starting document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertCells
'///Insert - Cells
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Cells'- dialog by 'Insert – Cells'
printlog " Open 'Insert Cells'- dialog by 'Insert – Cells'"
InsertCells
Kontext "ZellenEinfuegen"
Call DialogTest ( ZellenEinfuegen )
'/// Check option 'Shift cells down'
printlog " Check option 'Shift cells down'"
ZellenNachUnten.Check
'/// Check option 'Shift cells right'
printlog " Check option 'Shift cells right'"
ZellenNachRechts.Check
'/// Check option 'Entire row'
printlog " Check option 'Entire row'"
GanzeZeile.Check
'/// Check option 'Entire column'
printlog " Check option 'Entire column'"
GanzeSpalte.Check
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
ZellenEinfuegen.Cancel
'/// Close starting document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertRowsColumns
'///Insert - Rows/Columns
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Insert a new row by 'Insert - Rows'
printlog " Insert a new row by 'Insert - Rows'"
InsertRowsCalc
'/// Insert a new column by 'Insert - Columns'
printlog " Insert a new column by 'Insert - Columns'"
InsertColumnsCalc
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertSheet
'///Insert - Sheet
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Sheet' – dialog by 'Insert – Sheet'
printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet'"
InsertSheetCalc
Kontext "TabelleEinfuegenCalc"
Call DialogTest ( TabelleEinfuegenCalc )
'/// Check option 'After current sheet'
printlog " Check option 'After current sheet'"
Nach.Check
'/// Set 'Name' to 'Test'
printlog " Set 'Name' to 'Test'"
TabellenName.SetText "Test"
'/// Set number of sheets to 2
printlog " Set number of sheets to 2"
Anzahl.More
'/// Check option 'From File'
printlog " Check option 'From File'"
AusDateiErstellen.Check
'/// Check option 'Link'
printlog " Check option 'Link'"
Verknuepfen.Check
'/// Click on 'Browse' – button
Durchsuchen.Click
Kontext "OeffnenDLG"
'/// Close 'Insert' – dialog with 'Cancel'
printlog " Close 'Insert' – dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "TabelleEinfuegenCalc"
'/// Close 'Insert Sheet' – dialog with 'Cancel'
printlog " Close 'Insert Sheet' – dialog with 'Cancel'"
TabelleEinfuegenCalc.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertSheetFromFile
'///Insert - Sheet From File
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'
printlog " Open 'Insert Sheet' – dialog by 'Insert – Sheet From File'"
InsertSheetFromFile
Kontext "OeffnenDLG"
'/// Set filename 'spreadsheet/required/input/twosheets.ods'
printlog " Set filename 'spreadsheet/required/input/twosheets.ods'"
Dateiname.setText ( convertpath ( gTesttoolPath & "spreadsheet/required/input/twosheets.ods" ) )
'/// Close 'Insert' – dialog with 'Insert'
printlog " Close 'Insert' – dialog with 'Insert'"
Oeffnen.Click
Kontext "TabelleEinfuegenCalc"
'/// Verify that the selected file has two sheets
printlog " Verify that the selected file has two sheets"
if Auswahl.GetItemCount <> 2 then
warnlog "The file has more/less than two sheets"
end if
'/// Close 'Insert Sheet' – dialog with 'Insert'
printlog " Close 'Insert Sheet' – dialog with 'Insert'"
TabelleEinfuegenCalc.Cancel
'/// Close document'
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertLink
'///Insert - Link
'/// Open new Sreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'External Data' – dialog by 'Insert – Link To External Data'
printlog " Open 'External Data' – dialog by 'Insert – Link To External Data'"
InsertLinkToExternalData
Kontext "ExternalData"
call Dialogtest (ExternalData)
'/// Press browse button for URL
printlog " Press browse button for URL"
FileChoose.Click
Kontext "OeffnenDlg"
'/// Close 'Insert' – dialog with 'Cancel'
printlog " Close 'Insert' – dialog with 'Cancel'"
OeffnenDlg.close
Kontext "ExternalData"
'/// Check option 'Updata every'
printlog " Check option 'Updata every'"
Update.Check
'/// Increase updatetimer by 1
printlog " Increase updatetimer by 1"
UpdateTime.More
'/// Close 'External Data' – dialog with 'Cancel'
printlog " Close 'External Data' – dialog with 'Cancel'"
ExternalData.close
'/// Close starting document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertSpecialCharacters
'///Insert - Special Characters
'///Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Special Characters' – dialog by 'Insert – Special Characters'
printlog " Open 'Special Characters' – dialog by 'Insert – Special Characters'"
InsertSpecialCharacterCalc
Kontext "Sonderzeichen"
DialogTest ( Sonderzeichen )
'/// Change 'Font' to next one
printlog " Change 'Font' to next one"
if Schrift.GetItemCount = Schrift.GetSelIndex then
Schrift.Select(Schrift.GetSelIndex -1)
else Schrift.Select(Schrift.GetSelIndex +1)
end if
'/// Change 'Subset' to next one
printlog " Change 'Subset' to next one"
If Subset.IsVisible then
if Subset.GetItemCount = Subset.GetSelIndex then
Subset.Select(Subset.GetSelIndex -1)
else Subset.Select(Subset.GetSelIndex +1)
end if
end if
'/// Choose a character by clicking
printlog " Choose a character by clicking"
Zeichenanzeige.MouseDown 50,50
Zeichenanzeige.MouseUp 50,50
'/// Delete character by 'Delete'
printlog " Delete character by 'Delete'"
Loeschen.Click
'/// Close 'Special Characters' – dialog with 'Cancel'
printlog " Close 'Special Characters' – dialog with 'Cancel'"
Sonderzeichen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFormattingMark
'///Insert - Formatting Mark
Dim bAsianLanguage as boolean
Dim bCTLlanguage as boolean
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Enable support for CJK and CTL by 'Tools-Options-Language Settings'
printlog " Enable support for CJK and CTL by 'Tools-Options-Language Settings'"
bAsianLanguage = ActiveDeactivateAsianSupport(TRUE)
bCTLLanguage = ActiveDeactivateCTLSupport(TRUE)
'/// Select cell A1
printlog " Select cell A1"
call fCalcSelectRange ("A1")
'/// Enter 'Test' in cell 'A1' to activate editmode
printlog " Enter 'Test' in cell 'A1' to activate editmode"
DocumentCalc.TypeKeys "Test"
'/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Space'
printlog " Enter in cell 'A' and 'Insert – Formatting Mark – Non-Breaking Space'"
InsertNonBreakingSpace
'/// Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'
printlog " Enter in cell 'Insert – Formatting Mark – Non-Breaking Hyphen'"
InsertHardHyphen
'/// Enter in cell 'Insert – Formatting Mark – Optional Hyphen'
printlog " Enter in cell 'Insert – Formatting Mark – Optional Hyphen'"
InsertSoftHyphen
'/// Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'
printlog " Enter in cell 'Insert – Formatting Mark – No-Width Optional Break'"
InsertZWSP
'/// Enter in cell 'Insert – Formatting Mark – No-Width no break'
printlog " Enter in cell 'Insert – Formatting Mark – No-Width no break'"
InsertZWNBSP
'/// Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'
printlog "/ Enter in cell 'Insert – Formatting Mark – Left-to-right-mark'"
InsertLRM
'/// Enter in cell 'Insert – Formatting Mark – right-to-left-mark'
printlog " Enter in cell 'Insert – Formatting Mark – right-to-left-mark'"
InsertRLM
'/// Leave cell with 'Enter'
printlog " Leave cell with 'Enter'"
DocumentCalc.TypeKeys ""
'/// Set support for CTL and CJK back to defaults
printlog " Set support for CTL and CJK back to defaults"
if bAsianLanguage = FALSE then
Call ActiveDeactivateAsianSupport(FALSE)
end if
if bCTLLanguage = FALSE then
Call ActiveDeactivateCTLSupport(FALSE)
end if
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertHyperlink
'///Insert - Hyperlink
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Hyperlink' – dialog via 'Insert – Hyperlink'
printlog " Open 'Hyperlink' – dialog via 'Insert – Hyperlink'"
InsertHyperlink
kontext "HyperlinkDialog"
if ( HyperlinkDialog.exists( 2 ) ) then
Kontext "Hyperlink"
'/// Switch to category 'Internet' (first one)
printlog " Switch to category 'Internet'"
Auswahl.TypeKeys ""
'/// Choose 'Web'
printlog " Choose 'Web'"
Kontext "TabHyperlinkInternet"
internet.check
Call DialogTest ( TabHyperlinkInternet,1 )
'/// Click on 'Target in Document' – button (the target dialog appears)
printlog " Click on 'Target in Document' – button (the target dialog appears)"
Target.Click
Kontext "ZielImDokument"
Call DialogTest ( ZielImDokument )
'/// Close 'Target' – dialog with 'Close'
printlog " Close 'Target' – dialog with 'Close'"
ZielImDokument.Close
Kontext "TabHyperlinkInternet"
'/// Choose 'FTP'
printlog " Choose 'FTP'"
FTP.check
Call DialogTest ( TabHyperlinkInternet,2 )
'/// Check that the 'Target' – button is disabled
printlog " Check that the 'Target' – button is disabled"
if Target.IsEnabled then
warnlog "The target button is enabled, but should be disabled"
end if
'/// Check option 'Anonymous User'
printlog " Check option 'Anonymous User'"
AnonymerBenutzer.Check
'/// Check that 'Login Name' is disabled
printlog " Check that 'Login Name' is disabled"
if Loginname.IsEnabled then
warnlog "The Loginname is enabled, but should be disabled"
end if
'/// Chose 'Telnet'
printlog " Chose 'Telnet'"
Telnet.check
Call DialogTest ( TabHyperlinkInternet,3 )
'/// Check that the 'Target' – button is disabled
printlog " Check that the 'Target' – button is disabled"
if Target.IsEnabled then
warnlog "The target button is enabled, but should be disabled"
end if
'/// Switch to category 'Mail & News'
Kontext "Hyperlink"
Auswahl.TypeKeys ""
Kontext "TabHyperlinkMailUndNews"
Call DialogTest ( TabHyperlinkMailUndNews )
'/// Click twice on 'Data Source' – button to turn on / off the databasebeamer
printlog " Click twice on 'Data Source' – button to turn on / off the databasebeamer"
Adressbuch.click
Adressbuch.click
'/// Check option 'Mail'
printlog " Check option 'Mail'"
EMail.check
'/// Check that the editfield for 'Receiver' is enabled
printlog " Check that the editfield for 'Receiver' is enabled"
if not Receiver.IsEnabled then
warnlog "Receiver is disabled but should be enabled"
end if
'/// Check that the editfield for 'Subject' is enabled
printlog " Check that the editfield for 'Subject' is enabled"
if not Betreff.IsEnabled then
warnlog "Subject is disabled but should be enabled"
end if
'/// Check option 'News'
printlog " Check option 'News'"
News.check
'/// Check that the editfield for 'Subject' is disabled
printlog " Check that the editfield for 'Subject' is disabled"
if Betreff.IsEnabled then
warnlog "Subject is enabled but should be disabled"
end if
'/// Switch to category Document
printlog " Switch to category Document"
Kontext "Hyperlink"
Auswahl.TypeKeys ""
Kontext "TabHyperlinkDokument"
Call DialogTest ( TabHyperlinkDokument )
'/// Enter 'Test' in 'Path'
printlog " Enter 'Test' in 'Path'"
Path.TypeKeys "Test"
'/// Click on 'Open' – button
printlog " Click on 'Open' – button"
DateiOeffnen.click
Kontext "OeffnenDlg"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
Kontext "TabHyperlinkDokument"
'/// Click on 'Target in Document' – button (the target dialog appears)
printlog " Click on 'Target in Document' – button (the target dialog appears)"
Target.click
Kontext "ZielImDokument"
'/// Close 'Target' – dialog with 'Close'
printlog " Close 'Target' – dialog with 'Close'"
ZielImDokument.close
Kontext "Hyperlink"
'/// Switch to category 'New Document'
printlog " Switch to category 'New Document'"
Auswahl.TypeKeys ""
Kontext "TabHyperlinkNeuesDokument"
Call DialogTest ( TabHyperlinkNeuesDokument )
'/// Check 'Edit Now'
printlog " Click 'Edit Now'"
SofortBearbeiten.check
'/// Check 'Edit Later'
printlog " Click 'Edit Later'"
SpaeterBearbeiten.check
'/// Click on 'Select Path' – button
printlog " Click on 'Select Path' – button"
Pfad.click
Kontext "OeffnenDlg"
'/// Close 'Select Path' – dialog with 'Cancel'
printlog " Close 'Select Path' – dialog with 'Cancel'"
OeffnenDlg.Cancel
Kontext "TabHyperlinkNeuesDokument"
'/// Check that the 'Frame' listbox has items
printlog " Check that the 'Frame' listbox has items"
if Frame.GetItemCount < 1 then
warnlog "The Frame combobox is empty"
end if
'/// Check that the 'Form' listbox has 2 entries
printlog " Check that the 'Form' listbox has 2 entries"
if Form.GetItemCount <> 2 then
warnlog "The Form combobox has not 2 items"
end if
'/// Close 'Hyperlink' – dialog with 'Close'
printlog " Close 'Hyperlink' – dialog with 'Close'"
kontext "HyperlinkDialog"
HyperlinkDialog.Close()
else
warnlog( "Failed to open " )
endif
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFunction
'///Insert - Function
Dim ifunctionCount as integer
Dim ifunctionIndex as integer
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open the 'Function Wizard' via 'Insert – Function'
printlog " Open the 'Function Wizard' via 'Insert – Function'"
InsertFunction
Kontext "FunctionWizard"
'/// Check that there are 13 entries in the category listbox
printlog " Check that there are 13 entries in the category listbox"
if CategoryLB.GetItemCount <> 13 then
warnlog "There are " & CategoryLB.GetItemCount & " categories instead of 13"
end if
'/// Choose the second entry (all) in the category listbox
printlog " Choose the second entry (all) in the category listbox"
CategoryLB.Select(2)
'/// Choose all entries in the function list and click 'Next' button
printlog " Choose all entries in the function list"
ifunctionCount = FunctionLB.getItemCount
for ifunctionIndex = 1 To ifunctionCount
CategoryLB.Select(2)
FunctionLB.Select(ifunctionIndex)
' sleep(1)
printlog FunctionLB.GetSelText
call DialogTest ( FunctionWizard,ifunctionIndex )
'/// Click on 'Next' – button
Forward.Click
call DialogTest ( FunctionWizard,(ifunctionCount + ifunctionIndex) )
Formel.typekeys "", true
next ifunctionIndex
'/// Check option 'Array'
printlog " Check option 'Array'"
Matrix.check
'/// Choose the third entry (database) in the category listbox
printlog " Choose the third entry (database) in the category listbox"
CategoryLB.Select(3)
'/// Choose first function
printlog " Choose first function"
FunctionLB.Select (1)
'/// Click on 'Next' button
printlog " Click on 'Next' button"
Forward.Click
'/// Click on 'Shrink' – button; the range chooser appears
printlog " Click on 'Shrink' – button; the range chooser appears"
Shrink1.click
'/// Enter 'A1' in rangechooser
printlog " Enter 'A1' in rangechooser"
Editfield1.SetText ("A1")
'/// Click on 'Maximize' – button
printlog " Click on 'Maximize' – button"
maximize.click
'/// Click on 'fx' – button
printlog " Click on 'fx' – button"
Functionsbutton1.click
'/// Switch to tabpage 'Structure'
printlog " Switch to tabpage 'Structure'"
Kontext "FunctionWizardTabControl"
FunctionWizardTabControl.setpage TabFunctionWizardStructure
Kontext "FunctionWizard"
call DialogTest ( FunctionWizard,((ifunctionCount *2)+1) )
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
FunctionWizard.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFunctionList
'///Insert - Function List
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Check if 'function list' is already opened
printlog " Check if 'function list' is already opened"
Kontext "FunctionsCalc"
if FunctionsCalc.Exists(2) then
printlog "Functions List was already open"
else
'/// Open 'function list' by 'Insert – Function List'
printlog " Open 'function list' by 'Insert – Function List'"
InsertFunctionList
end if
'/// Check that there are 13 categories in the listbox
printlog " Check that there are 13 categories in the listbox"
if Category.GetItemCount <> 13 then
warnlog "The count of categories is " & Category.GetItemCount & " instead of 13"
end if
'/// Click on second function
printlog " Click on second function"
FunctionList.Select(2)
call DialogTest ( FunctionsCalc )
'/// Click on 'Insert' – button to insert the function into the cell
printlog " Click on 'Insert' – button to insert the function into the cell"
FunctionInsert.click
'/// Press 'ESC' to leave insert mode
printlog " Press 'ESC' to leave insert mode"
kontext "DocumentCalc"
DocumentCalc.TypeKeys ""
'/// Close function list by 'Insert – Function list'
printlog " Close function list by 'Insert – Function list'"
InsertFunctionList
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesDefine
'///Insert - Names – Define
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Define Names' -dialog by 'Insert – Names – Define'
printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
InsertNamesDefine
Kontext "NamenFestlegen"
'/// Click on 'More' – button
printlog " Click on 'More' – button"
Zusaetze.Click
DialogTest ( NamenFestlegen )
'/// Check that the 'Add' – button is disabled
printlog " Check that the 'Add' – button is disabled"
if Hinzufuegen.IsEnabled then
warnlog "'Add' is enabled but should be disabled"
end if
'/// Check that the 'Delete' – button is disabled
printlog " Check that the 'Delete' – button is disabled"
if Loeschen.IsEnabled then
warnlog "'Delete' is enabled but should be disabled"
end if
'/// Check that the 'Shrink' – button is disabled
printlog " Check that the 'Shrink' – button is disabled"
if ZugeordnetZuButton.IsEnabled then
warnlog "'Shrink' is enabled but should be disabled"
end if
'/// Check that the 'Print Range' option is disabled
printlog " Check that the 'Print Range' option is disabled"
if Druckbereich.IsEnabled then
warnlog "'Printrange' is enabled but should be disabled"
end if
'/// Check that the 'Filter' option is disabled
printlog " Check that the 'Filter' option is disabled"
if Filter.IsEnabled then
warnlog "'Filter' is enabled but should be disabled"
end if
'/// Check that the 'Repeat Column' option is disabled
printlog " Check that the 'Repeat Column' option is disabled"
if Wiederholungsspalte.IsEnabled then
warnlog "'Repeat Column' is enabled but should be disabled"
end if
'/// Check that the 'Repeat Row' option is disabled
printlog " Check that the 'Repeat Row' option is disabled"
if Wiederholungszeile.IsEnabled then
warnlog "'Repeat Row' is enabled but should be disabled"
end if
'/// Enter the name 'Test'
printlog " Enter the name 'Test'"
BereichsName.SetText "Test"
'/// Press the 'Shrink' – button
printlog " Press the 'Shrink' – button"
ZugeordnetZuButton.click
'/// Click on 'Maximize' – button
printlog " Click on 'Maximize' – button"
ZugeordnetZuButton.click
'/// Check the 'Print Range' option
printlog " Check the 'Print Range' option"
Druckbereich.check
'/// Check the 'Filter' option
printlog " Check the 'Filter' option"
Filter.check
'/// Check the 'Repeat Column' option
printlog " Check the 'Repeat Column' option"
Wiederholungsspalte.check
'/// Check the 'Repeat Row' option
printlog " Check the 'Repeat Row' option"
Wiederholungszeile.check
'/// Press the 'Add' – button
printlog " Press the 'Add' – button"
Hinzufuegen.click
'/// Choose the 'Test' name
printlog " Choose the 'Test' name"
BereichsName.Select "Test"
'/// Press the 'Delete' – button
printlog " Press the 'Delete' – button"
Loeschen.click
'/// On appearing messagebox click 'Yes'
printlog " On appearing messagebox click 'Yes'"
kontext "Active"
if Active.exists( 2 ) then
Active.Yes
end if
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
Kontext "NamenFestlegen"
NamenFestlegen.Cancel
'/// Close the document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesInsert
'///Insert - Names – Define
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Select cell A1
printlog " Select cell A1"
call fCalcSelectRange ("A1")
'/// Open 'Define Names' -dialog by 'Insert – Names – Define'
printlog " Open 'Define Names' -dialog by 'Insert – Names – Define'"
InsertNamesDefine
Kontext "NamenFestlegen"
'/// Enter the name 'Test'
printlog " Enter the name 'Test'"
BereichsName.SetText "Test"
'/// Press the 'Add' – button
printlog " Press the 'Add' – button"
Hinzufuegen.click
'/// Close dialog with 'OK'
printlog " Close dialog with 'OK'"
NamenFestlegen.OK
'/// Select cell D4
printlog " Select cell D4"
call fCalcSelectRange ("D4")
'/// Open 'Insert Names' – dialog by 'Insert – Names – Insert'
printlog " Open 'Insert Names' – dialog by 'Insert – Names – Insert'"
InsertNamesInsert
Kontext "NamenEinfuegen"
Call DialogTest ( NamenEinfuegen )
'/// Select name 'Test'
printlog " Select name 'Test'"
NamenAuswahl.Select "Test"
'/// Press 'OK' – button (the dialog will be closed)
printlog " Press 'OK' – button (the dialog will be closed)"
NamenEinfuegen.OK
'/// Press 'Enter' to leave the editmode of the cell
printlog " Press 'Enter' to leave the editmode of the cell"
kontext "DocumentCalc"
DocumentCalc.TypeKeys ""
'/// Open 'Define Names' -dialog by 'Insert – Names – Insert'
printlog " Open 'Define Names' -dialog by 'Insert – Names – Insert'"
InsertNamesInsert
Kontext "NamenEinfuegen"
'/// Press 'Insert All' – button (the dialog will be closed)
printlog " Press 'Insert All' – button (the dialog will be closed)"
Liste.click
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesCreate
'///Insert - Names – Create
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Create Names' – dialog by 'Insert – Names – Create'
printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
InsertNameCreate
Kontext "NamenErzeugen"
DialogTest ( NamenErzeugen )
'/// Check option 'Top row'
printlog " Check option 'Top row'"
Kopfzeile.check
'/// Check option 'Left column'
printlog " Check option 'Left column'"
LinkerSpalte.check
'/// Check option 'Bottom row'
printlog " Check option 'Bottom row'"
Fusszeile.check
'/// Check option 'Right column'
printlog " Check option 'Right column'"
RechterSpalte.check
'/// Press 'OK' button
printlog " Press 'OK' button"
NamenErzeugen.OK
'/// Close warningbox with 'OK'
printlog " Close warningbox with 'OK'"
Kontext
if active.exists (1) then
active.ok
end if
'/// Enter 'Create Names Test' in cell A1
printlog " Enter 'Create Names Test' in cell A1"
call fCalcSelectRange ("A1")
DocumentCalc.TypeKeys "Create Names Test"
'/// Select cells A1:A4
printlog " Select cells A1:A4"
call fCalcSelectRange ("A1:A4")
'/// Open 'Create Names' – dialog by 'Insert – Names – Create'
printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
InsertNameCreate
Kontext "NamenErzeugen"
'/// Check that option 'Top row' is selected
printlog " Check that option 'Top row' is selected"
if not Kopfzeile.IsChecked then
warnlog "The header was not autodetected"
end if
'/// Press 'OK' button
printlog " Press 'OK' button"
NamenErzeugen.OK
'/// Select cells A1:A3
printlog " Select cells A1:A3"
call fCalcSelectRange ("A1:A3")
'/// Open 'Create Names' – dialog by 'Insert – Names – Create'
printlog " Open 'Create Names' – dialog by 'Insert – Names – Create'"
InsertNameCreate
Kontext "NamenErzeugen"
'/// Press 'OK' button
printlog " Press 'OK' button"
NamenErzeugen.OK
'/// Close replacing messagebox with 'Cancel'
printlog " Close replacing messagebox with 'Cancel'"
Kontext
if active.exists (1) then
active.cancel
end if
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNamesLabels
'///Insert - Names – Labels
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Define Label Range' – dialog by 'Insert – Names – Labels'
printlog " Open 'Define Label Range' – dialog by 'Insert – Names – Labels'"
InsertNamesLabels
Kontext "BeschriftungsbereichFestlegen"
DialogTest ( BeschriftungsbereichFestlegen )
'/// Press 'Shrink' button for range
printlog " Press 'Shrink' button for range"
ButtonZellbereich.Click
'/// Press 'Maximize' button on rangechooser
printlog " Press 'Maximize' button on rangechooser"
ButtonZellbereich.Click
'/// Press 'Shrink' button for data range
printlog " Press 'Shrink' button for data range"
ButtonDatenbereich.Click
'/// Press 'Maximize' button on rangechooser
printlog " Press 'Maximize' button on rangechooser"
ButtonDatenbereich.Click
'/// Switch between 'Contains ...' options
printlog " Switch between 'Contains ...' options"
Zeilenkoepfe.Check
Spaltenkoepfe.Check
'/// Press 'Add' – button
printlog " Press 'Add' – button"
Hinzufuegen.Click
'/// Select range
printlog " Select range"
Bereich.Select (2)
'/// Press 'Delete' – button
printlog " Press 'Delete' – button"
Loeschen.Click
'/// Confirm mesagebox with 'Yes'
printlog " Confirm mesagebox with 'Yes'"
Kontext
if active.exists then
active.Yes
end if
Kontext "BeschriftungsbereichFestlegen"
'/// Close 'Define Label Range' – dialog with 'Cancel'
printlog " Close 'Define Label Range' – dialog with 'Cancel'"
BeschriftungsbereichFestlegen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertNote
'///Insert - Note
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Insert a note via 'Insert – Note'
printlog " Insert a note via 'Insert – Note'"
InsertNoteCalc
Kontext
'/// Enter 'This is a Testtext' into the note
printlog " Enter 'This is a Testtext' into the note"
DocumentCalc.TypeKeys "This is a Testtext"
'/// Leave note with
printlog " Leave note with "
DocumentCalc.TypeKeys ""
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertPictureFromFile
'///Insert - Picture – From File
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Picture' – dialog by 'Insert – Picture – From File'
printlog " Open 'Insert Picture' – dialog by 'Insert – Picture – From File'"
InsertGraphicsFromFile
Kontext "GrafikEinfuegenDlg"
Call DialogTest (GrafikEinfuegenDlg)
'/// Enter filename 'global\input\graf_inp\'
printlog " Enter filename 'global\input\graf_inp\borabora.jpg'"
Dateiname.Settext convertpath(gTesttoolpath + "global\input\graf_inp\borabora.jpg")
'/// Verify that there are more than one filter available
printlog " Verify that there are more than one filter available"
if Dateityp.GetItemCount < 2 then
warnlog "The filterlist is empty"
end if
'/// Check 'Link' – option
printlog " Check 'Link' – option"
Link.Check
'/// Check 'Preview' - option
printlog " Check 'Preview' - option"
Preview.Check
'/// Close dialog with 'Open'
printlog " Close dialog with 'Open'"
Oeffnen.Click
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertMovieSound
'///Insert - Movie and Sound
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'
printlog " Open 'Insert Movie and Sound' – dialog by 'Insert – Movie and Sound'"
InsertMovieAndSound
Kontext "OeffnenDLG"
'/// Verify that there are more than one filter available
printlog " Verify that there are more than one filter available"
if Dateityp.GetItemCount < 2 then
warnlog "The filterlist is empty"
end if
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
OeffnenDLG.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectOLE
'///Insert - Object – OLE Object
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert OLE Object' – dialog by 'Insert – Object – OLE Object'
printlog " Open 'Insert OLE Object' – dialog by 'Insert – Object – OLE Object'"
InsertObjectOLEObject
Kontext "OLEObjektEinfuegen"
'/// Choose 'Create new'
printlog " Choose 'Create new'"
NeuErstellen.Check
Call DialogTest (OLEObjektEinfuegen, 1)
'/// Check that there are more than 1 entries (amount is dependant from operating system)
printlog " Check that there are more than 1 entries (amount is dependant from operating system)"
if Objekttyp.getitemcount < 2 then
warnlog "There are no OLE-Objects in the listbox"
end if
'/// Choose 'Create from file'
printlog " Choose 'Create from file'"
AusDateierstellen.Check
Call DialogTest (OLEObjektEinfuegen, 2)
'/// Click on 'Search' – button
printlog " Click on 'Search' – button"
Durchsuchen.Click
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDLG.Cancel
Kontext "OLEObjektEinfuegen"
'/// Check option 'Link to file'
printlog " Check option 'Link to file'"
Verknuepfen.check
'/// Close dialog with 'Cancel'
printlog " Close dialog with 'Cancel'"
OLEObjektEinfuegen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectPlugin
'///Insert - Object – Plug-in
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'
printlog " Open 'Insert Plug-in' – dialog by 'Insert – Object – Plug-in'"
InsertObjectPlugIn
Kontext "PlugInEinfuegen"
Call DialogTest (PlugInEinfuegen)
'/// Click on 'Browse' – button
printlog " Click on 'Browse' – button"
DurchSuchen.Click
Kontext "OeffnenDLG"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
'/// Close 'Insert Plug-in' – dialog with 'Cancel'
printlog " Close 'Insert Plug-in' – dialog with 'Cancel'"
Kontext "PluginEinfuegen"
PlugInEinfuegen.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectSound
'///Insert - Object – Sound
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
try
'/// If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'
printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Sound' – dialog by 'Insert – Object – Sound'"
InsertObjectSound
Kontext "OeffnenDlg"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
catch
printlog "Insert - Object - Sound is not possible on this machine"
endcatch
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectVideo
'///Insert - Object – Video
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
try
'/// If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'
printlog " If enabled (depends on additional instalations on the OS) open the 'Insert Video' – dialog by 'Insert – Object – Sound'"
InsertObjectVideo
Kontext "OeffnenDlg"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Open' – dialog with 'Cancel'
printlog " Close 'Open' – dialog with 'Cancel'"
OeffnenDlg.Cancel
catch
printlog "Insert - Object - Video is not possible on this machine"
endcatch
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertObjectFormular
'///Insert - Object – Formular
'/// Open new Spraedsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Insert Formular by 'Insert – Object – Formular'
printlog " Insert Formular by 'Insert – Object – Formular'"
InsertObjectFormulaCalc
Kontext "SelectionMath"
if SelectionMath.Exists(2) then
call DialogTest (SelectionMath)
else
try
Kontext "DocumentCalc"
ViewSelectionCalc
Kontext "SelectionMath"
call DialogTest (SelectionMath)
catch
warnlog "Math Selection Dialog is not available"
endcatch
end if
'/// Close Formular with 'Esc'
printlog " Close Formular with 'Esc'"
Kontext "DocumentCalc"
DocumentCalc.TypeKeys ""
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertChart
'///Insert - Chart
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Chart Wizard' by 'Insert – Chart'
printlog " Open 'Chart Wizard' by 'Insert – Chart'"
InsertChart
Kontext "ChartWizard"
if ChartWizard.Exists(1) then
Call Dialogtest(ChartWizard)
'/// Close 'Chart Wizard' with 'Cancel'
ChartWizard.Cancel
else
warnlog "Chart wizard is not available"
end if
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase
'-----------------------------------------------------------
testcase tInsertFloatingFrame
'///Insert - Floating Frame
'/// Open new Spreadsheet document
printlog " Open new Spreadsheet document"
call hNewDocument
'/// Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'
printlog " Open 'Floating Frame Properties' – dialog by 'Insert – Floating Frame'"
InsertFloatingFrame
Kontext "TabEigenschaften"
Dialogtest (TabEigenschaften)
'/// Click on 'Browse' – button for 'Contents'
printlog " Click on 'Browse' – button for 'Contents'"
Oeffnen.Click
Kontext "OeffnenDlg"
'/// Click on 'Default Directory' – button
printlog " Click on 'Default Directory' – button"
Standard.click
'/// Click on 'Create New Directory' – button
printlog " Click on 'Create New Directory' – button"
NeuerOrdner.Click
Kontext "NeuerOrdner"
'/// Close namedialog with 'Cancel'
printlog " Close namedialog with 'Cancel'"
NeuerOrdner.cancel
Kontext "OeffnenDLG"
'/// Close 'Select File for Floating Frame' – dialog with 'Cancel'
printlog " Close 'Select File for Floating Frame' – dialog with 'Cancel'"
OeffnenDlg.Cancel
Kontext "TabEigenschaften"
'/// Check 'Scrollbar' on
printlog " Check 'Scrollbar' on"
An.Check
'/// Check 'Scrollbar' off
printlog " Check 'Scrollbar' off"
Aus.Check
'/// Check 'Scrollbar' automatic
printlog " Check 'Scrollbar' automatic"
Automatisch.Check
'/// Check 'Border Off'
printlog " Check 'Border Off'"
UmrandungAus.Check
'/// Check 'Border On'
printlog " Check 'Border On'"
UmrandungAn.Check
'/// Uncheck 'Default'
printlog " Uncheck 'Default'"
BreiteStandard.UnCheck
'/// Increase 'Width' by 1
printlog " Increase 'Width' by 1"
Breite.More
'/// Increase 'Height' by 1
printlog " Increase 'Height' by 1"
Hoehe.More
'/// Check 'Default'
printlog " Check 'Default'"
HoeheStandard.Check
'/// Close 'Floating Frame Properties' – dialog with 'Cancel'
printlog " Close 'Floating Frame Properties' – dialog with 'Cancel'"
TabEigenschaften.Cancel
'/// Close document
printlog " Close starting document"
call hCloseDocument
endcase