From 9e2612fdd3cfb7177d52b9b8eab1ab2b0760575e Mon Sep 17 00:00:00 2001 From: Joerg Sievers Date: Mon, 16 Jun 2008 07:06:10 +0000 Subject: changed structure which will be included into the CWS process. --- .../spreadsheet/tools/includes/c_cell_tools.inc | 108 ++++++++++ .../spreadsheet/tools/includes/c_l10n_tools.inc | 223 +++++++++++++++++++ .../spreadsheet/tools/includes/c_select_tools.inc | 238 +++++++++++++++++++++ .../tools/includes/c_tool_l10n_mnomics.inc | 166 ++++++++++++++ .../spreadsheet/tools/includes/c_tool_options.inc | 101 +++++++++ .../spreadsheet/tools/input/Errorcodes.ods | Bin 0 -> 13154 bytes .../spreadsheet/tools/input/Functionnames.ods | Bin 0 -> 19172 bytes 7 files changed, 836 insertions(+) create mode 100755 testautomation/spreadsheet/tools/includes/c_cell_tools.inc create mode 100755 testautomation/spreadsheet/tools/includes/c_l10n_tools.inc create mode 100755 testautomation/spreadsheet/tools/includes/c_select_tools.inc create mode 100755 testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc create mode 100755 testautomation/spreadsheet/tools/includes/c_tool_options.inc create mode 100755 testautomation/spreadsheet/tools/input/Errorcodes.ods create mode 100755 testautomation/spreadsheet/tools/input/Functionnames.ods (limited to 'testautomation/spreadsheet/tools') diff --git a/testautomation/spreadsheet/tools/includes/c_cell_tools.inc b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc new file mode 100755 index 000000000000..d3241b2eed5e --- /dev/null +++ b/testautomation/spreadsheet/tools/includes/c_cell_tools.inc @@ -0,0 +1,108 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: c_cell_tools.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:09 $ +'* +'* 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 : 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 new file mode 100755 index 000000000000..bdeb817f2bc8 --- /dev/null +++ b/testautomation/spreadsheet/tools/includes/c_l10n_tools.inc @@ -0,0 +1,223 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: c_l10n_tools.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:09 $ +'* +'* 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 : tools for localisation in calc +'* +'************************************************************************************************** +'* +' #1 fFunctionname 'Returns the localized name of a given function in the current UI language +' #1 fError_l10n 'Returns the localized name of a given errorcode in the current UI language +'* +'\************************************************************************************************ + +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 = "qa:qatesttool:spreadsheet:tools:includes:c_l10n_tools.in:fFunctionname " + + sloaddocument = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Functionnames.ods" ) + + '///Load document with all functions gTestToolPath/spreadsheet/tools/input/Functionnames.ods + call hFileOpen ( sloaddocument ) + sleep (2) + '///Make sure that the file is editable + call sMakeReadOnlyDocumentEditable() + + '///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 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" + sleep (1) + '///Reset dialog to defaultsetting + WholeWordsOnly.UnCheck + FindAndReplace.Close + call hCloseDocument + exit function + end if + kontext "FindAndReplace" + sleep (1) + '///Reset dialog to defaultsettings + WholeWordsOnly.UnCheck + FindAndReplace.Close + 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 + + call hCloseDocument + +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 = Convertpath (gTesttoolPath + "spreadsheet\tools\input\Errorcodes.ods" ) + + '///Load document with all errorcodes gTestToolPath/spreadsheet/tools/input/Errorcodes.ods + call hFileOpen ( sloaddocument ) + sleep (2) + '///Make sure that the file is editable + call sMakeReadOnlyDocumentEditable() + + '///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" + sleep (1) + '///Reset dialog to defaultsetting + WholeWordsOnly.UnCheck + FindAndReplace.Close + call hCloseDocument + exit function + end if + kontext "FindAndReplace" + sleep (1) + '///Reset dialog to defaultsetting + WholeWordsOnly.UnCheck + FindAndReplace.Close + 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 + +end function diff --git a/testautomation/spreadsheet/tools/includes/c_select_tools.inc b/testautomation/spreadsheet/tools/includes/c_select_tools.inc new file mode 100755 index 000000000000..46f6a63ccba4 --- /dev/null +++ b/testautomation/spreadsheet/tools/includes/c_select_tools.inc @@ -0,0 +1,238 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: c_select_tools.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:10 $ +'* +'* 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 : 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
    • /// + EditNavigator + 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 + EditNavigator + 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 new file mode 100755 index 000000000000..98d30bd1e0dd --- /dev/null +++ b/testautomation/spreadsheet/tools/includes/c_tool_l10n_mnomics.inc @@ -0,0 +1,166 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: c_tool_l10n_mnomics.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:10 $ +'* +'* 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 : 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 new file mode 100755 index 000000000000..fcebcb67f74d --- /dev/null +++ b/testautomation/spreadsheet/tools/includes/c_tool_options.inc @@ -0,0 +1,101 @@ +'encoding UTF-8 Do not remove or change this line! +'************************************************************************** +'* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. +'* +'* Copyright 2008 by Sun Microsystems, Inc. +'* +'* OpenOffice.org - a multi-platform office productivity suite +'* +'* $RCSfile: c_tool_options.inc,v $ +'* +'* $Revision: 1.1 $ +'* +'* last change: $Author: jsi $ $Date: 2008-06-16 08:06:10 $ +'* +'* 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 : 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/input/Errorcodes.ods b/testautomation/spreadsheet/tools/input/Errorcodes.ods new file mode 100755 index 000000000000..2c383429e852 Binary files /dev/null and b/testautomation/spreadsheet/tools/input/Errorcodes.ods differ diff --git a/testautomation/spreadsheet/tools/input/Functionnames.ods b/testautomation/spreadsheet/tools/input/Functionnames.ods new file mode 100755 index 000000000000..e7d59b7e990e Binary files /dev/null and b/testautomation/spreadsheet/tools/input/Functionnames.ods differ -- cgit