From a2eb0cf44bbd15ae24f9423d3bc6e420691c300d Mon Sep 17 00:00:00 2001 From: August Sodora Date: Wed, 7 Dec 2011 00:55:10 -0500 Subject: Remove testtool --- .../spreadsheet/tools/includes/c_cell_tools.inc | 102 --------- .../spreadsheet/tools/includes/c_l10n_tools.inc | 232 --------------------- .../spreadsheet/tools/includes/c_select_tools.inc | 232 --------------------- .../tools/includes/c_tool_l10n_mnomics.inc | 160 -------------- .../spreadsheet/tools/includes/c_tool_options.inc | 95 --------- .../tools/includes/c_validity_tools.inc | 139 ------------ 6 files changed, 960 deletions(-) delete mode 100644 testautomation/spreadsheet/tools/includes/c_cell_tools.inc delete mode 100644 testautomation/spreadsheet/tools/includes/c_l10n_tools.inc delete mode 100644 testautomation/spreadsheet/tools/includes/c_select_tools.inc delete mode 100644 testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc delete mode 100644 testautomation/spreadsheet/tools/includes/c_tool_options.inc delete mode 100644 testautomation/spreadsheet/tools/includes/c_validity_tools.inc (limited to 'testautomation/spreadsheet/tools/includes') diff --git a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc deleted file mode 100644 index 0693f1daf19c..000000000000 --- a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc +++ /dev/null @@ -1,102 +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 -' -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : oliver.craemer@oracle.com -'* -'* short description : tools for working with cells in calc -'* -'************************************************************************************************** -'* -' #1 fCalcGetCellValue 'Returns the value of a given cell -' #1 fCalcCompareCellValue 'Compares the value of a given cell with a given result -' #1 fCalcCompareCellFormular 'Compares the formular of a cell with a given result -'* -'\************************************************************************************************ - -function fCalcGetCellValue ( sCelladdress as string ) as string - - '///The function returns the content of a given cell - '///+The cell is selected by fCalcSelectRange which is located in /spreadsheet/tools/includes/c_select_tools.inc - '///+The content is copied to the clipboard by slot EditCopy - '///+ and read out by GetClipboardText which is located in /global/tools/inc/t_tools1.inc - use "spreadsheet\tools\includes\c_select_tools.inc" - use "global\tools\includes\required\t_tools1.inc" - - call fCalcSelectRange (sCelladdress) 'Select the given cell - kontext "DocumentCalc" 'Setting kontext to Calcdocument - EditCopy 'Copy content to clipboard - fCalcGetCellValue = GetClipboardText 'Returning clipboard to function - -end function - -'------------------------------------------------------------------------- - -function fCalcCompareCellValue ( sCelladdress as string, sresult as string ) as boolean - - '///The function compares the value of a cell with a given result - '///+The cellvalue is read by fCalcGetCellValue which is located in /spreadsheet/tools/includes/c_cell_tools.inc - '///+The value is compared with a given result (input) - '///+The function returns true if the comparison is correct and false for incorrect - - if fCalcGetCellValue ( sCelladdress ) = sresult then - printlog " The cellvalue is correct" - fCalcCompareCellValue = true - else - warnlog "The cellvalue is " & fCalcGetCellValue ( sCelladdress ) & " but should be " & sresult - fCalcCompareCellValue = false - end if - -end function - -'------------------------------------------------------------------------- - -function fCalcCompareCellFormular ( sCelladdress as string, sresult as string ) as boolean - - '///The function compares the formular of a cell with a given result - '///+The value is compared with a given result (input) - '///+The function returns true if the comparison is correct and false for incorrect - - dim sfunctionwithparameter as string - - call fCalcSelectRange (sCelladdress) - kontext ( "RechenleisteCalc" ) - EingabeZeileCalc.TypeKeys ("") - editcopy - sfunctionwithparameter = GetClipboardText () - '/// Press twice to leave the cell - 'printlog "Press twice to leave the cell" - kontext ( "DocumentCalc" ) - DocumentCalc.TypeKeys "" , 2 - if sfunctionwithparameter = sresult then - printlog " The function is correct" - fCalcCompareCellFormular = true - else - warnlog "The function is " & sfunctionwithparameter & " instead of " & sresult - fCalcCompareCellFormular = false - end if - -end function diff --git a/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc deleted file mode 100644 index 1807ab4bf35a..000000000000 --- a/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc +++ /dev/null @@ -1,232 +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 -' -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : oliver.craemer@oracle.com -'* -'* short description : tools for localisation in calc -'* -'\************************************************************************************************ - -function fFunctionname ( sFunctionname_en as string ) as string - - '///The function returns the localized name of a given function in the current UI language - '///+ -Input is the english name of the function as string - '///+ -Output is the localized name of the function as string - '///+ -If there is no translation available the fallback is the english name - - dim sloaddocument as string - dim sfunctionstring as string - dim scelladress as string - - use "global/tools/includes/required/t_doc2.inc" - const CFN = "spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname " - - sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Functionnames.ods" - - '///Load document with all functions gTestToolPath/spreadsheet/tools/input/Functionnames.ods - hFileOpenLocally( sloaddocument ) - sleep (2) - - '///Setting selection to A1 to avoid messagebox in Search and Replace dialog. - call fCalcSelectRange ("A1") - '///Search for function by Search and Replace dialog - kontext "DocumentCalc" - EditSearchAndReplace - - kontext "FindAndReplace" - printlog( "Reset dialog to default settings" ) - if ( FindAndReplace.exists( 1 ) ) then - More.Click - SimilaritySearch.UnCheck - CurrentSelectionOnly.UnCheck - Backwards.UnCheck - SearchForStyles.UnCheck - SearchIn.Select 1 - '///Setting search parameter - WholeWordsOnly.Check - SearchFor.SetText sFunctionname_en - SearchNow.click - kontext - '///If a MsgBox appears the search must have failed => Fallback to english name - if active.exists then - if active.getRT = 304 then - warnlog CFN & "Function not found, falling back to english name" - fFunctionname = sFunctionname_en - active.OK - else - '///Throw a warning if a dialog of unexpected resource type appears - warnlog CFN & "Unknown message box! " & active.GetText - active.Default - fFunctionname = sFunctionname_en - end if - - kontext "FindAndReplace" - printlog( "Reset dialog to default settings" ) - if ( FindAndReplace.exists( 1 ) ) then - WholeWordsOnly.UnCheck - hCloseDialog( FindAndReplace, "close" ) - else - warnlog( CFN & " not open" ) - endif - call hCloseDocument - exit function - end if - - kontext "FindAndReplace" - printlog( "Reset dialog to default settings" ) - if ( FindAndReplace.exists( 1 ) ) then - WholeWordsOnly.UnCheck - hCloseDialog( FindAndReplace, "close" ) - else - warnlog( CFN & " not open" ) - endif - - Kontext "RechenleisteCalc" - scelladress = Bereich.GetSelText - if fCalcGetCellValue (scelladress) = sFunctionname_en then - '///Get localised string for function by extracting functionname out of next cell - call fCalcSelectRange ( "B" & mid(scelladress,2) ) - kontext ( "RechenleisteCalc" ) - EingabeZeileCalc.TypeKeys ("") - editcopy - sfunctionstring = GetClipboardText () - kontext "DocumentCalc" - DocumentCalc.TypeKeys ("",2) - ' DEBUG: printlog sfunctionstring - ' DEBUG: printlog len(sfunctionstring) - ' DEBUG: printlog instr(sfunctionstring,"(") - fFunctionname = mid(sfunctionstring,2,(instr(sfunctionstring,"(")-2) - printlog " The name of the function in this locale (" & iSprache & ") is " & fFunctionname - else - warnlog CFN & "Function not found, falling back to english version" - fFunctionname = sFunctionname_en - end if - else - warnlog( CFN & "Unable to open dialog" ) - endif - - call hCloseDocument - hFileDelete( gLastWorkFile ) - -end function - -' -'---------------------------------------------------------------------------- -' - -function fError_l10n ( sError_en as string ) as string - - '///The function returns the localized name of a given error in the current UI language - '///+ -Input is the english name of the error as string - '///+ -Output is the localized name of the error as string - '///+ -If there is no translation available the fallback is the english name - - dim sloaddocument as string - dim sfunctionstring as string - dim scelladress as string - - use "global/tools/includes/required/t_doc2.inc" - const CFN = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fError_l10n " - - sloaddocument = gTesttoolPath & "spreadsheet\tools\input\Errorcodes.ods" - - '///Load document with all errorcodes gTestToolPath/spreadsheet/tools/input/Errorcodes.ods - hFileOpenLocally( sloaddocument ) - - '///Setting selection to A1 to avoid messagebox in Search and Replace dialog. - call fCalcSelectRange ("A1") - '///Search for function by Search and Replace dialog - kontext "DocumentCalc" - EditSearchAndReplace - sleep (1) - kontext "FindAndReplace" - '///Setting dialog to defaults - More.Click - SimilaritySearch.UnCheck - CurrentSelectionOnly.UnCheck - Backwards.UnCheck - SearchForStyles.UnCheck - SearchIn.Select 1 - '///Setting search parameter - WholeWordsOnly.Check - SearchFor.SetText sError_en - SearchNow.click - kontext - '///If a MsgBox appears the search must have failed => Fallback to english name - if active.exists then - if active.getRT = 304 then - warnlog CFN & "Function not found, falling back to english name" - fError_l10n = sError_en - active.OK - else - '///Throw a warning if a dialog of unexpected resource type appears - warnlog CFN & "Unknown message box! " & active.GetText - active.Default - fError_l10n = sError_en - end if - - kontext "FindAndReplace" - '///Reset dialog to defaultsetting - if ( FindAndReplace.exists( 1 ) ) then - WholeWordsOnly.UnCheck - hCloseDialog( FindAndReplace, "close" ) - else - warnlog( CFN & "Failed to open " ) - endif - - call hCloseDocument - exit function - end if - - kontext "FindAndReplace" - '///Reset dialog to defaultsetting - if ( FindAndReplace.exists( 1 ) ) then - WholeWordsOnly.UnCheck - hCloseDialog( FindAndReplace, "close" ) - else - warnlog( CFN & "Failed to open " ) - endif - - Kontext "RechenleisteCalc" - scelladress = Bereich.GetSelText - if fCalcGetCellValue (scelladress) = sError_en then - '///Get localised string for ERR by extracting errorcode out of next cell - call fCalcSelectRange ( "B" & mid(scelladress,2) ) - kontext "DocumentCalc" - editcopy - fError_l10n = GetClipboardText () - kontext "DocumentCalc" - printlog " The name for ERR in this locale (" & iSprache & ") is " & fError_l10n - else - warnlog CFN & "Errorcode not found, falling back to english version" - fError_l10n = sError_en - end if - - call hCloseDocument - hFileDelete( gLastWorkFile ) - -end function diff --git a/testautomation/spreadsheet/tools/includes/c_select_tools.inc b/testautomation/spreadsheet/tools/includes/c_select_tools.inc deleted file mode 100644 index f1087ca3fe8b..000000000000 --- a/testautomation/spreadsheet/tools/includes/c_select_tools.inc +++ /dev/null @@ -1,232 +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 -' -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : oliver.craemer@oracle.com -'* -'* short description : selecting objects in calc -'* -'************************************************************************************************** -'* -' #1 fCalcSelectRange -' #1 fCalcNameRange -' #1 fCalcSelectCell -' #1 fCalcGetSelectionString -' #1 fCalcSelectSheet -' #1 fNavigatorSelectObject -'* -'\************************************************************************************************ - -function fCalcSelectRange ( sSelectThis ) as boolean - '///Select a range in calc and check success - '///+Valid cell reference and name should work here - '///+RETURNS: BOOLEAN - fCalcSelectRange = FALSE - '///
    - '///
  • Check if 'formula bar' is visible
    • /// - Kontext "RechenleisteCalc" - if not RechenleisteCalc.isvisible then - '///
  • -> Throw warning and Invoke 'formula bar' if invisible
    • /// - '///
  • -> NOTE: The testcase developer has to take care herself that function is entered correctly
    • /// - warnlog "Formula bar was expected to be visible" - ViewToolbarsFormulaBar - end if - sleep(2) - '///
  • Select the desired range
    • /// - Kontext "RechenleisteCalc" - Bereich.TypeKeys "" - Bereich.TypeKeys ( sSelectThis ) - sleep(1) - Bereich.TypeKeys "" - sleep(2) - '///
  • Check if input leads to success
    • /// - kontext - '///
  • If a MsgBox is in the way the selection must have failed
    • /// - if active.exists then - if active.getRT = 304 then - '///
  • -> NOTE: Only throw a PrintLog if selection fails because failture may be the desired result!
    • /// - '///
  • -> FURTHER NOTE: We retrun FALSE to check this in the calling routine
    • /// - printlog "Selecting the range failed due to known reason, e.g. wrong selection or invalid name" - Active.OK - else - '///
  • Only throw a waring if a dialog of unexpected resource type appears
    • /// - warnlog "OOPS, don't know what's disturbing now -> CHECK IT OUT!" - end if - else - '///
  • Everything OK? -> TRUE
    • /// - fCalcSelectRange = TRUE - end if -end function -'///
- -'------------------------------------------------------------------------- - -function fCalcNameRange ( sNameThis ) as boolean - '///This is just an alias function to avoid confusion -> see 'fCalcSelectRange' - '///With the integration of CWS 'rangename' the function 'fCalcSelectRange' - '///+could also be used to name a previous selected range - fCalcNameRange = fCalcSelectRange ( sNameThis ) -end function - -' -'-------------------------------------------------------------------- -' - -function fCalcSelectCell ( sSelectThisCell ) as boolean - '///This is just an alias function to avoid confusion -> see 'fCalcSelectRange' - fCalcSelectCell = fCalcSelectRange ( sSelectThisCell ) -end function - -' -'-------------------------------------------------------------------- -' - -function fCalcGetSelectionString() as String - '///Obtain range (e.g. 'A1:E10') or range name in 'formula bar' - '///+RETURNS: STRING/// - '///
    - '///
  • Check if 'formula bar' is visible
    • /// - Kontext "RechenleisteCalc" - if not RechenleisteCalc.isvisible then - '///
  • -> Throw warning and Invoke 'formula bar' if invisible
    • /// - '///
  • -> NOTE: The testcase developer has to take care herself that function is entered correctly
    • /// - warnlog "Formula bar was expected to be visible" - ViewToolbarsFormulaBar - end if - sleep(2) - '///
  • Get and return string in range selection list box
    • /// - Kontext "RechenleisteCalc" - fCalcGetSelectionString = Bereich.GetSelText - '///
-end function - -' -'-------------------------------------------------------------------- -' - -function fCalcSelectSheet ( sSelectThisSheet ) as boolean - - '///Select a sheet by name (STRING) or number (INTEGER)/// - '///+RETURNS: boolean (success)/// - fCalcSelectSheet = FALSE - '///
    - try - Kontext "DocumentCalc" - '///
  • Invoke Edit::Sheet::Select
    • /// - EditSheetSelect - Kontext "SelectSheets" - '///
  • Select sheet no. or sheet name in listbox
    • /// - SheetSelectionBox.Select ( sSelectThisSheet ) - '///
  • OK
    • /// - SelectSheets.OK - '///
  • Return true
    • /// - fCalcSelectSheet = TRUE - catch - warnlog "Something went wrong while selecting a sheet by name" - '///
  • In case of failture lookup 'Select sheets' dialog andd close it if exists
    • /// - Kontext "SelectSheets" - if SelectSheets.exists(2) then - SelectSheets.Cancel - end if - endcatch - '///
-end function -' -'------------------------------------------------------------------------- -' -function fNavigatorSelectObject ( sWhatObject as STRING , iObjectPosition as INTEGER ) - '///Select any Object in Navigator - '///STRING: sWhatObject - A keyword to choose desired obeject category - '///+Posible values: sheets, range names, database ranges, linked areas, graphics, ole objects, notes, drawing objects - '///INTEGER: iObjectPosition - Position of object (>=1) within 'sWhatObject' - '///+NOTE:You're moving within a treelistbox which is quite messy to handle. - '///+In case 'iObjectPosition' is larger than the real number of objects in category you're end up in another categories. - '///+WITHOUT ANY WARNING! - '///RETURNS: BOOLEAN (success) - '///----- - '///
    - dim bNavigatorWasVisible as boolean - bNavigatorWasVisible = FALSE - dim iIndex - dim iCategoryPosition as INTEGER - - fNavigatorSelectObject = FALSE - '///
  • Translate 'sWhatObject' to postion number of desired object category
    • /// - select case lcase ( sWhatObject ) - case "sheets" : iCategoryPosition = 1 - case "range names" : iCategoryPosition = 2 - case "database ranges" : iCategoryPosition = 3 - case "linked areas" : iCategoryPosition = 4 - case "graphics" : iCategoryPosition = 5 - case "ole objects" : iCategoryPosition = 6 - case "notes" : iCategoryPosition = 7 - case "drawing objects" : iCategoryPosition = 8 - case else - warnlog "Invalid keyword -> Aborting fNavigatorSelectObject()" - exit function - end select - '///
  • Check if Navigator is visible
    • /// - Kontext "NavigatorCalc" - if NavigatorCalc.exists (3) then - '///
  • Remember state of visibiliy TRUE/FALSE
    • /// - bNavigatorWasVisible = TRUE - else - '///
  • Invoke navigator if not visible
    • /// - ViewNavigator - end if - - try - Kontext "NavigatorCalc" - '///
  • Go to Top in Navigator
    • /// - liste.TypeKeys "" - '///
  • Travel top to bottom through all categories
    • /// - for iIndex = 1 to 8 - '///
  • Make sure all elements in category are hidden, apply '-' key
    • /// - liste.TypeKeys "-" - next iIndex - '///
  • Select desired category
    • /// - liste.select ( iCategoryPosition ) - '///
  • Unfold elements of selected category
    • /// - liste.TypeKeys "+" - '///
  • Select desired position within category
    • /// - liste.select ( iCategoryPosition + iObjectPosition ) - '///
  • Hit 'RETURN' key to select element in document
    • /// - liste.TypeKeys "" - '///
  • Return 'TRUE' for 'fNavigatorSelectObject'
    • /// - fNavigatorSelectObject = TRUE - catch - warnlog "Selecting the desired object failed. Perhaps your input wasn't valid" - endcatch - '///
  • Close navigator if it wasn't visible before entering this function
    • /// - if bNavigatorWasVisible = TRUE then - printlog "Leaving navigator open as initially found" - else - ViewNavigator - printlog "Closing navigator as initially found" - end if - '///
-end function - diff --git a/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc b/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc deleted file mode 100644 index 43dd2945c22a..000000000000 --- a/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc +++ /dev/null @@ -1,160 +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 -' -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : oliver.craemer@oracle.com -'* -'* short description : Tools for Keyboard Accessibility -'* -'************************************************************************ -'* -' #1 fDataPilotRowSelection -' #1 fDataPilotColumnSelection -' #1 fDataPilotDataSelection -'* -'\*********************************************************************** - -function fDataPilotRowSelection() - -fDataPilotRowSelection = TRUE - - select case iSprache - case 01 : ' English (USA) - DataPilotSelection.typekeys "" - case 33 : ' French - DataPilotSelection.typekeys "" - case 34 : ' Spanish - DataPilotSelection.typekeys "" - case 39 : ' Italian - DataPilotSelection.typekeys "" - case 46 : ' Swedish - DataPilotSelection.typekeys "" - case 49 : ' German - DataPilotSelection.typekeys "" - case 55 : ' Portuguese - DataPilotSelection.typekeys "" - case 81 : ' Japanese - DataPilotSelection.typekeys "" - case 82 : ' Korean - DataPilotSelection.typekeys "" - case 86 : ' Chinese (simplified) - DataPilotSelection.typekeys "" - case 88 : ' Chinese (traditional) - DataPilotSelection.typekeys "" - case else : ' Fallback - QAErrorLog "Now, the test does not support for the language " +iSprache - fDataPilotRowSelection = FALSE - end select - -end function - -'---------------------------------------------------- - -function fDataPilotColumnSelection() - -fDataPilotColumnSelection = TRUE - - select case iSprache - case 01 : ' English (USA) - DataPilotSelection.typekeys "" - case 33 : ' French - DataPilotSelection.typekeys "" - case 34 : ' Spanish - DataPilotSelection.typekeys "" - case 39 : ' Italian - DataPilotSelection.typekeys "" - case 46 : ' Swedish - DataPilotSelection.typekeys "" - case 49 : ' German - DataPilotSelection.typekeys "" - case 55 : ' Portuguese - DataPilotSelection.typekeys "" - case 81 : ' Japanese - DataPilotSelection.typekeys "" - case 82 : ' Korean - DataPilotSelection.typekeys "" - case 86 : ' Chinese (simplified) - DataPilotSelection.typekeys "" - case 88 : ' Chinese (traditional) - DataPilotSelection.typekeys "" - case else : ' Fallback - QAErrorLog "Now, the test does not support for the language " +iSprache - fDataPilotColumnSelection = FALSE - end select - -end function - -'---------------------------------------------------- - -function fDataPilotDataSelection() - -fDataPilotDataSelection = TRUE - - select case iSprache - case 01 : ' English (USA) - DataPilotSelection.typekeys "" - case 33 : ' French - DataPilotSelection.typekeys "" - case 34 : ' Spanish - DataPilotSelection.typekeys "" - case 39 : ' Italian - DataPilotSelection.typekeys "" - case 46 : ' Swedish - DataPilotSelection.typekeys "" - case 49 : ' German - DataPilotSelection.typekeys "" - case 55 : ' Portuguese - DataPilotSelection.typekeys "" - case 81 : ' Japanese - DataPilotSelection.typekeys "" - case 82 : ' Korean - DataPilotSelection.typekeys "" - case 86 : ' Chinese (simplified) - DataPilotSelection.typekeys "" - case 88 : ' Chinese (traditional) - DataPilotSelection.typekeys "" - case else : ' Fallback - QAErrorLog "Now, the test does not support for the language " +iSprache - fDataPilotDataSelection = FALSE - end select - -end function - -'---------------------------------------------------- - -function fDataPilotPageSelection() - -fDataPilotPageSelection = TRUE - - select case iSprache - case 01 : ' English (USA) - DataPilotSelection.typekeys "" - case else : ' Fallback - QAErrorLog "Now, the test does not support for the language " +iSprache - fDataPilotPageSelection = FALSE - end select - -end function diff --git a/testautomation/spreadsheet/tools/includes/c_tool_options.inc b/testautomation/spreadsheet/tools/includes/c_tool_options.inc deleted file mode 100644 index 89bc7a4e0ad3..000000000000 --- a/testautomation/spreadsheet/tools/includes/c_tool_options.inc +++ /dev/null @@ -1,95 +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 -' -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'* -'* owner : oliver.craemer@oracle.com -'* -'* short description : Tools for Tools::Options dialog -'* -'************************************************************************ -'* -' #1 subSetConversionMicrosoftOLE -'* -'\*********************************************************************** - -sub subSetConversionMicrosoftOLE ( OPTIONAL sConversionType as STRING ) -'///Routine to adjust the behaviour of Tools::Options::Load/Save::Microsoft Office/// -'///Possible Keys for 'sConversionType' are:/// -'///
    -'///
  • RESET (or omitted): Uncheck all boxes (default in a freshly installed OOo))
    • /// -'///
  • ALL: Check all boxes
    • /// -'///
  • LOAD: Check all boxes for loading MS OLE objects (left side), uncheck all boxes for saving
    • /// -'///
  • SAVE: Check all boxes for saving MS OLE objects (right side), uncheck all boxes for loading
    • /// -'///
  • For other values the subroutine will exit
    • /// -'///
-'///Action:/// -'///
    - '///
  • Convert omitted 'sConversionType' to RESET
    • /// - if IsMissing ( sConversionType ) then - sConversionType = "RESET" - end if - dim iPosInAuswahl as INTEGER - dim iExtraToggle as INTEGER - - '///
  • Determine value of 'iExtraToggle' for known keys
    • /// - select case sConversionType - case "RESET" : iExtraToggle = 1 - case "ALL" : iExtraToggle = 2 - case "LOAD" : iExtraToggle = 3 - case "SAVE" : iExtraToggle = 4 - case else - warnlog "Unknown keyword for paramter -> Exit the subroutine" - qaErrorLog "Valid keywords are RESET, ALL, LOAD and SAVE!" - exit sub - end select - - '///
  • Invoke Tools::Options
    • /// - ToolsOptions - '///
  • Go to tabpage Load/Save::Microsoft Office
    • /// - call hToolsOptions ( "LOADSAVE" , "MICROSOFTOFFICE" ) - '///
  • Go to top entry in listbox
    • /// - Auswahl.TypeKeys( "" ) - - '///
  • Toggle (in a tricky way) to a defined state of checkboxes
    • /// - for iPosInAuswahl = 1 to 4 - while NOT Auswahl.IsChecked - Auswahl.TypeKeys ( "" ) - wend - while Auswahl.IsChecked - Auswahl.TypeKeys ( "" ) - wend - '///
  • Toggle to desired state of boxes
    • /// - Auswahl.TypeKeys ( "" , iExtraToggle ) - '///
  • Go one entry down in list box
    • /// - Auswahl.TypeKeys ( "" ) - '///
  • Loop for all lines
    • /// - next iPosInAuswahl - - '///
  • Quit dialog
    • /// - Kontext "OptionenDLG" - OptionenDLG.Ok - '///
-end sub diff --git a/testautomation/spreadsheet/tools/includes/c_validity_tools.inc b/testautomation/spreadsheet/tools/includes/c_validity_tools.inc deleted file mode 100644 index af78bffe2468..000000000000 --- a/testautomation/spreadsheet/tools/includes/c_validity_tools.inc +++ /dev/null @@ -1,139 +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 -' -' for a copy of the LGPLv3 License. -' -'/************************************************************************ -'** -'** owner : oliver.craemer@Sun.COM -'** -'** short description : Subroutines for the data validity test -'** -'************************************************************************ -' ** -' #0 check_message ' Check if the messages in validity test are OK -' ** -'\*********************************************************************** - -sub check_message(MType as String, Celladdress as String, cellcontent as String, wrong as String) -'/// Sub routine for checking message - if MType <> "Macro" then - Kontext "RechenleisteCalc" - if not RechenleisteCalc.isvisible then - ViewToolbarsFormulaBar - end if - Kontext "RechenleisteCalc" - Bereich.TypeKeys "" - Bereich.TypeKeys Celladdress - sleep(1) - Bereich.TypeKeys "" - - Kontext "DocumentCalc" - DocumentCalc.TypeKeys cellcontent - DocumentCalc.TypeKeys "" - kontext "active" - if active.exists(2) then - warnlog "Value " & cellcontent & " is correct in cell "& Celladdress & ", so no " & MType & " message must not be appear" - if MType = "Stop" then - active.OK - else - active.Cancel - end if - else - printlog "OK, no " & MType & " message appears, by inserting the correct value into " & Celladdress - end if - - Kontext "RechenleisteCalc" - if not RechenleisteCalc.isvisible then - ViewToolbarsFormulaBar - end if - Kontext "RechenleisteCalc" - Bereich.TypeKeys "" - Bereich.TypeKeys Celladdress - sleep(1) - Bereich.TypeKeys "" - Kontext "DocumentCalc" - DocumentCalc.TypeKeys wrong - DocumentCalc.TypeKeys "" - kontext "active" - if active.exists(2) then - printlog "OK, value " & wrong & " is not correct in cell " & Celladdress & ", so the " & MType & " message has to be appear" - if MType = "Stop" then - active.OK - else - active.Cancel - end if - else - warnlog "Value " & wrong & " is not correct for cell " & Celladdress & ", so the " & MType & " message has to be appears" - end if - else - Kontext "RechenleisteCalc" - if not RechenleisteCalc.isvisible then - ViewToolbarsFormulaBar - end if - Kontext "RechenleisteCalc" - Bereich.TypeKeys "" - Bereich.TypeKeys Celladdress - sleep(1) - Bereich.TypeKeys "" - Kontext "DocumentCalc" - DocumentCalc.TypeKeys cellcontent - DocumentCalc.TypeKeys "" - DocumentCalc.TypeKeys "" - FormatCells - Kontext - Active.setPage TabFontEffects - Kontext "TabFontEffects" - if FontColor.getSelIndex = 1 then - printlog "OK, the macro detect the correct word in " & Celladdress - else - warnlog "The Fontcolor is " & FontColor.getSelText & " instead of automatic in cell " & Celladdress - end if - TabFontEffects.Cancel - - Kontext "RechenleisteCalc" - if not RechenleisteCalc.isvisible then - ViewToolbarsFormulaBar - end if - Kontext "RechenleisteCalc" - Bereich.TypeKeys "" - Bereich.TypeKeys Celladdress - sleep(1) - Bereich.TypeKeys "" - Kontext "DocumentCalc" - DocumentCalc.TypeKeys wrong - DocumentCalc.TypeKeys "" - DocumentCalc.TypeKeys "" - FormatCells - Kontext - Active.setPage TabFontEffects - Kontext "TabFontEffects" - if FontColor.getSelIndex = 12 then - printlog "OK, the macro detect the wrong word in " & Celladdress - else - warnlog "The Fontcolor is " & FontColor.getSelText & " instead of light green in cell " & Celladdress - end if - TabFontEffects.Cancel - end if -end sub - -- cgit