diff options
Diffstat (limited to 'sc/qa')
| -rw-r--r-- | sc/qa/unit/functions_test.cxx | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/sc/qa/unit/functions_test.cxx b/sc/qa/unit/functions_test.cxx index 16e0a530a5e5..da0290a468ca 100644 --- a/sc/qa/unit/functions_test.cxx +++ b/sc/qa/unit/functions_test.cxx @@ -11,6 +11,8 @@ #include "functions_test.hxx" #include <document.hxx> +#include <rtl/math.hxx> + FunctionsTest::FunctionsTest(const OUString& rPath): ScBootstrapFixture(rPath) { @@ -40,6 +42,28 @@ bool FunctionsTest::load(const OUString& rFilter, const OUString& rURL, ScDocument& rDoc = xDocShRef->GetDocument(); + if(!rtl::math::approxEqual(1.0, rDoc.GetValue(1, 2, 0))) + { + // Cell B3 in Sheet1 has the cumulative success/failure result. + // Try to find the actual failure. + for(SCTAB tab = 1; tab <= rDoc.GetMaxTableNumber(); ++tab) + { + SCROW maxRow = rDoc.GetLastDataRow(tab, 2, 2, rDoc.MaxRow()); + for(SCROW row = 0; row <= maxRow; ++row) + { + // Column C has the check result, column D has the formula text. + if(rDoc.HasStringData(2, row, tab)) + continue; + if(!rtl::math::approxEqual(1.0, rDoc.GetValue(2, row, 1))) + CPPUNIT_FAIL( OUString( "Testing " + rURL + " failed, " + + rDoc.GetAllTableNames()[tab] + ".A" + OUString::number(row+1) + + " \'" + rDoc.GetString(3, row, 1) + "\'" + " result: " + OUString::number(rDoc.GetValue(0, row, 1)) + + ", expected: " + OUString::number(rDoc.GetValue(1, row, 1))) + .toUtf8().getStr()); + } + } + } CPPUNIT_ASSERT_DOUBLES_EQUAL(1.0, rDoc.GetValue(1, 2, 0), 1e-14); xDocShRef->DoClose(); |