d36dbd8f13
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9393 8e941d3f-bd1b-0410-a28a-d453659cc2b4
420 lines
15 KiB
ObjectPascal
420 lines
15 KiB
ObjectPascal
unit numformatparsertests;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
// Not using Lazarus package as the user may be working with multiple versions
|
|
// Instead, add .. to unit search path
|
|
Classes, SysUtils, fpcunit, testregistry,
|
|
fpstypes, fpspreadsheet, fpsnumformat;
|
|
|
|
type
|
|
TParserTestData = record
|
|
FormatString: String;
|
|
SollFormatString: String;
|
|
SollNumFormat: TsNumberFormat;
|
|
SollSectionCount: Integer;
|
|
SollDecimals: Byte;
|
|
SollFactor: Double;
|
|
SollNumeratorDigits: Integer;
|
|
SollDenominatorDigits: Integer;
|
|
SollCurrencySymbol: String;
|
|
SollSection2Color: TsColor;
|
|
end;
|
|
|
|
TRoundingTestData = record
|
|
FormatString: String;
|
|
Number: Double;
|
|
SollString: String;
|
|
end;
|
|
|
|
var
|
|
ParserTestData: Array[0..13] of TParserTestData;
|
|
|
|
RoundingTestData: Array[0..65] of TRoundingTestData = (
|
|
// 0
|
|
(FormatString: '0'; Number: 1.2; SollString: '1'),
|
|
(FormatString: '0'; Number: 1.9; SollString: '2'),
|
|
(FormatString: '0'; Number: -1.2; SollString: '-1'),
|
|
(FormatString: '0'; Number: -1.9; SollString: '-2'),
|
|
(FormatString: '0'; Number: 1234.2; SollString: '1234'),
|
|
(FormatString: '0'; Number: 1234.9; SollString: '1235'),
|
|
(FormatString: '0'; Number: -1234.2; SollString: '-1234'),
|
|
(FormatString: '0'; Number: -1234.9; SollString: '-1235'),
|
|
|
|
// 8
|
|
(FormatString: '0.00'; Number: 1.2; SollString: '1.20'),
|
|
(FormatString: '0.00'; Number: 1.9; SollString: '1.90'),
|
|
(FormatString: '0.00'; Number: -1.2; SollString: '-1.20'),
|
|
(FormatString: '0.00'; Number: -1.9; SollString: '-1.90'),
|
|
(FormatString: '0.00'; Number: 1234.2; SollString: '1234.20'),
|
|
(FormatString: '0.00'; Number: 1234.9; SollString: '1234.90'),
|
|
(FormatString: '0.00'; Number: -1234.2; SollString: '-1234.20'),
|
|
(FormatString: '0.00'; Number: -1234.9; SollString: '-1234.90'),
|
|
(FormatString: '0.00'; Number: 1234.21; SollString: '1234.21'),
|
|
(FormatString: '0.00'; Number: 1234.99; SollString: '1234.99'),
|
|
(FormatString: '0.00'; Number: -1234.21; SollString: '-1234.21'),
|
|
(FormatString: '0.00'; Number: -1234.99; SollString: '-1234.99'),
|
|
(FormatString: '0.00'; Number: 1234.2123; SollString: '1234.21'),
|
|
(FormatString: '0.00'; Number: 1234.2999; SollString: '1234.30'),
|
|
(FormatString: '0.00'; Number: 1234.9123; SollString: '1234.91'),
|
|
(FormatString: '0.00'; Number: 1234.9993; SollString: '1235.00'),
|
|
(FormatString: '0.00'; Number: -1234.2123; SollString: '-1234.21'),
|
|
(FormatString: '0.00'; Number: -1234.2999; SollString: '-1234.30'),
|
|
(FormatString: '0.00'; Number: -1234.9123; SollString: '-1234.91'),
|
|
(FormatString: '0.00'; Number: -1234.9993; SollString: '-1235.00'),
|
|
|
|
// 28
|
|
(FormatString: '#,##0.00'; Number: 1.2; SollString: '1.20'),
|
|
(FormatString: '#,##0.00'; Number: 1.9; SollString: '1.90'),
|
|
(FormatString: '#,##0.00'; Number: -1.2; SollString: '-1.20'),
|
|
(FormatString: '#,##0.00'; Number: -1.9; SollString: '-1.90'),
|
|
(FormatString: '#,##0.00'; Number: 1234.2; SollString: '1,234.20'),
|
|
(FormatString: '#,##0.00'; Number: 1234.9; SollString: '1,234.90'),
|
|
(FormatString: '#,##0.00'; Number: -1234.2; SollString: '-1,234.20'),
|
|
(FormatString: '#,##0.00'; Number: -1234.9; SollString: '-1,234.90'),
|
|
(FormatString: '#,##0.00'; Number: 1234.2123; SollString: '1,234.21'),
|
|
(FormatString: '#,##0.00'; Number: 1234.2999; SollString: '1,234.30'),
|
|
(FormatString: '#,##0.00'; Number: 1234.9123; SollString: '1,234.91'),
|
|
(FormatString: '#,##0.00'; Number: 1234.9993; SollString: '1,235.00'),
|
|
(FormatString: '#,##0.00'; Number: -1234.2123; SollString: '-1,234.21'),
|
|
(FormatString: '#,##0.00'; Number: -1234.2999; SollString: '-1,234.30'),
|
|
(FormatString: '#,##0.00'; Number: -1234.9123; SollString: '-1,234.91'),
|
|
(FormatString: '#,##0.00'; Number: -1234.9993; SollString: '-1,235.00'),
|
|
|
|
// 44
|
|
(FormatString: '00.00'; Number: 1.2; SollString: '01.20'),
|
|
(FormatString: '00.00'; Number: 1.9; SollString: '01.90'),
|
|
(FormatString: '00.00'; Number: -1.2; SollString: '-01.20'),
|
|
(FormatString: '00.00'; Number: -1.9; SollString: '-01.90'),
|
|
(FormatString: '00.00'; Number: 1234.2; SollString: '1234.20'),
|
|
(FormatString: '00.00'; Number: 1234.9; SollString: '1234.90'),
|
|
(FormatString: '00.00'; Number: -1234.2; SollString: '-1234.20'),
|
|
(FormatString: '00.00'; Number: -1234.9; SollString: '-1234.90'),
|
|
|
|
// 52
|
|
(FormatString: '#.00'; Number: 0.2; SollString: '.20'),
|
|
(FormatString: '#.00'; Number: 0.9; SollString: '.90'),
|
|
(FormatString: '#.00'; Number: -0.2; SollString: '-.20'),
|
|
(FormatString: '#.00'; Number: -0.9; SollString: '-.90'),
|
|
(FormatString: '#.00'; Number: 1.2; SollString: '1.20'),
|
|
(FormatString: '#.00'; Number: -1.9; SollString: '-1.90'),
|
|
|
|
// 58
|
|
(FormatString: '0.0##'; Number: 1.2; SollString: '1.2'),
|
|
(FormatString: '0.0##'; Number: 1.21; SollString: '1.21'),
|
|
(FormatString: '0.0##'; Number: 1.212; SollString: '1.212'),
|
|
(FormatString: '0.0##'; Number: 1.2134; SollString: '1.213'),
|
|
(FormatString: '0.0##'; Number: 1.2135; SollString: '1.214'),
|
|
|
|
// 63
|
|
(FormatString: '#'; Number: 0; SollString: ''),
|
|
(FormatString: '#'; Number: 1.2; SollString: '1'),
|
|
(FormatString: '#'; Number: -1.2; SollString: '-1')
|
|
|
|
);
|
|
|
|
procedure InitParserTestData;
|
|
|
|
type
|
|
TSpreadNumFormatParserTests = class(TTestCase)
|
|
private
|
|
protected
|
|
// Set up expected values:
|
|
procedure SetUp; override;
|
|
procedure TearDown; override;
|
|
// Reads numbers values from spreadsheet and checks against list
|
|
// One cell per test so some tests can fail and those further below may still work
|
|
published
|
|
procedure TestNumFormatParser;
|
|
procedure TestRounding;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses
|
|
TypInfo;
|
|
|
|
{ The test will use Excel strings and convert them to fpc dialect }
|
|
procedure InitParserTestData;
|
|
begin
|
|
// Tests with 1 format section only
|
|
with ParserTestData[0] do begin
|
|
FormatString := '0';
|
|
SollFormatString := '0';
|
|
SollNumFormat := nfFixed;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[1] do begin
|
|
FormatString := '0.000';
|
|
SollFormatString := '0.000';
|
|
SollNumFormat := nfFixed;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 3;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[2] do begin
|
|
FormatString := '#,##0.000';
|
|
SollFormatString := '#,##0.000';
|
|
SollNumFormat := nfFixedTh;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 3;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[3] do begin
|
|
FormatString := '0.000%';
|
|
SollFormatString := '0.000%';
|
|
SollNumFormat := nfPercentage;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 3;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[4] do begin
|
|
FormatString := 'hh:mm:ss';
|
|
SollFormatString := 'hh:mm:ss';
|
|
SollNumFormat := nfLongTime;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[5] do begin
|
|
FormatString := 'hh:mm:ss AM/PM';
|
|
SollFormatString := 'hh:mm:ss AM/PM';
|
|
SollNumFormat := nfLongTimeAM;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[6] do begin
|
|
FormatString := '[$-409]hh:mm:ss\ AM/PM;@';
|
|
SollFormatString := 'hh:mm:ss\ AM/PM;@';
|
|
SollNumFormat := nfCustom;
|
|
SollSectionCount := 2;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[7] do begin
|
|
FormatString := '[$-F400]dd.mm.yy\ hh:mm';
|
|
SollFormatString := 'dd.mm.yy\ hh:mm';
|
|
SollNumFormat := nfCustom;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[8] do begin
|
|
FormatString := '[$€] #,##0.00;-[$€] #,##0.00;[$€] 0.00';
|
|
SollFormatString := '[$€] #,##0.00;-[$€] #,##0.00;[$€] 0.00';
|
|
SollNumFormat := nfCurrency;
|
|
SollSectionCount := 3;
|
|
SollDecimals := 2;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '€';
|
|
SollSection2Color := scBlack;
|
|
end;
|
|
with ParserTestData[9] do begin
|
|
FormatString := '[$€] #,##0.00;[red]-[$€] #,##0.00;[$€] 0.00';
|
|
SollFormatString := '[$€] #,##0.00;[red]-[$€] #,##0.00;[$€] 0.00';
|
|
SollNumFormat := nfCurrencyRed;
|
|
SollSectionCount := 3;
|
|
SollDecimals := 2;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '€';
|
|
SollSection2Color := scRed;
|
|
end;
|
|
with ParserTestData[10] do begin
|
|
FormatString := '0.00,,';
|
|
SollFormatString := '0.00,,';
|
|
SollNumFormat := nfCustom;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 2;
|
|
SollFactor := 1e-6;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[11] do begin
|
|
FormatString := '# ??/??';
|
|
SollFormatString := '# ??/??';
|
|
SollNumFormat := nfFraction;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 2;
|
|
SollDenominatorDigits := 2;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
with ParserTestData[12] do begin
|
|
FormatString := 'General;[Red]-General';
|
|
SollFormatString := 'General;[red]-General';
|
|
SollNumFormat := nfCustom;
|
|
SollSectionCount := 2;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
SollSection2Color := scRed;
|
|
end;
|
|
with ParserTestData[13] do begin
|
|
FormatString := 'General';
|
|
SollFormatString := 'General';
|
|
SollNumFormat := nfGeneral;
|
|
SollSectionCount := 1;
|
|
SollDecimals := 0;
|
|
SollFactor := 0;
|
|
SollNumeratorDigits := 0;
|
|
SollDenominatorDigits := 0;
|
|
SollCurrencySymbol := '';
|
|
end;
|
|
|
|
{
|
|
with ParserTestData[5] do begin
|
|
FormatString := '#,##0.00 "$";-#,##0.00 "$";-';
|
|
SollFormatString := '#,##0.00 "$";-#,##0.00 "$";-';
|
|
SollNumFormat := nfCurrencyDash;
|
|
SollSectionCount := 3;
|
|
SollDecimals := 2;
|
|
SollCurrencySymbol := '$';
|
|
end; }
|
|
|
|
{
|
|
// This case will report a mismatching FormatString because of the [RED] --> ignore
|
|
with ParserTestData[6] do begin
|
|
FormatString := '#,##0.00 "$";[RED]-#,##0.00 "$";-';
|
|
SollFormatString := '#,##0.00 "$";-#,##0.00 "$";-';
|
|
SollNumFormat := nfCurrencyDashRed;
|
|
SollSectionCount := 3;
|
|
SollDecimals := 2;
|
|
SollCurrencySymbol := '$';
|
|
end;
|
|
}
|
|
end;
|
|
|
|
{ TSpreadNumFormatParserTests }
|
|
|
|
procedure TSpreadNumFormatParserTests.SetUp;
|
|
begin
|
|
inherited SetUp;
|
|
InitParserTestData;
|
|
end;
|
|
|
|
procedure TSpreadNumFormatParserTests.TearDown;
|
|
begin
|
|
inherited TearDown;
|
|
end;
|
|
|
|
procedure TSpreadNumFormatParserTests.TestNumFormatParser;
|
|
const
|
|
EPS = 1E-12; // tolerance for float comparisons
|
|
var
|
|
i: Integer;
|
|
parser: TsNumFormatParser;
|
|
MyWorkbook: TsWorkbook;
|
|
actual: String;
|
|
begin
|
|
MyWorkbook := TsWorkbook.Create; // needed to provide the FormatSettings for the parser
|
|
try
|
|
for i:=0 to High(ParserTestData) do begin
|
|
parser := TsNumFormatParser.Create(ParserTestData[i].FormatString, MyWorkbook.FormatSettings);
|
|
try
|
|
actual := parser.FormatString;
|
|
CheckEquals(ParserTestData[i].SollFormatString, actual,
|
|
'Test format string ' + ParserTestData[i].SollFormatString + ' construction mismatch');
|
|
CheckEquals(
|
|
GetEnumName(TypeInfo(TsNumberFormat), ord(ParserTestData[i].SollNumFormat)),
|
|
GetEnumName(TypeInfo(TsNumberformat), ord(parser.ParsedSections[0].NumFormat)),
|
|
'Test format (' + ParserTestData[i].FormatString + ') detection mismatch');
|
|
CheckEquals(ParserTestData[i].SollDecimals, parser.ParsedSections[0].Decimals,
|
|
'Test format (' + ParserTestData[i].FormatString + ') decimal detection mismatch');
|
|
CheckEquals(ParserTestData[i].SollCurrencySymbol, parser.ParsedSections[0].CurrencySymbol,
|
|
'Test format (' + ParserTestData[i].FormatString + ') currency symbol detection mismatch');
|
|
CheckEquals(ParserTestData[i].SollSectionCount, parser.ParsedSectionCount,
|
|
'Test format (' + ParserTestData[i].FormatString + ') section count mismatch');
|
|
CheckEquals(ParserTestData[i].SollFactor, parser.ParsedSections[0].Factor, EPS,
|
|
'Test format (' + ParserTestData[i].FormatString + ') factor mismatch');
|
|
CheckEquals(ParserTestData[i].SollNumeratorDigits, parser.ParsedSections[0].FracNumerator,
|
|
'Test format (' + ParserTestData[i].FormatString + ') numerator digits mismatch');
|
|
CheckEquals(ParserTestData[i].SollDenominatorDigits, parser.ParsedSections[0].FracDenominator,
|
|
'Test format (' + ParserTestData[i].FormatString + ') denominator digits mismatch');
|
|
if ParserTestData[i].SollSectionCount > 1 then
|
|
CheckEquals(ParserTestData[i].SollSection2Color, parser.ParsedSections[1].Color,
|
|
'Test format (' + ParserTestData[i].FormatString + ') section 2 color mismatch');
|
|
finally
|
|
parser.Free;
|
|
end;
|
|
end;
|
|
finally
|
|
MyWorkbook.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TSpreadNumFormatParserTests.TestRounding;
|
|
var
|
|
i: Integer;
|
|
MyWorkbook: TsWorkbook;
|
|
MyWorksheet: TsWorksheet;
|
|
actual: String;
|
|
fs: TFormatSettings;
|
|
begin
|
|
MyWorkbook := TsWorkbook.Create;
|
|
try
|
|
fs := DefaultFormatSettings;
|
|
fs.DecimalSeparator := '.';
|
|
fs.ThousandSeparator := ',';
|
|
MyWorkbook.FormatSettings := fs;
|
|
MyWorksheet := MyWorkbook.AddWorksheet('Test');
|
|
for i:=0 to High(RoundingTestData) do begin
|
|
MyWorksheet.WriteNumber(0, 0,
|
|
RoundingTestData[i].Number, nfCustom, RoundingTestData[i].FormatString);
|
|
actual := MyWorksheet.ReadAsText(0, 0);
|
|
CheckEquals(RoundingTestData[i].SollString, actual,
|
|
'Rounding mismatch in test #' + IntToStr(i));
|
|
end;
|
|
finally
|
|
MyWorkbook.Free;
|
|
end;
|
|
end;
|
|
|
|
|
|
initialization
|
|
// Register so these tests are included in a full run
|
|
RegisterTest(TSpreadNumFormatParserTests);
|
|
InitParserTestData; //useful to have norm data if other code want to use this unit
|
|
end.
|
|
|
|
end.
|
|
|