diff options
Diffstat (limited to 'testautomation/dbaccess/required/includes/Table.inc')
| -rw-r--r-- | testautomation/dbaccess/required/includes/Table.inc | 632 |
1 files changed, 0 insertions, 632 deletions
diff --git a/testautomation/dbaccess/required/includes/Table.inc b/testautomation/dbaccess/required/includes/Table.inc deleted file mode 100644 index 6d478bd35540..000000000000 --- a/testautomation/dbaccess/required/includes/Table.inc +++ /dev/null @@ -1,632 +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 : marc.neumann@oracle.com -'* -'* short description : test the Main Table Application Window -'* -'************************************************************************ -'* -' #1 tMainMenuBar -' #1 tSearch -' #1 tSortAscending -' #1 tSortDescending -' #1 tAutoFilter -' #1 tDefaultFilter -' #1 tSortOrder -' #1 tRemoveFilter -' #1 tApplyFilter -' #1 tRefresh -' #1 tEdit -' #1 tCut -' #1 tCopy -' #1 tPaste -' #1 tUndo -' #1 tSave -'* -'\*********************************************************************************** -sub Table - - printlog "------------------ Table.inc ---------------------" - - printlog "-------------------- main menu -------------------------" - call tMainMenuBar - - printlog "--------------------- toolbar --------------------------" - call tSearch - call tSortAscending - call tSortDescending - call tAutoFilter - call tDefaultFilter - call tSortOrder - call tRemoveFilter - call tApplyFilter - call tRefresh - call tEdit - call tCut - call tCopy - call tPaste - call tUndo - call tSave - -end sub -'------------------------------------------------------------------------- -testcase tSearch - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the search button - printlog "click on the search button" - Kontext "Toolbar" - RecSearch.Click - sleep(1) - '/// check if the search dialog appear - printlog "check if the search dialog appear" - Kontext "RecordSearch" - if RecordSearch.Exists(3) then - '/// close the search dialog - printlog "close the search dialog" - CloseBtn.click - sleep(2) - else - warnlog "The search dialog doesn't appear" - end if - - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tSortAscending - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the search button - printlog "click on the search button" - Kontext "Toolbar" - SortAscending.Click - sleep(1) - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tSortDescending - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the search button - printlog "click on the search button" - Kontext "Toolbar" - SortDescending.Click - sleep(1) - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tAutoFilter - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the auto filter button - printlog "click on the auto filter button" - Kontext "Toolbar" - DBAutoFilter.Click - sleep(1) - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tDefaultFilter - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the DefaultFilter button - printlog "click on the DefaultFilter button" - Kontext "Toolbar" - DefaultFilter.Click - sleep(1) - '/// check if the default filter dialog appear - printlog "check if the default filter dialog appear" - Kontext "FilterDialog" - if FilterDialog.Exists(2) then - FilterDialog.Cancel - else - warnlog "The filter dialog doesn't appear" - end if - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tSortOrder - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the sort order button - printlog "click on the sort order button" - Kontext "Toolbar" - SortOrder.Click - sleep(1) - '/// check if the sort order dialog appear - printlog "check if the sort order dialog appear" - Kontext "SortOrder" - if SortOrder.Exists(2) then - SortOrder.Cancel - else - warnlog "The sort order dialog doesn't appear" - end if - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tRemoveFilter - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the remove filter button - printlog "click on the remove filter button" - Kontext "Toolbar" - DBAutoFilter.Click - sleep(1) - if RemoveFilter.isenabled then - RemoveFilter.Click - else - warnlog "The remove filter icon isn't activ" - end if - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tApplyFilter - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the applay filter button - printlog "click on the apply filter button" - Kontext "Toolbar" - DBAutoFilter.Click - sleep(1) - if ApplyFilter.isenabled then - ApplyFilter.Click - else - warnlog "The apply filter icon isn't activ" - end if - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tRefresh - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the applay filter button - printlog "click on the apply filter button" - Kontext "Toolbar" - Refresh.Click - sleep(1) - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tEdit - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// click on the applay filter button - printlog "click on the apply filter button" - Kontext "Toolbar" - DBEditDoc.Click - sleep(1) - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tSave - - '/// open a new table - printlog "open a new table" - initTable - sleep(1) - '/// change a record - printlog "change a record" - Kontext "TableView" - TableView.TypeKeys "hello" , true - sleep(1) - '/// check if the save button is active - '/// but do not click on it - printlog "check if the save button is active" - printlog "but do not click on it" - Kontext "Toolbar" - if not RecSave.isEnabled then - warnlog "the save button is not enabled." - endif - sleep(1) - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tCut - - '/// open a table - printlog "open a table" - initTable - sleep(1) - - '/// click on the cut button - printlog "click on the cut button" - Kontext "Toolbar" - Cut.Click - sleep(1) - - '/// check if the text is in the clipboard - printlog "check if the text is in the clipboard" - if getClipboard <> "GUR00" then - warnlog "The Cut button doesn't work" - end if - - '/// check if the cut icon is disabled - Kontext "Toolbar" - if Cut.isEnabled then - warnlog "The CUT icon is enabled, but I have nothing selected" - endif - sleep(1) - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tCopy - - '/// open a table - printlog "open a table" - initTable - sleep(1) - - '/// click on the copy button - printlog "click on the copy button" - Kontext "Toolbar" - Copy.Click - sleep(1) - - '/// check if the text is in the clipboard - printlog "check if the text is in the clipboard" - if getClipboard <> "GUR00" then - warnlog "The Cut button doesn't work" - end if - - '/// close the table and the database - printlog "close the table and the database" - call fCloseTableView - call fCloseDatabase - - -endcase -'------------------------------------------------------------------------- -testcase tPaste - - '/// opene new table - printlog "opene new table" - initTable - - '/// set a string to the clipboard - printlog "set a string to the clipboard" - setClipboard "word" - - '/// press the cursor left key - printlog "press the cursor left key" - Kontext "TableView" - TableView.TypeKeys "<LEFT>" , true - sleep(1) - '/// paste the text from the clipbaord - printlog "paste the text from the clipbaord" - Kontext "Toolbar" - Paste.Click - sleep(1) - '/// check if the text is pasted to the fieldname - printlog "check if the text is pasted to the fieldname" - Kontext "TableView" - TableView.TypeKeys "<HOME>" , true - sleep(1) - TableView.TypeKeys "<SHIFT END>" , true - sleep(1) - '/// click the copy icon - printlog "click the copy icon" - Kontext "Toolbar" - Copy.Click - sleep(1) - if getClipboard <> "wordGUR00" then - warnlog "the paste button doesn't work" - end if - '/// close the table design and the database - printlog "close the table design and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -testcase tUndo - - '/// open a table - printlog "open a table" - initTable - - '/// set a string to the clipboard - printlog "set a string to the clipboard" - setClipboard "word" - - '/// press the cursor left key - printlog "press the cursor left key" - Kontext "TableView" - TableView.TypeKeys "<LEFT>" , true - sleep(1) - '/// paste the text from the clipbaord - printlog "paste the text from the clipbaord" - Kontext "Toolbar" - Paste.Click - sleep(1) - '/// check if the text is pasted to the fieldname - printlog "check if the text is pasted to the fieldname" - Kontext "TableView" - TableView.TypeKeys "<HOME>" , true - sleep(1) - TableView.TypeKeys "<SHIFT END>" , true - sleep(1) - '/// click the copy icon - printlog "click the copy icon" - Kontext "Toolbar" - Copy.Click - sleep(1) - if getClipboard <> "wordGUR00" then - warnlog "the paste button doesn't work" - end if - - - '/// click the undo icon - printlog "click the undo icon" - Kontext "Toolbar" - RecUndo.Click - sleep(1) - - '/// click the copy icon - Kontext "Toolbar" - Copy.Click - sleep(1) - if getClipboard <> "GUR00" then - warnlog "the undo button doesn't work" - end if - - '/// close the table design and the database - printlog "close the table design and the database" - call fCloseTableView - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -'------------------------------------------------------------------------- -testcase tMainMenuBar - - dim iCount as integer ' the numbers of the items in the menu. - - call initTable - - Kontext "TableView" - TableView.UseMenu - - '/// check if there are between 8 and 12 items in the file menu. - printlog "check if there are between 8 and 12 items in the file menu." - '/// + there different count related to the file pick list. - printlog "+ there different count related to the file pick list." - hMenuSelectNr(1) ' the file menu - iCount = getMenuItemCount() - if ( lcase( gPlatform ) = "osx" ) then - if ( iCount <> 7 ) then - warnlog( "File menu: 8 items expected, found " & iCount ) - endif - else - if (iCount <> 8 ) then - warnlog "There should between 8 and 12 items in the file menu but there are " + iCount + " items." - end if - endif - - '/// check if there are 12 items in the FILE/NEW menu. - printlog "check if there are 12 items in the FILE/NEW menu." - printlog "check the FILE/NEW" - hMenuSelectNr(1) ' FILE/NEW menu - iCount = hMenuItemGetCount() - if (iCount <> 12) then - warnlog "There should 12 items in the FILE/NEW menu but there are " + iCount + " items." - end if - call hMenuClose() ' close the FILE menu - - '/// check the FILE/AUTOPILOTS - printlog "check the FILE/AUTOPILOTS" - TableView.UseMenu - hMenuSelectNr(1) ' the file menu - hMenuSelectNr(3) ' the autopilots menu - iCount = hMenuItemGetCount() - if (iCount <> 8) then - warnlog "There should 8 items in the FILE/AUTOPILOTS menu but there are " + iCount + " items." - endif - call hMenuClose() - - '/// check if there are 8 items in the edit menu. - printlog "check if there are 8 items in the edit menu." - TableView.UseMenu - hMenuSelectNr(2) - iCount = hMenuItemGetCount() - if (iCount <> 8) then - warnlog "There should 8 items in the edit menu but there are " + iCount + " items." - end if - call hMenuClose() - - '/// check if there are 2 items in the view menu. - printlog "check if there are 2 items in the view menu." - TableView.UseMenu - hMenuSelectNr(3) - iCount = hMenuItemGetCount() - if (iCount <> 2) then - warnlog "There should 2 items in the view menu but there are " + iCount + " items." - end if - call hMenuClose() - - '/// check if there are 4 items in the tools menu. - printlog "check if there are 4 items in the tools menu." - TableView.UseMenu - hMenuSelectNr(5) - iCount = hMenuItemGetCount() - if ( lcase( gPlatform ) = "osx" ) then - if ( iCount <> 3 ) then - warnlog( "Tools menu: 3 items expected, found " & iCount ) - endif - else - if (iCount <> 4) then - warnlog "There should 4 items in the tools menu but there are " + iCount + " items." - end if - endif - call hMenuClose() - - '/// check if there are 4 items in the TOOLS/MACRO menu. - printlog "check if there are 4 items in the TOOLS/MACRO menu." - TableView.UseMenu - hMenuSelectNr(5) - hMenuSelectNr(1) - iCount = hMenuItemGetCount() - if (iCount <> 4) then - warnlog "There should 4 items in the TOOLS/MACRO menu but there are " + iCount + " items." - end if - call hMenuClose() - - call fCloseTableView - - call fCloseDatabase - -endcase -'------------------------------------------------------------------------- -'------------------------------------------------------------------------- -'------------------------------------------------------------------------- -function getMenuItemCount as Integer -'use this function becasue this doesn't count the pick list - Dim i as Integer - Dim j as Integer - Dim Ende as Integer - Dim nID as Integer - Sleep 2 - j=0 - for i=1 to MenuGetItemCount - if NOT MenuIsSeperator ( i ) then - dim s as String - s = Mid(MenuGetItemText( MenuGetItemID(i)),3,1) - 'printlog "s = " + s - 'printlog "MenuGetItemText( MenuGetItemID(i)) = " + MenuGetItemText( MenuGetItemID(i)) - if s <> ":" then - j=j+1 - endif - endif - next i - getMenuItemCount = j -end function -'------------------------------------------------------------------------- -sub initTable - - - hFileOpen( gOfficePath & "user/database/biblio.odb" ) - - Kontext "DATABASE" - - Database.MouseDown(50,50) - Database.MouseUp(50,50) - - sleep(1) - - ViewTables - - Kontext "ContainerView" - TableTree.select 1 - - OpenTable - - sleep(2) - -end sub |