pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: some cosmetics to better show the file format tested in a test case

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3150 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-06-06 12:17:45 +00:00
parent 0e675ba97d
commit 20567b639c
4 changed files with 114 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

94
components/fpspreadsheet/tests/colortests.pas
View File

@ -29,38 +29,38 @@ type
// Writes out colors & reads back. // Writes out colors & reads back.
{ BIFF2 file format tests } { BIFF2 file format tests }
procedure TestWriteReadBIFF2_Font_InternalPal; // internal palette for BIFF2 file format procedure TestWriteRead_BIFF2_Font_InternalPal; // internal palette for BIFF2 file format
{ BIFF5 file format tests } { BIFF5 file format tests }
// Background colors... // Background colors...
procedure TestWriteReadBIFF5_Background_InternalPal; // internal palette procedure TestWriteRead_BIFF5_Background_InternalPal; // internal palette
procedure TestWriteReadBIFF5_Background_Biff5Pal; // official biff5 palette procedure TestWriteRead_BIFF5_Background_Biff5Pal; // official biff5 palette
procedure TestWriteReadBIFF5_Background_Biff8Pal; // official biff8 palette procedure TestWriteRead_BIFF5_Background_Biff8Pal; // official biff8 palette
procedure TestWriteReadBIFF5_Background_RandomPal; // palette 64, top 56 entries random procedure TestWriteRead_BIFF5_Background_RandomPal; // palette 64, top 56 entries random
// Font colors... // Font colors...
procedure TestWriteReadBIFF5_Font_InternalPal; // internal palette for BIFF8 file format procedure TestWriteRead_BIFF5_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteReadBIFF5_Font_Biff5Pal; // official biff5 palette in BIFF8 file format procedure TestWriteRead_BIFF5_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
procedure TestWriteReadBIFF5_Font_Biff8Pal; // official biff8 palette in BIFF8 file format procedure TestWriteRead_BIFF5_Font_Biff8Pal; // official biff8 palette in BIFF8 file format
procedure TestWriteReadBIFF5_Font_RandomPal; // palette 64, top 56 entries random procedure TestWriteRead_BIFF5_Font_RandomPal; // palette 64, top 56 entries random
{ BIFF8 file format tests } { BIFF8 file format tests }
// Background colors... // Background colors...
procedure TestWriteReadBIFF8_Background_InternalPal; // internal palette procedure TestWriteRead_BIFF8_Background_InternalPal; // internal palette
procedure TestWriteReadBIFF8_Background_Biff5Pal; // official biff5 palette procedure TestWriteRead_BIFF8_Background_Biff5Pal; // official biff5 palette
procedure TestWriteReadBIFF8_Background_Biff8Pal; // official biff8 palette procedure TestWriteRead_BIFF8_Background_Biff8Pal; // official biff8 palette
procedure TestWriteReadBIFF8_Background_RandomPal; // palette 64, top 56 entries random procedure TestWriteRead_BIFF8_Background_RandomPal; // palette 64, top 56 entries random
// Font colors... // Font colors...
procedure TestWriteReadBIFF8_Font_InternalPal; // internal palette for BIFF8 file format procedure TestWriteRead_BIFF8_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteReadBIFF8_Font_Biff5Pal; // official biff5 palette in BIFF8 file format procedure TestWriteRead_BIFF8_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
procedure TestWriteReadBIFF8_Font_Biff8Pal; // official biff8 palette in BIFF8 file format procedure TestWriteRead_BIFF8_Font_Biff8Pal; // official biff8 palette in BIFF8 file format
procedure TestWriteReadBIFF8_Font_RandomPal; // palette 64, top 56 entries random procedure TestWriteRead_BIFF8_Font_RandomPal; // palette 64, top 56 entries random
{ OpenDocument file format tests } { OpenDocument file format tests }
// Background colors... // Background colors...
procedure TestWriteReadODS_Background_InternalPal; // internal palette procedure TestWriteRead_ODS_Background_InternalPal; // internal palette
procedure TestWriteReadODS_Background_Biff5Pal; // official biff5 palette procedure TestWriteRead_ODS_Background_Biff5Pal; // official biff5 palette
procedure TestWriteReadODS_Background_Biff8Pal; // official biff8 palette procedure TestWriteRead_ODS_Background_Biff8Pal; // official biff8 palette
procedure TestWriteReadODS_Background_RandomPal; // palette 64, top 56 entries random procedure TestWriteRead_ODS_Background_RandomPal; // palette 64, top 56 entries random
// Font colors... // Font colors...
procedure TestWriteRead_ODS_Font_InternalPal; // internal palette for BIFF8 file format procedure TestWriteRead_ODS_Font_InternalPal; // internal palette for BIFF8 file format
procedure TestWriteRead_ODS_Font_Biff5Pal; // official biff5 palette in BIFF8 file format procedure TestWriteRead_ODS_Font_Biff5Pal; // official biff5 palette in BIFF8 file format
@ -107,10 +107,7 @@ var
i: Integer; i: Integer;
begin begin
TempFile:=GetTempFileName; TempFile:=GetTempFileName;
{// Not needed: use workbook.writetofile with overwrite=true
if fileexists(TempFile) then
DeleteFile(TempFile);
}
MyWorkbook := TsWorkbook.Create; MyWorkbook := TsWorkbook.Create;
MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet); MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet);
@ -194,10 +191,7 @@ var
i: Integer; i: Integer;
begin begin
TempFile:=GetTempFileName; TempFile:=GetTempFileName;
{// Not needed: use workbook.writetofile with overwrite=true
if fileexists(TempFile) then
DeleteFile(TempFile);
}
MyWorkbook := TsWorkbook.Create; MyWorkbook := TsWorkbook.Create;
MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet); MyWorkSheet:= MyWorkBook.AddWorksheet(ColorsSheet);
@ -266,110 +260,110 @@ end;
{ Tests for BIFF2 file format } { Tests for BIFF2 file format }
{ BIFF2 supports only a fixed palette, and no background color --> test only { BIFF2 supports only a fixed palette, and no background color --> test only
internal palette for font color } internal palette for font color }
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF2_Font_InternalPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF2_Font_InternalPal;
begin begin
TestWriteReadFontColors(sfExcel2, 0); TestWriteReadFontColors(sfExcel2, 0);
end; end;
{ Tests for BIFF5 file format } { Tests for BIFF5 file format }
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_InternalPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_InternalPal;
begin begin
TestWriteReadBackgroundColors(sfExcel5, 0); TestWriteReadBackgroundColors(sfExcel5, 0);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_Biff5Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_Biff5Pal;
begin begin
TestWriteReadBackgroundColors(sfExcel5, 5); TestWriteReadBackgroundColors(sfExcel5, 5);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_Biff8Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_Biff8Pal;
begin begin
TestWriteReadBackgroundColors(sfExcel5, 8); TestWriteReadBackgroundColors(sfExcel5, 8);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Background_RandomPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Background_RandomPal;
begin begin
TestWriteReadBackgroundColors(sfExcel5, 999); TestWriteReadBackgroundColors(sfExcel5, 999);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_InternalPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_InternalPal;
begin begin
TestWriteReadFontColors(sfExcel5, 0); TestWriteReadFontColors(sfExcel5, 0);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_Biff5Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_Biff5Pal;
begin begin
TestWriteReadFontColors(sfExcel5, 5); TestWriteReadFontColors(sfExcel5, 5);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_Biff8Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_Biff8Pal;
begin begin
TestWriteReadFontColors(sfExcel5, 8); TestWriteReadFontColors(sfExcel5, 8);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF5_Font_RandomPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF5_Font_RandomPal;
begin begin
TestWriteReadFontColors(sfExcel5, 999); TestWriteReadFontColors(sfExcel5, 999);
end; end;
{ Tests for BIFF8 file format } { Tests for BIFF8 file format }
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_InternalPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_InternalPal;
begin begin
TestWriteReadBackgroundColors(sfExcel8, 0); TestWriteReadBackgroundColors(sfExcel8, 0);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_Biff5Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_Biff5Pal;
begin begin
TestWriteReadBackgroundColors(sfExcel8, 5); TestWriteReadBackgroundColors(sfExcel8, 5);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_Biff8Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_Biff8Pal;
begin begin
TestWriteReadBackgroundColors(sfExcel8, 8); TestWriteReadBackgroundColors(sfExcel8, 8);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Background_RandomPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Background_RandomPal;
begin begin
TestWriteReadBackgroundColors(sfExcel8, 999); TestWriteReadBackgroundColors(sfExcel8, 999);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_InternalPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_InternalPal;
begin begin
TestWriteReadFontColors(sfExcel8, 0); TestWriteReadFontColors(sfExcel8, 0);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_Biff5Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_Biff5Pal;
begin begin
TestWriteReadFontColors(sfExcel8, 5); TestWriteReadFontColors(sfExcel8, 5);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_Biff8Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_Biff8Pal;
begin begin
TestWriteReadFontColors(sfExcel8, 8); TestWriteReadFontColors(sfExcel8, 8);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadBIFF8_Font_RandomPal; procedure TSpreadWriteReadColorTests.TestWriteRead_BIFF8_Font_RandomPal;
begin begin
TestWriteReadFontColors(sfExcel8, 999); TestWriteReadFontColors(sfExcel8, 999);
end; end;
{ Tests for Open Document file format } { Tests for Open Document file format }
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_InternalPal; procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_InternalPal;
begin begin
TestWriteReadBackgroundColors(sfOpenDocument, 0); TestWriteReadBackgroundColors(sfOpenDocument, 0);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_Biff5Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_Biff5Pal;
begin begin
TestWriteReadBackgroundColors(sfOpenDocument, 5); TestWriteReadBackgroundColors(sfOpenDocument, 5);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_Biff8Pal; procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_Biff8Pal;
begin begin
TestWriteReadBackgroundColors(sfOpenDocument, 8); TestWriteReadBackgroundColors(sfOpenDocument, 8);
end; end;
procedure TSpreadWriteReadColorTests.TestWriteReadODS_Background_RandomPal; procedure TSpreadWriteReadColorTests.TestWriteRead_ODS_Background_RandomPal;
begin begin
TestWriteReadBackgroundColors(sfOpenDocument, 999); TestWriteReadBackgroundColors(sfOpenDocument, 999);
end; end;

48
components/fpspreadsheet/tests/fonttests.pas
View File

@ -38,22 +38,22 @@ type
published published
// BIFF2 test cases // BIFF2 test cases
procedure TestWriteReadBoldBIFF2; procedure TestWriteReadBold_BIFF2;
procedure TestWriteReadFontBIFF2_Arial; procedure TestWriteReadFont_BIFF2_Arial;
procedure TestWriteReadFontBIFF2_TimesNewRoman; procedure TestWriteReadFont_BIFF2_TimesNewRoman;
procedure TestWriteReadFontBIFF2_CourierNew; procedure TestWriteReadFont_BIFF2_CourierNew;
// BIFF5 test cases // BIFF5 test cases
procedure TestWriteReadBoldBIFF5; procedure TestWriteReadBold_BIFF5;
procedure TestWriteReadFontBIFF5_Arial; procedure TestWriteReadFont_BIFF5_Arial;
procedure TestWriteReadFontBIFF5_TimesNewRoman; procedure TestWriteReadFont_BIFF5_TimesNewRoman;
procedure TestWriteReadFontBIFF5_CourierNew; procedure TestWriteReadFont_BIFF5_CourierNew;
// BIFF8 test cases // BIFF8 test cases
procedure TestWriteReadBoldBIFF8; procedure TestWriteReadBold_BIFF8;
procedure TestWriteReadFontBIFF8_Arial; procedure TestWriteReadFont_BIFF8_Arial;
procedure TestWriteReadFontBIFF8_TimesNewRoman; procedure TestWriteReadFont_BIFF8_TimesNewRoman;
procedure TestWriteReadFontBIFF8_CourierNew; procedure TestWriteReadFont_BIFF8_CourierNew;
end; end;
implementation implementation
@ -190,17 +190,17 @@ begin
DeleteFile(TempFile); DeleteFile(TempFile);
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF2; procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF2;
begin begin
TestWriteReadBold(sfExcel2); TestWriteReadBold(sfExcel2);
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF5; procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF5;
begin begin
TestWriteReadBold(sfExcel5); TestWriteReadBold(sfExcel5);
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadBoldBIFF8; procedure TSpreadWriteReadFontTests.TestWriteReadBold_BIFF8;
begin begin
TestWriteReadBold(sfExcel8); TestWriteReadBold(sfExcel8);
end; end;
@ -282,49 +282,49 @@ begin
end; end;
{ BIFF2 } { BIFF2 }
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_Arial; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_Arial;
begin begin
TestWriteReadFont(sfExcel2, 'Arial'); TestWriteReadFont(sfExcel2, 'Arial');
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_TimesNewRoman; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_TimesNewRoman;
begin begin
TestWriteReadFont(sfExcel2, 'TimesNewRoman'); TestWriteReadFont(sfExcel2, 'TimesNewRoman');
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF2_CourierNew; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF2_CourierNew;
begin begin
TestWriteReadFont(sfExcel2, 'CourierNew'); TestWriteReadFont(sfExcel2, 'CourierNew');
end; end;
{ BIFF5 } { BIFF5 }
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_Arial; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_Arial;
begin begin
TestWriteReadFont(sfExcel5, 'Arial'); TestWriteReadFont(sfExcel5, 'Arial');
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_TimesNewRoman; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_TimesNewRoman;
begin begin
TestWriteReadFont(sfExcel5, 'TimesNewRoman'); TestWriteReadFont(sfExcel5, 'TimesNewRoman');
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF5_CourierNew; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF5_CourierNew;
begin begin
TestWriteReadFont(sfExcel5, 'CourierNew'); TestWriteReadFont(sfExcel5, 'CourierNew');
end; end;
{ BIFF8 } { BIFF8 }
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_Arial; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_Arial;
begin begin
TestWriteReadFont(sfExcel8, 'Arial'); TestWriteReadFont(sfExcel8, 'Arial');
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_TimesNewRoman; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_TimesNewRoman;
begin begin
TestWriteReadFont(sfExcel8, 'TimesNewRoman'); TestWriteReadFont(sfExcel8, 'TimesNewRoman');
end; end;
procedure TSpreadWriteReadFontTests.TestWriteReadFontBIFF8_CourierNew; procedure TSpreadWriteReadFontTests.TestWriteReadFont_BIFF8_CourierNew;
begin begin
TestWriteReadFont(sfExcel8, 'CourierNew'); TestWriteReadFont(sfExcel8, 'CourierNew');
end; end;

12
components/fpspreadsheet/tests/formulatests.pas
View File

@ -27,11 +27,11 @@ type
// Writes out numbers & reads back. // Writes out numbers & reads back.
// If previous read tests are ok, this effectively tests writing. // If previous read tests are ok, this effectively tests writing.
{ BIFF2 Tests } { BIFF2 Tests }
procedure TestWriteReadBIFF2_FormulaStrings; procedure TestWriteRead_BIFF2_FormulaStrings;
{ BIFF5 Tests } { BIFF5 Tests }
procedure TestWriteReadBIFF5_FormulaStrings; procedure TestWriteRead_BIFF5_FormulaStrings;
{ BIFF8 Tests } { BIFF8 Tests }
procedure TestWriteReadBIFF8_FormulaStrings; procedure TestWriteRead_BIFF8_FormulaStrings;
end; end;
implementation implementation
@ -104,17 +104,17 @@ begin
DeleteFile(TempFile); DeleteFile(TempFile);
end; end;
procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF2_FormulaStrings; procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF2_FormulaStrings;
begin begin
TestWriteReadFormulaStrings(sfExcel2); TestWriteReadFormulaStrings(sfExcel2);
end; end;
procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF5_FormulaStrings; procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF5_FormulaStrings;
begin begin
TestWriteReadFormulaStrings(sfExcel5); TestWriteReadFormulaStrings(sfExcel5);
end; end;
procedure TSpreadWriteReadFormulaTests.TestWriteReadBIFF8_FormulaStrings; procedure TSpreadWriteReadFormulaTests.TestWriteRead_BIFF8_FormulaStrings;
begin begin
TestWriteReadFormulaStrings(sfExcel8); TestWriteReadFormulaStrings(sfExcel8);
end; end;

80
components/fpspreadsheet/tests/optiontests.pas
View File

@ -32,32 +32,32 @@ type
// Writes out sheet options & reads back. // Writes out sheet options & reads back.
{ BIFF2 tests } { BIFF2 tests }
procedure TestWriteReadBIFF2_ShowGridLines_ShowHeaders; procedure TestWriteRead_BIFF2_ShowGridLines_ShowHeaders;
procedure TestWriteReadBIFF2_ShowGridLines_HideHeaders; procedure TestWriteRead_BIFF2_ShowGridLines_HideHeaders;
procedure TestWriteReadBIFF2_HideGridLines_ShowHeaders; procedure TestWriteRead_BIFF2_HideGridLines_ShowHeaders;
procedure TestWriteReadBIFF2_HideGridLines_HideHeaders; procedure TestWriteRead_BIFF2_HideGridLines_HideHeaders;
{ BIFF5 tests } { BIFF5 tests }
procedure TestWriteReadBIFF5_ShowGridLines_ShowHeaders; procedure TestWriteRead_BIFF5_ShowGridLines_ShowHeaders;
procedure TestWriteReadBIFF5_ShowGridLines_HideHeaders; procedure TestWriteRead_BIFF5_ShowGridLines_HideHeaders;
procedure TestWriteReadBIFF5_HideGridLines_ShowHeaders; procedure TestWriteRead_BIFF5_HideGridLines_ShowHeaders;
procedure TestWriteReadBIFF5_HideGridLines_HideHeaders; procedure TestWriteRead_BIFF5_HideGridLines_HideHeaders;
procedure TestWriteReadBIFF5_Panes_HorVert; procedure TestWriteRead_BIFF5_Panes_HorVert;
procedure TestWriteReadBIFF5_Panes_Hor; procedure TestWriteRead_BIFF5_Panes_Hor;
procedure TestWriteReadBIFF5_Panes_Vert; procedure TestWriteRead_BIFF5_Panes_Vert;
procedure TestWriteReadBIFF5_Panes_None; procedure TestWriteRead_BIFF5_Panes_None;
{ BIFF8 tests } { BIFF8 tests }
procedure TestWriteReadBIFF8_ShowGridLines_ShowHeaders; procedure TestWriteRead_BIFF8_ShowGridLines_ShowHeaders;
procedure TestWriteReadBIFF8_ShowGridLines_HideHeaders; procedure TestWriteRead_BIFF8_ShowGridLines_HideHeaders;
procedure TestWriteReadBIFF8_HideGridLines_ShowHeaders; procedure TestWriteRead_BIFF8_HideGridLines_ShowHeaders;
procedure TestWriteReadBIFF8_HideGridLines_HideHeaders; procedure TestWriteRead_BIFF8_HideGridLines_HideHeaders;
procedure TestWriteReadBIFF8_Panes_HorVert; procedure TestWriteRead_BIFF8_Panes_HorVert;
procedure TestWriteReadBIFF8_Panes_Hor; procedure TestWriteRead_BIFF8_Panes_Hor;
procedure TestWriteReadBIFF8_Panes_Vert; procedure TestWriteRead_BIFF8_Panes_Vert;
procedure TestWriteReadBIFF8_Panes_None; procedure TestWriteRead_BIFF8_Panes_None;
end; end;
implementation implementation
@ -126,64 +126,64 @@ begin
end; end;
{ Tests for BIFF2 grid lines and/or headers } { Tests for BIFF2 grid lines and/or headers }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_ShowGridLines_ShowHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_ShowGridLines_ShowHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel2, true, true); TestWriteReadGridHeaders(sfExcel2, true, true);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_ShowGridLines_HideHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_ShowGridLines_HideHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel2, true, false); TestWriteReadGridHeaders(sfExcel2, true, false);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_HideGridLines_ShowHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_HideGridLines_ShowHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel2, false, true); TestWriteReadGridHeaders(sfExcel2, false, true);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF2_HideGridLines_HideHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF2_HideGridLines_HideHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel2, false, false); TestWriteReadGridHeaders(sfExcel2, false, false);
end; end;
{ Tests for BIFF5 grid lines and/or headers } { Tests for BIFF5 grid lines and/or headers }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_ShowGridLines_ShowHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_ShowGridLines_ShowHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel5, true, true); TestWriteReadGridHeaders(sfExcel5, true, true);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_ShowGridLines_HideHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_ShowGridLines_HideHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel5, true, false); TestWriteReadGridHeaders(sfExcel5, true, false);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_HideGridLines_ShowHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_HideGridLines_ShowHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel5, false, true); TestWriteReadGridHeaders(sfExcel5, false, true);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_HideGridLines_HideHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_HideGridLines_HideHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel5, false, false); TestWriteReadGridHeaders(sfExcel5, false, false);
end; end;
{ Tests for BIFF8 grid lines and/or headers } { Tests for BIFF8 grid lines and/or headers }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_ShowGridLines_ShowHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_ShowGridLines_ShowHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel8, true, true); TestWriteReadGridHeaders(sfExcel8, true, true);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_ShowGridLines_HideHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_ShowGridLines_HideHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel8, true, false); TestWriteReadGridHeaders(sfExcel8, true, false);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_HideGridLines_ShowHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_HideGridLines_ShowHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel8, false, true); TestWriteReadGridHeaders(sfExcel8, false, true);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_HideGridLines_HideHeaders; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_HideGridLines_HideHeaders;
begin begin
TestWriteReadGridHeaders(sfExcel8, false, false); TestWriteReadGridHeaders(sfExcel8, false, false);
end; end;
@ -233,43 +233,43 @@ begin
end; end;
{ Tests for BIFF5 frozen panes } { Tests for BIFF5 frozen panes }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_HorVert; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_HorVert;
begin begin
TestWriteReadPanes(sfExcel5, 1, 2); TestWriteReadPanes(sfExcel5, 1, 2);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_Hor; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_Hor;
begin begin
TestWriteReadPanes(sfExcel5, 1, 0); TestWriteReadPanes(sfExcel5, 1, 0);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_Vert; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_Vert;
begin begin
TestWriteReadPanes(sfExcel5, 0, 2); TestWriteReadPanes(sfExcel5, 0, 2);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF5_Panes_None; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF5_Panes_None;
begin begin
TestWriteReadPanes(sfExcel5, 0, 0); TestWriteReadPanes(sfExcel5, 0, 0);
end; end;
{ Tests for BIFF8 frozen panes } { Tests for BIFF8 frozen panes }
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_HorVert; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_HorVert;
begin begin
TestWriteReadPanes(sfExcel8, 1, 2); TestWriteReadPanes(sfExcel8, 1, 2);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_Hor; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_Hor;
begin begin
TestWriteReadPanes(sfExcel8, 1, 0); TestWriteReadPanes(sfExcel8, 1, 0);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_Vert; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_Vert;
begin begin
TestWriteReadPanes(sfExcel8, 0, 2); TestWriteReadPanes(sfExcel8, 0, 2);
end; end;
procedure TSpreadWriteReadOptionsTests.TestWriteReadBIFF8_Panes_None; procedure TSpreadWriteReadOptionsTests.TestWriteRead_BIFF8_Panes_None;
begin begin
TestWriteReadPanes(sfExcel8, 0, 0); TestWriteReadPanes(sfExcel8, 0, 0);
end; end;