sc/qa/unit/opencl-test-1.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2
   3 #include <sal/config.h>
   4
   5 #include <string_view>
   6
   7 #include "helper/qahelper.hxx"
   8
   9 #include <docsh.hxx>
  10 #include <document.hxx>
  11 #include <formulagroup.hxx>
  12
  13 #include <com/sun/star/document/MacroExecMode.hpp>
  14 #include <comphelper/sequence.hxx>
  15
  16 using namespace ::com::sun::star;
  17 using namespace ::com::sun::star::uno;
  18
  19 class ScOpenCLTest1
  20     : public ScModelTestBase
  21 {
  22 public:
  23     ScOpenCLTest1();
  24
  25     /**
  26      * Turn on OpenCL group interpreter. Call this after the document is
  27      * loaded and before performing formula calculation.
  28      */
  29     void enableOpenCL();
  30     void disableOpenCL();
  31
  32     void testSystematic();
  33     void testSharedFormulaXLS();
  34 #if 0
  35     void testSharedFormulaXLSGroundWater();
  36     void testSharedFormulaXLSStockHistory();
  37 #endif
  38     void testFinacialFormula();
  39     void testStatisticalFormulaFisher();
  40     void testStatisticalFormulaFisherInv();
  41     void testStatisticalFormulaGamma();
  42     void testFinacialFvscheduleFormula();
  43 // this test has intermittent failures on OSX
  44 #if !defined MACOSX
  45     void testFinacialIRRFormula();
  46 #endif
  47     void testFinacialMIRRFormula();
  48     void testFinacialRateFormula();
  49     void testFinancialAccrintmFormula();
  50     void testFinancialAccrintFormula();
  51     void testCompilerHorizontal();
  52     void testCompilerNested();
  53     void testFinacialSLNFormula();
  54     void testStatisticalFormulaGammaLn();
  55     void testStatisticalFormulaGauss();
  56     void testStatisticalFormulaGeoMean();
  57     void testStatisticalFormulaHarMean();
  58     void testFinancialCoupdaybsFormula();
  59     void testFinacialDollardeFormula();
  60     void testCompilerString();
  61     void testCompilerInEq();
  62     void testCompilerPrecision();
  63     void testFinacialDollarfrFormula();
  64     void testFinacialSYDFormula();
  65     void testStatisticalFormulaCorrel();
  66     void testFinancialCoupdaysFormula();
  67     void testFinancialCoupdaysncFormula();
  68     void testFinacialDISCFormula();
  69     void testFinacialINTRATEFormula();
  70     void testMathFormulaCos();
  71     void testMathFormulaCsc();
  72     void testStatisticalFormulaRsq();
  73     void testStatisticalFormulaPearson();
  74     void testStatisticalFormulaNegbinomdist();
  75     void testFinacialXNPVFormula();
  76     void testFinacialPriceMatFormula();
  77     void testFinacialFormulaReceived();
  78     void testFinancialFormulaCumipmt();
  79     void testFinancialFormulaCumprinc();
  80     void testFinacialRRIFormula();
  81     void testFinacialEFFECT_ADDFormula();
  82     void testFinacialNominalFormula();
  83     void testFinacialTBILLEQFormula();
  84     void testFinacialTBILLPRICEFormula();
  85     void testFinacialTBILLYIELDFormula();
  86     void testFinacialYIELDFormula();
  87     void testFinacialYIELDDISCFormula();
  88     void testFinacialYIELDMATFormula();
  89     void testFinacialPMTFormula();
  90     void testFinacialPPMTFormula();
  91     void testFinancialISPMTFormula();
  92     void testFinacialPriceFormula();
  93     void testFinancialDurationFormula();
  94     void testFinancialCoupnumFormula();
  95     void testMathFormulaSinh();
  96     void testMathFormulaAbs();
  97     void testFinacialPVFormula();
  98     void testMathFormulaSin();
  99     void testMathFormulaTan();
 100     void testMathFormulaTanH();
 101     void testStatisticalFormulaStandard();
 102     void testStatisticalFormulaWeibull();
 103     void testStatisticalFormulaMedian();
 104     void testFinancialDuration_ADDFormula();
 105     void testFinancialAmordegrcFormula();
 106     void testFinancialAmorlincFormula();
 107     void testFinancialDDBFormula();
 108     void testFinancialFVFormula();
 109     void testFinancialMDurationFormula();
 110     void testMathSumIfsFormula();
 111     void testFinancialVDBFormula();
 112     void testStatisticalFormulaKurt();
 113     void testFinacialNPERFormula();
 114     void testStatisticalFormulaNormdist();
 115     void testMathFormulaArcCos();
 116     void testMathFormulaSqrt();
 117     void testMathFormulaArcCosHyp();
 118     void testFinacialNPVFormula();
 119     void testStatisticalFormulaNormsdist();
 120     void testStatisticalFormulaNorminv();
 121     void testStatisticalFormulaNormsinv();
 122     void testStatisticalFormulaPermut();
 123     void testStatisticalFormulaPermutation();
 124     void testStatisticalFormulaPhi();
 125     void testFinancialIPMTFormula();
 126     void testStatisticalFormulaConfidence();
 127     void testStatisticalFormulaIntercept();
 128     void testFinacialODDLPRICEFormula();
 129     void testFinacialOddlyieldFormula();
 130     void testFinacialPriceDiscFormula();
 131     void testFinancialDBFormula();
 132     void testFinancialCouppcdFormula();
 133     void testFinancialCoupncdFormula();
 134     void testStatisticalFormulaLogInv();
 135     void testMathFormulaArcCot();
 136     void testMathFormulaCosh();
 137     void testStatisticalFormulaCritBinom();
 138     void testMathFormulaArcCotHyp();
 139     void testMathFormulaArcSin();
 140     void testMathFormulaArcSinHyp();
 141     void testMathFormulaArcTan();
 142     void testMathFormulaArcTanHyp();
 143     void testMathFormulaBitAnd();
 144     void testStatisticalFormulaForecast();
 145     void testStatisticalFormulaLogNormDist();
 146     void testStatisticalFormulaGammaDist();
 147     void testMathFormulaLN();
 148     void testMathFormulaRound();
 149     void testMathFormulaCot();
 150     void testMathFormulaCoth();
 151     void testFinacialNPER1Formula();
 152
 153     CPPUNIT_TEST_SUITE(ScOpenCLTest1);
 154     CPPUNIT_TEST(testSystematic);
 155     CPPUNIT_TEST(testSharedFormulaXLS);
 156     CPPUNIT_TEST(testFinacialFormula);
 157     CPPUNIT_TEST(testStatisticalFormulaFisher);
 158     CPPUNIT_TEST(testStatisticalFormulaFisherInv);
 159     CPPUNIT_TEST(testStatisticalFormulaGamma);
 160     CPPUNIT_TEST(testFinacialFvscheduleFormula);
 161 // this test has intermittent failures on OSX
 162 #if !defined MACOSX
 163     CPPUNIT_TEST(testFinacialIRRFormula);
 164 #endif
 165     CPPUNIT_TEST(testFinacialMIRRFormula);
 166     CPPUNIT_TEST(testFinacialRateFormula);
 167     CPPUNIT_TEST(testCompilerHorizontal);
 168     CPPUNIT_TEST(testCompilerNested);
 169     CPPUNIT_TEST(testFinacialSLNFormula);
 170     CPPUNIT_TEST(testFinancialAccrintmFormula);
 171     CPPUNIT_TEST(testStatisticalFormulaGammaLn);
 172     CPPUNIT_TEST(testStatisticalFormulaGauss);
 173     CPPUNIT_TEST(testStatisticalFormulaGeoMean);
 174     CPPUNIT_TEST(testStatisticalFormulaHarMean);
 175     CPPUNIT_TEST(testFinancialCoupdaybsFormula);
 176     CPPUNIT_TEST(testFinacialDollardeFormula);
 177     CPPUNIT_TEST(testCompilerString);
 178     CPPUNIT_TEST(testCompilerInEq);
 179     CPPUNIT_TEST(testCompilerPrecision);
 180     CPPUNIT_TEST(testFinacialDollarfrFormula);
 181     CPPUNIT_TEST(testFinacialSYDFormula);
 182     CPPUNIT_TEST(testStatisticalFormulaCorrel);
 183     CPPUNIT_TEST(testFinancialCoupdaysFormula);
 184     CPPUNIT_TEST(testFinancialCoupdaysncFormula);
 185     CPPUNIT_TEST(testFinacialDISCFormula);
 186     CPPUNIT_TEST(testFinacialINTRATEFormula);
 187     CPPUNIT_TEST(testMathFormulaCos);
 188     CPPUNIT_TEST(testStatisticalFormulaNegbinomdist);
 189     CPPUNIT_TEST(testStatisticalFormulaRsq);
 190     CPPUNIT_TEST(testStatisticalFormulaPearson);
 191     CPPUNIT_TEST(testMathFormulaCsc);
 192     CPPUNIT_TEST(testFinacialPriceMatFormula);
 193     CPPUNIT_TEST(testFinacialXNPVFormula);
 194     CPPUNIT_TEST(testFinacialFormulaReceived);
 195     CPPUNIT_TEST(testFinancialFormulaCumipmt);
 196     CPPUNIT_TEST(testFinancialFormulaCumprinc);
 197     CPPUNIT_TEST(testFinacialRRIFormula);
 198     CPPUNIT_TEST(testFinacialEFFECT_ADDFormula);
 199     CPPUNIT_TEST(testFinacialNominalFormula);
 200     CPPUNIT_TEST(testFinacialTBILLEQFormula);
 201     CPPUNIT_TEST(testFinacialTBILLPRICEFormula);
 202     CPPUNIT_TEST(testFinacialTBILLYIELDFormula);
 203     CPPUNIT_TEST(testFinacialYIELDFormula);
 204     CPPUNIT_TEST(testFinacialYIELDDISCFormula);
 205     CPPUNIT_TEST(testFinacialYIELDMATFormula);
 206     CPPUNIT_TEST(testFinacialPPMTFormula);
 207     CPPUNIT_TEST(testFinacialPMTFormula);
 208     CPPUNIT_TEST(testFinancialISPMTFormula);
 209     CPPUNIT_TEST(testFinacialPriceFormula);
 210     CPPUNIT_TEST(testFinancialDurationFormula);
 211     CPPUNIT_TEST(testFinancialCoupnumFormula);
 212     CPPUNIT_TEST(testMathFormulaSinh);
 213     CPPUNIT_TEST(testMathFormulaAbs);
 214     CPPUNIT_TEST(testFinacialPVFormula);
 215     CPPUNIT_TEST(testMathFormulaSin);
 216     CPPUNIT_TEST(testMathFormulaTan);
 217     CPPUNIT_TEST(testMathFormulaTanH);
 218     CPPUNIT_TEST(testStatisticalFormulaStandard);
 219     CPPUNIT_TEST(testStatisticalFormulaWeibull);
 220     CPPUNIT_TEST(testStatisticalFormulaMedian);
 221     CPPUNIT_TEST(testFinancialDuration_ADDFormula);
 222     CPPUNIT_TEST(testFinancialAmordegrcFormula);
 223     CPPUNIT_TEST(testFinancialAmorlincFormula);
 224     CPPUNIT_TEST(testFinancialDDBFormula);
 225     CPPUNIT_TEST(testFinancialFVFormula);
 226     CPPUNIT_TEST(testFinancialMDurationFormula);
 227     CPPUNIT_TEST(testMathSumIfsFormula);
 228     CPPUNIT_TEST(testFinancialVDBFormula);
 229     CPPUNIT_TEST(testStatisticalFormulaKurt);
 230     CPPUNIT_TEST(testFinacialNPERFormula);
 231     CPPUNIT_TEST(testStatisticalFormulaNormdist);
 232     CPPUNIT_TEST(testMathFormulaArcCos);
 233     CPPUNIT_TEST(testMathFormulaSqrt);
 234     CPPUNIT_TEST(testMathFormulaArcCosHyp);
 235     CPPUNIT_TEST(testFinacialNPVFormula);
 236     CPPUNIT_TEST(testStatisticalFormulaNormsdist);
 237     CPPUNIT_TEST(testStatisticalFormulaNorminv);
 238     CPPUNIT_TEST(testStatisticalFormulaNormsinv);
 239     CPPUNIT_TEST(testStatisticalFormulaPermut);
 240     CPPUNIT_TEST(testStatisticalFormulaPermutation);
 241     CPPUNIT_TEST(testStatisticalFormulaPhi);
 242     CPPUNIT_TEST(testFinancialIPMTFormula);
 243     CPPUNIT_TEST(testStatisticalFormulaConfidence);
 244     CPPUNIT_TEST(testStatisticalFormulaIntercept);
 245     CPPUNIT_TEST(testFinacialODDLPRICEFormula);
 246     CPPUNIT_TEST(testFinacialOddlyieldFormula);
 247     CPPUNIT_TEST(testFinacialPriceDiscFormula);
 248     CPPUNIT_TEST(testFinancialDBFormula);
 249     CPPUNIT_TEST(testFinancialCouppcdFormula);
 250     CPPUNIT_TEST(testFinancialCoupncdFormula);
 251     CPPUNIT_TEST(testFinancialAccrintFormula);
 252     CPPUNIT_TEST(testStatisticalFormulaLogInv);
 253     CPPUNIT_TEST(testMathFormulaArcCot);
 254     CPPUNIT_TEST(testMathFormulaCosh);
 255     CPPUNIT_TEST(testStatisticalFormulaCritBinom);
 256     CPPUNIT_TEST(testMathFormulaArcCotHyp);
 257     CPPUNIT_TEST(testMathFormulaArcSin);
 258     CPPUNIT_TEST(testMathFormulaArcSinHyp);
 259     CPPUNIT_TEST(testMathFormulaArcTan);
 260     CPPUNIT_TEST(testMathFormulaArcTanHyp);
 261     CPPUNIT_TEST(testMathFormulaBitAnd);
 262     CPPUNIT_TEST(testStatisticalFormulaForecast);
 263     CPPUNIT_TEST(testStatisticalFormulaLogNormDist);
 264     CPPUNIT_TEST(testStatisticalFormulaGammaDist);
 265     CPPUNIT_TEST(testMathFormulaLN);
 266     CPPUNIT_TEST(testMathFormulaRound);
 267     CPPUNIT_TEST(testMathFormulaCot);
 268     CPPUNIT_TEST(testMathFormulaCoth);
 269     CPPUNIT_TEST(testFinacialNPER1Formula);
 270     CPPUNIT_TEST_SUITE_END();
 271
 272 private:
 273     void initTestEnv(std::u16string_view fileName);
 274
 275     ScDocument* getScDoc2();
 276 };
 277
 278 void ScOpenCLTest1::initTestEnv(std::u16string_view fileName)
 279 {
 280     // Some documents contain macros, disable them, otherwise
 281     // the "Error, BASIC runtime error." dialog is prompted
 282     // and it crashes in tearDown
 283     std::vector<beans::PropertyValue> args;
 284     beans::PropertyValue aMacroValue;
 285     aMacroValue.Name = "MacroExecutionMode";
 286     aMacroValue.Handle = -1;
 287     aMacroValue.Value <<= document::MacroExecMode::NEVER_EXECUTE;
 288     aMacroValue.State = beans::PropertyState_DIRECT_VALUE;
 289     args.push_back(aMacroValue);
 290
 291     disableOpenCL();
 292     CPPUNIT_ASSERT(!ScCalcConfig::isOpenCLEnabled());
 293
 294     // Open the document with OpenCL disabled
 295     mxComponent = mxDesktop->loadComponentFromURL(
 296         createFileURL(fileName), "_default", 0, comphelper::containerToSequence(args));
 297
 298     enableOpenCL();
 299     CPPUNIT_ASSERT(ScCalcConfig::isOpenCLEnabled());
 300
 301     // it's not possible to open the same document twice, thus, create a temp file
 302     createTempCopy(fileName);
 303
 304     // Open the document with OpenCL enabled
 305     mxComponent2 = mxDesktop->loadComponentFromURL(
 306         maTempFile.GetURL(), "_default", 0, comphelper::containerToSequence(args));
 307
 308     // Check there are 2 documents
 309     uno::Reference<frame::XFrames> xFrames = mxDesktop->getFrames();
 310     CPPUNIT_ASSERT_EQUAL(static_cast<sal_Int32>(2), xFrames->getCount());
 311 }
 312
 313 ScDocument* ScOpenCLTest1::getScDoc2()
 314 {
 315     ScModelObj* pModelObj = dynamic_cast<ScModelObj*>(mxComponent2.get());
 316     CPPUNIT_ASSERT(pModelObj);
 317     return pModelObj->GetDocument();
 318 }
 319
 320 void ScOpenCLTest1::enableOpenCL()
 321 {
 322     sc::FormulaGroupInterpreter::enableOpenCL_UnitTestsOnly();
 323 }
 324
 325 void ScOpenCLTest1::disableOpenCL()
 326 {
 327     sc::FormulaGroupInterpreter::disableOpenCL_UnitTestsOnly();
 328 }
 329
 330 void ScOpenCLTest1::testCompilerHorizontal()
 331 {
 332     initTestEnv(u"ods/opencl/compiler/horizontal.ods");
 333     ScDocument* pDoc = getScDoc();
 334     ScDocument* pDocRes = getScDoc2();
 335     pDoc->CalcAll();
 336
 337     // Check the results of formula cells in the shared formula range.
 338     for (SCROW i = 1; i < 5; ++i)
 339     {
 340         double fLibre = pDoc->GetValue(ScAddress(12, i, 0));
 341         double fExcel = pDocRes->GetValue(ScAddress(12, i, 0));
 342         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 343         fLibre = pDoc->GetValue(ScAddress(13, i, 0));
 344         fExcel = pDocRes->GetValue(ScAddress(13, i, 0));
 345         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 346         fLibre = pDoc->GetValue(ScAddress(14, i, 0));
 347         fExcel = pDocRes->GetValue(ScAddress(14, i, 0));
 348         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 349     }
 350 }
 351
 352 void ScOpenCLTest1::testCompilerNested()
 353 {
 354     initTestEnv(u"ods/opencl/compiler/nested.ods");
 355     ScDocument* pDoc = getScDoc();
 356     ScDocument* pDocRes = getScDoc2();
 357     pDoc->CalcAll();
 358
 359     // Check the results of formula cells in the shared formula range.
 360     for (SCROW i = 1; i < 5; ++i)
 361     {
 362         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 363         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 364         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 365     }
 366 }
 367
 368 void ScOpenCLTest1::testCompilerString()
 369 {
 370     initTestEnv(u"ods/opencl/compiler/string.ods");
 371     ScDocument* pDoc = getScDoc();
 372     ScDocument* pDocRes = getScDoc2();
 373     pDoc->CalcAll();
 374
 375     // Check the results of formula cells in the shared formula range.
 376     for (SCROW i = 1; i < 5; ++i)
 377     {
 378         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 379         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 380         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 381
 382         fLibre = pDoc->GetValue(ScAddress(3, i, 0));
 383         fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
 384         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 385     }
 386 }
 387
 388 void ScOpenCLTest1::testCompilerInEq()
 389 {
 390     initTestEnv(u"ods/opencl/compiler/ineq.ods");
 391     ScDocument* pDoc = getScDoc();
 392     ScDocument* pDocRes = getScDoc2();
 393     pDoc->CalcAll();
 394
 395     // Check the results of formula cells in the shared formula range.
 396     for (SCROW i = 1; i < 7; ++i)
 397     {
 398         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
 399         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
 400         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 401     }
 402 }
 403
 404 void ScOpenCLTest1::testCompilerPrecision()
 405 {
 406     initTestEnv(u"ods/opencl/compiler/precision.ods");
 407     ScDocument* pDoc = getScDoc();
 408     ScDocument* pDocRes = getScDoc2();
 409     // Check that values with and without opencl are the same/similar enough.
 410     enableOpenCL();
 411     pDoc->CalcAll();
 412     disableOpenCL();
 413     pDoc->CalcAll();
 414
 415     // Check the results of formula cells in the shared formula range.
 416     for (SCROW i = 1; i < 3; ++i)
 417     {
 418         double fOpenCL = pDoc->GetValue(ScAddress(0, i, 0));
 419         double fNormal = pDocRes->GetValue(ScAddress(0, i, 0));
 420         CPPUNIT_ASSERT_DOUBLES_EQUAL(fNormal, fOpenCL, fabs(1e-14*fOpenCL));
 421     }
 422 }
 423
 424 #if 0
 425 void ScOpenCLTest1::testSharedFormulaXLSStockHistory()
 426 {
 427     initTestEnv(u"xls/stock-history.xls");
 428     ScDocument* pDoc = getScDoc();
 429     ScDocument* pDocRes = getScDoc2();
 430     ScDocShell* pDocSh = getScDocShell();
 431     pDocSh->DoHardRecalc();
 432
 433     // Check the results of formula cells in the shared formula range.
 434     for (SCROW i = 33; i < 44; ++i)
 435     {   // Cell H34:H44 in S&P 500 (tab 1)
 436         double fLibre = pDoc->GetValue(ScAddress(7, i, 1));
 437         double fExcel = pDocRes->GetValue(ScAddress(7, i, 1));
 438         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, 0.0001*fExcel);
 439     }
 440
 441     for (SCROW i = 33; i < 44; ++i)
 442     {   // Cell J34:J44 in S&P 500 (tab 1)
 443         double fLibre = pDoc->GetValue(ScAddress(9, i, 1));
 444         double fExcel = pDocRes->GetValue(ScAddress(9, i, 1));
 445         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, 0.0001*fExcel);
 446     }
 447 }
 448
 449 void ScOpenCLTest1::testSharedFormulaXLSGroundWater()
 450 {
 451     initTestEnv(u"xls/ground-water-daily.xls");
 452     ScDocument* pDoc = getScDoc();
 453     ScDocument* pDocRes = getScDoc2();
 454     ScDocShell* pDocSh = getScDocShell();
 455     pDocSh->DoHardRecalc();
 456
 457     // Check the results of formula cells in the shared formula range.
 458     for (SCROW i = 5; i <= 77; ++i)
 459     {
 460         double fLibre = pDoc->GetValue(ScAddress(11,i,1));
 461         double fExcel = pDocRes->GetValue(ScAddress(11,i,1));
 462         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 463     }
 464
 465
 466 }
 467 #endif
 468
 469 void ScOpenCLTest1::testSystematic()
 470 {
 471     initTestEnv(u"xls/systematic.xls");
 472
 473     ScDocument* pDoc = getScDoc();
 474     pDoc->CalcAll();
 475
 476     int nAVertBegin(0), nAVertEnd(0), nBVertBegin(0), nBVertEnd(0);
 477     int nAHorEnd(0), nBHorEnd(0);
 478
 479     int nRow, nCol;
 480     for (nRow = 0; nRow < 1000; ++nRow)
 481     {
 482         if (pDoc->GetString(ScAddress(0, nRow, 0)) == "a")
 483         {
 484             nAVertBegin = nRow + 1;
 485
 486             for (nCol = 0; nCol < 1000; ++nCol)
 487             {
 488                 if (pDoc->GetString(ScAddress(nCol, nRow, 0)) != "a")
 489                 {
 490                     nAHorEnd = nCol;
 491                     break;
 492                 }
 493             }
 494             break;
 495         }
 496     }
 497     for (; nRow < 1000; ++nRow)
 498     {
 499         if (pDoc->GetString(ScAddress(0, nRow, 0)) != "a")
 500         {
 501             nAVertEnd = nRow;
 502             break;
 503         }
 504     }
 505
 506     for (; nRow < 1000; ++nRow)
 507     {
 508         if (pDoc->GetString(ScAddress(0, nRow, 0)) == "b")
 509         {
 510             nBVertBegin = nRow + 1;
 511
 512             for (nCol = 0; nCol < 1000; ++nCol)
 513             {
 514                 if (pDoc->GetString(ScAddress(nCol, nRow, 0)) != "b")
 515                 {
 516                     nBHorEnd = nCol;
 517                     break;
 518                 }
 519             }
 520             break;
 521         }
 522     }
 523     for (; nRow < 1000; ++nRow)
 524     {
 525         if (pDoc->GetString(ScAddress(0, nRow, 0)) != "b")
 526         {
 527             nBVertEnd = nRow;
 528             break;
 529         }
 530     }
 531
 532     CPPUNIT_ASSERT(nAVertBegin != 0);
 533     CPPUNIT_ASSERT(nBVertBegin != 0);
 534     CPPUNIT_ASSERT(nAVertEnd > nAVertBegin + 100);
 535     CPPUNIT_ASSERT(nBVertEnd > nBVertBegin + 100);
 536     CPPUNIT_ASSERT_EQUAL(nAVertEnd-nAVertBegin, nBVertEnd-nBVertBegin);
 537     CPPUNIT_ASSERT(nAHorEnd > 10);
 538     CPPUNIT_ASSERT(nBHorEnd > 10);
 539     CPPUNIT_ASSERT_EQUAL(nAHorEnd, nBHorEnd);
 540
 541     for (SCROW i = nAVertBegin; i < nAVertEnd; ++i)
 542     {
 543         for (int j = 1; j < nAHorEnd; ++j)
 544         {
 545             double fLibre = pDoc->GetValue(ScAddress(j, i, 0));
 546             double fExcel = pDoc->GetValue(ScAddress(j, nBVertBegin + (i - nAVertBegin), 0));
 547
 548             const OString sFailedMessage =
 549                 OStringChar(static_cast<char>('A'+j)) +
 550                 OString::number(i+1) +
 551                 "!=" +
 552                 OStringChar(static_cast<char>('A'+j)) +
 553                 OString::number(nBVertBegin+(i-nAVertBegin)+1);
 554             CPPUNIT_ASSERT_DOUBLES_EQUAL_MESSAGE(sFailedMessage.getStr(), fExcel, fLibre, 1e-10);
 555         }
 556     }
 557 }
 558
 559
 560 void ScOpenCLTest1::testSharedFormulaXLS()
 561 {
 562     initTestEnv(u"xls/sum_ex.xls");
 563     ScDocument* pDoc = getScDoc();
 564     ScDocument* pDocRes = getScDoc2();
 565     pDoc->CalcAll();
 566
 567     // Check the results of formula cells in the shared formula range.
 568     for (SCROW i = 0; i < 5; ++i)
 569     {
 570         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 571         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 572         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 573     }
 574
 575     for (SCROW i = 6; i < 14; ++i)
 576     {
 577         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 578         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 579         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 580     }
 581
 582     for (SCROW i = 15; i < 18; ++i)
 583     {
 584         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 585         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 586         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 587     }
 588
 589     for (SCROW i = 19; i < 22; ++i)
 590     {
 591         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 592         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 593         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 594     }
 595
 596     for (SCROW i = 23; i < 25; ++i)
 597     {
 598         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 599         //double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 600         // There seems to be a bug in LibreOffice beta
 601         ASSERT_DOUBLES_EQUAL(/*fExcel*/ 60.0, fLibre);
 602     }
 603
 604     for (SCROW i = 25; i < 27; ++i)
 605     {
 606         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 607         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 608         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 609     }
 610
 611     for (SCROW i = 28; i < 35; ++i)
 612     {
 613         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 614         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 615         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 616     }
 617
 618     // workaround for a Calc beta bug
 619     ASSERT_DOUBLES_EQUAL(25.0, pDoc->GetValue(ScAddress(2, 35, 0)));
 620     ASSERT_DOUBLES_EQUAL(24.0, pDoc->GetValue(ScAddress(2, 36, 0)));
 621
 622     for (SCROW i = 38; i < 43; ++i)
 623     {
 624         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 625         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 626         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 627     }
 628
 629     for (SCROW i = 5; i < 10; ++i)
 630     {
 631         double fLibre = pDoc->GetValue(ScAddress(5, i, 1));
 632         double fExcel = pDocRes->GetValue(ScAddress(5, i, 1));
 633         ASSERT_DOUBLES_EQUAL(fExcel, fLibre);
 634     }
 635
 636     for (SCROW i = 5; i < 10; ++i)
 637     {
 638         for (SCCOL j = 6; j < 11; ++j)
 639         {
 640             double fLibre = pDoc->GetValue(ScAddress(j, i, 1));
 641             double fExcel = pDocRes->GetValue(ScAddress(j, i, 1));
 642             CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre,
 643                 fabs(fExcel*0.0001));
 644         }
 645     }
 646 }
 647
 648 void ScOpenCLTest1::testMathFormulaCos()
 649 {
 650     initTestEnv(u"xls/opencl/math/cos.xls");
 651     ScDocument* pDoc = getScDoc();
 652     ScDocument* pDocRes = getScDoc2();
 653     pDoc->CalcAll();
 654
 655     for (SCROW i = 0; i <= 15; ++i)
 656     {
 657         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 658         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 659         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 660     }
 661 }
 662
 663 void ScOpenCLTest1::testMathFormulaSinh()
 664 {
 665     initTestEnv(u"xls/opencl/math/sinh.xls");
 666     ScDocument* pDoc = getScDoc();
 667     ScDocument* pDocRes = getScDoc2();
 668     ScDocShell* pDocSh = getScDocShell();
 669     pDocSh->DoHardRecalc();
 670
 671     for (SCROW i = 0; i <= 15; ++i)
 672     {
 673         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 674         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 675         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 676     }
 677 }
 678
 679 void ScOpenCLTest1::testFinacialFormula()
 680 {
 681     initTestEnv(u"xls/opencl/financial/general.xls");
 682     ScDocument* pDoc = getScDoc();
 683     ScDocument* pDocRes = getScDoc2();
 684     pDoc->CalcAll();
 685
 686     // Check the results of formula cells in the shared formula range.
 687     for (SCROW i = 1; i <= 10; ++i)
 688     {
 689         double fLibre = pDoc->GetValue(ScAddress(2,i,0));
 690         double fExcel = pDocRes->GetValue(ScAddress(2,i,0));
 691         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 692     }
 693
 694     for (SCROW i = 1; i <= 10; ++i)
 695     {
 696         double fLibre = pDoc->GetValue(ScAddress(6,i,1));
 697         double fExcel = pDocRes->GetValue(ScAddress(6,i,1));
 698         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 699     }
 700
 701     for (SCROW i = 1; i <= 10; ++i)
 702     {
 703         double fLibre = pDoc->GetValue(ScAddress(2,i,2));
 704         double fExcel = pDocRes->GetValue(ScAddress(2,i,2));
 705         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 706     }
 707
 708     for (SCROW i = 1; i <= 10; ++i)
 709     {
 710         double fLibre = pDoc->GetValue(ScAddress(6,i,3));
 711         double fExcel = pDocRes->GetValue(ScAddress(6,i,3));
 712         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 713     }
 714
 715     for (SCROW i = 0; i <= 9; ++i)
 716     {
 717         double fLibre = pDoc->GetValue(ScAddress(3,i,4));
 718         double fExcel = pDocRes->GetValue(ScAddress(3,i,4));
 719         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 720     }
 721
 722     for (SCROW i = 0; i <= 9; ++i)
 723     {
 724         double fLibre = pDoc->GetValue(ScAddress(3,i,5));
 725         double fExcel = pDocRes->GetValue(ScAddress(3,i,5));
 726         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 727     }
 728
 729     for (SCROW i = 0; i < 10; ++i)
 730     {
 731         double fLibre = pDoc->GetValue(ScAddress(5,i,6));
 732         double fExcel = pDocRes->GetValue(ScAddress(5,i,6));
 733         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 734     }
 735
 736     for (SCROW i = 1; i <= 9; ++i)
 737     {
 738         double fLibre = pDoc->GetValue(ScAddress(3,i,7));
 739         double fExcel = pDocRes->GetValue(ScAddress(3,i,7));
 740         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 741     }
 742
 743     for (SCROW i = 1; i <= 10; ++i)
 744     {
 745         double fLibre = pDoc->GetValue(ScAddress(3,i,8));
 746         double fExcel = pDocRes->GetValue(ScAddress(3,i,8));
 747         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 748     }
 749
 750     for (SCROW i = 1; i <= 9; ++i)
 751     {
 752         double fLibre = pDoc->GetValue(ScAddress(3,i,9));
 753         double fExcel = pDocRes->GetValue(ScAddress(3,i,9));
 754         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 755     }
 756
 757     for (SCROW i = 1; i <= 10; ++i)
 758     {
 759         double fLibre = pDoc->GetValue(ScAddress(2,i,10));
 760         double fExcel = pDocRes->GetValue(ScAddress(2,i,10));
 761         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 762     }
 763
 764     for (SCROW i = 1; i <= 10; ++i)
 765     {
 766         double fLibre = pDoc->GetValue(ScAddress(7,i,11));
 767         double fExcel = pDocRes->GetValue(ScAddress(7,i,11));
 768         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 769     }
 770
 771     for (SCROW i = 1; i <= 10; ++i)
 772     {
 773         double fLibre = pDoc->GetValue(ScAddress(5,i,12));
 774         double fExcel = pDocRes->GetValue(ScAddress(5,i,12));
 775         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 776     }
 777
 778     for (SCROW i = 0; i <= 12; ++i)
 779     {
 780         double fLibre = pDoc->GetValue(ScAddress(6,i,13));
 781         double fExcel = pDocRes->GetValue(ScAddress(6,i,13));
 782         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 783     }
 784
 785     for (SCROW i = 1; i <= 10; ++i)
 786     {
 787         double fLibre = pDoc->GetValue(ScAddress(3,i,14));
 788         double fExcel = pDocRes->GetValue(ScAddress(3,i,14));
 789         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 790     }
 791
 792     for (SCROW i = 1; i <= 10; ++i)
 793     {
 794         double fLibre = pDoc->GetValue(ScAddress(6,i,15));
 795         double fExcel = pDocRes->GetValue(ScAddress(6,i,15));
 796         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 797     }
 798
 799     for (SCROW i = 1; i <= 10; ++i)
 800     {
 801         double fLibre = pDoc->GetValue(ScAddress(6,i,16));
 802         double fExcel = pDocRes->GetValue(ScAddress(6,i,16));
 803         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 804     }
 805
 806     for (SCROW i = 1; i <= 5; ++i)
 807     {
 808         double fLibre = pDoc->GetValue(ScAddress(6,i,17));
 809         double fExcel = pDocRes->GetValue(ScAddress(6,i,17));
 810         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 811     }
 812
 813     for (SCROW i = 0; i <= 10; ++i)
 814     {
 815         double fLibre = pDoc->GetValue(ScAddress(3,i,18));
 816         double fExcel = pDocRes->GetValue(ScAddress(3,i,18));
 817         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 818     }
 819
 820     for (SCROW i = 0; i <= 18; ++i)
 821     {
 822         double fLibre = pDoc->GetValue(ScAddress(3,i,19));
 823         double fExcel = pDocRes->GetValue(ScAddress(3,i,19));
 824         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 825     }
 826 }
 827
 828 void ScOpenCLTest1::testStatisticalFormulaCorrel()
 829 {
 830     initTestEnv(u"ods/opencl/statistical/Correl.ods");
 831     ScDocument* pDoc = getScDoc();
 832     ScDocument* pDocRes = getScDoc2();
 833     pDoc->CalcAll();
 834
 835     // Check the results of formula cells in the shared formula range.
 836     for (SCROW i = 1; i <= 20; ++i)
 837     {
 838         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
 839         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
 840         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 841     }
 842 }
 843 void ScOpenCLTest1::testStatisticalFormulaFisher()
 844 {
 845     initTestEnv(u"xls/opencl/statistical/Fisher.xls");
 846     ScDocument* pDoc = getScDoc();
 847     ScDocument* pDocRes = getScDoc2();
 848     pDoc->CalcAll();
 849
 850     // Check the results of formula cells in the shared formula range.
 851     for (SCROW i = 1; i <= 19; ++i)
 852     {
 853         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 854         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 855         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 856     }
 857 }
 858
 859 void ScOpenCLTest1::testStatisticalFormulaFisherInv()
 860 {
 861     initTestEnv(u"xls/opencl/statistical/FisherInv.xls");
 862     ScDocument* pDoc = getScDoc();
 863     ScDocument* pDocRes = getScDoc2();
 864     pDoc->CalcAll();
 865
 866     // Check the results of formula cells in the shared formula range.
 867     for (SCROW i = 1; i <= 19; ++i)
 868     {
 869         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 870         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 871         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 872     }
 873 }
 874
 875 void ScOpenCLTest1::testStatisticalFormulaGamma()
 876 {
 877     initTestEnv(u"xls/opencl/statistical/Gamma.xls");
 878     ScDocument* pDoc = getScDoc();
 879     ScDocument* pDocRes = getScDoc2();
 880     pDoc->CalcAll();
 881
 882     // Check the results of formula cells in the shared formula range.
 883     for (SCROW i = 1; i <= 19; ++i)
 884     {
 885         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 886         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 887         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 888     }
 889 }
 890
 891 void ScOpenCLTest1::testFinacialFvscheduleFormula()
 892 {
 893     initTestEnv(u"xls/opencl/financial/Fvschedule.xls");
 894     ScDocument* pDoc = getScDoc();
 895     ScDocument* pDocRes = getScDoc2();
 896     pDoc->CalcAll();
 897
 898     for (SCROW i = 0; i <= 9; ++i)
 899     {
 900         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 901         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 902         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 903     }
 904 }
 905
 906 void ScOpenCLTest1::testMathFormulaAbs()
 907 {
 908     initTestEnv(u"ods/opencl/math/Abs.ods");
 909     ScDocument* pDoc = getScDoc();
 910     ScDocument* pDocRes = getScDoc2();
 911     pDoc->CalcAll();
 912
 913     // Verify ABS Function
 914     for (SCROW i = 1; i <= 1000; ++i)
 915     {
 916         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 917         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 918         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 919     }
 920 }
 921
 922 void ScOpenCLTest1::testFinacialSYDFormula()
 923 {
 924     initTestEnv(u"xls/opencl/financial/SYD.xls");
 925     ScDocument* pDoc = getScDoc();
 926     ScDocument* pDocRes = getScDoc2();
 927     pDoc->CalcAll();
 928
 929     for (SCROW i = 0; i <= 9; ++i)
 930     {
 931         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
 932         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
 933         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 934     }
 935 }
 936
 937 // this test has intermittent failures on OSX
 938 #if !defined MACOSX
 939 void ScOpenCLTest1::testFinacialIRRFormula()
 940 {
 941     initTestEnv(u"xls/opencl/financial/IRR.xls");
 942     ScDocument* pDoc = getScDoc();
 943     ScDocument* pDocRes = getScDoc2();
 944     pDoc->CalcAll();
 945
 946     for (SCROW i = 0; i <= 6; ++i)
 947     {
 948         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
 949         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
 950         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 951     }
 952 }
 953 #endif
 954
 955 void ScOpenCLTest1::testStatisticalFormulaGammaLn()
 956 {
 957     initTestEnv(u"xls/opencl/statistical/GammaLn.xls");
 958     ScDocument* pDoc = getScDoc();
 959     ScDocument* pDocRes = getScDoc2();
 960     pDoc->CalcAll();
 961
 962     // Check the results of formula cells in the shared formula range.
 963     for (SCROW i = 1; i <= 19; ++i)
 964     {
 965         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 966         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 967         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 968     }
 969 }
 970
 971 void ScOpenCLTest1::testStatisticalFormulaGauss()
 972 {
 973     initTestEnv(u"xls/opencl/statistical/Gauss.xls");
 974     ScDocument* pDoc = getScDoc();
 975     ScDocument* pDocRes = getScDoc2();
 976     pDoc->CalcAll();
 977
 978     // Check the results of formula cells in the shared formula range.
 979     for (SCROW i = 1; i <= 19; ++i)
 980     {
 981         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 982         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 983         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
 984     }
 985 }
 986
 987 void ScOpenCLTest1::testStatisticalFormulaGeoMean()
 988 {
 989     initTestEnv(u"xls/opencl/statistical/GeoMean.xls");
 990     ScDocument* pDoc = getScDoc();
 991     ScDocument* pDocRes = getScDoc2();
 992     pDoc->CalcAll();
 993
 994     // Check the results of formula cells in the shared formula range.
 995     for (SCROW i = 1; i <= 19; ++i)
 996     {
 997         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
 998         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
 999         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1000     }
1001 }
1002
1003 void ScOpenCLTest1::testStatisticalFormulaHarMean()
1004 {
1005     initTestEnv(u"xls/opencl/statistical/HarMean.xls");
1006     ScDocument* pDoc = getScDoc();
1007     ScDocument* pDocRes = getScDoc2();
1008     pDoc->CalcAll();
1009
1010     // Check the results of formula cells in the shared formula range.
1011     for (SCROW i = 1; i <= 19; ++i)
1012     {
1013         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1014         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1015         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1016     }
1017 }
1018
1019 void ScOpenCLTest1::testFinacialSLNFormula()
1020 {
1021     initTestEnv(u"xls/opencl/financial/SLN.xls");
1022     ScDocument* pDoc = getScDoc();
1023     ScDocument* pDocRes = getScDoc2();
1024     pDoc->CalcAll();
1025
1026     for (SCROW i = 0; i <= 9; ++i)
1027     {
1028         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1029         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1030         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1031     }
1032 }
1033
1034 void ScOpenCLTest1::testFinacialMIRRFormula()
1035 {
1036     initTestEnv(u"xls/opencl/financial/MIRR.xls");
1037     ScDocument* pDoc = getScDoc();
1038     ScDocument* pDocRes = getScDoc2();
1039     pDoc->CalcAll();
1040
1041     for (SCROW i = 0; i <= 6; ++i)
1042     {
1043         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1044         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1045         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1046     }
1047 }
1048
1049 void ScOpenCLTest1::testFinancialCoupdaybsFormula()
1050 {
1051     initTestEnv(u"xls/opencl/financial/Coupdaybs.xls");
1052     ScDocument* pDoc = getScDoc();
1053     ScDocument* pDocRes = getScDoc2();
1054     pDoc->CalcAll();
1055
1056     for (SCROW i = 1; i <=10; ++i)
1057     {
1058         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
1059         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
1060         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1061     }
1062 }
1063
1064 void ScOpenCLTest1::testFinacialDollardeFormula()
1065 {
1066     initTestEnv(u"xls/opencl/financial/Dollarde.xls");
1067     ScDocument* pDoc = getScDoc();
1068     ScDocument* pDocRes = getScDoc2();
1069     pDoc->CalcAll();
1070
1071     for (SCROW i = 0; i <= 9; ++i)
1072     {
1073         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
1074         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
1075         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1076     }
1077 }
1078
1079 void ScOpenCLTest1::testFinancialCoupdaysFormula()
1080 {
1081     initTestEnv(u"xls/opencl/financial/Coupdays.xls");
1082     ScDocument* pDoc = getScDoc();
1083     ScDocument* pDocRes = getScDoc2();
1084     pDoc->CalcAll();
1085
1086     for (SCROW i = 1; i <=10; ++i)
1087     {
1088         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
1089         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
1090         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1091     }
1092
1093 }
1094
1095 void ScOpenCLTest1::testFinancialCoupdaysncFormula()
1096 {
1097     initTestEnv(u"xls/opencl/financial/Coupdaysnc.xls");
1098     ScDocument* pDoc = getScDoc();
1099     ScDocument* pDocRes = getScDoc2();
1100     pDoc->CalcAll();
1101
1102     for (SCROW i = 1; i <=10; ++i)
1103     {
1104         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
1105         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
1106         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1107     }
1108 }
1109 void ScOpenCLTest1::testFinacialRateFormula()
1110 {
1111     initTestEnv(u"xls/opencl/financial/RATE.xls");
1112     ScDocument* pDoc = getScDoc();
1113     ScDocument* pDocRes = getScDoc2();
1114     pDoc->CalcAll();
1115
1116     for (SCROW i = 1; i <= 5; ++i)
1117     {
1118         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
1119         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
1120         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1121     }
1122 }
1123
1124 void ScOpenCLTest1::testFinancialAccrintmFormula()
1125 {
1126     initTestEnv(u"xls/opencl/financial/Accrintm.xls");
1127     ScDocument* pDoc = getScDoc();
1128     ScDocument* pDocRes = getScDoc2();
1129     pDoc->CalcAll();
1130
1131     for (SCROW i = 1; i <= 10; ++i)
1132     {
1133         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1134         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1135         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1136     }
1137 }
1138
1139 void ScOpenCLTest1::testFinancialCoupnumFormula()
1140 {
1141     initTestEnv(u"xls/opencl/financial/Coupnum.xls");
1142     ScDocument* pDoc = getScDoc();
1143     ScDocument* pDocRes = getScDoc2();
1144     pDoc->CalcAll();
1145
1146     for (SCROW i = 0; i <= 9; ++i)
1147     {
1148         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
1149         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
1150         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1151     }
1152 }
1153
1154 void ScOpenCLTest1::testStatisticalFormulaNegbinomdist()
1155 {
1156     initTestEnv(u"xls/opencl/statistical/Negbinomdist.xls");
1157     ScDocument* pDoc = getScDoc();
1158     ScDocument* pDocRes = getScDoc2();
1159     pDoc->CalcAll();
1160
1161     // Check the results of formula cells in the shared formula range.
1162     for (SCROW i = 0; i <= 9; ++i)
1163     {
1164         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
1165         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
1166         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1167     }
1168 }
1169
1170 void ScOpenCLTest1::testMathFormulaSin()
1171 {
1172     initTestEnv(u"xls/opencl/math/sin.xls");
1173     ScDocument* pDoc = getScDoc();
1174     ScDocument* pDocRes = getScDoc2();
1175     pDoc->CalcAll();
1176
1177     for (SCROW i = 0; i <= 15; ++i)
1178     {
1179         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1180         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1181         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1182     }
1183 }
1184
1185 void ScOpenCLTest1::testMathFormulaTan()
1186 {
1187     initTestEnv(u"xls/opencl/math/tan.xls");
1188     ScDocument* pDoc = getScDoc();
1189     ScDocument* pDocRes = getScDoc2();
1190     pDoc->CalcAll();
1191
1192     for (SCROW i = 0; i <= 15; ++i)
1193     {
1194         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1195         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1196         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1197     }
1198 }
1199
1200 void ScOpenCLTest1::testMathFormulaTanH()
1201 {
1202     initTestEnv(u"xls/opencl/math/tanh.xls");
1203     ScDocument* pDoc = getScDoc();
1204     ScDocument* pDocRes = getScDoc2();
1205     pDoc->CalcAll();
1206
1207     for (SCROW i = 0; i <= 15; ++i)
1208     {
1209         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1210         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1211         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1212     }
1213 }
1214
1215 void ScOpenCLTest1::testMathFormulaSqrt()
1216 {
1217     initTestEnv(u"xls/opencl/math/sqrt.xls");
1218     ScDocument* pDoc = getScDoc();
1219     ScDocument* pDocRes = getScDoc2();
1220     pDoc->CalcAll();
1221
1222     for (SCROW i = 0; i <= 15; ++i)
1223     {
1224         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1225         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1226         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1227     }
1228 }
1229
1230 void ScOpenCLTest1::testFinacialPriceFormula()
1231 {
1232     initTestEnv(u"xls/opencl/financial/Price.xls");
1233     ScDocument* pDoc = getScDoc();
1234     ScDocument* pDocRes = getScDoc2();
1235     pDoc->CalcAll();
1236
1237     for (SCROW i = 1; i <= 10; ++i)
1238     {
1239         double fLibre = pDoc->GetValue(ScAddress(7, i, 0));
1240         double fExcel = pDocRes->GetValue(ScAddress(7, i, 0));
1241         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1242     }
1243 }
1244
1245 void ScOpenCLTest1::testFinacialDollarfrFormula()
1246 {
1247     initTestEnv(u"xls/opencl/financial/Dollarfr.xls");
1248     ScDocument* pDoc = getScDoc();
1249     ScDocument* pDocRes = getScDoc2();
1250     pDoc->CalcAll();
1251
1252     for (SCROW i = 0; i <= 9; ++i)
1253     {
1254         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
1255         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
1256         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1257     }
1258 }
1259
1260 void ScOpenCLTest1::testFinacialPriceDiscFormula()
1261 {
1262     initTestEnv(u"xls/opencl/financial/PriceDisc.xls");
1263     ScDocument* pDoc = getScDoc();
1264     ScDocument* pDocRes = getScDoc2();
1265     pDoc->CalcAll();
1266
1267     for (SCROW i = 0; i <= 10; ++i)
1268     {
1269         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1270         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1271         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1272     }
1273 }
1274
1275 void ScOpenCLTest1::testFinacialODDLPRICEFormula()
1276 {
1277     initTestEnv(u"xls/opencl/financial/Oddlprice.xls");
1278     ScDocument* pDoc = getScDoc();
1279     ScDocument* pDocRes = getScDoc2();
1280     pDoc->CalcAll();
1281
1282     for (SCROW i = 1; i <= 10; ++i)
1283     {
1284         double fLibre = pDoc->GetValue(ScAddress(8, i, 0));
1285         double fExcel = pDocRes->GetValue(ScAddress(8, i, 0));
1286         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1287     }
1288 }
1289
1290 void ScOpenCLTest1:: testFinacialOddlyieldFormula()
1291 {
1292     initTestEnv(u"xls/opencl/financial/Oddlyield.xls");
1293     ScDocument* pDoc = getScDoc();
1294     ScDocument* pDocRes = getScDoc2();
1295     pDoc->CalcAll();
1296
1297     for (SCROW i = 0; i <= 6; ++i)
1298     {
1299         double fLibre = pDoc->GetValue(ScAddress(8, i, 0));
1300         double fExcel = pDocRes->GetValue(ScAddress(8, i, 0));
1301         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1302     }
1303 }
1304
1305 void ScOpenCLTest1::testFinacialDISCFormula()
1306 {
1307     initTestEnv(u"xls/opencl/financial/DISC.xls");
1308     ScDocument* pDoc = getScDoc();
1309     ScDocument* pDocRes = getScDoc2();
1310     pDoc->CalcAll();
1311
1312     for (SCROW i = 0; i <= 9; ++i)
1313     {
1314         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1315         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1316         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1317     }
1318 }
1319
1320 void ScOpenCLTest1:: testFinacialPVFormula()
1321 {
1322     initTestEnv(u"xls/opencl/financial/PV.xls");
1323     ScDocument* pDoc = getScDoc();
1324     ScDocument* pDocRes = getScDoc2();
1325     pDoc->CalcAll();
1326
1327     for (SCROW i = 0; i <= 9; ++i)
1328     {
1329         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1330         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1331         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1332     }
1333 }
1334
1335 void ScOpenCLTest1::testFinacialINTRATEFormula()
1336 {
1337     initTestEnv(u"xls/opencl/financial/INTRATE.xls");
1338     ScDocument* pDoc = getScDoc();
1339     ScDocument* pDocRes = getScDoc2();
1340     pDoc->CalcAll();
1341
1342     for (SCROW i = 0; i <= 9; ++i)
1343     {
1344         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1345         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1346         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1347     }
1348 }
1349
1350 void ScOpenCLTest1::testStatisticalFormulaStandard()
1351 {
1352     initTestEnv(u"xls/opencl/statistical/Standard.xls");
1353     ScDocument* pDoc = getScDoc();
1354     ScDocument* pDocRes = getScDoc2();
1355     pDoc->CalcAll();
1356
1357     // Check the results of formula cells in the shared formula range.
1358     for (SCROW i = 1; i <= 20; ++i)
1359     {
1360         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
1361         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
1362         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1363     }
1364 }
1365
1366 void ScOpenCLTest1::testStatisticalFormulaWeibull()
1367 {
1368     initTestEnv(u"xls/opencl/statistical/Weibull.xls");
1369     ScDocument* pDoc = getScDoc();
1370     ScDocument* pDocRes = getScDoc2();
1371     pDoc->CalcAll();
1372
1373     // Check the results of formula cells in the shared formula range.
1374     for (SCROW i = 1; i <= 20; ++i)
1375     {
1376         double fLibre = pDoc->GetValue(ScAddress(4,i,0));
1377         double fExcel = pDocRes->GetValue(ScAddress(4,i,0));
1378         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre,
1379             fExcel == 0?1e-4:fabs(1e-4*fExcel));
1380     }
1381 }
1382
1383 void ScOpenCLTest1::testStatisticalFormulaPearson()
1384 {
1385     initTestEnv(u"xls/opencl/statistical/Pearson.xls");
1386     ScDocument* pDoc = getScDoc();
1387     ScDocument* pDocRes = getScDoc2();
1388     pDoc->CalcAll();
1389
1390     // Check the results of formula cells in the shared formula range.
1391     for (SCROW i = 1; i <= 9; ++i)
1392     {
1393         double fLibre = pDoc->GetValue(ScAddress(2,i,0));
1394         double fExcel = pDocRes->GetValue(ScAddress(2,i,0));
1395         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1396     }
1397 }
1398
1399 void ScOpenCLTest1::testStatisticalFormulaRsq()
1400 {
1401     initTestEnv(u"xls/opencl/statistical/Rsq.xls");
1402     ScDocument* pDoc = getScDoc();
1403     ScDocument* pDocRes = getScDoc2();
1404     pDoc->CalcAll();
1405
1406     // Check the results of formula cells in the shared formula range.
1407     for (SCROW i = 1; i <= 9; ++i)
1408     {
1409         double fLibre = pDoc->GetValue(ScAddress(2,i,0));
1410         double fExcel = pDocRes->GetValue(ScAddress(2,i,0));
1411         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1412     }
1413 }
1414
1415 void ScOpenCLTest1::testMathFormulaCosh()
1416 {
1417     initTestEnv(u"xls/opencl/math/cosh.xls");
1418     ScDocument* pDoc = getScDoc();
1419     ScDocument* pDocRes = getScDoc2();
1420     pDoc->CalcAll();
1421
1422     for (SCROW i = 0; i <= 15; ++i)
1423     {
1424         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1425         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1426         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1427     }
1428 }
1429
1430 void ScOpenCLTest1::testStatisticalFormulaKurt()
1431 {
1432     initTestEnv(u"xls/opencl/statistical/Kurt.xls");
1433     ScDocument* pDoc = getScDoc();
1434     ScDocument* pDocRes = getScDoc2();
1435     pDoc->CalcAll();
1436
1437     // Check the results of formula cells in the shared formula range.
1438     for (SCROW i = 1; i <= 19; ++i)
1439     {
1440         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1441         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1442         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1443     }
1444 }
1445
1446 void ScOpenCLTest1::testMathFormulaCot()
1447 {
1448     initTestEnv(u"ods/opencl/math/cot.ods");
1449     ScDocument* pDoc = getScDoc();
1450     ScDocument* pDocRes = getScDoc2();
1451     pDoc->CalcAll();
1452
1453     for (SCROW i = 0; i <= 15; ++i)
1454     {
1455         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1456         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1457         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1458     }
1459 }
1460
1461 void ScOpenCLTest1::testMathFormulaCsc()
1462 {
1463     initTestEnv(u"ods/opencl/math/csc.ods");
1464     ScDocument* pDoc = getScDoc();
1465     ScDocument* pDocRes = getScDoc2();
1466     pDoc->CalcAll();
1467
1468     for (SCROW i = 0; i <= 15; ++i)
1469     {
1470         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1471         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1472         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1473     }
1474 }
1475
1476 void ScOpenCLTest1::testMathFormulaCoth()
1477 {
1478     initTestEnv(u"ods/opencl/math/coth.ods");
1479     ScDocument* pDoc = getScDoc();
1480     ScDocument* pDocRes = getScDoc2();
1481     pDoc->CalcAll();
1482
1483     for (SCROW i = 0; i <= 15; ++i)
1484     {
1485         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1486         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1487         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1488     }
1489 }
1490
1491 void ScOpenCLTest1::testFinacialXNPVFormula()
1492 {
1493     initTestEnv(u"xls/opencl/financial/XNPV.xls");
1494     ScDocument* pDoc = getScDoc();
1495     ScDocument* pDocRes = getScDoc2();
1496     pDoc->CalcAll();
1497
1498     for (SCROW i = 1; i <= 9; ++i)
1499     {
1500         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1501         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1502         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1503     }
1504
1505     for (SCROW i = 16; i <= 26; ++i)
1506     {
1507         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1508         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1509         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1510     }
1511 }
1512
1513 void ScOpenCLTest1::testStatisticalFormulaIntercept()
1514 {
1515     initTestEnv(u"xls/opencl/statistical/Intercept.xls");
1516     ScDocument* pDoc = getScDoc();
1517     ScDocument* pDocRes = getScDoc2();
1518     pDoc->CalcAll();
1519
1520     for (SCROW i = 1; i <= 19; ++i)
1521     {
1522         double fLibre = pDoc->GetValue(ScAddress(2,i,0));
1523         double fExcel = pDocRes->GetValue(ScAddress(2,i,0));
1524         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1525     }
1526 }
1527
1528 void ScOpenCLTest1::testFinancialAmordegrcFormula()
1529 {
1530     initTestEnv(u"xls/opencl/financial/Amordegrc.xls");
1531     ScDocument* pDoc = getScDoc();
1532     ScDocument* pDocRes = getScDoc2();
1533     pDoc->CalcAll();
1534
1535     for (SCROW i = 0; i <= 9; ++i)
1536     {
1537         double fLibre = pDoc->GetValue(ScAddress(7, i, 0));
1538         double fExcel = pDocRes->GetValue(ScAddress(7, i, 0));
1539         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1540     }
1541 }
1542
1543 void ScOpenCLTest1:: testFinancialISPMTFormula()
1544 {
1545     initTestEnv(u"xls/opencl/financial/ISPMT.xls");
1546     ScDocument* pDoc = getScDoc();
1547     ScDocument* pDocRes = getScDoc2();
1548     pDoc->CalcAll();
1549
1550     for (SCROW i = 0; i <= 9; ++i)
1551     {
1552         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
1553         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
1554         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1555     }
1556 }
1557
1558 void ScOpenCLTest1::testStatisticalFormulaMedian()
1559 {
1560     initTestEnv(u"xls/opencl/statistical/Median.xls");
1561     ScDocument* pDoc = getScDoc();
1562     ScDocument* pDocRes = getScDoc2();
1563     pDoc->CalcAll();
1564
1565     // Check the results of formula cells in the shared formula range.
1566     for (SCROW i = 1; i <= 9; ++i)
1567     {
1568         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1569         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1570         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1571     }
1572 }
1573
1574 void ScOpenCLTest1::testStatisticalFormulaNormdist()
1575 {
1576     initTestEnv(u"xls/opencl/statistical/Normdist.xls");
1577     ScDocument* pDoc = getScDoc();
1578     ScDocument* pDocRes = getScDoc2();
1579     pDoc->CalcAll();
1580
1581     // Check the results of formula cells in the shared formula range.
1582     for (SCROW i = 1; i <= 19; ++i)
1583     {
1584         double fLibre = pDoc->GetValue(ScAddress(4,i,0));
1585         double fExcel = pDocRes->GetValue(ScAddress(4,i,0));
1586         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1587     }
1588 }
1589
1590 void ScOpenCLTest1::testStatisticalFormulaNormsdist()
1591 {
1592     initTestEnv(u"xls/opencl/statistical/Normsdist.xls");
1593     ScDocument* pDoc = getScDoc();
1594     ScDocument* pDocRes = getScDoc2();
1595     pDoc->CalcAll();
1596
1597     // Check the results of formula cells in the shared formula range.
1598     for (SCROW i = 1; i <= 19; ++i)
1599     {
1600         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1601         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1602         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1603     }
1604 }
1605
1606 void ScOpenCLTest1::testStatisticalFormulaPermut()
1607 {
1608     initTestEnv(u"xls/opencl/statistical/Permut.xls");
1609     ScDocument* pDoc = getScDoc();
1610     ScDocument* pDocRes = getScDoc2();
1611     pDoc->CalcAll();
1612
1613     // Check the results of formula cells in the shared formula range.
1614     for (SCROW i = 1; i <= 19; ++i)
1615     {
1616         double fLibre = pDoc->GetValue(ScAddress(2,i,0));
1617         double fExcel = pDocRes->GetValue(ScAddress(2,i,0));
1618         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1619     }
1620 }
1621
1622 void ScOpenCLTest1::testStatisticalFormulaPermutation()
1623 {
1624     initTestEnv(u"xls/opencl/statistical/Permutation.xls");
1625     ScDocument* pDoc = getScDoc();
1626     ScDocument* pDocRes = getScDoc2();
1627     pDoc->CalcAll();
1628
1629     // Check the results of formula cells in the shared formula range.
1630     for (SCROW i = 1; i <= 9; ++i)
1631     {
1632         double fLibre = pDoc->GetValue(ScAddress(2,i,0));
1633         double fExcel = pDocRes->GetValue(ScAddress(2,i,0));
1634         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1635     }
1636 }
1637
1638 void ScOpenCLTest1::testStatisticalFormulaPhi()
1639 {
1640     initTestEnv(u"xls/opencl/statistical/Phi.xls");
1641     ScDocument* pDoc = getScDoc();
1642     ScDocument* pDocRes = getScDoc2();
1643     pDoc->CalcAll();
1644
1645     // Check the results of formula cells in the shared formula range.
1646     for (SCROW i = 1; i <= 19; ++i)
1647     {
1648         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1649         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1650         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1651     }
1652 }
1653
1654 void ScOpenCLTest1::testStatisticalFormulaLogInv()
1655 {
1656     initTestEnv(u"xls/opencl/statistical/LogInv.xls");
1657     ScDocument* pDoc = getScDoc();
1658     ScDocument* pDocRes = getScDoc2();
1659     pDoc->CalcAll();
1660
1661     // Check the results of formula cells in the shared formula range.
1662     for (SCROW i = 1; i <= 19; ++i)
1663     {
1664         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
1665         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
1666         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1667     }
1668 }
1669
1670 void ScOpenCLTest1::testFinacialNPERFormula()
1671 {
1672     initTestEnv(u"xls/opencl/financial/NPER.xls");
1673     ScDocument* pDoc = getScDoc();
1674     ScDocument* pDocRes = getScDoc2();
1675     pDoc->CalcAll();
1676
1677     for (SCROW i = 0; i <= 10; ++i)
1678     {
1679         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1680         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1681         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1682     }
1683 }
1684
1685 void ScOpenCLTest1::testStatisticalFormulaForecast()
1686 {
1687     initTestEnv(u"xls/opencl/statistical/Forecast.xls");
1688     ScDocument* pDoc = getScDoc();
1689     ScDocument* pDocRes = getScDoc2();
1690     pDoc->CalcAll();
1691
1692     // Check the results of formula cells in the shared formula range.
1693     for (SCROW i = 1; i <= 19; ++i)
1694     {
1695         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
1696         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
1697         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1698     }
1699 }
1700
1701 void ScOpenCLTest1::testFinancialAmorlincFormula()
1702 {
1703     initTestEnv(u"xls/opencl/financial/Amorlinc.xls");
1704     ScDocument* pDoc = getScDoc();
1705     ScDocument* pDocRes = getScDoc2();
1706     pDoc->CalcAll();
1707
1708     for (SCROW i = 0; i <= 9; ++i)
1709     {
1710         double fLibre = pDoc->GetValue(ScAddress(7, i, 0));
1711         double fExcel = pDocRes->GetValue(ScAddress(7, i, 0));
1712         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1713     }
1714 }
1715
1716 void ScOpenCLTest1::testFinancialDDBFormula()
1717 {
1718     initTestEnv(u"xls/opencl/financial/ddb.xls");
1719     ScDocument* pDoc = getScDoc();
1720     ScDocument* pDocRes = getScDoc2();
1721     pDoc->CalcAll();
1722
1723     for (SCROW i = 0; i <= 9; ++i)
1724     {
1725         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1726         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1727         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1728     }
1729 }
1730 void ScOpenCLTest1::testFinacialPriceMatFormula()
1731 {
1732     initTestEnv(u"xls/opencl/financial/PriceMat.xls");
1733     ScDocument* pDoc = getScDoc();
1734     ScDocument* pDocRes = getScDoc2();
1735     pDoc->CalcAll();
1736
1737     for (SCROW i = 0; i <= 9; ++i)
1738     {
1739         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
1740         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
1741         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1742     }
1743 }
1744 void ScOpenCLTest1::testFinacialFormulaReceived()
1745 {
1746     initTestEnv(u"xls/opencl/financial/Received.xls");
1747     ScDocument* pDoc = getScDoc();
1748     ScDocument* pDocRes = getScDoc2();
1749     pDoc->CalcAll();
1750
1751     // Check the results of formula cells in the shared formula range.
1752     for (SCROW i = 0; i < 10; ++i)
1753     {
1754         double fLibre = pDoc->GetValue(ScAddress(5,i,0));
1755         double fExcel = pDocRes->GetValue(ScAddress(5,i,0));
1756         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1757     }
1758 }
1759 void ScOpenCLTest1::testFinancialFormulaCumipmt()
1760 {
1761     initTestEnv(u"xls/opencl/financial/Cumipmt.xls");
1762     ScDocument* pDoc = getScDoc();
1763     ScDocument* pDocRes = getScDoc2();
1764     pDoc->CalcAll();
1765
1766     // Check the results of formula cells in the shared formula range.
1767     for (SCROW i = 1; i <= 10; ++i)
1768     {
1769         double fLibre = pDoc->GetValue(ScAddress(6,i,0));
1770         double fExcel = pDocRes->GetValue(ScAddress(6,i,0));
1771         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1772     }
1773 }
1774 void ScOpenCLTest1::testFinancialFormulaCumprinc()
1775 {
1776     initTestEnv(u"xls/opencl/financial/Cumprinc.xls");
1777     ScDocument* pDoc = getScDoc();
1778     ScDocument* pDocRes = getScDoc2();
1779     pDoc->CalcAll();
1780
1781     // Check the results of formula cells in the shared formula range.
1782     for (SCROW i = 1; i <= 10; ++i)
1783     {
1784         double fLibre = pDoc->GetValue(ScAddress(6,i,0));
1785         double fExcel = pDocRes->GetValue(ScAddress(6,i,0));
1786         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1787     }
1788 }
1789 void ScOpenCLTest1::testFinacialRRIFormula()
1790 {
1791     initTestEnv(u"xls/opencl/financial/RRI.xls");
1792     ScDocument* pDoc = getScDoc();
1793     ScDocument* pDocRes = getScDoc2();
1794     pDoc->CalcAll();
1795
1796     for (SCROW i = 0; i <= 9; ++i)
1797     {
1798         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1799         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1800         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1801     }
1802 }
1803 void ScOpenCLTest1::testFinacialEFFECT_ADDFormula()
1804 {
1805     initTestEnv(u"xls/opencl/financial/EFFECT_ADD.xls");
1806     ScDocument* pDoc = getScDoc();
1807     ScDocument* pDocRes = getScDoc2();
1808     pDoc->CalcAll();
1809
1810     for (SCROW i = 0; i <= 9; ++i)
1811     {
1812         double fLibre = pDoc->GetValue(ScAddress(2, i, 0));
1813         double fExcel = pDocRes->GetValue(ScAddress(2, i, 0));
1814         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1815     }
1816 }
1817 void ScOpenCLTest1::testFinacialNominalFormula()
1818 {
1819     initTestEnv(u"xls/opencl/financial/Nominal.xls");
1820     ScDocument* pDoc = getScDoc();
1821     ScDocument* pDocRes = getScDoc2();
1822     pDoc->CalcAll();
1823
1824
1825     // Check the results of formula cells in the shared formula range.
1826     for (SCROW i = 1; i <= 19; ++i)
1827     {
1828         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
1829         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
1830         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1831     }
1832 }
1833 void ScOpenCLTest1::testFinacialTBILLEQFormula()
1834 {
1835     initTestEnv(u"xls/opencl/financial/TBILLEQ.xls");
1836     ScDocument* pDoc = getScDoc();
1837     ScDocument* pDocRes = getScDoc2();
1838     pDoc->CalcAll();
1839
1840     for (SCROW i = 0; i <= 6; ++i)
1841     {
1842         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1843         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1844         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1845     }
1846 }
1847 void ScOpenCLTest1::testFinacialTBILLPRICEFormula()
1848 {
1849     initTestEnv(u"xls/opencl/financial/TBILLPRICE.xls");
1850     ScDocument* pDoc = getScDoc();
1851     ScDocument* pDocRes = getScDoc2();
1852     pDoc->CalcAll();
1853
1854     for (SCROW i = 0; i <= 6; ++i)
1855     {
1856         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1857         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1858         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1859     }
1860 }
1861 void ScOpenCLTest1::testFinacialTBILLYIELDFormula()
1862 {
1863     initTestEnv(u"xls/opencl/financial/TBILLYIELD.xls");
1864     ScDocument* pDoc = getScDoc();
1865     ScDocument* pDocRes = getScDoc2();
1866     pDoc->CalcAll();
1867
1868     for (SCROW i = 0; i <= 6; ++i)
1869     {
1870         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1871         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1872         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1873     }
1874 }
1875 void ScOpenCLTest1::testFinacialYIELDFormula()
1876 {
1877     initTestEnv(u"xls/opencl/financial/YIELD.xls");
1878     ScDocument* pDoc = getScDoc();
1879     ScDocument* pDocRes = getScDoc2();
1880     pDoc->CalcAll();
1881
1882     for (SCROW i = 0; i <= 6; ++i)
1883     {
1884         double fLibre = pDoc->GetValue(ScAddress(7, i, 0));
1885         double fExcel = pDocRes->GetValue(ScAddress(7, i, 0));
1886         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1887     }
1888 }
1889
1890 void ScOpenCLTest1::testFinacialYIELDDISCFormula()
1891 {
1892     initTestEnv(u"xls/opencl/financial/YIELDDISC.xls");
1893     ScDocument* pDoc = getScDoc();
1894     ScDocument* pDocRes = getScDoc2();
1895     pDoc->CalcAll();
1896
1897     for (SCROW i = 0; i <= 6; ++i)
1898     {
1899         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1900         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1901         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1902     }
1903 }
1904
1905 void ScOpenCLTest1::testFinacialYIELDMATFormula()
1906 {
1907     initTestEnv(u"xls/opencl/financial/YIELDMAT.xls");
1908     ScDocument* pDoc = getScDoc();
1909     ScDocument* pDocRes = getScDoc2();
1910     pDoc->CalcAll();
1911
1912     for (SCROW i = 0; i <= 6; ++i)
1913     {
1914         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
1915         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
1916         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1917     }
1918 }
1919 void ScOpenCLTest1:: testFinacialPMTFormula()
1920 {
1921     initTestEnv(u"xls/opencl/financial/PMT.xls");
1922     ScDocument* pDoc = getScDoc();
1923     ScDocument* pDocRes = getScDoc2();
1924     pDoc->CalcAll();
1925
1926     for (SCROW i = 0; i <= 6; ++i)
1927     {
1928         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
1929         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
1930         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1931     }
1932 }
1933
1934 void ScOpenCLTest1:: testFinancialDurationFormula()
1935 {
1936     initTestEnv(u"ods/opencl/financial/Duration.ods");
1937     ScDocument* pDoc = getScDoc();
1938     ScDocument* pDocRes = getScDoc2();
1939     pDoc->CalcAll();
1940
1941     for (SCROW i = 0; i <= 9; ++i)
1942     {
1943         double fLibre = pDoc->GetValue(ScAddress(3, i, 0));
1944         double fExcel = pDocRes->GetValue(ScAddress(3, i, 0));
1945         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1946     }
1947 }
1948
1949 void ScOpenCLTest1::testStatisticalFormulaLogNormDist()
1950 {
1951     initTestEnv(u"ods/opencl/statistical/LogNormDist.ods");
1952     ScDocument* pDoc = getScDoc();
1953     ScDocument* pDocRes = getScDoc2();
1954     pDoc->CalcAll();
1955
1956     // Check the results of formula cells in the shared formula range.
1957     for (SCROW i = 1; i <= 19; ++i)
1958     {
1959         double fLibre = pDoc->GetValue(ScAddress(4,i,0));
1960         double fExcel = pDocRes->GetValue(ScAddress(4,i,0));
1961         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1962     }
1963 }
1964
1965 void ScOpenCLTest1::testMathFormulaArcCos()
1966 {
1967     initTestEnv(u"ods/opencl/math/ArcCos.ods");
1968     ScDocument* pDoc = getScDoc();
1969     ScDocument* pDocRes = getScDoc2();
1970     pDoc->CalcAll();
1971
1972     // Verify ACos Function
1973     for (SCROW i = 1; i <= 1000; ++i)
1974     {
1975         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
1976         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
1977         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1978     }
1979 }
1980
1981 void ScOpenCLTest1:: testFinacialPPMTFormula()
1982 {
1983     initTestEnv(u"xls/opencl/financial/PPMT.xls");
1984     ScDocument* pDoc = getScDoc();
1985     ScDocument* pDocRes = getScDoc2();
1986     pDoc->CalcAll();
1987
1988     for (SCROW i = 0; i <= 6; ++i)
1989     {
1990         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
1991         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
1992         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
1993     }
1994 }
1995
1996 void ScOpenCLTest1:: testFinacialNPVFormula()
1997 {
1998     initTestEnv(u"xls/opencl/financial/NPV.xls");
1999     ScDocument* pDoc = getScDoc();
2000     ScDocument* pDocRes = getScDoc2();
2001     pDoc->CalcAll();
2002
2003     for (SCROW i = 0; i <= 6; ++i)
2004     {
2005         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
2006         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
2007         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2008     }
2009 }
2010
2011 void ScOpenCLTest1:: testFinancialDuration_ADDFormula()
2012 {
2013     initTestEnv(u"xls/opencl/financial/Duration_ADD.xls");
2014     ScDocument* pDoc = getScDoc();
2015     ScDocument* pDocRes = getScDoc2();
2016     pDoc->CalcAll();
2017
2018     for (SCROW i = 0; i <= 9; ++i)
2019     {
2020         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
2021         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
2022         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2023     }
2024 }
2025
2026 void ScOpenCLTest1::testStatisticalFormulaNorminv()
2027 {
2028     initTestEnv(u"xls/opencl/statistical/Norminv.xls");
2029     ScDocument* pDoc = getScDoc();
2030     ScDocument* pDocRes = getScDoc2();
2031     pDoc->CalcAll();
2032
2033     // Check the results of formula cells in the shared formula range.
2034     for (SCROW i = 1; i <= 19; ++i)
2035     {
2036         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
2037         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
2038         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2039     }
2040 }
2041
2042 void ScOpenCLTest1::testStatisticalFormulaNormsinv()
2043 {
2044     initTestEnv(u"xls/opencl/statistical/Normsinv.xls");
2045     ScDocument* pDoc = getScDoc();
2046     ScDocument* pDocRes = getScDoc2();
2047     pDoc->CalcAll();
2048
2049     // Check the results of formula cells in the shared formula range.
2050     for (SCROW i = 1; i <= 19; ++i)
2051     {
2052         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2053         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2054         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2055     }
2056 }
2057
2058 void ScOpenCLTest1::testMathFormulaArcCosHyp()
2059 {
2060     initTestEnv(u"ods/opencl/math/ArcCosHyp.ods");
2061     ScDocument* pDoc = getScDoc();
2062     ScDocument* pDocRes = getScDoc2();
2063     pDoc->CalcAll();
2064
2065     // Verify ACosH Function
2066     for (SCROW i = 1; i <= 1000; ++i)
2067     {
2068         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2069         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2070         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2071     }
2072 }
2073
2074 void ScOpenCLTest1:: testFinancialMDurationFormula()
2075 {
2076     initTestEnv(u"xls/opencl/financial/MDuration.xls");
2077     ScDocument* pDoc = getScDoc();
2078     ScDocument* pDocRes = getScDoc2();
2079     pDoc->CalcAll();
2080
2081     for (SCROW i = 0; i <= 9; ++i)
2082     {
2083         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
2084         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
2085         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2086     }
2087 }
2088
2089 void ScOpenCLTest1::testMathFormulaArcCot()
2090 {
2091     initTestEnv(u"ods/opencl/math/ArcCot.ods");
2092     ScDocument* pDoc = getScDoc();
2093     ScDocument* pDocRes = getScDoc2();
2094     pDoc->CalcAll();
2095
2096     // Verify ACot Function
2097     for (SCROW i = 1; i <= 1000; ++i)
2098     {
2099         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2100         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2101         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2102     }
2103 }
2104
2105 void ScOpenCLTest1:: testFinancialFVFormula()
2106 {
2107     initTestEnv(u"xls/opencl/financial/FV.xls");
2108     ScDocument* pDoc = getScDoc();
2109     ScDocument* pDocRes = getScDoc2();
2110     pDoc->CalcAll();
2111
2112     for (SCROW i = 0; i <= 9; ++i)
2113     {
2114         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
2115         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
2116         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2117     }
2118 }
2119
2120 void ScOpenCLTest1::testFinancialDBFormula()
2121 {
2122     initTestEnv(u"xls/opencl/financial/db.xls");
2123     ScDocument* pDoc = getScDoc();
2124     ScDocument* pDocRes = getScDoc2();
2125     pDoc->CalcAll();
2126
2127     for (SCROW i = 0; i <= 9; ++i)
2128     {
2129         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
2130         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
2131         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2132     }
2133 }
2134
2135 void ScOpenCLTest1::testFinancialCouppcdFormula()
2136 {
2137     initTestEnv(u"xls/opencl/financial/Couppcd.xls");
2138     ScDocument* pDoc = getScDoc();
2139     ScDocument* pDocRes = getScDoc2();
2140     pDoc->CalcAll();
2141
2142     for (SCROW i = 0; i <= 9; ++i)
2143     {
2144         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
2145         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
2146         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2147     }
2148 }
2149
2150 void ScOpenCLTest1::testMathSumIfsFormula()
2151 {
2152     initTestEnv(u"xls/opencl/math/sumifs.xls");
2153     ScDocument* pDoc = getScDoc();
2154     ScDocument* pDocRes = getScDoc2();
2155     ScDocShell* pDocSh = getScDocShell();
2156     pDocSh->DoHardRecalc();
2157
2158     for (SCROW i = 2; i <= 11; ++i)
2159     {
2160         double fLibre = pDoc->GetValue(ScAddress(5,i,0));
2161         double fExcel = pDocRes->GetValue(ScAddress(5,i,0));
2162         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2163     }
2164     for (SCROW i = 2; i <= 11; ++i)
2165     {
2166         double fLibre = pDoc->GetValue(ScAddress(6,i,0));
2167         double fExcel = pDocRes->GetValue(ScAddress(6,i,0));
2168         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2169     }
2170     for (SCROW i = 2; i <= 11; ++i)
2171     {
2172         double fLibre = pDoc->GetValue(ScAddress(7,i,0));
2173         double fExcel = pDocRes->GetValue(ScAddress(7,i,0));
2174         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2175     }
2176     for (SCROW i = 2; i <= 11; ++i)
2177     {
2178         double fLibre = pDoc->GetValue(ScAddress(8,i,0));
2179         double fExcel = pDocRes->GetValue(ScAddress(8,i,0));
2180         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2181     }
2182 }
2183
2184 void ScOpenCLTest1::testMathFormulaArcCotHyp()
2185 {
2186     initTestEnv(u"ods/opencl/math/ArcCotHyp.ods");
2187     ScDocument* pDoc = getScDoc();
2188     ScDocument* pDocRes = getScDoc2();
2189     pDoc->CalcAll();
2190
2191     // Verify ACotH Function
2192     for (SCROW i = 1; i <= 1000; ++i)
2193     {
2194         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2195         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2196         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2197     }
2198 }
2199
2200 void ScOpenCLTest1::testMathFormulaArcSin()
2201 {
2202     initTestEnv(u"ods/opencl/math/ArcSin.ods");
2203     ScDocument* pDoc = getScDoc();
2204     ScDocument* pDocRes = getScDoc2();
2205     pDoc->CalcAll();
2206
2207     // Verify ACotH Function
2208     for (SCROW i = 1; i <= 1000; ++i)
2209     {
2210         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2211         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2212         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2213     }
2214 }
2215
2216 void ScOpenCLTest1:: testFinancialVDBFormula()
2217 {
2218     initTestEnv(u"xls/opencl/financial/VDB.xls");
2219     ScDocument* pDoc = getScDoc();
2220     ScDocument* pDocRes = getScDoc2();
2221     pDoc->CalcAll();
2222
2223     for (SCROW i = 0; i <= 10; ++i)
2224     {
2225         double fLibre = pDoc->GetValue(ScAddress(7, i, 0));
2226         double fExcel = pDocRes->GetValue(ScAddress(7, i, 0));
2227         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2228     }
2229     for (SCROW i = 15; i <= 26; ++i)
2230     {
2231         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
2232         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
2233         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2234     }
2235     for (SCROW i = 30; i <= 41; ++i)
2236     {
2237         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
2238         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
2239         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2240     }
2241 }
2242
2243 void ScOpenCLTest1:: testFinancialIPMTFormula()
2244 {
2245     initTestEnv(u"xls/opencl/financial/IPMT.xls");
2246     ScDocument* pDoc = getScDoc();
2247     ScDocument* pDocRes = getScDoc2();
2248     pDoc->CalcAll();
2249
2250     for (SCROW i = 0; i <= 9; ++i)
2251     {
2252         double fLibre = pDoc->GetValue(ScAddress(6, i, 0));
2253         double fExcel = pDocRes->GetValue(ScAddress(6, i, 0));
2254         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2255     }
2256 }
2257
2258 void ScOpenCLTest1::testStatisticalFormulaConfidence()
2259 {
2260     initTestEnv(u"xls/opencl/statistical/Confidence.xls");
2261     ScDocument* pDoc = getScDoc();
2262     ScDocument* pDocRes = getScDoc2();
2263     pDoc->CalcAll();
2264
2265     // Check the results of formula cells in the shared formula range.
2266     for (SCROW i = 0; i <= 9; ++i)
2267     {
2268         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
2269         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
2270         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2271     }
2272 }
2273
2274 void ScOpenCLTest1::testFinancialCoupncdFormula()
2275 {
2276     initTestEnv(u"xls/opencl/financial/Coupncd.xls");
2277     ScDocument* pDoc = getScDoc();
2278     ScDocument* pDocRes = getScDoc2();
2279     pDoc->CalcAll();
2280
2281     for (SCROW i = 0; i <= 9; ++i)
2282     {
2283         double fLibre = pDoc->GetValue(ScAddress(4, i, 0));
2284         double fExcel = pDocRes->GetValue(ScAddress(4, i, 0));
2285         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2286     }
2287 }
2288
2289 void ScOpenCLTest1::testFinancialAccrintFormula()
2290 {
2291     initTestEnv(u"xls/opencl/financial/Accrint.xls");
2292     ScDocument* pDoc = getScDoc();
2293     ScDocument* pDocRes = getScDoc2();
2294     pDoc->CalcAll();
2295
2296     for (SCROW i = 0; i <= 9; ++i)
2297     {
2298         double fLibre = pDoc->GetValue(ScAddress(7, i, 0));
2299         double fExcel = pDocRes->GetValue(ScAddress(7, i, 0));
2300         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2301     }
2302 }
2303
2304 void ScOpenCLTest1::testStatisticalFormulaCritBinom()
2305 {
2306     initTestEnv(u"xls/opencl/statistical/CritBinom.xls");
2307     ScDocument* pDoc = getScDoc();
2308     ScDocument* pDocRes = getScDoc2();
2309     pDoc->CalcAll();
2310
2311     // Check the results of formula cells in the shared formula range.
2312     for (SCROW i = 0; i <= 9; ++i)
2313     {
2314         double fLibre = pDoc->GetValue(ScAddress(3,i,0));
2315         double fExcel = pDocRes->GetValue(ScAddress(3,i,0));
2316         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2317     }
2318 }
2319
2320 void ScOpenCLTest1::testMathFormulaArcSinHyp()
2321 {
2322     initTestEnv(u"ods/opencl/math/ArcSinHyp.ods");
2323     ScDocument* pDoc = getScDoc();
2324     ScDocument* pDocRes = getScDoc2();
2325     pDoc->CalcAll();
2326
2327     // Verify ASinH Function
2328     for (SCROW i = 1; i <= 1000; ++i)
2329     {
2330         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2331         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2332         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2333     }
2334 }
2335
2336 void ScOpenCLTest1::testMathFormulaArcTan()
2337 {
2338     initTestEnv(u"ods/opencl/math/ArcTan.ods");
2339     ScDocument* pDoc = getScDoc();
2340     ScDocument* pDocRes = getScDoc2();
2341     pDoc->CalcAll();
2342
2343     // Verify ATan Function
2344     for (SCROW i = 1; i <= 1000; ++i)
2345     {
2346         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2347         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2348         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2349     }
2350 }
2351
2352 void ScOpenCLTest1::testMathFormulaArcTanHyp()
2353 {
2354     initTestEnv(u"ods/opencl/math/ArcTanHyp.ods");
2355     ScDocument* pDoc = getScDoc();
2356     ScDocument* pDocRes = getScDoc2();
2357     pDoc->CalcAll();
2358
2359     // Verify ATanH Function
2360     for (SCROW i = 1; i <= 1000; ++i)
2361     {
2362         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2363         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2364         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2365     }
2366 }
2367
2368 void ScOpenCLTest1:: testFinacialNPER1Formula()
2369 {
2370     initTestEnv(u"xls/opencl/financial/NPER1.xls");
2371     ScDocument* pDoc = getScDoc();
2372     ScDocument* pDocRes = getScDoc2();
2373     pDoc->CalcAll();
2374
2375     for (SCROW i = 0; i <= 6; ++i)
2376     {
2377         double fLibre = pDoc->GetValue(ScAddress(5, i, 0));
2378         double fExcel = pDocRes->GetValue(ScAddress(5, i, 0));
2379         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2380     }
2381 }
2382
2383 void ScOpenCLTest1::testMathFormulaBitAnd()
2384 {
2385     initTestEnv(u"ods/opencl/math/BitAnd.ods");
2386     ScDocument* pDoc = getScDoc();
2387     ScDocument* pDocRes = getScDoc2();
2388     pDoc->CalcAll();
2389
2390     // Verify BitAnd Function
2391     for (SCROW i = 1; i <= 1000; ++i)
2392     {
2393         double fLibre = pDoc->GetValue(ScAddress(2,i,0));
2394         double fExcel = pDocRes->GetValue(ScAddress(2,i,0));
2395         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2396     }
2397 }
2398
2399 void ScOpenCLTest1::testMathFormulaLN()
2400 {
2401     initTestEnv(u"xls/opencl/math/LN.xls");
2402     ScDocument* pDoc = getScDoc();
2403     ScDocument* pDocRes = getScDoc2();
2404     pDoc->CalcAll();
2405
2406     // Check the results of formula cells in the shared formula range.
2407     for (SCROW i = 1; i <= 9; ++i)
2408     {
2409         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2410         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2411         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2412     }
2413 }
2414
2415 void ScOpenCLTest1::testMathFormulaRound()
2416 {
2417     initTestEnv(u"xls/opencl/math/ROUND.xls");
2418     ScDocument* pDoc = getScDoc();
2419     ScDocument* pDocRes = getScDoc2();
2420     pDoc->CalcAll();
2421
2422     // Check the results of formula cells in the shared formula range.
2423     for (SCROW i = 1; i <= 9; ++i)
2424     {
2425         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2426         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2427         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2428     }
2429     for (SCROW i = 15; i <= 25; ++i)
2430     {
2431         double fLibre = pDoc->GetValue(ScAddress(1,i,0));
2432         double fExcel = pDocRes->GetValue(ScAddress(1,i,0));
2433         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2434     }
2435 }
2436
2437 void ScOpenCLTest1::testStatisticalFormulaGammaDist()
2438 {
2439     initTestEnv(u"xls/opencl/statistical/GammaDist.xls");
2440     ScDocument* pDoc = getScDoc();
2441     ScDocument* pDocRes = getScDoc2();
2442     pDoc->CalcAll();
2443
2444     // Check the results of formula cells in the shared formula range.
2445     for (SCROW i = 1; i <= 19; ++i)
2446     {
2447         double fLibre = pDoc->GetValue(ScAddress(4,i,0));
2448         double fExcel = pDocRes->GetValue(ScAddress(4,i,0));
2449         CPPUNIT_ASSERT_DOUBLES_EQUAL(fExcel, fLibre, fabs(0.0001*fExcel));
2450     }
2451 }
2452
2453 ScOpenCLTest1::ScOpenCLTest1()
2454       : ScModelTestBase( "sc/qa/unit/data" )
2455 {
2456 }
2457
2458 CPPUNIT_TEST_SUITE_REGISTRATION(ScOpenCLTest1);
2459
2460 CPPUNIT_PLUGIN_IMPLEMENT();
2461
2462 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */