1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*/
#include "functions_test.hxx"
#include <document.hxx>
#include <rtl/math.hxx>
FunctionsTest::FunctionsTest():
ScFilterTestBase()
{
}
bool FunctionsTest::load(const OUString& rFilter, const OUString& rURL,
const OUString& rUserData, SfxFilterFlags nFilterFlags,
SotClipboardFormatId nClipboardID,
unsigned int nFilterVersion)
{
ScDocShellRef xDocShRef = loadDoc(rURL, rFilter, rUserData,
OUString(), nFilterFlags, nClipboardID, nFilterVersion );
CPPUNIT_ASSERT(xDocShRef.is());
xDocShRef->DoHardRecalc();
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 A has the result value, column B has the expected
// value, Column C has the check result (1 or 0), column D has
// the formula text.
if(rDoc.HasStringData(2, row, tab) || !rDoc.HasData(2, row, tab))
continue;
if (!rtl::math::approxEqual(1.0, rDoc.GetValue(2, row, tab)))
{
if (rDoc.HasValueData(1, row, tab))
{
// snprintf provides requested precision, unlike OUString::number, which
// rounds to 15 decimals
char buf[25];
int len = snprintf(buf, 25, "%.17G", rDoc.GetValue(0, row, tab));
OUString result(OUString::createFromAscii(std::string_view(buf, len)));
len = snprintf(buf, 25, "%.17G", rDoc.GetValue(1, row, tab));
OUString expected(OUString::createFromAscii(std::string_view(buf, len)));
CPPUNIT_FAIL( OUString( "Testing " + rURL + " failed, "
+ rDoc.GetAllTableNames()[tab] + ".A" + OUString::number(row+1)
+ " \'" + rDoc.GetString(3, row, tab) + "\'"
" result: " + result
+ ", expected: " + expected)
.toUtf8().getStr());
}
else
{
CPPUNIT_FAIL( OUString( "Testing " + rURL + " failed, "
+ rDoc.GetAllTableNames()[tab] + ".A" + OUString::number(row+1)
+ " \'" + rDoc.GetString(3, row, tab) + "\'"
" result: " + rDoc.GetString(0, row, tab)
+ ", expected: " + rDoc.GetString(1, row, tab))
.toUtf8().getStr());
}
}
}
}
}
CPPUNIT_ASSERT_DOUBLES_EQUAL(1.0, rDoc.GetValue(1, 2, 0), 1e-14);
xDocShRef->DoClose();
return true;
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
